| Current Path : /proc/thread-self/root/usr/share/doc/perl-SOAP-WSDL-examples/example/ |
| Current File : //proc/thread-self/root/usr/share/doc/perl-SOAP-WSDL-examples/example/person.pl |
use strict;
use warnings;
use lib 'lib';
use MyInterfaces::TestService::TestPort;
my $soap = MyInterfaces::TestService::TestPort->new();
my $result = $soap->ListPerson({})
or die "error calling SOAP method";
print "Found " . @{ $result->get_out()->get_NewElement } . " persons\n";