import SOAP-WSDL 1.27 from CPAN

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

lib/SOAP/WSDL/Part.pm

@@ -1,44 +0,0 @@
-package SOAP::WSDL::Part;
-use strict;
-use warnings;
-use Carp qw(croak);
-use Class::Std::Fast::Storable;
-
-use base qw(SOAP::WSDL::Base);
-
-my %element_of  :ATTR(:name<element>    :default<()>);
-my %type_of     :ATTR(:name<type>       :default<()>);
-
-sub serialize
-{
-    my $self = shift;
-    my $name = shift;
-    my $data = shift;
-    my $opt = shift;
-    my $typelib = $opt->{ typelib } || die "No typelib";
-    my %ns_map = %{ $opt->{ namespace } };
-
-    my $item_name;
-    if ($item_name = $self->get_type() ) {
-        # resolve type
-        my ($prefix, $localname) = split /:/ , $item_name, 2;
-        my $type = $typelib->find_type( $ns_map{ $prefix }, $localname)
-          or die "type $item_name , $ns_map{ $prefix } not found";
-
-        my $name = $self->get_name();
-        return $type->serialize( $name, $data->{ $name }, $opt );
-    }
-    elsif ( $item_name = $self->get_element() ) {
-        my ($prefix, $localname) = split /:/ , $item_name, 2;
-        my $element = $typelib->find_element(
-            $ns_map{ $prefix },
-            $localname
-        )
-            or die "element $item_name , $ns_map{ $prefix } not found";
-        $opt->{ qualify } = 1;
-        return $element->serialize( undef, $data->{ $element->get_name() }, $opt );
-    }
-    die "Neither type nor element - don't know what to do";
-}
-
-1;