import SOAP-WSDL 2.00_31 from CPAN

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

lib/SOAP/WSDL/XSD/Builtin.pm

@@ -18,7 +18,7 @@ sub serialize {
         my $prefix = $prefix_of{ $ns }
             || die 'No prefix found for namespace '. $ns;
         $xml .= ' type="' . $prefix . ':'
-          . $self->get_name() . '"' if ($self->get_name() );
+          . $self->get_name() . '"';
     }
 
     if (defined $value) {

lib/SOAP/WSDL/XSD/ComplexType.pm

@@ -6,7 +6,7 @@ use Class::Std::Fast::Storable;
 use Scalar::Util qw(blessed);
 use base qw/SOAP::WSDL::Base/;
 
-our $VERSION=q{2.00_25};
+our $VERSION=q{2.00_29};
 
 my %annotation_of   :ATTR(:name<annotation> :default<()>);
 my %attribute_of    :ATTR(:name<attribute>    :default<()>);

lib/SOAP/WSDL/XSD/Element.pm

@@ -53,7 +53,7 @@ sub serialize {
     # TODO: implement final and substitutionGroup - maybe never implement
     # substitutionGroup ?
 
-    $name ||= $self->get_name();
+    $name = $self->get_name() if not ($name);
 
     if ( $opt->{ qualify } ) {
         $opt->{ attributes } = [ ' xmlns="' . $self->get_targetNamespace .'"' ];

lib/SOAP/WSDL/XSD/Typelib/Attribute.pm

@@ -4,6 +4,8 @@ use warnings;
 
 use base qw(SOAP::WSDL::XSD::Typelib::Element);
 
+our $VERSION=q{2.00_29};
+
 sub start_tag {
     # my ($self, $opt, $value) = @_;
     return q{} if (@_ < 3); 

lib/SOAP/WSDL/XSD/Typelib/AttributeSet.pm

@@ -3,6 +3,8 @@ use strict;
 use warnings;
 use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
 
+our $VERSION=q{2.00_29};
+
 sub serialize {
     # we work on @_ for performance.
     $_[1] ||= {};                                   # $option_ref

lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm

@@ -9,7 +9,7 @@ require Class::Std::Fast::Storable;
 
 use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anyType);
 
-our $VERSION = '2.00_29';
+our $VERSION = '2.00_31';
 
 my %ELEMENTS_FROM;
 my %ATTRIBUTES_OF;
@@ -45,6 +45,10 @@ my %xml_attr_of :ATTR();
 sub attr {
     my $self = shift;
     my $class = ref $self;
+
+    # disable strictness - in perl 5.10 %{ "$foo\::_bar" } triggers a
+    # symbolic reference error with strictness enabled
+    no strict qw(refs);
     die "$class has no attributes" if not defined %{ "$class\::_ATTR::"};
     if (@_) {
         # setter
@@ -176,7 +180,7 @@ sub _factory {
                             : die croak "cannot use $is_ref reference as value for $name - $type required"
 
                 # not $is_ref
-                : $type->new({ value => $_[1] });
+                : defined $_[1] ? $type->new({ value => $_[1] }) : () ;
             return;
         };
 
@@ -223,7 +227,7 @@ sub _factory {
            : $_ =~ m{ \A              # beginning of string
                       xmlns           # xmlns
                 }xms        # get_elements is inlined for performance.
-                ? do {}
+                ? ()
                 : do { use Data::Dumper;
                      croak "unknown field $_ in $class. Valid fields are:\n"
                      . join(', ', @{ $ELEMENTS_FROM{ $class } }) . "\n"
@@ -455,9 +459,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 497 $
+ $Rev: 524 $
  $LastChangedBy: kutterma $
- $Id: ComplexType.pm 497 2008-01-19 12:57:57Z kutterma $
+ $Id: ComplexType.pm 524 2008-02-10 23:24:43Z kutterma $
  $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm $
 
 =cut

lib/SOAP/WSDL/XSD/Typelib/Element.pm

@@ -175,9 +175,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 497 $
+ $Rev: 498 $
  $LastChangedBy: kutterma $
- $Id: Element.pm 497 2008-01-19 12:57:57Z kutterma $
+ $Id: Element.pm 498 2008-01-20 22:47:18Z kutterma $
  $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Typelib/Element.pm $
 
 =cut