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, 'Test'
. 'Test2'
, 'stringification';
+$obj = MyElement->new({ value => undef});
+ok $obj->isa('SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType')
+ , 'inherited class';
+
+# is $obj, '', 'nillable stringification';
+
+$obj = MyAtomicComplexTypeElement->new({ test=> 'Test', test2 => [ 'Test2', 'Test3' ]});
+ok $obj->isa('SOAP::WSDL::XSD::Typelib::Builtin::anyType')
+ , 'inherited class';
+is $obj, 'Test'
+ . 'Test2'
+ . 'Test3'
+ . ''
+ , 'multi value stringification';
__END__