libs/Connection/SOAP.pm

package Connection::SOAP;

use Data::Dumper;

print "hello world", "\n";

sub handler {
  my $request = shift;
  print "hello request", "\n";
  print Dumper($request);
  print "\n";
}


1;
1	package Connection::SOAP;
2
3	use Data::Dumper;
4
5	print "hello world", "\n";
6
7	sub handler {
8	my $request = shift;
9	print "hello request", "\n";
10	print Dumper($request);
11	print "\n";
12	}
13
14
15
16	1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26