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/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(