0cbf981665
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_33 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_33.tar.gz
20 lines
589 B
Perl
20 lines
589 B
Perl
use lib '../lib';
|
|
use lib '../example/lib';
|
|
use lib '../../SOAP-WSDL_XS/blib/lib';
|
|
use lib '../../SOAP-WSDL_XS/blib/arch';
|
|
use strict;
|
|
# use Benchmark;
|
|
use SOAP::WSDL::Deserializer::XSD_XS;
|
|
use SOAP::WSDL::Factory::Deserializer;
|
|
# # register for SOAP 1.1
|
|
SOAP::WSDL::Factory::Deserializer->register('1.1' => 'SOAP::WSDL::Deserializer::XSD_XS' );
|
|
|
|
use MyInterfaces::TestService::TestPort;
|
|
|
|
my $soap = MyInterfaces::TestService::TestPort->new();
|
|
# Load all classes - XML::Compile has created everything before, too
|
|
if (@ARGV) { print $soap->ListPerson({}) }
|
|
else {
|
|
$soap->ListPerson({})
|
|
}
|