I\'m trying to write a client application in Perl using SOAP::Lite. I am trying to call a specific function, but I cannot seem to get the parameters right. I keep getting a
I navigated by a combination of reading the WSDL and dumping out SOAP::Lite
objects as I could manufacture them.
Below is the way that I was able to pick through the returns from SOAP::Lite
. Keep in mind that I'm working around some of the bugs in SOAP::Lite
by avoiding the SOAP::Schema::load
call, and avoiding SL's dislike of more than one defined service in a WSDL, where it kindly croaks on you.
use strict;
use warnings;
use Data::Dumper qw<Dumper>;
use SOAP::Lite; # trace => 'all'; # <- trace can help
my $schema = SOAP::Schema->new( schema_url => $destination_URL )->parse();
my $services = $schema->services();
my $defintion;
foreach my $service ( values %$services ) {
$definition = $service->{$method_name};
}
print Dumper( $definition );
Most of variables that are not defined above are things that you would have to supply.