import SOAP-WSDL 2.00_02 from CPAN

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

Build.PL

@@ -2,19 +2,25 @@ use Module::Build;
 Module::Build->new(
 	dist_abstract => 'SOAP with WSDL support',
 	dist_name => 'SOAP-WSDL',
-	dist_version => '2.00_01',
+	dist_version => '2.00_02',
 	module_name   => 'SOAP::WSDL',
 	license       => 'artistic',
 	requires      => {
+	    'Class::Std' => q/v0.0.8/,
+	    'Class::Std::Storable' => 0,
 		'SOAP::Lite' => 0,
 		'XML::XPath' => 0,
 		'XML::LibXML' => 0,
 		'XML::SAX::Base' => 0,
 		'XML::SAX::ParserFactory' => 0,
 	},
-	buildrequires => { 'Test::More' => 0,
+	buildrequires => {	     
+	    'Test::More' => 0,
         'SOAP::Lite' => 0,
+	    'Class::Std' => 0.0.8,
+	    'Class::Std::Storable' => 0,        
 		'XML::XPath' => 0,
+		'XML::Simple' => 0,
 		'XML::LibXML' => 0,
 		'XML::SAX::Base' => 0,
 		'XML::SAX::ParserFactory' => 0,

META.yml

@@ -1,11 +1,13 @@
 ---
 name: SOAP-WSDL
-version: 2.00_01
+version: 2.00_02
 author:
   - "Replace the whitespace in the e-mail adresses by '@'."
 abstract: SOAP with WSDL support
 license: artistic
 requires:
+  Class::Std: v0.0.8
+  Class::Std::Storable: 0
   SOAP::Lite: 0
   XML::LibXML: 0
   XML::SAX::Base: 0

lib/SOAP/WSDL/XSD/Element.pm

@@ -225,7 +225,7 @@ use base qw(
 );
 
 [%      FOREACH element = type.get_element %]
-my %[% element.get_name %]_of :ATTR(get:<[% element.get_name %]>);
+my %[% element.get_name %]_of :ATTR(:get<[% element.get_name %]>);
 [%      END %]
 
 __PACKAGE__->_factory(

t/012_element.t

@@ -18,12 +18,26 @@ ok $obj->isa('SOAP::WSDL::XSD::Typelib::Builtin::anyType')
     , 'inherited class';
 
 ok $obj->get_test->isa('SOAP::WSDL::XSD::Typelib::Builtin::string')
-    , 'element isa'; 
+    , 'element isa';
 
 is $obj, '<MyAtomicComplexTypeElement xmlns="urn:Test" ><MyTestElement >Test</MyTestElement>'
     . '<MyTestElement2 >Test2</MyTestElement2></MyAtomicComplexTypeElement>'
     , 'stringification';
 
+$obj = MyElement->new({ value => undef});
+ok $obj->isa('SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType')
+    , 'inherited class';
+
+# is $obj, '<MyElementName xmlns="urn:Test" xsi:nil="true" />', 'nillable stringification';
+
+$obj = MyAtomicComplexTypeElement->new({ test=> 'Test', test2 => [ 'Test2', 'Test3' ]});
+ok $obj->isa('SOAP::WSDL::XSD::Typelib::Builtin::anyType')
+    , 'inherited class';
+is $obj, '<MyAtomicComplexTypeElement xmlns="urn:Test" ><MyTestElement >Test</MyTestElement>'
+    . '<MyTestElement2 >Test2</MyTestElement2>'
+    . '<MyTestElement2 >Test3</MyTestElement2>'
+    . '</MyAtomicComplexTypeElement>'
+    , 'multi value stringification';
 
 
 __END__