diff options
Diffstat (limited to 'perllib')
| -rw-r--r-- | perllib/SOAP/WSDL/Serializer/XSD.pm | 148 |
1 files changed, 0 insertions, 148 deletions
diff --git a/perllib/SOAP/WSDL/Serializer/XSD.pm b/perllib/SOAP/WSDL/Serializer/XSD.pm deleted file mode 100644 index f233f74e7..000000000 --- a/perllib/SOAP/WSDL/Serializer/XSD.pm +++ /dev/null @@ -1,148 +0,0 @@ -#!/usr/bin/perl -w -package SOAP::WSDL::Serializer::XSD; -use strict; -use warnings; -use Class::Std::Fast::Storable; -use Scalar::Util qw(blessed); - -use version; our $VERSION = qv('2.00.10'); - -use SOAP::WSDL::Factory::Serializer; - -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 }; - - if (not $opt->{ namespace }->{ $SOAP_NS }) - { - $opt->{ namespace }->{ $SOAP_NS } = 'SOAP-ENV'; - } - - if (not $opt->{ namespace }->{ $XML_INSTANCE_NS }) - { - $opt->{ namespace }->{ $XML_INSTANCE_NS } = 'xsi'; - } - - my $soap_prefix = $opt->{ namespace }->{ $SOAP_NS }; - - # envelope start with namespaces - my $xml = "<$soap_prefix\:Envelope "; - - while (my ($uri, $prefix) = each %{ $opt->{ namespace } }) - { - $xml .= "xmlns:$prefix=\"$uri\" "; - } - # - # add namespace for user-supplied prefix if needed - $xml .= "xmlns:$opt->{prefix}=\"" . $args_of_ref->{ body }->get_xmlns() . "\" " - if $opt->{prefix}; - - # TODO insert encoding - $xml.='>'; - $xml .= $self->serialize_header($args_of_ref->{ method }, $args_of_ref->{ header }, $opt); - $xml .= $self->serialize_body($args_of_ref->{ method }, $args_of_ref->{ body }, $opt); - $xml .= '</' . $soap_prefix .':Envelope>'; - return $xml; -} - -sub serialize_header { - my ($self, $method, $data, $opt) = @_; - - # header is optional. Leave out if there's no header data - return q{} if not $data; - return join ( q{}, - "<$opt->{ namespace }->{ $SOAP_NS }\:Header>", - blessed $data ? $data->serialize_qualified : (), - "</$opt->{ namespace }->{ $SOAP_NS }\:Header>", - ); -} - -sub serialize_body { - my ($self, $method, $data, $opt) = @_; - - # TODO This one wipes out the old class' XML name globally - # Fix in some more appropriate place... - # $data->__set_name("$opt->{prefix}:" . $data->__get_name() ) if $opt->{prefix}; - # fix: -------v from https://rt.cpan.org/Public/Bug/Display.html?id=38035 - if ( $opt->{prefix} ) { - my $body_name = $data->__get_name(); - $body_name =~ s/.+://; - $data->__set_name($opt->{prefix} . ":" . $body_name ); - } - # fix end ----^ - - # Body is NOT optional. Serialize to empty body - # if we have no data. - return join ( q{}, - "<$opt->{ namespace }->{ $SOAP_NS }\:Body>", - defined $data - ? ref $data eq 'ARRAY' - ? join q{}, map { blessed $_ ? $_->serialize_qualified() : () } @{ $data } - : blessed $data - ? $opt->{prefix} - ? $data->serialize() - : $data->serialize_qualified() - : () - : (), - "</$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: 851 $ - $LastChangedBy: kutterma $ - $Id: XSD.pm 851 2009-05-15 22:45:18Z kutterma $ - $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Serializer/XSD.pm $ - -=cut - |