Give this a spin. (I was wrong, you have to provide the file/XML, it won't do remote requests natively -- I think the Catalyst Model module does). You should be able to see what's going on and check the docs (and dive the dump info or the published human API if there is one) for how to make calls.
use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Terse = 1;
use XML::Compile::WSDL11;
use LWP::Simple;
# use XML::LibXML; # might want this
my $uri = shift || die "Give a WSDL URI!\n";
my $wsdl = LWP::Simple::get($uri) || die "Couldn't get $uri";
my $schema = XML::Compile::WSDL11->new($wsdl);
print Dumper($schema), "\n";
print "OPERATIONS_______________________________\n";
for my $op ( sort { $a->{operation} cmp $b->{operation} }
$schema->operations )
{
print "\t", $op->{operation}, "\n";
}
(update, added sort) |