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

example/lib/MyElements/GetWeather.pm

@@ -1,46 +1,8 @@
 package MyElements::GetWeather;
 use strict;
-use Class::Std::Storable;
-use SOAP::WSDL::XSD::Typelib::Element;
-
-
-# atomic complexType
-# <element name="GetWeather"><complexType> definition
-use SOAP::WSDL::XSD::Typelib::ComplexType;
-use base qw(
-    SOAP::WSDL::XSD::Typelib::Element
-    SOAP::WSDL::XSD::Typelib::ComplexType
-);
-
-
-my %CityName_of :ATTR(:get<CityName>);
-
-my %CountryName_of :ATTR(:get<CountryName>);
-
-
-__PACKAGE__->_factory(
-    [ qw(
-    CityName
-    
-    CountryName
-    ) ],
-    { 
-       CityName => \%CityName_of, 
-       CountryName => \%CountryName_of, 
-        
-    },
-    {
-      
-        CityName => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
-        
-      
-        CountryName => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
-        
-      
-    }
-);
-
+use warnings;
 
+{ # BLOCK to scope variables
 
 sub get_xmlns { 'http://www.webserviceX.NET' }
 
@@ -48,58 +10,75 @@ __PACKAGE__->__set_name('GetWeather');
 __PACKAGE__->__set_nillable();
 __PACKAGE__->__set_minOccurs();
 __PACKAGE__->__set_maxOccurs();
-__PACKAGE__->__set_ref('');
+__PACKAGE__->__set_ref();
 
+use base qw(
+	SOAP::WSDL::XSD::Typelib::Element
+	SOAP::WSDL::XSD::Typelib::ComplexType
+);
+use Class::Std::Storable;
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+{ # BLOCK to scope variables
+
+my %CityName_of :ATTR(:get<CityName>);
+my %CountryName_of :ATTR(:get<CountryName>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        CityName
+        CountryName
+    ) ],
+    { 
+		CityName => \%CityName_of, 
+		CountryName => \%CountryName_of, 
+    },
+    {
+        CityName => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        CountryName => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
 1;
 
-
-__END__
-
-
-
-
-
+# __END__
 
 =pod
 
-=head1 NAME 
+=head1 NAME
 
 MyElements::GetWeather
 
-=head1 SYNOPSIS
-
 =head1 DESCRIPTION
 
-Type class for the XML element GetWeather. 
+Perl data type class for the XML Schema defined element
+GetWeather from the namespace http://www.webserviceX.NET.
 
-=head1 PROPERTIES
+=head1 METHODS
 
-The following properties may be accessed using get_PROPERTY / set_PROPERTY 
-methods:
+=head2 new
 
- CityName
- CountryName
+ my $element = MyElements::GetWeather->new($data);
 
-=head1 Object structure
+Constructor. The following data structure may be passed to new():
 
-        CityName => 'SOAP::WSDL::XSD::Typelib::Builtin::string',        
-        
-        CountryName => 'SOAP::WSDL::XSD::Typelib::Builtin::string',        
-        
+ {
+   CityName =>  $some_value, # string
+   CountryName =>  $some_value, # string
+ }
 
-Structure as perl hash: 
-
- The object structure is displayed as hash below though this is not correct.
- Complex hash elements actually are objects of their corresponding classes 
- (look for classes of the same name in your typleib).
- new() will accept a hash structure like this, but transform it to a object 
- tree.
-
-    'GetWeather'=> {
-     'CityName' => $someValue,
-     'CountryName' => $someValue,
-   },
+=head1 AUTHOR
 
+Generated by SOAP::WSDL
 
 =cut