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	joko	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