a9033164e6
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_25 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_25.tar.gz
21 lines
630 B
Perl
21 lines
630 B
Perl
#!/usr/bin/perl -w
|
|
use strict;
|
|
use warnings;
|
|
use lib 'lib';
|
|
|
|
# I have to generate the interface using wsdl2perl.pl before
|
|
use MyInterfaces::HelloWorld::HelloWorldSoap;
|
|
|
|
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"',
|
|
});
|
|
|
|
die $result if not $result;
|
|
|
|
# I have to lookup the output parameter from the interface's POD - or try:
|
|
# Bad method names will die with a list of available methods
|
|
print $result->get_sayHelloResult(), "\n"; |