#!/usr/bin/perl --
use strict;
use warnings;
use SOAP::Lite;
my $soap = SOAP::Lite
-> uri('http://127.0.0.1/MyModule')
-> proxy('http://127.0.0.1:1203')
;;;;;;;;;
$soap->readable(1);
$soap->transport->add_handler("request_send", sub { print $_[0]->as_string,"\n"; return } );
#~ $soap->transport->add_handler("request_done", sub { print $_[0]->as_string,"\n"; return } );
my $da = SOAP::Data->new(name => 'UserName', type => 'xsd:string', attr => {});
eval { $soap->call( EmailInvoice => $da ); 1 } or warn $@;
eval { $soap->call( YouFoundIt => $da ); 1 } or warn $@;
__END__
POST http://127.0.0.1:1203 HTTP/1.1
Accept: text/xml
Accept: multipart/*
Accept: application/soap
User-Agent: SOAP::Lite/Perl/1.11
Content-Length: 499
Content-Type: text/xml; charset=utf-8
SOAPAction: "http://127.0.0.1/MyModule#EmailInvoice"
500 Can't connect to 127.0.0.1:1203 at soap-xml-tagwrap-1119550.pl line 21.
POST http://127.0.0.1:1203 HTTP/1.1
Accept: text/xml
Accept: multipart/*
Accept: application/soap
User-Agent: SOAP::Lite/Perl/1.11
Content-Length: 495
Content-Type: text/xml; charset=utf-8
SOAPAction: "http://127.0.0.1/MyModule#YouFoundIt"
500 Can't connect to 127.0.0.1:1203 at soap-xml-tagwrap-1119550.pl line 22.