Remove unused SOAP::WSDL package.

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
-