dinislage/SOAP-WSDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

import SOAP-WSDL 2.00_20 from CPAN

Browse Source 
git-cpan-module:   SOAP-WSDL
git-cpan-version:  2.00_20
git-cpan-authorid: MKUTTER
git-cpan-file:     authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_20.tar.gz
This commit is contained in:
Martin Kutter
2007-10-18 02:33:51 -08:00
committed by Michael G. Schwern
parent 3d11524449
commit fa4d5dd884
20 changed files with 368 additions and 322 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/SOAP/WSDL.pm
View File

@@ -734,7 +734,7 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
$Rev: 308 $
$LastChangedBy: kutterma $
$Id: WSDL.pm 308 2007-10-05 17:35:28Z kutterma $
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL.pm $
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL.pm $
=cut

2
lib/SOAP/WSDL/Client.pm
View File

@@ -368,7 +368,7 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
$Rev: 303 $
$LastChangedBy: kutterma $
$Id: Client.pm 303 2007-10-01 18:51:50Z kutterma $
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client.pm $
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client.pm $
=cut

7
lib/SOAP/WSDL/Client/Base.pm
View File

@@ -9,6 +9,7 @@ our $VERSION = '2.00_17';
sub call {
my ($self, $method, $body, $header) = @_;
if (not blessed $body) {
$body = {} if not defined $body;
my $class = $method->{ body }->{ parts }->[0];
eval "require $class" || die $@;
$body = $class->new($body);
@@ -116,9 +117,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
=head1 REPOSITORY INFORMATION
$Rev: 303 $
$Rev: 323 $
$LastChangedBy: kutterma $
$Id: Base.pm 303 2007-10-01 18:51:50Z kutterma $
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client/Base.pm $
$Id: Base.pm 323 2007-10-17 15:23:05Z kutterma $
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client/Base.pm $
=cut

4
lib/SOAP/WSDL/Expat/MessageParser.pm
View File

@@ -234,9 +234,9 @@ This module may be used under the same terms as perl itself.
$ID: $
$LastChangedDate: 2007-10-07 19:27:58 +0200 (Son, 07 Okt 2007) $
$LastChangedDate: 2007-10-07 19:27:58 +0200 (So, 07 Okt 2007) $
$LastChangedRevision: 313 $
$LastChangedBy: kutterma $
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageParser.pm $
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageParser.pm $

4
lib/SOAP/WSDL/Expat/MessageStreamParser.pm
View File

@@ -68,9 +68,9 @@ This module may be used under the same terms as perl itself.
$ID: $
$LastChangedDate: 2007-10-07 19:27:58 +0200 (Son, 07 Okt 2007) $
$LastChangedDate: 2007-10-07 19:27:58 +0200 (So, 07 Okt 2007) $
$LastChangedRevision: 313 $
$LastChangedBy: kutterma $
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageStreamParser.pm $
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageStreamParser.pm $

8
lib/SOAP/WSDL/Factory/Serializer.pm
View File

@@ -95,7 +95,7 @@ class should be used for, and $class is the class name.
SOAP::WSDL::Factory::Serializer->register( $version, $class);
To auto-register your transport class on loading, execute register() in
your tranport class (see L<SYNOPSIS|SYNOPSIS> above).
your tranport class (see L</SYNOPSIS> above).
=head2 Serializer package layout
@@ -138,9 +138,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
=head1 REPOSITORY INFORMATION
$Rev: 302 $
$Rev: 325 $
$LastChangedBy: kutterma $
$Id: Serializer.pm 302 2007-09-30 19:25:25Z kutterma $
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Serializer.pm $
$Id: Serializer.pm 325 2007-10-18 10:27:46Z kutterma $
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Serializer.pm $
=cut

2
lib/SOAP/WSDL/Factory/Transport.pm
View File

@@ -239,6 +239,6 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
$Rev: 304 $
$LastChangedBy: kutterma $
$Id: Transport.pm 304 2007-10-02 20:07:21Z kutterma $
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Transport.pm $
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Transport.pm $
=cut

20
lib/SOAP/WSDL/Generator/Template/XSD.pm
View File

@@ -24,9 +24,10 @@ sub BUILD {
sub generate {
my $self = shift;
$self->generate_typelib();
$self->generate_interface();
$self->generate_typemap();
my $opt = shift;
$self->generate_typelib( $opt );
$self->generate_interface( $opt );
$self->generate_typemap( $opt );
}
sub generate_typelib {
@@ -54,17 +55,22 @@ sub generate_interface {
next if not $port->first_address;
next if not $port->first_address->isa('SOAP::WSDL::SOAP::Address');
my $port_name = $port->get_name;
$port_name =~s{ \A .+\. }{}xms;
my $output = $arg_ref->{ output }
? $arg_ref->{ output }
: $self->_generate_filename( $self->get_interface_prefix(), $service->get_name(), $port->get_name );
: $self->_generate_filename(
$self->get_interface_prefix(),
$service->get_name(),
$port_name,
);
$self->_process('Interface.tt',
{
service => $service,
port => $port,
NO_POD => $arg_ref->{ NO_POD } ? 1 : 0 ,
},
$output);
},
$output, binmode => ':utf8');
}
}
}

8
lib/SOAP/WSDL/Generator/Template/XSD/Interface.tt
View File

@@ -1,16 +1,16 @@
package [% interface_prefix %]::[% service.get_name %]::[% port.get_name %];
package [% interface_prefix %]::[% service.get_name.replace('\.', '::') %]::[% port.get_name.replace('^.+\.','') %];
use strict;
use warnings;
use Class::Std::Storable;
use base qw(SOAP::WSDL::Client::Base);
# only load if it hasn't been loaded before
require [% typemap_prefix %]::[% service.get_name %]
if not [% typemap_prefix %]::[% service.get_name %]->can('get_class');
require [% typemap_prefix %]::[% service.get_name.replace('\.', '::') %]
if not [% typemap_prefix %]::[% service.get_name.replace('\.', '::') %]->can('get_class');
sub START {
$_[0]->set_proxy('[% port.first_address.get_location %]') if not $_[2]->{proxy};
$_[0]->set_class_resolver('[% typemap_prefix %]::[% service.get_name %]')
$_[0]->set_class_resolver('[% typemap_prefix %]::[% service.get_name.replace('\.', '::') %]')
if not $_[2]->{class_resolver};
}

4
lib/SOAP/WSDL/Generator/Template/XSD/complexType/variety.tt
View File

@@ -7,7 +7,9 @@ ELSIF (complexType.get_variety == 'group');
THROW NOT_IMPLEMENTED, "${ element.get_name } - complexType group not implemented yet";
ELSIF (complexType.get_variety == 'choice');
INCLUDE complexType/all.tt(complexType = complexType);
ELSIF (complexType.get_variety);
THROW NOT_IMPLEMENTED, "Unknown variety ${ complexType.get_variety } in ${ complexType.get_name } (${ element.get_name })";
ELSE;
THROW NOT_IMPLEMENTED, "Unknown variety ${ complexType.get_variety }";
# There's no variety - might be empty complexType
END;
%]

2
lib/SOAP/WSDL/Transport/HTTP.pm
View File

@@ -90,7 +90,7 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
$Rev: 288 $
$LastChangedBy: kutterma $
$Id: HTTP.pm 288 2007-09-29 19:34:20Z kutterma $
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Transport/HTTP.pm $
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Transport/HTTP.pm $
=cut

15
lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm
View File

@@ -19,10 +19,11 @@ my %CLASSES_OF;
# We could also handle them via AUTOMETHOD,
# but AUTOMETHOD should always croak...
# Do we really need this ?
#sub STORABLE_freeze_pre {}
#sub STORABLE_freeze_post {}
#sub STORABLE_thaw_pre {}
#sub STORABLE_thaw_post {}
# ... looks like we do...
sub STORABLE_freeze_pre {}
sub STORABLE_freeze_post {}
sub STORABLE_thaw_pre {}
sub STORABLE_thaw_post {}
# for error reporting. Eases working with data objects...
sub AUTOMETHOD {
@@ -376,10 +377,10 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
=head1 REPOSITORY INFORMATION
$Rev: 309 $
$Rev: 323 $
$LastChangedBy: kutterma $
$Id: ComplexType.pm 309 2007-10-05 17:48:37Z kutterma $
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm $
$Id: ComplexType.pm 323 2007-10-17 15:23:05Z kutterma $
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm $
=cut