import SOAP-WSDL 2.00_29 from CPAN
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_29 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_29.tar.gz
This commit is contained in:
committed by
Michael G. Schwern
parent
2bad767211
commit
874251225f
@@ -0,0 +1,24 @@
|
||||
#!/usr/bin/perl -w
|
||||
use strict;
|
||||
use warnings;
|
||||
use lib 'lib'; # just needed because interface lies here
|
||||
|
||||
# I have to generate the interface using wsdl2perl.pl before
|
||||
use MyInterfaces::HelloWorld::HelloWorldSoap;
|
||||
|
||||
# I instantiate a interface class.
|
||||
my $soap = MyInterfaces::HelloWorld::HelloWorldSoap->new();
|
||||
|
||||
# I have to lookup the method and synopsis from the interface's pod
|
||||
my $result = $soap->sayHello({
|
||||
name => $ARGV[1] || '"Your name"',
|
||||
givenName => $ARGV[0] || '"Your given name"',
|
||||
});
|
||||
|
||||
# SOAP::WSDL::SOAP::Typelib::Fault11 objects are false, but serialize to XML
|
||||
die $result if not $result;
|
||||
|
||||
# I have to lookup the output parameter from the interface's POD - or try:
|
||||
# Will die on bad method names with a list of available methods
|
||||
print $result->get_sayHelloResult(), "\n";
|
||||
|
||||
Reference in New Issue
Block a user