import SOAP-WSDL 2.00_13 from CPAN

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

lib/SOAP/WSDL/Expat/MessageParser.pm

@@ -8,7 +8,7 @@ use XML::Parser::Expat;
 sub new {
     my ($class, $args) = @_;
     my $self = {
-        class_resolver => $args->{ class_resolver },
+        class_resolver => $args->{ class_resolver },
     };
     bless $self, $class;
     return $self;
@@ -34,24 +34,24 @@ sub _initialize {
     # use "globals" for speed
     my ($_prefix, $_localname, $_element, $_method, 
         $_class, $_parser, %_attrs) = ();
-
+
     no strict qw(refs);     
     $parser->setHandlers(
         Start => sub {
             ($_parser, $_element, %_attrs) = @_;
             ($_prefix, $_localname) = split m{:}xms , $_element;
 
-            $_localname ||= $_element;          # for non-prefixed elements          
+            $_localname ||= $_element;          # for non-prefixed elements          
             
             # ignore top level elements
-            if (@{ $ignore } && $_localname eq $ignore->[0]) {
-                CHECK_ENVELOPE: {
-                    last CHECK_ENVELOPE if $_localname ne 'Envelope';
-                    last CHECK_ENVELOPE if exists $_attrs{ 'xmlns' } 
-                      && $_attrs{ 'xmlns' } eq 'http://schemas.xmlsoap.org/soap/envelope/';
-                    last CHECK_ENVELOPE if $_attrs{ "xmlns:$_prefix"} 
-                      eq 'http://schemas.xmlsoap.org/soap/envelope/';
-                    die "Bad namespace for SOAP envelope: " . $parser->recognized_string();
+            if (@{ $ignore } && $_localname eq $ignore->[0]) {
+                CHECK_ENVELOPE: {
+                    last CHECK_ENVELOPE if $_localname ne 'Envelope';
+                    last CHECK_ENVELOPE if exists $_attrs{ 'xmlns' } 
+                      && $_attrs{ 'xmlns' } eq 'http://schemas.xmlsoap.org/soap/envelope/';
+                    last CHECK_ENVELOPE if $_attrs{ "xmlns:$_prefix"} 
+                      eq 'http://schemas.xmlsoap.org/soap/envelope/';
+                    die "Bad namespace for SOAP envelope: " . $parser->recognized_string();
                 }
                 shift @{ $ignore };
                 return;
@@ -60,7 +60,7 @@ sub _initialize {
             push @{ $path }, $_localname;       # step down in path
             return if $skip;                    # skip inside __SKIP__
 
-            # resolve class of this element
+            # resolve class of this element
             $_class = $self->{ class_resolver }->get_class( $path )
                 or die "Cannot resolve class for "
                     . join('/', @{ $path }) . " via " . $self->{ class_resolver };
@@ -79,13 +79,13 @@ sub _initialize {
             # if $class matches...
                     
             if (index $_class, 'SOAP::WSDL::XSD::Typelib::Builtin', 0 < 0) {           
-                # check wheter there is a non-empty ARRAY reference for $_class::ISA
+                # check wheter there is a non-empty ARRAY reference for $_class::ISA
                 # or a "new" method
                 # If not, require it - all classes required here MUST
                 # define new()
                 # This is not exactly the same as $class->can('new'), but it's way faster  
-                defined *{ "$_class\::new" }{ CODE }
-                  or scalar @{ *{ "$_class\::ISA" }{ ARRAY } }
+                defined *{ "$_class\::new" }{ CODE }
+                  or scalar @{ *{ "$_class\::ISA" }{ ARRAY } }
                     or eval "require $_class"   ## no critic qw(ProhibitStringyEval)
                       or die $@;                        
             }
@@ -134,7 +134,7 @@ sub _initialize {
             # set appropriate attribute in last element
             # multiple values must be implemented in base class
             $_method = "add_$_localname";
-            $$list[-1]->$_method( $current );
+            $$list[-1]->$_method( $current );
             
             $current = pop @$list;           # step up in object hierarchy...
         }
@@ -218,8 +218,8 @@ This module may be used under the same terms as perl itself.
 
  $ID: $
 
- $LastChangedDate: 2007-09-02 21:05:18 +0200 (So, 02 Sep 2007) $
- $LastChangedRevision: 184 $
+ $LastChangedDate: 2007-09-10 18:19:23 +0200 (Mo, 10 Sep 2007) $
+ $LastChangedRevision: 218 $
  $LastChangedBy: kutterma $
 
  $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageParser.pm $

lib/SOAP/WSDL/Expat/MessageStreamParser.pm

@@ -67,8 +67,8 @@ This module may be used under the same terms as perl itself.
 
  $ID: $
 
- $LastChangedDate: 2007-08-31 17:28:29 +0200 (Fr, 31 Aug 2007) $
- $LastChangedRevision: 176 $
+ $LastChangedDate: 2007-09-10 17:54:52 +0200 (Mo, 10 Sep 2007) $
+ $LastChangedRevision: 214 $
  $LastChangedBy: kutterma $
 
  $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageStreamParser.pm $

lib/SOAP/WSDL/Expat/MessageSubParser.pm

@@ -204,8 +204,8 @@ This module may be used under the same terms as perl itself.
 
  $ID: $
 
- $LastChangedDate: 2007-08-31 17:28:29 +0200 (Fr, 31 Aug 2007) $
- $LastChangedRevision: 176 $
+ $LastChangedDate: 2007-09-10 17:54:52 +0200 (Mo, 10 Sep 2007) $
+ $LastChangedRevision: 214 $
  $LastChangedBy: kutterma $
 
  $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageSubParser.pm $

lib/SOAP/WSDL/Expat/SubParser.pm

@@ -210,8 +210,8 @@ This module may be used under the same terms as perl itself.
 
  $ID: $
 
- $LastChangedDate: 2007-08-31 17:28:29 +0200 (Fr, 31 Aug 2007) $
- $LastChangedRevision: 176 $
+ $LastChangedDate: 2007-09-10 17:54:52 +0200 (Mo, 10 Sep 2007) $
+ $LastChangedRevision: 214 $
  $LastChangedBy: kutterma $
 
  $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/SubParser.pm $

lib/SOAP/WSDL/Expat/WSDLParser.pm

@@ -14,22 +14,22 @@ sub new {
 
 sub _initialize {
     my ($self, $parser) = @_;
-
-    # init object data
+
+    # init object data
     $self->{ parser } = $parser;
     delete $self->{ data };
-    
+    
     # setup local variables for keeping temp data
     my $characters = undef;
     my $current = undef;
     my $list = [];        # node list
-   
+   
     # TODO skip non-XML Schema namespace tags
     $parser->setHandlers(
         Start => sub {
             my ($parser, $localname, %attrs) = @_;
-
-            $characters = q{};
+
+            $characters = q{};
 
             my $action = SOAP::WSDL::TypeLookup->lookup(
                 $parser->namespace($localname),
@@ -41,7 +41,7 @@ sub _initialize {
                 eval "require $action->{ class }";
                 croak $@ if ($@);
     
-                my $obj = $action->{ class }->new({ parent => $current })
+                my $obj = $action->{ class }->new({ parent => $current })
                   ->init( _fixup_attrs( $parser, %attrs ) );
     
                 if ($current) {
@@ -81,8 +81,8 @@ sub _initialize {
                     ? ref $action->{ value }
                         ? @{ $action->{ value } }
                         : ($action->{ value })
-                    : _fixup_attrs($parser, %attrs) 
-                );
+                    : _fixup_attrs($parser, %attrs) 
+                );
             }
         },
         
@@ -102,46 +102,46 @@ sub _initialize {
             }
             elsif ($action->{ type } eq 'CONTENT' ) {
                 my $method = $action->{ method };
-
+
                 # normalize whitespace
                 $characters =~s{ ^ \s+ (.+) \s+ $ }{$1}xms;
                 $characters =~s{ \s+ }{ }xmsg;
-
-                no strict qw(refs);
+
+                no strict qw(refs);
                 $current->$method( $characters );
             }
         }
     );
     return $parser;
 }
-
-# make attrs SAX style
-sub _fixup_attrs {
-    my ($parser, %attrs_of) = @_;
-    
-    my @attrs_from = map { $_ = 
-        {
-            Name => $_, 
+
+# make attrs SAX style
+sub _fixup_attrs {
+    my ($parser, %attrs_of) = @_;
+    
+    my @attrs_from = map { $_ = 
+        {
+            Name => $_, 
             Value => $attrs_of{ $_ }, 
-            LocalName => $_ 
-        } 
-    } keys %attrs_of;
-
-    # add xmlns: attrs. expat eats them.  
-    push @attrs_from, map { 
-        # ignore xmlns=FOO namespaces - must be XML schema 
-        # Other nodes should be ignored somewhere else
-        ($_ eq '#default')
-        ? () 
-        :
-        { 
-            Name => "xmlns:$_", 
-            Value => $parser->expand_ns_prefix( $_ ),
-            LocalName => $_
-        }
-    } $parser->new_ns_prefixes();
-    return @attrs_from;
-}
+            LocalName => $_ 
+        } 
+    } keys %attrs_of;
+
+    # add xmlns: attrs. expat eats them.  
+    push @attrs_from, map { 
+        # ignore xmlns=FOO namespaces - must be XML schema 
+        # Other nodes should be ignored somewhere else
+        ($_ eq '#default')
+        ? () 
+        :
+        { 
+            Name => "xmlns:$_", 
+            Value => $parser->expand_ns_prefix( $_ ),
+            LocalName => $_
+        }
+    } $parser->new_ns_prefixes();
+    return @attrs_from;
+}
 
 sub parse {
     $_[0]->_initialize( XML::Parser::Expat->new(