import SOAP-WSDL 2.00_24 from CPAN

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

lib/SOAP/WSDL/Serializer/XSD.pm

@@ -4,15 +4,15 @@ use strict;
 use warnings;
 use Class::Std::Storable;
 
-our $VERSION='2.00_21';
+our $VERSION='2.00_24';
 
 my $SOAP_NS = 'http://schemas.xmlsoap.org/soap/envelope/';
 my $XML_INSTANCE_NS = 'http://www.w3.org/2001/XMLSchema-instance';
 
 sub serialize {
     my ($self, $args_of_ref) = @_;
-    
-    my $opt = $args_of_ref->{ options };   
+
+    my $opt = $args_of_ref->{ options };
 
     if (not $opt->{ namespace }->{ $SOAP_NS })
     {
@@ -44,10 +44,10 @@ sub serialize {
 
 sub serialize_header {
     my ($self, $name, $data, $opt) = @_;
-    
+
     # header is optional. Leave out if there's no header data
     return q{} if not $data;
-    return join ( q{}, 
+    return join ( q{},
         "<$opt->{ namespace }->{ $SOAP_NS }\:Header>",
         "$data",
         "</$opt->{ namespace }->{ $SOAP_NS }\:Header>",
@@ -57,11 +57,66 @@ sub serialize_header {
 sub serialize_body {
     my ($self, $name, $data, $opt) = @_;
 
-    # Body is NOT optional. Serialize to empty body 
+    # Body is NOT optional. Serialize to empty body
     # if we have no data.
-    return join ( q{}, 
+    return join ( q{},
         "<$opt->{ namespace }->{ $SOAP_NS }\:Body>",
         defined $data ? "$data" : (),
         "</$opt->{ namespace }->{ $SOAP_NS }\:Body>",
     );
 }
+
+__END__
+
+=pod
+
+=head1 NAME
+
+SOAP:WSDL::Serializer::XSD - Serializer for SOAP::WSDL::XSD::Typelib:: objects
+
+=head1 DESCRIPTION
+
+This is the default serializer for SOAP::WSDL::Client and Interface classes
+generated by SOAP::WSDL
+
+It may be used as a template for creating custom serializers.
+
+See L<SOAP::WSDL::Factory::Serializer|SOAP::WSDL::Factory::Serializer> for
+details on that.
+
+=head1 METHODS
+
+=head2 serialize
+
+Creates a SOAP envelope based on the body and header arguments passed.
+
+Sets SOAP namespaces.
+
+=head2 serialize_body
+
+Serializes a message body to XML
+
+=head2 serialize_header
+
+Serializes a message header to XML
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright (c) 2007 Martin Kutter. All rights reserved.
+
+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: 391 $
+ $LastChangedBy: kutterma $
+ $Id: XSD.pm 391 2007-11-17 21:56:13Z kutterma $
+ $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Serializer/XSD.pm $
+ 
+=cut
+