import SOAP-WSDL 1.27 from CPAN

git-cpan-module: SOAP-WSDL git-cpan-version: 1.27 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-1.27.tar.gz
2009-12-12 19:48:16 -08:00
parent 7ca2154ad6
commit 2bad767211
389 changed files with 2374 additions and 28345 deletions
@@ -1,132 +0,0 @@
-#!/usr/bin/perl
-package SOAP::WSDL::Expat::Message2Hash;
-use strict;
-use warnings;
-use base qw(SOAP::WSDL::Expat::Base);
-
-our $VERSION = '2.00_27';
-
-sub _initialize {
-    my ($self, $parser) = @_;
-    $self->{ parser } = $parser;
-    delete $self->{ data };             # remove potential old results
-
-    my $characters;
-    my $current = {};
-    my $list = [];                      # node list
-    my $current_part = q{};             # are we in header or body ?
-    $self->{ data } = $current;
-
-    # use "globals" for speed
-    my ($_element, $_method,
-        $_class, $_parser, %_attrs) = ();
-
-    no strict qw(refs);
-    $parser->setHandlers(
-        Start => sub {
-            push @$list, $current;
-           #If our element exists and is a list ref, add to it
-            if ( exists $current->{ $_[1] }
-              && ( ref ($current->{ $_[1] }) eq 'ARRAY')
-            )  {
-                push @{ $current->{ $_[1] } }, {};
-                $current = $current->{ $_[1] }->[-1];
-            }
-            elsif ( exists $current->{ $_[1] } )
-            {
-                $current->{ $_[1] } = [ $current->{ $_[1] }, {} ];
-                $current = $current->{ $_[1] }->[-1];
-            }
-            else {
-                $current->{ $_[1] } = {};
-                $current = $current->{ $_[1] };
-            }
-            return;
-        },
-
-        Char => sub {
-            $characters .= $_[1] if $_[1] !~m{ \A \s* \z}xms;
-            return;
-        },
-
-        End => sub {
-            $_element = $_[1];
-
-            # This one easily handles ignores for us, too...
-            # return if not ref $$list[-1];
-
-            if (length $characters) {
-                if (ref $list->[-1]->{ $_element } eq 'ARRAY') {
-                    $list->[-1]->{ $_element }->[-1] = $characters ;
-                }
-                else {
-                    $list->[-1]->{ $_element } = $characters;
-                }
-            }
-            $characters = q{};
-            $current = pop @$list;           # step up in object hierarchy...
-            return;
-        }
-    );
-    return $parser;
-}
-
-1;
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::Expat::Message2Hash - Convert SOAP messages to perl hash refs
-
-=head1 SYNOPSIS
-
- my $parser = SOAP::WSDL::Expat::MessageParser->new({
-    class_resolver => 'My::Resolver'
- });
- $parser->parse( $xml );
- my $obj = $parser->get_data();
-
-=head1 DESCRIPTION
-
-Real fast expat based SOAP message parser.
-
-See L<SOAP::WSDL::Manual::Parser> for details.
-
-=head1 Bugs and Limitations
-
-=over
-
-=item * Ignores all namespaces
-
-=item * Ignores all attributes
-
-=item * Does not handle mixed content
-
-=item * The SOAP header is ignored
-
-=back
-
-=head1 AUTHOR
-
-Replace the whitespace by @ for E-Mail Address.
-
- Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=head1 LICENSE AND COPYRIGHT
-
-Copyright 2004-2007 Martin Kutter.
-
-This file is part of SOAP-WSDL. You may distribute/modify it under
-the same terms as perl itself
-
-=head1 Repository information
-
- $Id: $
-
- $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 $
-