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
This commit is contained in:
Martin Kutter
committed by
Michael G. Schwern
Michael G. Schwern
parent
b955c5ad79
commit
84b53d9261
+118
-124
@@ -48,20 +48,21 @@ my %LOOKUP = (
|
||||
keep_alive => \%keep_alive_of,
|
||||
);
|
||||
|
||||
sub readable { warn <<EOT;
|
||||
'readable' has no effect any more. If you want formatted XML,
|
||||
copy the debug output to your favorite XML editor and run the
|
||||
source format command.
|
||||
sub readable { carp <<'EOT';
|
||||
'readable' has no effect any more. If you want formatted XML,
|
||||
copy the debug output to your favorite XML editor and run the
|
||||
source format command.
|
||||
EOT
|
||||
return;
|
||||
}
|
||||
|
||||
sub set_readable; *set_readable = \&readable;
|
||||
|
||||
for my $method (keys %LOOKUP ) {
|
||||
no strict qw(refs);
|
||||
no strict qw(refs); ## no critic (ProhibitNoStrict)
|
||||
*{ $method } = sub {
|
||||
my $self = shift;
|
||||
my $ident = ident $self;
|
||||
my $ident = ident $self;
|
||||
if (@_) {
|
||||
$LOOKUP{ $method }->{ $ident } = shift;
|
||||
return $self;
|
||||
@@ -73,39 +74,36 @@ for my $method (keys %LOOKUP ) {
|
||||
{ # just a BLOCK for scoping warnings.
|
||||
|
||||
# we need to roll our own for supporting
|
||||
# SOAP::WSDL->new( key => value ) syntax,
|
||||
# SOAP::WSDL->new( key => value ) syntax,
|
||||
# like SOAP::Lite does. Class::Std enforces a single hash ref as
|
||||
# parameters to new()
|
||||
no warnings qw(redefine);
|
||||
no warnings qw(redefine); ## no critic ProhibitNoWarnings;
|
||||
|
||||
sub new {
|
||||
my $class = shift;
|
||||
my %args_from = @_;
|
||||
my ($class, %args_from) = @_;
|
||||
my $self = \do { my $foo = undef };
|
||||
bless $self, $class;
|
||||
|
||||
for (keys %args_from) {
|
||||
my $method = $self->can("set_$_")
|
||||
or croak "unknown parameter $_ passed to new";
|
||||
$method->($self, $args_from{$_});
|
||||
}
|
||||
my $ident = ident $self;
|
||||
|
||||
my $ident = ident $self;
|
||||
$self->wsdlinit() if ($wsdl_of{ $ident });
|
||||
|
||||
$client_of{ $ident } = SOAP::WSDL::Client->new();
|
||||
|
||||
return $self;
|
||||
}
|
||||
}
|
||||
|
||||
sub wsdlinit {
|
||||
my $self = shift;
|
||||
my ($self, %opt) = @_;
|
||||
my $ident = ident $self;
|
||||
my %opt = @_;
|
||||
|
||||
my $lwp = LWP::UserAgent->new(
|
||||
$keep_alive_of{ $ident }
|
||||
$keep_alive_of{ $ident }
|
||||
? (keep_alive => 1)
|
||||
: ()
|
||||
: ()
|
||||
);
|
||||
my $response = $lwp->get( $wsdl_of{ $ident } );
|
||||
croak $response->message() if ($response->code != 200);
|
||||
@@ -117,10 +115,10 @@ sub wsdlinit {
|
||||
|
||||
# sanity checks
|
||||
my $types = $wsdl_definitions->first_types()
|
||||
or die "unable to extract schema from WSDL";
|
||||
or croak "unable to extract schema from WSDL";
|
||||
my $ns = $wsdl_definitions->get_xmlns()
|
||||
or die "unable to extract XML Namespaces" . $wsdl_definitions->to_string;
|
||||
( %{ $ns } ) or die "unable to extract XML Namespaces";
|
||||
or croak "unable to extract XML Namespaces" . $wsdl_definitions->to_string;
|
||||
( %{ $ns } ) or croak "unable to extract XML Namespaces";
|
||||
|
||||
# setup lookup variables
|
||||
$definitions_of{ $ident } = $wsdl_definitions;
|
||||
@@ -138,7 +136,7 @@ sub wsdlinit {
|
||||
sub _wsdl_get_service :PRIVATE {
|
||||
my $ident = ident shift;
|
||||
my $wsdl = $definitions_of{ $ident };
|
||||
return $service_of{ $ident } = $servicename_of{ $ident }
|
||||
return $service_of{ $ident } = $servicename_of{ $ident }
|
||||
? $wsdl->find_service( $wsdl->get_targetNamespace() , $servicename_of{ $ident } )
|
||||
: $service_of{ $ident } = $wsdl->get_service()->[ 0 ];
|
||||
} ## end sub _wsdl_get_service
|
||||
@@ -150,28 +148,25 @@ sub _wsdl_get_port :PRIVATE {
|
||||
return $port_of{ $ident } = $portname_of{ $ident }
|
||||
? $service_of{ $ident }->get_port( $ns, $portname_of{ $ident } )
|
||||
: $port_of{ $ident } = $service_of{ $ident }->get_port()->[ 0 ];
|
||||
}
|
||||
|
||||
}
|
||||
sub _wsdl_get_binding :PRIVATE {
|
||||
my $self = shift;
|
||||
my $ident = ident $self;
|
||||
my $wsdl = $definitions_of{ $ident };
|
||||
my $port = $port_of{ $ident } || $self->_wsdl_get_port();
|
||||
$binding_of{ $ident } = $wsdl->find_binding( $port->expand( $port->get_binding() ) )
|
||||
or die "no binding found for ", $port->get_binding();
|
||||
or croak "no binding found for ", $port->get_binding();
|
||||
return $binding_of{ $ident };
|
||||
}
|
||||
|
||||
}
|
||||
sub _wsdl_get_portType :PRIVATE {
|
||||
my $self = shift;
|
||||
my $ident = ident $self;
|
||||
my $wsdl = $definitions_of{ $ident };
|
||||
my $binding = $binding_of{ $ident } || $self->_wsdl_get_binding();
|
||||
$porttype_of{ $ident } = $wsdl->find_portType( $binding->expand( $binding->get_type() ) )
|
||||
or die "cannot find portType for " . $binding->get_type();
|
||||
or croak "cannot find portType for " . $binding->get_type();
|
||||
return $porttype_of{ $ident };
|
||||
}
|
||||
|
||||
}
|
||||
sub _wsdl_init_methods :PRIVATE {
|
||||
my $self = shift;
|
||||
my $ident = ident $self;
|
||||
@@ -181,7 +176,7 @@ sub _wsdl_init_methods :PRIVATE {
|
||||
# get bindings, portType, message, part(s) - use private methods for clear separation...
|
||||
$self->_wsdl_get_service if not ($service_of{ $ident });
|
||||
my $binding = $binding_of{ $ident } || $self->_wsdl_get_binding()
|
||||
|| die "Can't find binding";
|
||||
|| croak "Can't find binding";
|
||||
my $portType = $porttype_of{ $ident } || $self->_wsdl_get_portType();
|
||||
|
||||
$method_info_of{ $ident } = {};
|
||||
@@ -202,35 +197,34 @@ sub _wsdl_init_methods :PRIVATE {
|
||||
$binding_operation->get_name() );
|
||||
|
||||
# 2. get input message name
|
||||
my ( $prefix, $localname ) = split /:/,
|
||||
my ( $prefix, $localname ) = split /:/xm,
|
||||
$operation->first_input()->get_message();
|
||||
|
||||
# 3. get input message
|
||||
my $message = $wsdl->find_message( $ns, $localname )
|
||||
or die "Message {$ns}$localname not found in WSDL definition";
|
||||
or croak "Message {$ns}$localname not found in WSDL definition";
|
||||
|
||||
if (my $body=$binding_operation->first_input()->first_body()) {
|
||||
if ($body->get_parts()) {
|
||||
$method->{ parts } = []; # make sure it's empty
|
||||
my $message_part_ref = $message->get_part();
|
||||
for my $name (split m{\s} , $body->get_parts() ) {
|
||||
$name =~s{ \A [^:]+: }{}x; # throw away ns prefix
|
||||
for my $name ( split m{\s}xm , $body->get_parts() ) {
|
||||
$name =~s{ \A [^:]+: }{}xm; # throw away ns prefix
|
||||
# could probably made more efficient, but our lists are
|
||||
# usually quite short
|
||||
push @{ $method->{ parts } },
|
||||
push @{ $method->{ parts } },
|
||||
grep { $_->get_name() eq $name } @{ $message_part_ref };
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
$method->{ parts } ||= $message->get_part();
|
||||
|
||||
|
||||
# rpc / encoded methods may have a namespace specified.
|
||||
# look it up and set it...
|
||||
$method->{ namespace } = $binding_operation
|
||||
? do {
|
||||
my $input = $binding_operation->first_input();
|
||||
$input ? $input->first_body()->get_namespace() : undef;
|
||||
$method->{ namespace } = $binding_operation
|
||||
? do {
|
||||
my $input = $binding_operation->first_input();
|
||||
$input ? $input->first_body()->get_namespace() : undef;
|
||||
}
|
||||
: undef;
|
||||
|
||||
@@ -244,9 +238,9 @@ sub call {
|
||||
my ($self, $method, @data_from) = @_;
|
||||
my $ident = ident $self;
|
||||
|
||||
my ($data, $header) = ref $data_from[0]
|
||||
? ($data_from[0], $data_from[1] )
|
||||
: (@data_from>1)
|
||||
my ($data, $header) = ref $data_from[0]
|
||||
? ($data_from[0], $data_from[1] )
|
||||
: (@data_from>1)
|
||||
? ( { @data_from }, undef )
|
||||
: ( $data_from[0], undef );
|
||||
|
||||
@@ -254,22 +248,22 @@ sub call {
|
||||
$self->_wsdl_init_methods() if not ($method_info_of{ $ident });
|
||||
|
||||
my $client = $client_of{ $ident };
|
||||
|
||||
|
||||
# pass-through keep_alive if we need it...
|
||||
$client->set_proxy( $proxy_of{ $ident }
|
||||
$client->set_proxy( $proxy_of{ $ident }
|
||||
|| $port_of{ $ident }->first_address()->get_location(),
|
||||
$keep_alive_of{ $ident } ? (keep_alive => 1) : (),
|
||||
$keep_alive_of{ $ident } ? (keep_alive => 1) : (),
|
||||
);
|
||||
|
||||
|
||||
$client->set_no_dispatch( $no_dispatch_of{ $ident } );
|
||||
$client->set_outputxml( $outputxml_of{ $ident } ? 1 : 0 );
|
||||
|
||||
# only load ::Deserializer::SOM if we really need to deserialize to SOM.
|
||||
# maybe we should introduce something like $output{ $ident } with a fixed
|
||||
# maybe we should introduce something like $output{ $ident } with a fixed
|
||||
# set of values - m{^(TREE|HASH|XML|SOM)$}xms ?
|
||||
if ( ( ! $outputtree_of{ $ident } )
|
||||
&& ( ! $outputhash_of{ $ident } )
|
||||
&& ( ! $outputxml_of{ $ident } )
|
||||
&& ( ! $outputhash_of{ $ident } )
|
||||
&& ( ! $outputxml_of{ $ident } )
|
||||
&& ( ! $no_dispatch_of{ $ident } ) ) {
|
||||
require SOAP::WSDL::Deserializer::SOM;
|
||||
$client->set_deserializer( SOAP::WSDL::Deserializer::SOM->new() );
|
||||
@@ -278,18 +272,19 @@ sub call {
|
||||
my $method_info = $method_info_of{ $ident }->{ $method };
|
||||
|
||||
# TODO serialize both header and body, not only header
|
||||
my (@response) = (blessed $data)
|
||||
my (@response) = (blessed $data)
|
||||
? $client->call( {
|
||||
operation => $method,
|
||||
soap_action => $method_info->{ soap_action },
|
||||
}, $data )
|
||||
: do {
|
||||
my $content = '';
|
||||
my $content = q{};
|
||||
# TODO support RPC-encoding: Top-Level element + namespace...
|
||||
foreach my $part ( @{ $method_info->{ parts } } ) {
|
||||
$content .= $part->serialize( $method, $data,
|
||||
|
||||
$content .= $part->serialize( $method, $data,
|
||||
{
|
||||
%{ $serialize_options_of{ $ident } },
|
||||
%{ $serialize_options_of{ $ident } }
|
||||
} );
|
||||
}
|
||||
$client->call(
|
||||
@@ -297,21 +292,20 @@ sub call {
|
||||
operation => $method,
|
||||
soap_action => $method_info->{ soap_action }
|
||||
},
|
||||
# absolutely stupid, but we need a reference which
|
||||
# absolutely stupid, but we need a reference which
|
||||
# serializes to XML on stringification...
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType->new({
|
||||
value => $content
|
||||
}),
|
||||
}),
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType->new({
|
||||
value => $header
|
||||
})
|
||||
);
|
||||
};
|
||||
|
||||
return unless @response; # nothing to do for one-ways
|
||||
return if not @response; # nothing to do for one-ways
|
||||
return wantarray ? @response : $response[0];
|
||||
}
|
||||
|
||||
}
|
||||
1;
|
||||
|
||||
__END__
|
||||
@@ -327,7 +321,7 @@ SOAP::WSDL - SOAP with WSDL support
|
||||
For creating Perl classes instrumenting a web service with a WSDL definition,
|
||||
read L<SOAP::WSDL::Manual>.
|
||||
|
||||
For using an interpreting (thus slow and somewhat troublesome) WSDL based
|
||||
For using an interpreting (thus slow and somewhat troublesome) WSDL based
|
||||
SOAP client, which mimics L<SOAP::Lite|SOAP::Lite>'s API, read on.
|
||||
|
||||
=head1 SYNOPSIS
|
||||
@@ -337,12 +331,12 @@ SOAP client, which mimics L<SOAP::Lite|SOAP::Lite>'s API, read on.
|
||||
);
|
||||
|
||||
my $result = $soap->call('MyMethod', %data);
|
||||
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
SOAP::WSDL provides easy access to Web Services with WSDL descriptions.
|
||||
|
||||
The WSDL is parsed and stored in memory.
|
||||
The WSDL is parsed and stored in memory.
|
||||
|
||||
Your data is serialized according to the rules in the WSDL.
|
||||
|
||||
@@ -357,7 +351,7 @@ Constructor. All parameters passed are passed to the corresponding methods.
|
||||
=head2 call
|
||||
|
||||
Performs a SOAP call. The result is either an object tree (with outputtree),
|
||||
a hash reference (with outputhash), plain XML (with outputxml) or a SOAP::SOM
|
||||
a hash reference (with outputhash), plain XML (with outputxml) or a SOAP::SOM
|
||||
object (with neither of the above set).
|
||||
|
||||
call() can be called in different ways:
|
||||
@@ -374,13 +368,13 @@ Does not support SOAP header data.
|
||||
|
||||
my $result = $soap->call('method', $body_ref, $header_ref );
|
||||
|
||||
Does support SOAP header data. $body_ref and $header ref may either be
|
||||
Does support SOAP header data. $body_ref and $header ref may either be
|
||||
hash refs or SOAP::WSDL::XSD::Typelib::* derived objects.
|
||||
|
||||
Result headers are accessible via the result SOAP::SOM object.
|
||||
|
||||
If outputtree or outputhash are set, you may also use the following to
|
||||
access response header data:
|
||||
If outputtree or outputhash are set, you may also use the following to
|
||||
access response header data:
|
||||
|
||||
my ($body, $header) = $soap->call('method', $body_ref, $header_ref );
|
||||
|
||||
@@ -396,33 +390,33 @@ Is called automatically from call() if not called directly before.
|
||||
portname
|
||||
call
|
||||
|
||||
You may set servicename and portname by passing them as attributes to
|
||||
You may set servicename and portname by passing them as attributes to
|
||||
wsdlinit:
|
||||
|
||||
$soap->wsdlinit(
|
||||
servicename => 'MyService',
|
||||
portname => 'MyPort'
|
||||
portname => 'MyPort',
|
||||
);
|
||||
|
||||
=head1 CONFIGURATION METHODS
|
||||
|
||||
=head2 outputtree
|
||||
|
||||
When outputtree is set, SOAP::WSDL will return an object tree instead of a
|
||||
When outputtree is set, SOAP::WSDL will return an object tree instead of a
|
||||
SOAP::SOM object.
|
||||
|
||||
You have to specify a class_resolver for this to work. See
|
||||
You have to specify a class_resolver for this to work. See
|
||||
L<class_resolver|class_resolver>
|
||||
|
||||
=head2 class_resolver
|
||||
|
||||
Set the class resolver class (or object).
|
||||
|
||||
Class resolvers must implement the method get_class which has to return the
|
||||
name of the class name for deserializing a XML node at the current XPath
|
||||
Class resolvers must implement the method get_class which has to return the
|
||||
name of the class name for deserializing a XML node at the current XPath
|
||||
location.
|
||||
|
||||
Class resolvers are typically generated by using the generate_typemap method
|
||||
Class resolvers are typically generated by using the generate_typemap method
|
||||
of a SOAP::WSDL::Generator subclass.
|
||||
|
||||
Example:
|
||||
@@ -442,18 +436,18 @@ Class resolver
|
||||
'Person/Name' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
|
||||
'Person/FirstName' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
|
||||
);
|
||||
|
||||
|
||||
sub get_class { return $typemap{ $_[1] } };
|
||||
1;
|
||||
|
||||
You'll need a MyPersonClass module in your search path for this to work - see
|
||||
SOAP::WSDL::XSD::ComplexType on how to build / generate one.
|
||||
You'll need a MyPersonClass module in your search path for this to work - see
|
||||
SOAP::WSDL::XSD::ComplexType on how to build / generate one.
|
||||
|
||||
=head2 servicename
|
||||
|
||||
$soap->servicename('Name');
|
||||
|
||||
Sets the service to operate on. If no service is set via servicename, the
|
||||
Sets the service to operate on. If no service is set via servicename, the
|
||||
first service found is used.
|
||||
|
||||
Returns the soap object, so you can chain calls like
|
||||
@@ -464,7 +458,7 @@ Returns the soap object, so you can chain calls like
|
||||
|
||||
$soap->portname('Name');
|
||||
|
||||
Sets the port to operate on. If no port is set via portname, the
|
||||
Sets the port to operate on. If no port is set via portname, the
|
||||
first port found is used.
|
||||
|
||||
Returns the soap object, so you can chain calls like
|
||||
@@ -473,14 +467,14 @@ Returns the soap object, so you can chain calls like
|
||||
|
||||
=head2 no_dispatch
|
||||
|
||||
When set, call() returns the plain request XML instead of dispatching the
|
||||
When set, call() returns the plain request XML instead of dispatching the
|
||||
SOAP call to the SOAP service. Handy for testing/debugging.
|
||||
|
||||
=head1 ACCESS TO SOAP::WSDL's internals
|
||||
|
||||
=head2 get_client / set_client
|
||||
|
||||
Returns the SOAP client implementation used (normally a SOAP::WSDL::Client
|
||||
Returns the SOAP client implementation used (normally a SOAP::WSDL::Client
|
||||
object).
|
||||
|
||||
=head1 EXAMPLES
|
||||
@@ -489,24 +483,24 @@ See the examples/ directory.
|
||||
|
||||
=head1 Differences to previous versions
|
||||
|
||||
=over
|
||||
=over
|
||||
|
||||
=item * WSDL handling
|
||||
|
||||
SOAP::WSDL 2 is a complete rewrite. While SOAP::WSDL 1.x attempted to
|
||||
process the WSDL file on the fly by using XPath queries, SOAP:WSDL 2 uses a
|
||||
Expat handler for parsing the WSDL and building up a object tree representing
|
||||
SOAP::WSDL 2 is a complete rewrite. While SOAP::WSDL 1.x attempted to
|
||||
process the WSDL file on the fly by using XPath queries, SOAP:WSDL 2 uses a
|
||||
Expat handler for parsing the WSDL and building up a object tree representing
|
||||
it's content.
|
||||
|
||||
The object tree has two main functions: It knows how to serialize data passed
|
||||
The object tree has two main functions: It knows how to serialize data passed
|
||||
as hash ref, and how to render the WSDL elements found into perl classes.
|
||||
|
||||
Yup your're right, there's a builting code generation facility. Read
|
||||
Yup your're right, there's a builting code generation facility. Read
|
||||
L<SOAP::WSDL::Manual> for using it.
|
||||
|
||||
=item * no_dispatch
|
||||
=item * no_dispatch
|
||||
|
||||
call() with no_dispatch set to true now returns the complete SOAP request
|
||||
call() with no_dispatch set to true now returns the complete SOAP request
|
||||
envelope, not only the body's content.
|
||||
|
||||
=item * outputxml
|
||||
@@ -526,21 +520,21 @@ You may pass the servicename and portname as attributes to wsdlinit, though.
|
||||
|
||||
=head2 readable
|
||||
|
||||
readable is a no-op in SOAP::WSDL. Actually, the XML output from SOAP::Lite
|
||||
readable is a no-op in SOAP::WSDL. Actually, the XML output from SOAP::Lite
|
||||
is hardly readable, either with readable switched on.
|
||||
|
||||
If you need readable XML messages, I suggest using your favorite XML editor
|
||||
If you need readable XML messages, I suggest using your favorite XML editor
|
||||
for displaying and formatting.
|
||||
|
||||
=head2 Message style/encoding
|
||||
|
||||
While SOAP::Lite supports rpc/encoded style/encoding only, SOAP::WSDL currently
|
||||
While SOAP::Lite supports rpc/encoded style/encoding only, SOAP::WSDL currently
|
||||
supports document/literal style/encoding.
|
||||
|
||||
=head2 autotype / type information
|
||||
|
||||
SOAP::Lite defaults to transmitting XML type information by default, where
|
||||
SOAP::WSDL defaults to leaving it out.
|
||||
SOAP::Lite defaults to transmitting XML type information by default, where
|
||||
SOAP::WSDL defaults to leaving it out.
|
||||
|
||||
autotype(1) might even be broken in SOAP::WSDL - it's not well-tested, yet.
|
||||
|
||||
@@ -556,13 +550,13 @@ This is the default. SOAP::Lite is required for outputting SOAP::SOM objects.
|
||||
|
||||
=item * Object trees.
|
||||
|
||||
This is the recommended output format.
|
||||
You need a class resolver (typemap) for outputting object trees.
|
||||
This is the recommended output format.
|
||||
You need a class resolver (typemap) for outputting object trees.
|
||||
See L<class_resolver|class_resolver> above.
|
||||
|
||||
=item * Hash refs
|
||||
|
||||
This is for convnience: A single hash ref containing the content of the
|
||||
This is for convnience: A single hash ref containing the content of the
|
||||
SOAP body.
|
||||
|
||||
=item * xml
|
||||
@@ -588,26 +582,26 @@ SOAP::WSDL::Client and implementing something like
|
||||
$soap_wsdl_client->call( mySoapMethod, @_);
|
||||
}
|
||||
|
||||
You may even do this in a class factory - see L<wsdl2perl.pl> for creating
|
||||
You may even do this in a class factory - see L<wsdl2perl.pl> for creating
|
||||
such interfaces.
|
||||
|
||||
=head2 Debugging / Tracing
|
||||
|
||||
While SOAP::Lite features a global tracing facility, SOAP::WSDL
|
||||
While SOAP::Lite features a global tracing facility, SOAP::WSDL
|
||||
allows to switch tracing on/of on a per-object base.
|
||||
|
||||
This has to be done in the SOAP client used by SOAP::WSDL - see
|
||||
L<get_client|get_client> for an example and L<SOAP::WSDL::Client> for
|
||||
This has to be done in the SOAP client used by SOAP::WSDL - see
|
||||
L<get_client|get_client> for an example and L<SOAP::WSDL::Client> for
|
||||
details.
|
||||
|
||||
=head1 Bugs and Limitations
|
||||
=head1 BUGS AND LIMITATIONS
|
||||
|
||||
=over
|
||||
=over
|
||||
|
||||
=item * perl 5.8.0 or higher required
|
||||
|
||||
SOAP::WSDL needs perl 5.8.0 or higher. This is due to a bug in perls
|
||||
before - see http://aspn.activestate.com/ASPN/Mail/Message/perl5-porters/929746 for details.
|
||||
SOAP::WSDL needs perl 5.8.0 or higher. This is due to a bug in perls
|
||||
before - see http://aspn.activestate.com/ASPN/Mail/Message/perl5-porters/929746 for details.
|
||||
|
||||
=item * Apache SOAP datatypes are not supported
|
||||
|
||||
@@ -627,7 +621,7 @@ The following XML Schema definitions varieties are not supported:
|
||||
union
|
||||
simpleContent
|
||||
|
||||
The following XML Schema definition content model is only partially
|
||||
The following XML Schema definition content model is only partially
|
||||
supported:
|
||||
|
||||
complexContent - only restriction variety supported
|
||||
@@ -636,10 +630,10 @@ See L<SOAP::WSDL::Manual::XSD> for details.
|
||||
|
||||
=item * Serialization of hash refs dos not work for ambiguos values
|
||||
|
||||
If you have list elements with multiple occurences allowed, SOAP::WSDL
|
||||
If you have list elements with multiple occurences allowed, SOAP::WSDL
|
||||
has no means of finding out which variant you meant.
|
||||
|
||||
Passing in item => [1,2,3] could serialize to
|
||||
Passing in item => [1,2,3] could serialize to
|
||||
|
||||
<item>1 2</item><item>3</item>
|
||||
<item>1</item><item>2 3</item>
|
||||
@@ -648,7 +642,7 @@ Ambiguos data can be avoided by providing data as objects.
|
||||
|
||||
=item * XML Schema facets
|
||||
|
||||
Almost no XML schema facets are implemented yet. The only facets
|
||||
Almost no XML schema facets are implemented yet. The only facets
|
||||
currently implemented are:
|
||||
|
||||
fixed
|
||||
@@ -677,20 +671,20 @@ The following facets have no influence yet:
|
||||
|
||||
Full featured SOAP-library, little WSDL support. Supports rpc-encoded style only. Many protocols supported.
|
||||
|
||||
=item * <XML::Compile::WSDL|XML::Compile::WSDL>
|
||||
=item * L<XML::Compile::WSDL|XML::Compile::WSDL> / L<XML::Compile::SOAP|XML::Compile::SOAP>
|
||||
|
||||
A promising-looking approach derived from a cool functional DOM-based XML schema parser.
|
||||
|
||||
Will support encoding/decoding of SOAP messages based on WSDL definitions.
|
||||
|
||||
Not yet finished at the time of writing - but you may wish to give it a try, especially
|
||||
if you need to adhere very closely to the XML Schema / WSDL specs.
|
||||
Not yet finished at the time of writing - but you may wish to give it a try, especially
|
||||
if you need to adhere very closely to the XML Schema / WSDL specs.
|
||||
|
||||
=back
|
||||
|
||||
=head2 Sources of documentation
|
||||
|
||||
=over
|
||||
=over
|
||||
|
||||
=item * SOAP::WSDL homepage at sourceforge.net
|
||||
|
||||
@@ -704,30 +698,30 @@ L<http://www.cpanforum.com/dist/SOAP-WSDL>
|
||||
|
||||
=head1 ACKNOWLEDGMENTS
|
||||
|
||||
There are many people out there who fostered SOAP::WSDL's developement.
|
||||
There are many people out there who fostered SOAP::WSDL's developement.
|
||||
I would like to thank them all (and apologize to all those I have forgotten).
|
||||
|
||||
Giovanni S. Fois wrote a improved version of SOAP::WSDL (which eventually
|
||||
Giovanni S. Fois wrote a improved version of SOAP::WSDL (which eventually
|
||||
became v1.23)
|
||||
|
||||
David Bussenschutt, Damian A. Martinez Gelabert, Dennis S. Hennen, Dan Horne,
|
||||
Peter Orvos, Mark Overmeer, Jon Robens, Isidro Vila Verde and Glenn Wood
|
||||
Peter Orvos, Mark Overmeer, Jon Robens, Isidro Vila Verde and Glenn Wood
|
||||
spotted bugs and/or suggested improvements in the 1.2x releases.
|
||||
|
||||
Andreas 'ac0v' Specht constantly asked for better performance.
|
||||
|
||||
JT Justman provided some early feedback for the 2.xx pre-releases.
|
||||
JT Justman provided early feedback for the 2.xx pre-releases.
|
||||
|
||||
Numerous people sent me their real-world WSDL files for testing. Thank you.
|
||||
|
||||
Paul Kulchenko and Byrne Reese wrote and maintained SOAP::Lite and
|
||||
Paul Kulchenko and Byrne Reese wrote and maintained SOAP::Lite and
|
||||
thus provided a base (and counterpart) for SOAP::WSDL.
|
||||
|
||||
=head1 LICENSE
|
||||
=head1 LICENSE AND COPYRIGHT
|
||||
|
||||
Copyright 2004-2007 Martin Kutter.
|
||||
|
||||
This file is part of SOAP-WSDL. You may distribute/modify it under
|
||||
This file is part of SOAP-WSDL. You may distribute/modify it under
|
||||
the same terms as perl itself
|
||||
|
||||
=head1 AUTHOR
|
||||
@@ -736,10 +730,10 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
||||
|
||||
=head1 REPOSITORY INFORMATION
|
||||
|
||||
$Rev: 332 $
|
||||
$Rev: 391 $
|
||||
$LastChangedBy: kutterma $
|
||||
$Id: WSDL.pm 332 2007-10-19 07:29:03Z kutterma $
|
||||
$Id: WSDL.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.pm $
|
||||
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
Reference in New Issue
Block a user