import SOAP-WSDL 2.00.01 from CPAN

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

lib/SOAP/WSDL/Expat/Base.pm

@@ -6,7 +6,7 @@ use XML::Parser::Expat;
 
 # TODO: convert to Class::Std::Fast based class - hash based classes suck.
 
-our $VERSION = '2.00_32';
+use version; our $VERSION = qv('2.00.01');
 
 sub new {
     my ($class, $arg_ref) = @_;

lib/SOAP/WSDL/Expat/Message2Hash.pm

@@ -4,7 +4,7 @@ use strict;
 use warnings;
 use base qw(SOAP::WSDL::Expat::Base);
 
-our $VERSION = '2.00_27';
+use version; our $VERSION = qv('2.00.01');
 
 sub _initialize {
     my ($self, $parser) = @_;
@@ -21,7 +21,7 @@ sub _initialize {
     my ($_element, $_method,
         $_class, $_parser, %_attrs) = ();
 
-    no strict qw(refs);
+    # no strict qw(refs);
     $parser->setHandlers(
         Start => sub {
             push @$list, $current;

lib/SOAP/WSDL/Expat/MessageParser.pm

@@ -4,7 +4,7 @@ use strict;
 use warnings;
 use Carp qw(croak confess);
 
-our $VERSION = q{2.00_27};
+use version; our $VERSION = qv('2.00.01');
 
 use SOAP::WSDL::XSD::Typelib::Builtin;
 use SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;
@@ -24,8 +24,12 @@ sub new {
     };
 
     bless $self, $class;
-    $self->load_classes() if ($args->{ class_resolver })
-        && ! exists $LOADED_OF{ $self->{ class_resolver } };
+
+    # could be written as && - but Devel::Cover doesn't like that
+    if ($args->{ class_resolver }) {
+        $self->load_classes()
+            if ! exists $LOADED_OF{ $self->{ class_resolver } };
+    }
     return $self;
 }
 
@@ -162,6 +166,9 @@ sub _initialize {
             # (circumventing constructor) here.
             # That's dirty, but fast.
             #
+            # TODO: check whether this is faster under all perls - there's
+            # strange benchmark results...
+            #
             # The alternative would read:
             # $current = $_class->new({ @_[2..$#_] });
             #
@@ -172,8 +179,20 @@ sub _initialize {
             }
 
             # set attributes if there are any
-            $current->attr({ @_[2..$#_] }) if (@_ > 2);
-
+            ATTR: {
+                if (@_ > 2) {
+                    # die Data::Dumper::Dumper(@_[2..$#_]);
+                    my %attr = @_[2..$#_];
+                    if (my $nil = delete $attr{nil}) {
+                        # TODO: check namespace
+                        if ($nil && $nil ne 'false') {
+                            undef $characters;
+                            last ATTR if not (%attr);
+                        }
+                    }
+                    $current->attr(\%attr);
+                }
+            }
             $depth++;
             return;
         },
@@ -194,13 +213,6 @@ sub _initialize {
 
             $depth--;
 
-            # return if there's only one elment - can't set it in parent ;-)
-            # but set as root element if we don't have one already.
-            if (not defined $list->[-1]) {
-                $self->{ data } = $current if (not exists $self->{ data });
-                return;
-            };
-
             # we only set character values in leaf nodes
             if ($_leaf) {
                 # Use dirty but fast access via global variables.
@@ -210,12 +222,20 @@ sub _initialize {
                 # $current->set_value( $characters ) if (length($characters));
                 #
                 $SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType::___value
-                    ->{ $$current } = $characters if $characters =~m{ [^\s] }xms;
+                    ->{ $$current } = $characters
+                        if defined $characters && defined $current; # =~m{ [^\s] }xms;
             }
 
             # empty characters
             $characters = q{};
 
+            # return if there's only one elment - can't set it in parent ;-)
+            # but set as root element if we don't have one already.
+            if (not defined $list->[-1]) {
+                $self->{ data } = $current if (not exists $self->{ data });
+                return;
+            };
+
             # set appropriate attribute in last element
             # multiple values must be implemented in base class
             # $_method = "add_$_localname";
@@ -295,8 +315,8 @@ the same terms as perl itself
 
  $Id: $
 
- $LastChangedDate: 2008-03-29 22:38:55 +0100 (Sa, 29 Mrz 2008) $
- $LastChangedRevision: 585 $
+ $LastChangedDate: 2008-04-22 23:51:49 +0200 (Di, 22 Apr 2008) $
+ $LastChangedRevision: 616 $
  $LastChangedBy: kutterma $
 
  $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageParser.pm $

lib/SOAP/WSDL/Expat/MessageStreamParser.pm

@@ -6,7 +6,7 @@ use XML::Parser::Expat;
 use SOAP::WSDL::Expat::MessageParser;
 use base qw(SOAP::WSDL::Expat::MessageParser);
 
-our $VERSION = '2.00_24';
+use version; our $VERSION = qv('2.00.01');
 
 sub parse_start {
     my $self = shift;
@@ -43,7 +43,7 @@ SOAP::WSDL::Expat::MessageStreamParser - Convert SOAP messages to custom object
  # process response while it comes in, trying to read 32k chunks.
  $lwp->request( $request, sub { $chunk_parser->parse_more($_[0]) } , 32468 );
  $chunk_parser->parse_done();
- 
+
  my $obj = $parser->get_data();
 
 =head1 DESCRIPTION
@@ -69,9 +69,9 @@ the same terms as perl itself
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 477 $
+ $Rev: 616 $
  $LastChangedBy: kutterma $
- $Id: MessageStreamParser.pm 477 2007-12-24 10:23:52Z kutterma $
+ $Id: MessageStreamParser.pm 616 2008-04-22 21:51:49Z kutterma $
  $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageStreamParser.pm $
- 
+
 =cut

lib/SOAP/WSDL/Expat/WSDLParser.pm

@@ -5,7 +5,7 @@ use Carp;
 use SOAP::WSDL::TypeLookup;
 use base qw(SOAP::WSDL::Expat::Base);
 
-our $VERSION = q{2.00_32};
+use version; our $VERSION = qv('2.00.01');
 
 sub _import_children {
     my ($self, $name, $imported, $importer, $import_namespace) = @_;
@@ -279,10 +279,10 @@ the same terms as perl itself
 
 =head1 Repository information
 
- $Id: WSDLParser.pm 549 2008-02-20 10:14:26Z kutterma $
+ $Id: WSDLParser.pm 616 2008-04-22 21:51:49Z kutterma $
 
- $LastChangedDate: 2008-02-20 11:14:26 +0100 (Mi, 20 Feb 2008) $
- $LastChangedRevision: 549 $
+ $LastChangedDate: 2008-04-22 23:51:49 +0200 (Di, 22 Apr 2008) $
+ $LastChangedRevision: 616 $
  $LastChangedBy: kutterma $
 
  $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/WSDLParser.pm $