import SOAP-WSDL 1.24 from CPAN

git-cpan-module: SOAP-WSDL git-cpan-version: 1.24 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-1.24.tar.gz
2009-12-12 19:47:56 -08:00
parent 7ba2f93e44
commit 9e85f63aa0
228 changed files with 2369 additions and 22762 deletions
@@ -1,49 +0,0 @@
-package SOAP::WSDL::Deserializer::SOAP11;
-use strict;
-use warnings;
-use Class::Std::Storable;
-use SOAP::WSDL::SOAP::Typelib::Fault11;
-
-our $VERSION='2.00_13';
-
-my %class_resolver_of :ATTR(:name<class_resolver> :default<()>);
-
-sub BUILD {
-    my ($self, $ident, $args_of_ref) = @_;
-    
-    # ignore all options except 'class_resolver'
-    for (keys %{ $args_of_ref }) {
-        delete $args_of_ref->{ $_ } if $_ ne 'class_resolver';
-    }
-
-}
-
-
-sub deserialize {
-    my ($self, $content) = @_;
-        
-    my $parser = SOAP::WSDL::Expat::MessageParser->new({
-        class_resolver => $class_resolver_of{ ident $self },
-    });
-    eval { $parser->parse_string( $content ) };
-    if ($@) {
-        return $self->generate_fault({
-            code => 'soap:Server',
-            role => 'urn:localhost',
-            message => "Error deserializing message: $@. \n"
-                . "Message was: \n$content"
-        });
-    }
-    return $parser->get_data();
-}
-
-sub generate_fault {
-    my ($self, $args_from_ref) = @_;
-    return SOAP::WSDL::SOAP::Typelib::Fault11->new({
-            faultcode => $args_from_ref->{ code } || 'soap:Client',
-            faultactor => $args_from_ref->{ role } || 'urn:localhost',
-            faultstring => $args_from_ref->{ message } || "Unknown error"
-    }); 
-}
-
-1;
@@ -1,124 +0,0 @@
-package SOAP::WSDL::Deserializer::SOM;
-use strict;
-use warnings;
-
-our $VERSION = '2.00_15';
-our @ISA;
-
-eval { 
-    require SOAP::Lite;
-    push @ISA, 'SOAP::Deserializer'; 
-}
-or die "Cannot load SOAP::Lite. 
-Cannot deserialize to SOM object without SOAP::Lite. 
-Please install SOAP::Lite.";
-
-sub generate_fault {
-    my ($self, $args_from_ref) = @_;
-    # code, message, detail, actor
-    die SOAP::Fault->new(
-        faultcode => $args_from_ref->{ code },
-        faultstring => $args_from_ref->{ message },
-        faultactor => $args_from_ref->{ role },
-    );
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-SOAP::WSDL::Deserializer::SOM - Deserializer SOAP messages into SOM objects
-
-=head1 SYNOPSIS
-
- use SOAP::WSDL;
- use SOAP::WSDL::Deserializer::SOM;
- use SOAP::WSDL::Factory::Deserializer;
- SOAP::WSDL::Factory::Deserializer->register( '1.1', __PACKAGE__ );
- 
-=head1 DESCRIPTION
-
-Deserializer for creating SOAP::Lite's SOM object as result of a SOAP call.
-
-This package is here for two reasons:
-
-=over
-
-=item * Compatibility
-
-You don't have to change the rest of your SOAP::Lite based app when switching 
-to SOAP::WSDL, but can just use SOAP::WSDL::Deserializer::SOM to get back the 
-same objects as you were used to.
-
-=item * Completeness
-
-SOAP::Lite covers much more of the SOAP specification than SOAP::WSDL. 
-
-SOAP::WSDL::Deserializer::SOM can be used for content which cannot be 
-deserialized by L<SOAP::WSDL::Deserializer::SOAP11|SOAP::WSDL::Deserializer::SOAP11>. 
-This may be XML including mixed content, attachements and other XML data not 
-(yet) handled by L<SOAP::WSDL::Deserializer::SOAP11|SOAP::WSDL::Deserializer::SOAP11>. 
-
-=back
-
-SOAP::WSDL::Deserializer::SOM is a subclass of L<SOAP::Deserializer|SOAP::Deserializer> 
-from the L<SOAP::Lite|SOAP::Lite> package. 
-
-You may 
-
-=head1 USAGE
-
-SOAP::WSDL::Deserializer will not auroregister itself - to use it for a particular 
-SOAP version just use the following lines:
-
- my $soap_version = '1.1'; # or '1.2', further versions may appear.
- 
- use SOAP::WSDL::Deserializer::SOM;
- use SOAP::WSDL::Factory::Deserializer;
- SOAP::WSDL::Factory::Deserializer->register( $soap_version, __PACKAGE__ );
-
-=head1 DIFFERENCES FROM OTHER CLASSES
-
-=head2 Differences from SOAP::Lite
-
-=over
-
-=item * No on_fault handler
-
-You cannot specify what to do when an error occurs - SOAP::WSDL will die 
-with a SOAP::Fault object on transport errors.
-
-=back
-
-=head2 Differences from other SOAP::WSDL::Deserializer classes
-
-=over
-
-=item * generate_fault
-
-SOAP::WSDL::Deserializer::SOM will die with a SOAP::Fault object on calls 
-to generate_fault.
-
-=back
-
-=head1 LICENSE
-
-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 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=head1 REPOSITORY INFORMATION
-
- $Rev: 176 $
- $LastChangedBy: kutterma $
- $Id: Serializer.pm 176 2007-08-31 15:28:29Z kutterma $
- $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Serializer.pm $
- 
-=cut