#!/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_s
+tring,"\n"; return } );
#~ $soap->transport->add_handler("request_done",  sub { print $_[0]->a
+s_string,"\n"; return } );
my $da = SOAP::Data->new(name => 'UserName', type => 'xsd:string', att
+r => {});
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"

<?xml version="1.0" encoding="UTF-8"?>
<soap:Envelope
    soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
    xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"
    xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"
    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
  <soap:Body>
    <EmailInvoice xmlns="http://127.0.0.1/MyModule">
      <UserName />
          </EmailInvoice>
  </soap:Body>
</soap:Envelope>

500 Can't connect to 127.0.0.1:1203 at soap-xml-tagwrap-1119550.pl lin
+e 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"

<?xml version="1.0" encoding="UTF-8"?>
<soap:Envelope
    soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
    xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"
    xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"
    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
  <soap:Body>
    <YouFoundIt xmlns="http://127.0.0.1/MyModule">
      <UserName />
          </YouFoundIt>
  </soap:Body>
</soap:Envelope>

500 Can't connect to 127.0.0.1:1203 at soap-xml-tagwrap-1119550.pl lin
+e 22.
[download]