import SOAP-WSDL 2.00_29 from CPAN

git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_29 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_29.tar.gz
2009-12-12 19:48:17 -08:00
parent 2bad767211
commit 874251225f
402 changed files with 30230 additions and 2406 deletions
@@ -0,0 +1,106 @@
+package SOAP::WSDL::Deserializer::XSD;
+use strict;
+use warnings;
+use Class::Std::Fast::Storable;
+use SOAP::WSDL::SOAP::Typelib::Fault11;
+use SOAP::WSDL::Expat::MessageParser;
+
+our $VERSION='2.00_25';
+
+my %class_resolver_of :ATTR(:name<class_resolver> :default<()>);
+
+my %parser_of :ATTR();
+
+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) = @_;
+
+    $parser_of{ ${ $self } } ||= SOAP::WSDL::Expat::MessageParser->new();
+    $parser_of{ ${ $self } }->class_resolver( $class_resolver_of{ ident $self } );
+    eval { $parser_of{ ${ $self } }->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_of{ ${ $self } }->get_data(), $parser_of{ ${ $self } }->get_header() );
+}
+
+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;
+
+__END__
+
+=head1 NAME
+
+SOAP::WSDL::Deserializer::XSD - Deserializer SOAP messages into SOAP::WSDL::XSD::Typelib:: objects
+
+=head1 DESCRIPTION
+
+Default deserializer for SOAP::WSDL::Client and interface classes generated by
+SOAP::WSDL. Converts SOAP messages to SOAP::WSDL::XSD::Typlib:: based objects.
+
+Needs a class_resolver typemap either passed by the generated interface
+or user-provided.
+
+SOAP::WSDL::Deserializer classes implement the API described in
+L<SOAP::WSDL::Factory::Deserializer>.
+
+=head1 USAGE
+
+Usually you don't need to do anything to use this package - it's the default
+deserializer for SOAP::WSDL::Client and interface classes generated by
+SOAP::WSDL.
+
+Is you want to use the XSD serializer from SOAP::WSDL, set the outputtree()
+property and provide a class_resolver.
+
+=head1 METHODS
+
+=head2 deserialize
+
+Deserializes the message.
+
+=head2 generate_fault
+
+Generates a L<SOAP::WSDL::SOAP::Typelib::Fault11|SOAP::WSDL::SOAP::Typelib::Fault11>
+object and returns it.
+
+=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 AUTHOR
+
+Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
+
+=head1 REPOSITORY INFORMATION
+
+ $Rev: 427 $
+ $LastChangedBy: kutterma $
+ $Id: XSD.pm 427 2007-12-02 22:20:24Z kutterma $
+ $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/XSD.pm $
+
+=cut