[Melbourne-pm] XML::Compile::WSDL11 - accessing the transport layer
tjc at wintrmute.net
Thu Apr 10 22:02:13 PDT 2008
On Fri, Apr 11, 2008 at 12:08:39PM +1000, Toby Corkindale wrote:
> I'm using XML::Compile::WSDL11 to generate some SOAP services, but I want to
> get access to the LWP::UserAgent object.. to do that I need to get the
> XML::Compile::Transport::SOAPHTTP object, but it's eluding me on the correct
> incantations to retrieve it from the X-C-WSDL11 object.
> Can anyone help me with the missing step here?
I never did figure out the right way to get to the transport layer, and
eventually decided that X-C-T-SOAPHTTP just didn't export the package-wide
%transporters hash via any means.
I created a work-around, see below if you ever need to do this yourself:
> my $wsdl = slurp('service.wsdl');
> my $service = XML::Compile::WSDL11->new($wsdl);
my $transport = XML::Compile::Transport::SOAPHTTP->new(
address => $server_uri
my $ua = $transport->userAgent;
# Hurrah, now set all your custom LWP::UserAgent options.
my $call = $service->compileClient('MyService',
port => 'MyPort',
transport => $transport,
> $call->( answer => 42 );
In this case I already knew what the destination address URL was, and could set
it manually in $server_uri. If you don't know what it is, it can be obtained by
XML::Compile::WSDL11::Operation's endPoints() function; in order to get an
Operation object you can call ->operation on your WSDL object, but you'll have
to pass a valid operation name; a list of these is available from the
I welcome any suggestions on easier ways to perform this..
More information about the Melbourne-pm