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

import SOAP-WSDL 2.00.10 from CPAN

Browse Source 
git-cpan-module:   SOAP-WSDL
git-cpan-version:  2.00.10
git-cpan-authorid: MKUTTER
git-cpan-file:     authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.10.tar.gz
This commit is contained in:
Martin Kutter
2009-05-15 14:52:28 -08:00
committed by Michael G. Schwern
parent 3b30e8d0e2
commit 9023aa06a4
97 changed files with 895 additions and 375 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/SOAP/WSDL.pm
View File

@@ -14,7 +14,7 @@ use Class::Std::Fast constructor => 'none';
use SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;
use LWP::UserAgent;
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %no_dispatch_of :ATTR(:name<no_dispatch>);
my %wsdl_of :ATTR(:name<wsdl>);
@@ -831,9 +831,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
=head1 REPOSITORY INFORMATION
$Rev: 805 $
$Rev: 851 $
$LastChangedBy: kutterma $
$Id: WSDL.pm 805 2009-02-23 21:12:24Z kutterma $
$Id: WSDL.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.pm $
=cut

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

@@ -5,7 +5,7 @@ use List::Util;
use Scalar::Util;
use Carp qw(croak carp confess);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %id_of :ATTR(:name<id> :default<()>);
my %lang_of :ATTR(:name<lang> :default<()>);

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

@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %operation_of :ATTR(:name<operation> :default<()>);
my %type_of :ATTR(:name<type> :default<()>);

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

@@ -11,7 +11,7 @@ use SOAP::WSDL::Factory::Serializer;
use SOAP::WSDL::Factory::Transport;
use SOAP::WSDL::Expat::MessageParser;
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %class_resolver_of :ATTR(:name<class_resolver> :default<()>);
my %no_dispatch_of :ATTR(:name<no_dispatch> :default<()>);
@@ -171,20 +171,29 @@ sub call {
# Try deserializing response - there may be some,
# even if transport did not succeed (got a 500 response)
if ( $response ) {
my ($result_body, $result_header) = eval {
$deserializer_of{ $ident }->deserialize( $response );
# as our faults are false, returning a success marker is the only
# reliable way of determining whether the deserializer succeeded.
# Custom deserializers may return an empty list, or undef,
# and $@ is not guaranteed to be undefined.
my ($success, $result_body, $result_header) = eval {
(1, $deserializer_of{ $ident }->deserialize( $response ));
};
if (not $@) {
if (defined $success) {
return wantarray
? ($result_body, $result_header)
: $result_body;
}
return $deserializer_of{ $ident }->generate_fault({
code => 'soap:Server',
role => 'urn:localhost',
message => "Error deserializing message: $@. \n"
. "Message was: \n$response"
});
elsif (blessed $@) { #}&& $@->isa('SOAP::WSDL::SOAP::Typelib::Fault11')) {
return $@;
}
else {
return $deserializer_of{ $ident }->generate_fault({
code => 'soap:Server',
role => 'urn:localhost',
message => "Error deserializing message: $@. \n"
. "Message was: \n$response"
});
}
};
# if we had no success (Transport layer error status code)
@@ -400,9 +409,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
=head1 REPOSITORY INFORMATION
$Rev: 805 $
$Rev: 851 $
$LastChangedBy: kutterma $
$Id: Client.pm 805 2009-02-23 21:12:24Z kutterma $
$Id: Client.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/Client.pm $
=cut

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

@@ -4,7 +4,7 @@ use warnings;
use base 'SOAP::WSDL::Client';
use Scalar::Util qw(blessed);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
sub call {
my ($self, $method, $body, $header) = @_;
@@ -85,9 +85,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
=head1 REPOSITORY INFORMATION
$Rev: 805 $
$Rev: 851 $
$LastChangedBy: kutterma $
$Id: Base.pm 805 2009-02-23 21:12:24Z kutterma $
$Id: Base.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/Client/Base.pm $
=cut

6
lib/SOAP/WSDL/Definitions.pm
View File

@@ -5,7 +5,7 @@ use List::Util qw(first);
use Class::Std::Fast::Storable;
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %types_of :ATTR(:name<types> :default<[]>);
my %message_of :ATTR(:name<message> :default<[]>);
@@ -115,9 +115,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
=head1 REPOSITORY INFORMATION
$Rev: 805 $
$Rev: 851 $
$LastChangedBy: kutterma $
$Id: Definitions.pm 805 2009-02-23 21:12:24Z kutterma $
$Id: Definitions.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/Definitions.pm $
=cut

6
lib/SOAP/WSDL/Deserializer/Hash.pm
View File

@@ -8,7 +8,7 @@ use SOAP::WSDL::Expat::Message2Hash;
use SOAP::WSDL::Factory::Deserializer;
SOAP::WSDL::Factory::Deserializer->register( '1.1', __PACKAGE__ );
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
sub BUILD {
my ($self, $ident, $args_of_ref) = @_;
@@ -163,9 +163,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
=head1 REPOSITORY INFORMATION
$Rev: 805 $
$Rev: 851 $
$LastChangedBy: kutterma $
$Id: Hash.pm 805 2009-02-23 21:12:24Z kutterma $
$Id: Hash.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/Deserializer/Hash.pm $
=cut

6
lib/SOAP/WSDL/Deserializer/SOM.pm
View File

@@ -2,7 +2,7 @@ package SOAP::WSDL::Deserializer::SOM;
use strict;
use warnings;
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
our @ISA;
eval {
@@ -140,9 +140,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
=head1 REPOSITORY INFORMATION
$Rev: 805 $
$Rev: 851 $
$LastChangedBy: kutterma $
$Id: SOM.pm 805 2009-02-23 21:12:24Z kutterma $
$Id: SOM.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/Deserializer/SOM.pm $
=cut

6
lib/SOAP/WSDL/Deserializer/XSD.pm
View File

@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
use SOAP::WSDL::SOAP::Typelib::Fault11;
use SOAP::WSDL::Expat::MessageParser;
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %class_resolver_of :ATTR(:name<class_resolver> :default<()>);
my %strict_of :ATTR(:get<strict> :init_arg<strict> :default<1>);
@@ -126,9 +126,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
=head1 REPOSITORY INFORMATION
$Rev: 805 $
$Rev: 851 $
$LastChangedBy: kutterma $
$Id: XSD.pm 805 2009-02-23 21:12:24Z 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/Deserializer/XSD.pm $
=cut

2
lib/SOAP/WSDL/Expat/Base.pm
View File

@@ -6,7 +6,7 @@ use XML::Parser::Expat;
# TODO: convert to Class::Std::Fast based class - hash based classes suck.
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
sub new {
my ($class, $arg_ref) = @_;

2
lib/SOAP/WSDL/Expat/Message2Hash.pm
View File

@@ -4,7 +4,7 @@ use strict;
use warnings;
use base qw(SOAP::WSDL::Expat::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
sub _initialize {
my ($self, $parser) = @_;

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

@@ -9,7 +9,7 @@ use base qw(SOAP::WSDL::Expat::Base);
BEGIN { require Class::Std::Fast };
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
# GLOBALS
my $OBJECT_CACHE_REF = Class::Std::Fast::OBJECT_CACHE_REF();
@@ -330,10 +330,10 @@ the same terms as perl itself
=head1 Repository information
$Id: MessageParser.pm 805 2009-02-23 21:12:24Z kutterma $
$Id: MessageParser.pm 851 2009-05-15 22:45:18Z kutterma $
$LastChangedDate: 2009-02-23 22:12:24 +0100 (Mo, 23 Feb 2009) $
$LastChangedRevision: 805 $
$LastChangedDate: 2009-05-16 00:45:18 +0200 (Sa, 16. Mai 2009) $
$LastChangedRevision: 851 $
$LastChangedBy: kutterma $
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageParser.pm $

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

@@ -6,7 +6,7 @@ use XML::Parser::Expat;
use SOAP::WSDL::Expat::MessageParser;
use base qw(SOAP::WSDL::Expat::MessageParser);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
sub parse_start {
my $self = shift;
@@ -69,9 +69,9 @@ the same terms as perl itself
=head1 REPOSITORY INFORMATION
$Rev: 805 $
$Rev: 851 $
$LastChangedBy: kutterma $
$Id: MessageStreamParser.pm 805 2009-02-23 21:12:24Z kutterma $
$Id: MessageStreamParser.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/Expat/MessageStreamParser.pm $
=cut

8
lib/SOAP/WSDL/Expat/WSDLParser.pm
View File

@@ -5,7 +5,7 @@ use Carp;
use SOAP::WSDL::TypeLookup;
use base qw(SOAP::WSDL::Expat::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
#
# Import child elements of a WSDL / XML Schema tree into the current tree
@@ -367,10 +367,10 @@ the same terms as perl itself
=head1 Repository information
$Id: WSDLParser.pm 805 2009-02-23 21:12:24Z kutterma $
$Id: WSDLParser.pm 851 2009-05-15 22:45:18Z kutterma $
$LastChangedDate: 2009-02-23 22:12:24 +0100 (Mo, 23 Feb 2009) $
$LastChangedRevision: 805 $
$LastChangedDate: 2009-05-16 00:45:18 +0200 (Sa, 16. Mai 2009) $
$LastChangedRevision: 851 $
$LastChangedBy: kutterma $
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/WSDLParser.pm $

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

@@ -2,7 +2,7 @@ package SOAP::WSDL::Factory::Deserializer;
use strict;
use warnings;
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %DESERIALIZER = (
'1.1' => 'SOAP::WSDL::Deserializer::XSD',

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

@@ -2,7 +2,7 @@ package SOAP::WSDL::Factory::Generator;
use strict;
use warnings;
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %GENERATOR = (
'XSD' => 'SOAP::WSDL::Generator::Template::XSD',

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

@@ -2,7 +2,7 @@ package SOAP::WSDL::Factory::Serializer;
use strict;
use warnings;
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %SERIALIZER = (
'1.1' => 'SOAP::WSDL::Serializer::XSD',
@@ -138,9 +138,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
=head1 REPOSITORY INFORMATION
$Rev: 805 $
$Rev: 851 $
$LastChangedBy: kutterma $
$Id: Serializer.pm 805 2009-02-23 21:12:24Z kutterma $
$Id: Serializer.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/Factory/Serializer.pm $
=cut

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

@@ -1,7 +1,7 @@
package SOAP::WSDL::Factory::Transport;
use strict;
use warnings;
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %registered_transport_of = ();
@@ -243,9 +243,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
=head1 REPOSITORY INFORMATION
$Rev: 805 $
$Rev: 851 $
$LastChangedBy: kutterma $
$Id: Transport.pm 805 2009-02-23 21:12:24Z kutterma $
$Id: Transport.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/Factory/Transport.pm $
=cut

2
lib/SOAP/WSDL/Generator/Iterator/WSDL11.pm
View File

@@ -2,7 +2,7 @@ package SOAP::WSDL::Generator::Iterator::WSDL11;
use strict; use warnings;
use Class::Std::Fast;
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %definitions_of :ATTR(:name<definitions> :default<[]>);
my %nodes_of :ATTR(:name<nodes> :default<[]>);

2
lib/SOAP/WSDL/Generator/PrefixResolver.pm
View File

@@ -3,7 +3,7 @@ use strict; use warnings;
use Class::Std::Fast::Storable;
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %namespace_prefix_map_of :ATTR(:name<namespace_prefix_map> :default<{}>);
my %namespace_map_of :ATTR(:name<namespace_map> :default<{}>);

4
lib/SOAP/WSDL/Generator/Template.pm
View File

@@ -1,11 +1,11 @@
package SOAP::WSDL::Generator::Template;
use strict; use warnings;
use Template;
use Template 2.18;
use Class::Std::Fast::Storable;
use Carp;
use SOAP::WSDL::Generator::PrefixResolver;
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %tt_of :ATTR(:get<tt>);
my %definitions_of :ATTR(:name<definitions> :default<()>);

14
lib/SOAP/WSDL/Generator/Template/Plugin/XSD.pm
View File

@@ -4,7 +4,7 @@ use warnings;
use Carp qw(confess);
use Class::Std::Fast::Storable constructor => 'none';
use Scalar::Util qw(blessed);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %namespace_prefix_map_of :ATTR(:name<namespace_prefix_map> :default<{}>);
my %namespace_map_of :ATTR(:name<namespace_map> :default<{}>);
@@ -129,8 +129,10 @@ sub create_subpackage_name {
my $type = ref $arg_ref eq 'HASH' ? $arg_ref->{ value } : $arg_ref;
my @name_from = $type->get_name() || (); ;
my $parent = $type;
my $top_node = $parent;
# search for top node in tree (the one directly below the Schema)
my $parent = $type;
my $top_node = $parent;
if (! $parent->get_parent()->isa('SOAP::WSDL::XSD::Schema') ) {
NAMES: while ($parent = $parent->get_parent()) {
$top_node = $parent;
@@ -141,9 +143,13 @@ sub create_subpackage_name {
}
}
# create name for top node
die "FOO" if not defined $top_node;
die "No top node found" if not defined $top_node;
my $top_node_name = $self->create_xsd_name($top_node);
my $package_name = join('::_', $top_node_name , (@name_from) ? join('::', @name_from) : () );
# replace dots by :: in name - subpackage names may include dots, too
$package_name =~s{\.}{::}xg;
return $package_name;
}

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

@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
use File::Basename;
use File::Spec;
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
use SOAP::WSDL::Generator::Visitor::Typemap;
use SOAP::WSDL::Generator::Template::Plugin::XSD;

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

@@ -1,4 +1,5 @@
[% USE XSD -%]
[% USE XSD;
USE Dumper -%]
package [% XSD.create_xsd_name(complexType) %];
use strict;
use warnings;
@@ -12,6 +13,8 @@ __PACKAGE__->_set_element_form_qualified([%-
IF complexType.schema.get_elementFormDefault == 'qualified'
-%]1[% ELSE %]0[% END %]);
sub get_xmlns { '[% complexType.get_targetNamespace %]' };
[% INCLUDE complexType/contentModel.tt %]
1;

2
lib/SOAP/WSDL/Generator/Visitor.pm
View File

@@ -3,7 +3,7 @@ use strict;
use warnings;
use Class::Std::Fast::Storable;
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %definitions_of :ATTR(:name<definitions> :default<()>);
my %type_prefix_of :ATTR(:name<type_prefix> :default<()>);

2
lib/SOAP/WSDL/Generator/Visitor/Typemap.pm
View File

@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
use base qw(SOAP::WSDL::Generator::Visitor);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %path_of :ATTR(:name<path> :default<[]>);
my %typemap_of :ATTR(:name<typemap> :default<()>);

66
lib/SOAP/WSDL/Manual/Cookbook.pod
View File

@@ -32,15 +32,28 @@ this backend:
=head3 Accessing HTTP(S) webservices protected by NTLM authentication
If you want to connect to a windows server using some Windows Domain Login, please
consider using Kerberos instead of the (older) NTLM mechanism - see below.
Kerberos and NTLM are (currently) mutually exclusive - when LWP::Authen::Negotiate
is installed, it will always be queried (and will always raise an error), even
if you don't want to use it. See http://rt.cpan.org/Public/Bug/Display.html?id=32826
for details.
You need the L<NTLM|NTLM> distribution installed to access webservices protected
by NTLM authentication. More specifically, you need the Authen::NTLM module
from this distribution. Note that this is different from the Authen::NTML
distribution by Yee Man Chan also available from CPAN.
Your user credentials usually need to include the windows domain like this:
Your user credentials usually need to include the windows domain or the
windows hostname like this:
testdomain\testuser
or
\\testhost\testuser
Besides passing user credentials as when accessing a web service protected
by basic or digest authentication, you also need to enforce connection
keep_alive on the transport backens.
@@ -56,6 +69,57 @@ You may, of course, decide to just hack the generated class. Be advised that
subclassing might be a more appropriate solution - re-generating overwrites
changes in interface classes.
=head3 Accessing HTTP(S) webservices protected by NTLMv2
There are different variants of NTLM, and by default Authen::NTLM uses the v1 variant.
NTLM is a connection-based handshake authentication protocol, which requires
three or more requests on the same connection:
Request POST
Response 401 Unauthorized
WWW-Authenticate: NTLM
Request Authorization: NTLM <base64-encoded type-1-message>
Response 401 Unauthorized
WWW-Authenticate: NTLM <base64-encoded type-2-message>
Request Authorization: NTLM <base64-encoded type-3-message>
Response 200 Ok
If you try to access a NTLMv2 protected web service and switch on LWP::Debug by
saying
use LWP::Debug qw(+);
you should see at least two lines containing something like
Authorization NTLM TlRMTVNTUAABAAAAB7IAAAAAAAAAAAAAAwADACAAAABmb28=
...
Authorization NTLM TlRMTVNTUAABAAAAB7IAAAAAAAAAAAAAAw ... much longer ... ADACAAAABmb28=
If you're talking to a Server using NTLMv2 exclusively, you will only the first line
in the debug output, and then an error.
To explicitely enable NTLMv2, do the following in your client:
use Authen::NTLM;
ntlmv2(1);
This globally enables the use of NTLMv2. Note that this is a global setting: All
clients running in the same perl interpreter will be affected. This can
cause unexpected issues when running under mod_perl.
=head3 Accessing webservices protected by HTTP Kerberos Authentication
Use the L<LWP::Authen::Negotiate|LWP::Authen::Negotiate> plugin from CPAN. You
need to set up GSSAPI to perform the Kerberos authentication, though. How to do
this is implementation specific (MIT or Heimdahl). See your Kerberos/GSSAPI
documentation for details.
(Newer) Windows Web Services usually allow to use both the Negotiate (Kerberos)
and NTLM authentication scheme.
=head3 Accessing HTTPS webservices protected by certificate authentication
You need Crypt::SSLeay installed to access HTTPS webservices.

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

@@ -4,7 +4,7 @@ use warnings;
use Class::Std::Fast::Storable;
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %part_of :ATTR(:name<part> :default<[]>);

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

@@ -4,7 +4,7 @@ use warnings;
use Class::Std::Fast::Storable;
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %body_of :ATTR(:name<body> :default<[]>);
my %header_of :ATTR(:name<header> :default<[]>);

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

@@ -4,7 +4,7 @@ use warnings;
use Class::Std::Fast::Storable;
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %operation_of :ATTR(:name<operation> :default<()>);
my %input_of :ATTR(:name<input> :default<[]>);

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

@@ -6,7 +6,7 @@ use Class::Std::Fast::Storable;
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %element_of :ATTR(:name<element> :default<()>);
my %type_of :ATTR(:name<type> :default<()>);

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

@@ -4,7 +4,7 @@ use warnings;
use Class::Std::Fast::Storable;
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %binding_of :ATTR(:name<binding> :default<()>);
my %address_of :ATTR(:name<address> :default<()>);

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

@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
use List::Util;
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %operation_of :ATTR(:name<operation> :default<()>);

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

@@ -4,7 +4,7 @@ use warnings;
use base qw(SOAP::WSDL::Base);
use Class::Std::Fast::Storable;
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %location :ATTR(:name<location> :default<()>);
1;

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

@@ -4,7 +4,7 @@ use warnings;
use base qw(SOAP::WSDL::Base);
use Class::Std::Fast::Storable;
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %use_of :ATTR(:name<use> :default<q{}>);
my %namespace_of :ATTR(:name<namespace> :default<q{}>);

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

@@ -4,7 +4,7 @@ use warnings;
use base qw(SOAP::WSDL::Base);
use Class::Std::Fast::Storable;
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %use_of :ATTR(:name<use> :default<q{}>);
my %namespace_of :ATTR(:name<namespace> :default<q{}>);

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

@@ -3,6 +3,6 @@ use strict;
use warnings;
use base qw(SOAP::WSDL::Header);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
1;

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

@@ -4,7 +4,7 @@ use warnings;
use Class::Std::Fast::Storable;
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %style_of :ATTR(:name<style> :default<()>);
my %soapAction_of :ATTR(:name<soapAction> :default<()>);

8
lib/SOAP/WSDL/SOAP/Typelib/Fault.pm Normal file
View File

@@ -0,0 +1,8 @@
package SOAP::WSDL::SOAP::Typelib::Fault;
use strict;
use warnings;
use Class::Std::Fast::Storable constructor => 'none';
use version; our $VERSION = qv('2.00.10');
1;

139
lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm
View File

@@ -1,51 +1,102 @@
package SOAP::WSDL::SOAP::Typelib::Fault11;
use strict;
use warnings;
use Class::Std::Fast::Storable constructor => 'none';
{
use strict;
use warnings;
use Class::Std::Fast::Storable constructor => 'none';
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
use SOAP::WSDL::XSD::Typelib::ComplexType;
use SOAP::WSDL::XSD::Typelib::Element;
use Scalar::Util qw(blessed);
use base qw(
SOAP::WSDL::XSD::Typelib::Element
SOAP::WSDL::XSD::Typelib::ComplexType
);
use SOAP::WSDL::XSD::Typelib::ComplexType;
use SOAP::WSDL::XSD::Typelib::Element;
my %faultcode_of :ATTR(:get<faultcode>);
my %faultstring_of :ATTR(:get<faultstring>);
my %faultactor_of :ATTR(:get<faultactor>);
my %detail_of :ATTR(:get<detail>);
use base qw(
SOAP::WSDL::SOAP::Typelib::Fault
SOAP::WSDL::XSD::Typelib::Element
SOAP::WSDL::XSD::Typelib::ComplexType
);
__PACKAGE__->_factory(
[ qw(faultcode faultstring faultactor detail) ],
{
faultcode => \%faultcode_of,
faultstring => \%faultstring_of,
faultactor => \%faultactor_of,
detail => \%detail_of,
},
{
faultcode => 'SOAP::WSDL::XSD::Typelib::Builtin::QName',
faultstring => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
faultactor => 'SOAP::WSDL::XSD::Typelib::Builtin::anyURI',
detail => 'SOAP::WSDL::XSD::Typelib::Builtin::anyType',
my %faultcode_of : ATTR(:get<faultcode>);
my %faultstring_of : ATTR(:get<faultstring>);
my %faultactor_of : ATTR(:get<faultactor>);
my %detail_of : ATTR(:get<detail>);
__PACKAGE__->_factory(
[qw(faultcode faultstring faultactor detail)],
{
faultcode => \%faultcode_of,
faultstring => \%faultstring_of,
faultactor => \%faultactor_of,
detail => \%detail_of,
},
{
faultcode => 'SOAP::WSDL::XSD::Typelib::Builtin::QName',
faultstring => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
faultactor => 'SOAP::WSDL::XSD::Typelib::Builtin::anyURI',
detail => 'SOAP::WSDL::SOAP::Typelib::Fault11Detail',
} );
sub get_xmlns { return 'http://schemas.xmlsoap.org/soap/envelope/' }
__PACKAGE__->__set_name('Fault');
__PACKAGE__->__set_nillable(0);
__PACKAGE__->__set_minOccurs();
__PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref('');
# always return false in boolean context - a fault is never true...
sub as_bool : BOOLIFY {
return;
}
);
sub get_xmlns { return 'http://schemas.xmlsoap.org/soap/envelope/' };
# override set_detail to allow "auto-vivification" of a details object
# must be implemented via symbol table operation - _factory adds
# methods via symbol table, too.
__PACKAGE__->__set_name('Fault');
__PACKAGE__->__set_nillable(0);
__PACKAGE__->__set_minOccurs();
__PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref('');
# BLOCK to scope warnings
{
no warnings qw(redefine);
my $set_detail_sub = \&set_detail;
*set_detail = sub {
my ( $self, $detail ) = @_;
# always return false in boolean context - a fault is never true...
sub as_bool : BOOLIFY { return; }
# create SOAP::WSDL::SOAP::Typelib::Fault11Detail wrapper if there
# is none
if ( not blessed $detail
or
not $detail->isa('SOAP::WSDL::SOAP::Typelib::Fault11Detail') )
{
$detail = SOAP::WSDL::SOAP::Typelib::Fault11Detail->new(
{value => $detail} );
}
# call original method
$set_detail_sub->( $self, $detail );
};
}
Class::Std::initialize();
}
package SOAP::WSDL::SOAP::Typelib::Fault11Detail;
{
use strict;
use warnings;
use Class::Std::Fast::Storable constructor => 'none';
use base qw(
SOAP::WSDL::XSD::Typelib::Element
SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType
);
sub get_xmlns { return 'http://schemas.xmlsoap.org/soap/envelope/' }
__PACKAGE__->__set_name('Fault');
__PACKAGE__->__set_nillable(0);
__PACKAGE__->__set_minOccurs();
__PACKAGE__->__set_maxOccurs();
Class::Std::initialize();
}
Class::Std::initialize();
1;
=pod
@@ -88,6 +139,16 @@ Getter/setter for object's faultactor property.
Getter/setter for detail object's detail property.
The detail element is a SOAP::WSDL::SOAP::Typelib::Fault11Detail object.
This class is automatically loaded when using
SOAP::WSDL::SOAP::Typelib::Fault11, so you can't B<use> it separately.
Any string or object not of this class will be automatically wrapped into
a detail object.
Note that passing a list of detail object is currently not supported (though
the SOAP1.1 note allows this).
=head1 LICENSE AND COPYRIGHT
Copyright 2007 Martin Kutter. All rights reserved.
@@ -101,9 +162,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
=head1 REPOSITORY INFORMATION
$Rev: 805 $
$Rev: 851 $
$LastChangedBy: kutterma $
$Id: Fault11.pm 805 2009-02-23 21:12:24Z kutterma $
$Id: Fault11.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/SOAP/Typelib/Fault11.pm $
=cut

6
lib/SOAP/WSDL/Serializer/XSD.pm
View File

@@ -5,7 +5,7 @@ use warnings;
use Class::Std::Fast::Storable;
use Scalar::Util qw(blessed);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
use SOAP::WSDL::Factory::Serializer;
@@ -132,9 +132,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
=head1 REPOSITORY INFORMATION
$Rev: 805 $
$Rev: 851 $
$LastChangedBy: kutterma $
$Id: XSD.pm 805 2009-02-23 21:12:24Z 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

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

@@ -6,7 +6,7 @@ use Scalar::Util qw(blessed);
use SOAP::WSDL::Factory::Deserializer;
use SOAP::WSDL::Factory::Serializer;
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %dispatch_to_of :ATTR(:name<dispatch_to> :default<()>);
my %action_map_ref_of :ATTR(:name<action_map_ref> :default<{}>);

2
lib/SOAP/WSDL/Server/CGI.pm
View File

@@ -14,7 +14,7 @@ use Class::Std::Fast::Storable;
use base qw(SOAP::WSDL::Server);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
# mostly copied from SOAP::Lite. Unfortunately we can't use SOAP::Lite's CGI
# server directly - we would have to swap out it's base class...

2
lib/SOAP/WSDL/Server/Mod_Perl2.pm
View File

@@ -16,7 +16,7 @@ use Apache2::Const -compile => qw(
HTTP_LENGTH_REQUIRED
);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %LOADED_OF = ();

2
lib/SOAP/WSDL/Server/Simple.pm
View File

@@ -14,7 +14,7 @@ use Class::Std::Fast::Storable;
use base qw(SOAP::WSDL::Server);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
# mostly copied from SOAP::Lite. Unfortunately we can't use SOAP::Lite's CGI
# server directly - we would have to swap out it's base class...

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

@@ -4,7 +4,7 @@ use warnings;
use Class::Std::Fast::Storable;
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %port_of :ATTR(:name<port> :default<[]>);

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

@@ -2,7 +2,7 @@ package SOAP::WSDL::Transport::HTTP;
use strict; use warnings;
use base qw(LWP::UserAgent);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
# create methods normally inherited from SOAP::Client
SUBFACTORY: {
@@ -95,9 +95,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
=head1 REPOSITORY INFORMATION
$Rev: 805 $
$Rev: 851 $
$LastChangedBy: kutterma $
$Id: HTTP.pm 805 2009-02-23 21:12:24Z kutterma $
$Id: HTTP.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/Transport/HTTP.pm $
=cut

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

@@ -4,7 +4,7 @@ use warnings;
use Class::Std::Fast::Storable constructor => 'basic';
use SOAP::WSDL::Factory::Transport;
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
# register on loading
SOAP::WSDL::Factory::Transport->register( http => __PACKAGE__ );

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

@@ -4,7 +4,7 @@ use warnings;
use Class::Std::Fast::Storable;
use SOAP::WSDL::Factory::Transport;
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
SOAP::WSDL::Factory::Transport->register( http => __PACKAGE__ );
SOAP::WSDL::Factory::Transport->register( https => __PACKAGE__ );

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

@@ -2,7 +2,7 @@ package SOAP::WSDL::TypeLookup;
use strict;
use warnings;
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %TYPE_FROM = (
# wsdl:

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

@@ -5,7 +5,7 @@ use SOAP::WSDL::XSD::Schema::Builtin;
use Class::Std::Fast::Storable;
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %schema_of :ATTR(:name<schema> :default<[]>);

2
lib/SOAP/WSDL/XSD/Annotation.pm
View File

@@ -4,7 +4,7 @@ use warnings;
use Class::Std::Fast::Storable constructor => 'none';
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
#<enumeration value="">

2
lib/SOAP/WSDL/XSD/Attribute.pm
View File

@@ -4,7 +4,7 @@ use warnings;
use Class::Std::Fast::Storable constructor => 'none';
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
#<attribute
# default = string

2
lib/SOAP/WSDL/XSD/AttributeGroup.pm
View File

@@ -4,7 +4,7 @@ use warnings;
use Class::Std::Fast::Storable constructor => 'none';
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
#<attributeGroup
# id = ID

2
lib/SOAP/WSDL/XSD/Builtin.pm
View File

@@ -4,7 +4,7 @@ use warnings;
use Class::Std::Fast::Storable;
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
# only used in SOAP::WSDL - will be obsolete once SOAP::WSDL uses the
# generative approach, too

2
lib/SOAP/WSDL/XSD/ComplexType.pm
View File

@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
use Scalar::Util qw(blessed);
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
# id provided by Base
# name provided by Base

2
lib/SOAP/WSDL/XSD/Element.pm
View File

@@ -4,7 +4,7 @@ use warnings;
use Class::Std::Fast::Storable;
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
# id provided by Base
# name provided by Base

2
lib/SOAP/WSDL/XSD/Enumeration.pm
View File

@@ -4,7 +4,7 @@ use warnings;
use Class::Std::Fast::Storable constructor => 'none';
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
#<enumeration value="">

2
lib/SOAP/WSDL/XSD/FractionDigits.pm
View File

@@ -4,7 +4,7 @@ use warnings;
use Class::Std::Fast::Storable constructor => 'none';
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
#<pattern value="">
# id provided by Base

2
lib/SOAP/WSDL/XSD/Group.pm
View File

@@ -4,7 +4,7 @@ use warnings;
use Class::Std::Fast::Storable constructor => 'none';
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
#<xs:group name="myModelGroup">
# <xs:sequence>

2
lib/SOAP/WSDL/XSD/Length.pm
View File

@@ -4,7 +4,7 @@ use warnings;
use Class::Std::Fast::Storable constructor => 'none';
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
#<minExclusive value="">

2
lib/SOAP/WSDL/XSD/MaxExclusive.pm
View File

@@ -4,7 +4,7 @@ use warnings;
use Class::Std::Fast::Storable constructor => 'none';
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
#<minExclusive value="">

2
lib/SOAP/WSDL/XSD/MaxInclusive.pm
View File

@@ -4,7 +4,7 @@ use warnings;
use Class::Std::Fast::Storable constructor => 'none';
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
#<minExclusive value="">

2
lib/SOAP/WSDL/XSD/MaxLength.pm
View File

@@ -4,7 +4,7 @@ use warnings;
use Class::Std::Fast::Storable constructor => 'none';
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
#<maxLength value="">

2
lib/SOAP/WSDL/XSD/MinExclusive.pm
View File

@@ -4,7 +4,7 @@ use warnings;
use Class::Std::Fast::Storable constructor => 'none';
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
#<minExclusive value="">

2
lib/SOAP/WSDL/XSD/MinInclusive.pm
View File

@@ -4,7 +4,7 @@ use warnings;
use Class::Std::Fast::Storable constructor => 'none';
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
#<minExclusive value="">

2
lib/SOAP/WSDL/XSD/MinLength.pm
View File

@@ -4,7 +4,7 @@ use warnings;
use Class::Std::Fast::Storable constructor => 'none';
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
#<minExclusive value="">

2
lib/SOAP/WSDL/XSD/Pattern.pm
View File

@@ -4,7 +4,7 @@ use warnings;
use Class::Std::Fast::Storable constructor => 'none';
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
#<pattern value="">

2
lib/SOAP/WSDL/XSD/Schema.pm
View File

@@ -4,7 +4,7 @@ use warnings;
use Class::Std::Fast::Storable;
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
# child elements
my %attributeGroup_of :ATTR(:name<attributeGroup> :default<[]>);

6
lib/SOAP/WSDL/XSD/Schema/Builtin.pm
View File

@@ -6,7 +6,7 @@ use SOAP::WSDL::XSD::Schema;
use SOAP::WSDL::XSD::Builtin;
use base qw(SOAP::WSDL::XSD::Schema);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
# all builtin types - add validation (e.g. content restrictions) later...
my %BUILTINS = (
@@ -103,9 +103,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
=head1 REPOSITORY INFORMATION
$Rev: 805 $
$Rev: 851 $
$LastChangedBy: kutterma $
$Id: Builtin.pm 805 2009-02-23 21:12:24Z kutterma $
$Id: Builtin.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/XSD/Schema/Builtin.pm $
=cut

2
lib/SOAP/WSDL/XSD/SimpleType.pm
View File

@@ -4,7 +4,7 @@ use warnings;
use Class::Std::Fast::Storable;
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %length_of :ATTR(:name<length> :default<[]>);
my %minLength_of :ATTR(:name<minLength> :default<[]>);

2
lib/SOAP/WSDL/XSD/TotalDigits.pm
View File

@@ -4,7 +4,7 @@ use warnings;
use Class::Std::Fast::Storable constructor => 'none';
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
#<totalDigits value="">

2
lib/SOAP/WSDL/XSD/Typelib/Attribute.pm
View File

@@ -4,7 +4,7 @@ use warnings;
use base qw(SOAP::WSDL::XSD::Typelib::Element);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
sub start_tag {
# my ($self, $opt, $value) = @_;

2
lib/SOAP/WSDL/XSD/Typelib/AttributeSet.pm
View File

@@ -3,7 +3,7 @@ use strict;
use warnings;
use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
sub serialize {
# we work on @_ for performance.

2
lib/SOAP/WSDL/XSD/Typelib/Builtin.pm
View File

@@ -3,7 +3,7 @@ use strict;
use warnings;
use Class::Std::Fast::Storable;
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
use SOAP::WSDL::XSD::Typelib::Builtin::anyType;
use SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;

2
lib/SOAP/WSDL/XSD/Typelib/Builtin/anyType.pm
View File

@@ -3,7 +3,7 @@ use strict;
use warnings;
use Class::Std::Fast::Storable constructor => 'none';
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
sub get_xmlns { 'http://www.w3.org/2001/XMLSchema' };

2
lib/SOAP/WSDL/XSD/Typelib/Builtin/boolean.pm
View File

@@ -3,7 +3,7 @@ use strict;
use warnings;
use Class::Std::Fast::Storable constructor => 'none', cache => 1;
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);

2
lib/SOAP/WSDL/XSD/Typelib/Builtin/time.pm
View File

@@ -6,7 +6,7 @@ use Date::Format;
use Class::Std::Fast::Storable constructor => 'none', cache => 1;
use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
sub set_value {
# use set_value from base class if we have a XML-Time format

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

@@ -10,7 +10,7 @@ require Class::Std::Fast::Storable;
use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anyType);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
# remove in 2.1
our $AS_HASH_REF_WITHOUT_ATTRIBUTES = 0;
@@ -23,7 +23,10 @@ my %NAMES_OF; # XML names of elements in a class
# XML Attribute handling
my %xml_attr_of :ATTR();
my %xml_attr_of :ATTR();
# Namespace handling
my %xmlns_of :ATTR();
# don't you ever dare to use this !
our $___attributes_of_ref = \%ATTRIBUTES_OF;
@@ -319,6 +322,7 @@ sub _factory {
*{ "$class\::_serialize" } = sub {
my $ident = ${ $_[0] };
my $option_ref = $_[1];
# return concatenated return value of serialize call of all
# elements retrieved from get_elements expanding list refs.
return \join q{} , map {
@@ -327,7 +331,7 @@ sub _factory {
# do we have some content
if (defined $element) {
$element = [ $element ] if not ref $element eq 'ARRAY';
# from 2.00.09 on $NAMES_OF is filled - use || $_; for
# from 2.00.10 on $NAMES_OF is filled - use || $_; for
# backward compatibility
my $name = $NAMES_OF{$class}->{$_} || $_;
my $target_namespace = $_[0]->get_xmlns();
@@ -345,19 +349,45 @@ sub _factory {
# serialize complextype elments (of other types) with their
# serializer, but add element tags around.
else {
# TODO: check whether we have to handle
# types from different namespaces special, too
if (!defined $ELEMENT_FORM_QUALIFIED_OF{ $class }
# default for undef is true
if (! defined $ELEMENT_FORM_QUALIFIED_OF{ $class }
or $ELEMENT_FORM_QUALIFIED_OF{ $class }
) {
join q{}, $_->start_tag({ name => $name , %{ $option_ref } })
, $_->serialize($option_ref)
, $_->end_tag({ name => $name , %{ $option_ref } });
# handle types from different namespaces
#
# serialize with last namespace put on stack
# if the last namespace is a change from the
# before-last
#
if (
exists $option_ref->{ xmlns_stack }
&& (scalar @{ $option_ref->{ xmlns_stack } } >= 2)
&& ($option_ref->{ xmlns_stack }->[-1] ne $option_ref->{ xmlns_stack }->[-2])) {
# warn "New namespace: ", $option_ref->{ xmlns_stack }->[-1];
join q{}, $_->start_tag({ name => $name ,
xmlns => $option_ref->{ xmlns_stack }->[-1],
%{ $option_ref } })
, $_->serialize($option_ref)
, $_->end_tag({ name => $name , %{ $option_ref } });
}
else {
join q{}, $_->start_tag({ name => $name , %{ $option_ref } })
, $_->serialize($option_ref)
, $_->end_tag({ name => $name , %{ $option_ref } });
}
}
else {
# remove xmlns option if there is one
my $set_xmlns = delete $option_ref->{xmlns}
if (exists $option_ref->{xmlns});
# in elementFormDefault="unqualified" mode,
# the serialize method has to set
# xmnlns="" on all elements inside a ComplexType
#
# Other serializers usually use prefixes
# for "unqualified" and just omit all prefixes
# for inner elements
# check whether we "had" a xmlns around
my $set_xmlns = delete $option_ref->{xmlns};
# serialize start tag with xmlns="" if out parent
# did not do that
join q{}, $_->start_tag({
@@ -400,10 +430,14 @@ sub __get_attr_class {};
sub __serialize_complex {
# we work on @_ for performance.
$_[1] ||= {}; # $option_ref
push @{ $_[1]->{ xmlns_stack } }, $_[0]->get_xmlns();
# get content first (pass by reference to avoid copying)
my $content_ref = $_[0]->_serialize($_[1]); # option_ref
pop @{ $_[1]->{ xmlns_stack } };
# do we have a empty element ?
return $_[0]->start_tag({ %{ $_[1] }, empty => 1 })
if not length ${ $content_ref };
@@ -411,6 +445,10 @@ sub __serialize_complex {
return join q{}, $_[0]->start_tag($_[1]), ${ $content_ref }, $_[0]->end_tag();
}
sub get_xmlns {
return q{}
}
1;
__END__
@@ -633,9 +671,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
=head1 REPOSITORY INFORMATION
$Rev: 805 $
$Rev: 851 $
$LastChangedBy: kutterma $
$Id: ComplexType.pm 805 2009-02-23 21:12:24Z kutterma $
$Id: ComplexType.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/XSD/Typelib/ComplexType.pm $
=cut

6
lib/SOAP/WSDL/XSD/Typelib/Element.pm
View File

@@ -2,7 +2,7 @@ package SOAP::WSDL::XSD::Typelib::Element;
use strict; use warnings;
use Class::Std::Fast::Storable constructor => 'none';
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
my %NAME;
my %NILLABLE;
@@ -177,9 +177,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
=head1 REPOSITORY INFORMATION
$Rev: 805 $
$Rev: 851 $
$LastChangedBy: kutterma $
$Id: Element.pm 805 2009-02-23 21:12:24Z kutterma $
$Id: Element.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/XSD/Typelib/Element.pm $
=cut

8
lib/SOAP/WSDL/XSD/Typelib/SimpleType.pm
View File

@@ -2,14 +2,14 @@ package SOAP::WSDL::XSD::Typelib::SimpleType;
use strict; use warnings;
use SOAP::WSDL::XSD::Typelib::Builtin;
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
package SOAP::WSDL::XSD::Typelib::SimpleType::restriction;
use strict;
use SOAP::WSDL::XSD::Typelib::Builtin;
use base qw(SOAP::WSDL::XSD::Typelib::SimpleType);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
1;
__END__
@@ -132,9 +132,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
=head1 REPOSITORY INFORMATION
$Rev: 805 $
$Rev: 851 $
$LastChangedBy: kutterma $
$Id: SimpleType.pm 805 2009-02-23 21:12:24Z kutterma $
$Id: SimpleType.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/XSD/Typelib/SimpleType.pm $
=cut

2
lib/SOAP/WSDL/XSD/WhiteSpace.pm
View File

@@ -4,7 +4,7 @@ use warnings;
use Class::Std::Fast::Storable constructor => 'none';
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.09');
use version; our $VERSION = qv('2.00.10');
#<pattern value="">