import SOAP-WSDL 2.00_24 from CPAN
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_24 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_24.tar.gz
This commit is contained in:
committed by
Michael G. Schwern
parent
b955c5ad79
commit
84b53d9261
+6
-4
@@ -10,11 +10,13 @@
|
||||
# This script demonstrates the use of a interface generated by wsdl2perl.pl
|
||||
|
||||
use lib 'lib/';
|
||||
use MyInterfaces::GlobalWeather;
|
||||
my $weather = MyInterfaces::GlobalWeather->new({ no_dispatch => 1 });
|
||||
use MyInterfaces::GlobalWeather::GlobalWeatherSoap;
|
||||
my $weather = MyInterfaces::GlobalWeather::GlobalWeatherSoap->new();
|
||||
my $result = $weather->GetWeather({ CountryName => 'Germany', CityName => 'Munich' });
|
||||
print $result;
|
||||
|
||||
# boolean comparison overloaded
|
||||
die $result->get_faultstring()->get_value() if not ($result);
|
||||
|
||||
print $result->get_GetWeatherResult()->get_value() , "\n";
|
||||
# The result is a XML string
|
||||
# use get_value to avoid automatic entity encoding
|
||||
print $result->get_GetWeatherResult()->get_value , "\n";
|
||||
|
||||
Reference in New Issue
Block a user