import SOAP-WSDL 2.00.01 from CPAN
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00.01 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.01.tar.gz
This commit is contained in:
Martin Kutter authored and Michael G. Schwern committed
1 parent
0cbf981665
commit
745ce925c1
111 files changed
+1106
-673
No files matched your search
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
our $VERSION=q{2.00_33};
|
||||
use version; our $VERSION = qv('2.00.01');
|
||||
|
||||
#<enumeration value="">
|
||||
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
our $VERSION=q{2.00_29};
|
||||
use version; our $VERSION = qv('2.00.01');
|
||||
|
||||
#<attribute
|
||||
# default = string
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
our $VERSION=q{2.00_29};
|
||||
use version; our $VERSION = qv('2.00.01');
|
||||
|
||||
#<attributeGroup
|
||||
# id = ID
|
||||
|
||||
@@ -4,6 +4,11 @@ use warnings;
|
||||
use Class::Std::Fast::Storable;
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.01');
|
||||
|
||||
# only used in SOAP::WSDL - will be obsolete once SOAP::WSDL uses the
|
||||
# generative approach, too
|
||||
|
||||
sub serialize {
|
||||
my ($self, $name, $value, $opt) = @_;
|
||||
my $xml;
|
||||
|
||||
@@ -6,8 +6,11 @@ use Class::Std::Fast::Storable;
|
||||
use Scalar::Util qw(blessed);
|
||||
use base qw/SOAP::WSDL::Base/;
|
||||
|
||||
our $VERSION=q{2.00_33};
|
||||
use version; our $VERSION = qv('2.00.01');
|
||||
|
||||
# id provided by Base
|
||||
# name provided by Base
|
||||
# annotation provided by Base
|
||||
my %length_of :ATTR(:name<length> :default<[]>);
|
||||
my %minLength_of :ATTR(:name<minLength> :default<[]>);
|
||||
my %maxLength_of :ATTR(:name<maxLength> :default<[]>);
|
||||
@@ -21,7 +24,7 @@ my %minInclusive :ATTR(:name<minInclusive> :default<[]>);
|
||||
my %maxExclusive :ATTR(:name<maxExclusive> :default<[]>);
|
||||
my %maxInclusive :ATTR(:name<maxInclusive> :default<[]>);
|
||||
|
||||
my %annotation_of :ATTR(:name<annotation> :default<()>);
|
||||
|
||||
my %attribute_of :ATTR(:name<attribute> :default<()>);
|
||||
my %element_of :ATTR(:name<element> :default<()>);
|
||||
my %group_of :ATTR(:name<group> :default<()>);
|
||||
|
||||
@@ -4,9 +4,11 @@ use warnings;
|
||||
use Class::Std::Fast::Storable;
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
our $VERSION=q{2.00_25};
|
||||
use version; our $VERSION = qv('2.00.01');
|
||||
|
||||
my %annotation_of :ATTR(:name<annotation> :default<()>);
|
||||
# id provided by Base
|
||||
# name provided by Base
|
||||
# annotation provided by Base
|
||||
my %simpleType_of :ATTR(:name<simpleType> :default<()>);
|
||||
my %complexType_of :ATTR(:name<complexType> :default<()>);
|
||||
my %facet_of :ATTR(:name<facet> :default<()>);
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
our $VERSION=q{2.00_33};
|
||||
use version; our $VERSION = qv('2.00.01');
|
||||
|
||||
#<enumeration value="">
|
||||
|
||||
|
||||
@@ -1,10 +1,10 @@
|
||||
package SOAP::WSDL::XSD::Pattern;
|
||||
package SOAP::WSDL::XSD::FractionDigits;
|
||||
use strict;
|
||||
use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
our $VERSION=q{2.00_33};
|
||||
use version; our $VERSION = qv('2.00.01');
|
||||
|
||||
#<pattern value="">
|
||||
|
||||
@@ -15,4 +15,4 @@ our $VERSION=q{2.00_33};
|
||||
# may be defined as atomic simpleType
|
||||
my %value_of :ATTR(:name<value> :default<()>);
|
||||
|
||||
1;
|
||||
1;
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
our $VERSION=q{2.00_33};
|
||||
use version; our $VERSION = qv('2.00.01');
|
||||
|
||||
#<xs:group name="myModelGroup">
|
||||
# <xs:sequence>
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
our $VERSION=q{2.00_33};
|
||||
use version; our $VERSION = qv('2.00.01');
|
||||
|
||||
#<minExclusive value="">
|
||||
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
our $VERSION=q{2.00_33};
|
||||
use version; our $VERSION = qv('2.00.01');
|
||||
|
||||
#<minExclusive value="">
|
||||
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
our $VERSION=q{2.00_33};
|
||||
use version; our $VERSION = qv('2.00.01');
|
||||
|
||||
#<minExclusive value="">
|
||||
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
our $VERSION=q{2.00_33};
|
||||
use version; our $VERSION = qv('2.00.01');
|
||||
|
||||
#<maxLength value="">
|
||||
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
our $VERSION=q{2.00_33};
|
||||
use version; our $VERSION = qv('2.00.01');
|
||||
|
||||
#<minExclusive value="">
|
||||
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
our $VERSION=q{2.00_33};
|
||||
use version; our $VERSION = qv('2.00.01');
|
||||
|
||||
#<minExclusive value="">
|
||||
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
our $VERSION=q{2.00_33};
|
||||
use version; our $VERSION = qv('2.00.01');
|
||||
|
||||
#<minExclusive value="">
|
||||
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
our $VERSION=q{2.00_33};
|
||||
use version; our $VERSION = qv('2.00.01');
|
||||
|
||||
#<pattern value="">
|
||||
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable;
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
our $VERSION=q{2.00_33};
|
||||
use version; our $VERSION = qv('2.00.01');
|
||||
|
||||
# child elements
|
||||
my %attributeGroup_of :ATTR(:name<attributeGroup> :default<[]>);
|
||||
|
||||
@@ -6,6 +6,8 @@ use SOAP::WSDL::XSD::Schema;
|
||||
use SOAP::WSDL::XSD::Builtin;
|
||||
use base qw(SOAP::WSDL::XSD::Schema);
|
||||
|
||||
use version; our $VERSION = qv('2.00.01');
|
||||
|
||||
# all builtin types - add validation (e.g. content restrictions) later...
|
||||
my %BUILTINS = (
|
||||
'anyURI' => {},
|
||||
@@ -96,9 +98,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
||||
|
||||
=head1 REPOSITORY INFORMATION
|
||||
|
||||
$Rev: 583 $
|
||||
$Rev: 616 $
|
||||
$LastChangedBy: kutterma $
|
||||
$Id: Builtin.pm 583 2008-03-24 07:44:06Z kutterma $
|
||||
$Id: Builtin.pm 616 2008-04-22 21:51:49Z kutterma $
|
||||
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Schema/Builtin.pm $
|
||||
|
||||
=cut
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable;
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
our $VERSION=q{2.00_25};
|
||||
use version; our $VERSION = qv('2.00.01');
|
||||
|
||||
my %length_of :ATTR(:name<length> :default<[]>);
|
||||
my %minLength_of :ATTR(:name<minLength> :default<[]>);
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
our $VERSION=q{2.00_33};
|
||||
use version; our $VERSION = qv('2.00.01');
|
||||
|
||||
#<totalDigits value="">
|
||||
|
||||
|
||||
@@ -4,11 +4,15 @@ use warnings;
|
||||
|
||||
use base qw(SOAP::WSDL::XSD::Typelib::Element);
|
||||
|
||||
our $VERSION=q{2.00_29};
|
||||
use version; our $VERSION = qv('2.00.01');
|
||||
|
||||
sub start_tag {
|
||||
# my ($self, $opt, $value) = @_;
|
||||
return q{} if (@_ < 3);
|
||||
my $ns = $_[0]->get_xmlns();
|
||||
if ($ns eq 'http://www.w3.org/XML/1998/namespace') {
|
||||
return qq{ xml:$_[1]->{ name }="};
|
||||
}
|
||||
return qq{ $_[1]->{ name }="};
|
||||
}
|
||||
|
||||
|
||||
@@ -3,11 +3,12 @@ use strict;
|
||||
use warnings;
|
||||
use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
|
||||
|
||||
our $VERSION=q{2.00_29};
|
||||
use version; our $VERSION = qv('2.00.01');
|
||||
|
||||
sub serialize {
|
||||
# we work on @_ for performance.
|
||||
# $_[1] ||= {}; # $option_ref
|
||||
# TODO: What about namespaces?
|
||||
return ${ $_[0]->_serialize({ attr => 1 }) };
|
||||
}
|
||||
|
||||
|
||||
@@ -3,7 +3,7 @@ use strict;
|
||||
use warnings;
|
||||
use Class::Std::Fast::Storable;
|
||||
|
||||
our $VERSION=q{2.00_25};
|
||||
use version; our $VERSION = qv('2.00.01');
|
||||
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::anyType;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;
|
||||
@@ -90,7 +90,7 @@ L</OVERLOADED OPERATORS>
|
||||
package MySimpleType;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin;
|
||||
use SOAP::WSDL::XSD::Typelib::SimpleType;
|
||||
|
||||
|
||||
use base qw(SOAP::WSDL::XSD::Typelib::SimpleType
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::list
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::string
|
||||
@@ -237,7 +237,7 @@ Returns true/false in boolean context.
|
||||
|
||||
Returns 1 / 0 in numeric context.
|
||||
|
||||
boolean objects have a special method for deleteing their value, because
|
||||
boolean objects have a special method for deleting their value, because
|
||||
calling C<setl_value(undef)> results in the value being set to false.
|
||||
|
||||
$obj->delete_value();
|
||||
|
||||
@@ -5,11 +5,12 @@ use warnings;
|
||||
use Carp;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin;
|
||||
use Scalar::Util qw(blessed);
|
||||
use Data::Dumper;
|
||||
require Class::Std::Fast::Storable;
|
||||
|
||||
use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anyType);
|
||||
|
||||
our $VERSION = '2.00_33';
|
||||
use version; our $VERSION = qv('2.00.01');
|
||||
|
||||
my %ELEMENTS_FROM;
|
||||
my %ATTRIBUTES_OF;
|
||||
@@ -25,15 +26,27 @@ our $___xml_attribute_of_ref = \%xml_attr_of;
|
||||
# STORABLE_ methods for supporting Class::Std::Fast::Storable.
|
||||
# We could also handle them via AUTOMETHOD,
|
||||
# but AUTOMETHOD should always croak...
|
||||
# Do we really need this ?
|
||||
# ... looks like we do...
|
||||
sub STORABLE_freeze_pre {}
|
||||
sub STORABLE_freeze_post {}
|
||||
sub STORABLE_thaw_pre {}
|
||||
sub STORABLE_thaw_post {}
|
||||
# Actually, AUTOMETHOD is faster (~1%) if Class::Std::Fast is loaded
|
||||
# properly, and slower (~10%) if not.
|
||||
# Hmmm. Trade 1% for 10?
|
||||
|
||||
#sub STORABLE_freeze_pre {}
|
||||
#sub STORABLE_freeze_post {}
|
||||
#sub STORABLE_thaw_pre {}
|
||||
#sub STORABLE_thaw_post {}
|
||||
|
||||
my %STORABLE_METHODS = (
|
||||
STORABLE_freeze_pre => undef,
|
||||
STORABLE_freeze_post => undef,
|
||||
STORABLE_thaw_pre => undef,
|
||||
STORABLE_thaw_post => undef,
|
||||
);
|
||||
|
||||
# for error reporting. Eases working with data objects...
|
||||
sub AUTOMETHOD {
|
||||
# return before unpacking @_ for speed reasons
|
||||
return if exists $STORABLE_METHODS{$_};
|
||||
|
||||
my ($self, $ident, @args_from) = @_;
|
||||
|
||||
my $class = ref $self || $self or die "Cannot call AUTOMETHOD as function";
|
||||
@@ -240,7 +253,7 @@ sub _factory {
|
||||
xmlns # xmlns
|
||||
}xms # get_elements is inlined for performance.
|
||||
? ()
|
||||
: do { use Data::Dumper;
|
||||
: do {
|
||||
croak "unknown field $_ in $class. Valid fields are:\n"
|
||||
. join(', ', @{ $ELEMENTS_FROM{ $class } }) . "\n"
|
||||
. "Structure given:\n" . Dumper @_ };
|
||||
@@ -268,16 +281,22 @@ sub _factory {
|
||||
if (defined $element) {
|
||||
$element = [ $element ] if not ref $element eq 'ARRAY';
|
||||
my $name = $_;
|
||||
|
||||
my $target_namespace = $_[0]->get_xmlns();
|
||||
map {
|
||||
# serialize element elements with their own serializer
|
||||
# but name them like they're named here.
|
||||
if ( $_->isa( 'SOAP::WSDL::XSD::Typelib::Element' ) ) {
|
||||
$_->serialize({ name => $name });
|
||||
# serialize elements of different namespaces
|
||||
# with namespace declaration
|
||||
($target_namespace ne $_->get_xmlns())
|
||||
? $_->serialize({ name => $name, qualified => 1 })
|
||||
: $_->serialize({ name => $name });
|
||||
}
|
||||
# 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
|
||||
join q{}, $_->start_tag({ name => $name , %{ $option_ref } })
|
||||
, $_->serialize($option_ref)
|
||||
, $_->end_tag({ name => $name , %{ $option_ref } });
|
||||
@@ -432,9 +451,9 @@ This means you may set element properties by passing
|
||||
Examples are similar to the examples provided for new() above.
|
||||
|
||||
Note that you cannot delete a property by setting it to undef - this sets
|
||||
the property to a empty property object (with vaue undef).
|
||||
the property to an empty property object (with value undef).
|
||||
|
||||
To delete a property, say
|
||||
To delete a property, say:
|
||||
|
||||
$obj->set_FOO();
|
||||
|
||||
@@ -481,9 +500,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
||||
|
||||
=head1 REPOSITORY INFORMATION
|
||||
|
||||
$Rev: 583 $
|
||||
$Rev: 616 $
|
||||
$LastChangedBy: kutterma $
|
||||
$Id: ComplexType.pm 583 2008-03-24 07:44:06Z kutterma $
|
||||
$Id: ComplexType.pm 616 2008-04-22 21:51:49Z kutterma $
|
||||
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm $
|
||||
|
||||
=cut
|
||||
|
||||
@@ -3,7 +3,7 @@ package SOAP::WSDL::XSD::Typelib::Element;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use strict;
|
||||
|
||||
our $VERSION=q{2.00_29};
|
||||
use version; our $VERSION = qv('2.00.01');
|
||||
|
||||
my %NAME;
|
||||
my %NILLABLE;
|
||||
@@ -28,6 +28,7 @@ BLOCK: {
|
||||
no strict qw(refs);
|
||||
while (my ($name, $value) = each %method_lookup ) {
|
||||
*{ "__set$name" } = sub {
|
||||
# TODO the "or die" is bullshit - at least the error message is wrong...
|
||||
my $class = ref $_[0] || $_[0] or die "Cannot call __set$name without parameter";
|
||||
$value->{ $class } = $_[1];
|
||||
};
|
||||
@@ -175,9 +176,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
||||
|
||||
=head1 REPOSITORY INFORMATION
|
||||
|
||||
$Rev: 564 $
|
||||
$Rev: 616 $
|
||||
$LastChangedBy: kutterma $
|
||||
$Id: Element.pm 564 2008-02-23 13:31:39Z kutterma $
|
||||
$Id: Element.pm 616 2008-04-22 21:51:49Z kutterma $
|
||||
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Typelib/Element.pm $
|
||||
|
||||
=cut
|
||||
|
||||
@@ -3,11 +3,15 @@ package SOAP::WSDL::XSD::Typelib::SimpleType;
|
||||
use strict;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin;
|
||||
|
||||
use version; our $VERSION = qv('2.00.01');
|
||||
|
||||
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.01');
|
||||
|
||||
1;
|
||||
__END__
|
||||
|
||||
@@ -83,9 +87,9 @@ faint of heart).
|
||||
simpleType classes derived via restriction must inherit from these classes in
|
||||
exactly this order:
|
||||
|
||||
SOAP::WSDL::XSD::Typelib::SimpleType # you may leave out this
|
||||
SOAP::WSDL::XSD::Typelib::SimpleType::restriction # derive by retriction
|
||||
The::Restriction::Base::Class # resytriction base
|
||||
SOAP::WSDL::XSD::Typelib::SimpleType # you may leave this out
|
||||
SOAP::WSDL::XSD::Typelib::SimpleType::restriction # derive by restriction
|
||||
The::Restriction::Base::Class # restriction base
|
||||
|
||||
The::Restriction::Base::Class can either be a builtin class (see
|
||||
SOAP::WSDL::XSD::Builtin) or another simpleType class.
|
||||
@@ -129,9 +133,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
||||
|
||||
=head1 REPOSITORY INFORMATION
|
||||
|
||||
$Rev: 477 $
|
||||
$Rev: 616 $
|
||||
$LastChangedBy: kutterma $
|
||||
$Id: SimpleType.pm 477 2007-12-24 10:23:52Z kutterma $
|
||||
$Id: SimpleType.pm 616 2008-04-22 21:51:49Z kutterma $
|
||||
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Typelib/SimpleType.pm $
|
||||
|
||||
=cut
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
our $VERSION=q{2.00_33};
|
||||
use version; our $VERSION = qv('2.00.01');
|
||||
|
||||
#<pattern value="">
|
||||
|
||||
|
||||
Reference in new issue
Block a user