import SOAP-WSDL 2.00_09 from CPAN

git-cpan-module:   SOAP-WSDL
git-cpan-version:  2.00_09
git-cpan-authorid: MKUTTER
git-cpan-file:     authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_09.tar.gz

example/fortune.pl

@@ -11,23 +11,37 @@
 
 use lib 'lib/';
 use MyInterfaces::FullerData_x0020_Fortune_x0020_Cookie;
-use MyElements::GetFortuneCookie;
 my $cookieService = MyInterfaces::FullerData_x0020_Fortune_x0020_Cookie->new();
 
-my $cookie = $cookieService->GetFortuneCookie();
+my $cookie;
+$cookie = $cookieService->GetFortuneCookie()
+  or die "$cookie";
 
-if ($cookie) {
-  print $cookie->get_GetFortuneCookieResult()->get_value, "\n";
-}
-else {
-  print $cookie;
-}
+print $cookie; # ->get_GetFortuneCookieResult()->get_value, "\n";
 
-$cookie = $cookieService->GetSpecificCookie({ index => 23 });
-if ($cookie) {
-  print $cookie
-  ->get_GetSpecificCookieResult(), "\n";
-}
-else {
-  print $cookie;
-}
+$cookie = $cookieService->GetSpecificCookie({ index => 23 })
+  or die "$cookie";
+
+print $cookie->get_GetSpecificCookieResult(), "\n";
+
+print $cookie;
+
+
+=for demo:
+
+# the same in SOAP lite (second call)
+#
+
+use SOAP::Lite;
+
+my $lite = SOAP::Lite->new()->on_action(sub { join '/', @_ } )
+  ->proxy('http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx');
+
+$lite->call(
+    SOAP::Data->name('GetSpecificCookie')
+      ->attr({ 'xmlns', 'http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx' }), 
+      SOAP::Data->name('index')->value(23) 
+  );
+
+die $soap->message() if ($soap->fault());
+print $soap->result();

example/lib/MyElements/GetWeatherResponse.pm

@@ -26,7 +26,6 @@ __PACKAGE__->_factory(
     {
       
         GetWeatherResult => 'SOAP::WSDL::XSD::Typelib::Builtin::string',        
-         
       
     }
 );

example/weather.pl

@@ -16,4 +16,4 @@ my $result = $weather->GetWeather({ CountryName => 'Germany', CityName => 'Munic
 
 die $result->get_faultstring()->get_value() if not ($result);   # boolean comparison overloaded
 
-print $result->get_GetWeatherResult()->get_value() "\n";
+print $result->get_GetWeatherResult()->get_value() , "\n";

example/weather_wsdl.pl

@@ -22,4 +22,4 @@ my $som = $soap->wsdl("file:///$path/wsdl/globalweather.xml")
 
 die $som->message() if $som->fault();
 
-print $som->result();
+print $som->result();