From 7716d4349a2b0040305154c1cd5e753a218179a9 Mon Sep 17 00:00:00 2001
From: Martin Kutter <kutterma@users.sourceforge.net>
Date: Thu, 28 Jun 2007 03:05:54 -0800
Subject: [PATCH] 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                     | 10 ++++++++--
 META.yml                     |  4 +++-
 lib/SOAP/WSDL/XSD/Element.pm |  2 +-
 t/012_element.t              | 16 +++++++++++++++-
 4 files changed, 27 insertions(+), 5 deletions(-)

diff --git a/Build.PL b/Build.PL
index d898f39..9ea9380 100644
--- a/Build.PL
+++ b/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,
diff --git a/META.yml b/META.yml
index 71e131d..a9ad4c8 100644
--- a/META.yml
+++ b/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
diff --git a/lib/SOAP/WSDL/XSD/Element.pm b/lib/SOAP/WSDL/XSD/Element.pm
index 9279c27..c8ad280 100644
--- a/lib/SOAP/WSDL/XSD/Element.pm
+++ b/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(
diff --git a/t/012_element.t b/t/012_element.t
index d48fc47..664676d 100644
--- a/t/012_element.t
+++ b/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__