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

import SOAP-WSDL 2.00.05 from CPAN

Browse Source 
git-cpan-module:   SOAP-WSDL
git-cpan-version:  2.00.05
git-cpan-authorid: MKUTTER
git-cpan-file:     authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.05.tar.gz
This commit is contained in:
Martin Kutter
2009-12-12 19:48:45 -08:00
committed by Michael G. Schwern
parent c3e3d1908e
commit c2ac24dd0f
109 changed files with 725 additions and 2095 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/SOAP/WSDL/XSD/Annotation.pm
+1 -1
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.04');
use version; our $VERSION = qv('2.00.05');
#<enumeration value="">
lib/SOAP/WSDL/XSD/Attribute.pm
+1 -1
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.03');
use version; our $VERSION = qv('2.00.05');
#<attribute
# default = string
lib/SOAP/WSDL/XSD/AttributeGroup.pm
+1 -1
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.03');
use version; our $VERSION = qv('2.00.05');
#<attributeGroup
# id = ID
lib/SOAP/WSDL/XSD/Builtin.pm
+1 -1
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.03');
use version; our $VERSION = qv('2.00.05');
# only used in SOAP::WSDL - will be obsolete once SOAP::WSDL uses the
# generative approach, too
lib/SOAP/WSDL/XSD/ComplexType.pm
+2 -3
View File
@@ -1,12 +1,11 @@
package SOAP::WSDL::XSD::ComplexType;
use strict;
use warnings;
use Carp;
use Class::Std::Fast::Storable;
use Scalar::Util qw(blessed);
use base qw/SOAP::WSDL::Base/;
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.03');
use version; our $VERSION = qv('2.00.05');
# id provided by Base
# name provided by Base
lib/SOAP/WSDL/XSD/Element.pm
+1 -1
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.04');
use version; our $VERSION = qv('2.00.05');
# id provided by Base
# name provided by Base
lib/SOAP/WSDL/XSD/Enumeration.pm
+1 -1
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.04');
use version; our $VERSION = qv('2.00.05');
#<enumeration value="">
lib/SOAP/WSDL/XSD/FractionDigits.pm
+1 -2
View File
@@ -4,8 +4,7 @@ use warnings;
use Class::Std::Fast::Storable constructor => 'none';
use base qw(SOAP::WSDL::Base);
use version; our $VERSION = qv('2.00.04');
use version; our $VERSION = qv('2.00.05');
#<pattern value="">
# id provided by Base
lib/SOAP/WSDL/XSD/Group.pm
+1 -1
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.03');
use version; our $VERSION = qv('2.00.05');
#<xs:group name="myModelGroup">
# <xs:sequence>
lib/SOAP/WSDL/XSD/Length.pm
+1 -1
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.04');
use version; our $VERSION = qv('2.00.05');
#<minExclusive value="">
lib/SOAP/WSDL/XSD/MaxExclusive.pm
+1 -1
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.04');
use version; our $VERSION = qv('2.00.05');
#<minExclusive value="">
lib/SOAP/WSDL/XSD/MaxInclusive.pm
+1 -1
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.03');
use version; our $VERSION = qv('2.00.05');
#<minExclusive value="">
lib/SOAP/WSDL/XSD/MaxLength.pm
+2 -1
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.03');
use version; our $VERSION = qv('2.00.05');
#<maxLength value="">
@@ -14,5 +14,6 @@ use version; our $VERSION = qv('2.00.03');
# may be defined as atomic simpleType
my %value_of :ATTR(:name<value> :default<()>);
my %fixed_of :ATTR(:name<fixed> :default<()>);
1;
lib/SOAP/WSDL/XSD/MinExclusive.pm
+1 -1
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.03');
use version; our $VERSION = qv('2.00.05');
#<minExclusive value="">
lib/SOAP/WSDL/XSD/MinInclusive.pm
+1 -1
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.04');
use version; our $VERSION = qv('2.00.05');
#<minExclusive value="">
lib/SOAP/WSDL/XSD/MinLength.pm
+1 -1
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.03');
use version; our $VERSION = qv('2.00.05');
#<minExclusive value="">
lib/SOAP/WSDL/XSD/Pattern.pm
+1 -1
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.03');
use version; our $VERSION = qv('2.00.05');
#<pattern value="">
lib/SOAP/WSDL/XSD/Schema.pm
+1 -1
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.03');
use version; our $VERSION = qv('2.00.05');
# child elements
my %attributeGroup_of :ATTR(:name<attributeGroup> :default<[]>);
lib/SOAP/WSDL/XSD/Schema/Builtin.pm
+5 -3
View File
@@ -6,10 +6,12 @@ use SOAP::WSDL::XSD::Schema;
use SOAP::WSDL::XSD::Builtin;
use base qw(SOAP::WSDL::XSD::Schema);
use version; our $VERSION = qv('2.00.04');
use version; our $VERSION = qv('2.00.05');
# all builtin types - add validation (e.g. content restrictions) later...
my %BUILTINS = (
'anyType' => {},
'anySimpleType' => {},
'anyURI' => {},
'boolean' => {},
'base64Binary' => {},
@@ -98,9 +100,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
=head1 REPOSITORY INFORMATION
$Rev: 701 $
$Rev: 728 $
$LastChangedBy: kutterma $
$Id: Builtin.pm 701 2008-06-05 19:19:16Z kutterma $
$Id: Builtin.pm 728 2008-07-13 19:28:50Z kutterma $
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Schema/Builtin.pm $
=cut
lib/SOAP/WSDL/XSD/SimpleType.pm
+1 -1
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.04');
use version; our $VERSION = qv('2.00.05');
my %length_of :ATTR(:name<length> :default<[]>);
my %minLength_of :ATTR(:name<minLength> :default<[]>);
lib/SOAP/WSDL/XSD/TotalDigits.pm
+1 -1
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.04');
use version; our $VERSION = qv('2.00.05');
#<totalDigits value="">
lib/SOAP/WSDL/XSD/Typelib/Attribute.pm
+1 -1
View File
@@ -4,7 +4,7 @@ use warnings;
use base qw(SOAP::WSDL::XSD::Typelib::Element);
use version; our $VERSION = qv('2.00.04');
use version; our $VERSION = qv('2.00.05');
sub start_tag {
# my ($self, $opt, $value) = @_;
lib/SOAP/WSDL/XSD/Typelib/AttributeSet.pm
+1 -1
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.03');
use version; our $VERSION = qv('2.00.05');
sub serialize {
# we work on @_ for performance.
lib/SOAP/WSDL/XSD/Typelib/Builtin.pm
+1 -1
View File
@@ -3,7 +3,7 @@ use strict;
use warnings;
use Class::Std::Fast::Storable;
use version; our $VERSION = qv('2.00.04');
use version; our $VERSION = qv('2.00.05');
use SOAP::WSDL::XSD::Typelib::Builtin::anyType;
use SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;
lib/SOAP/WSDL/XSD/Typelib/Builtin/IDREFS.pm
+1 -1
View File
@@ -1,7 +1,7 @@
package SOAP::WSDL::XSD::Typelib::Builtin::IDREFS;
use strict;
use warnings;
use Class::Std::Fast::Storable;
use Class::Std::Fast::Storable constructor => 'none', cache => 1;
use base qw(
SOAP::WSDL::XSD::Typelib::Builtin::list
SOAP::WSDL::XSD::Typelib::Builtin::IDREF);
lib/SOAP/WSDL/XSD/Typelib/Builtin/anyType.pm
+1 -1
View File
@@ -3,7 +3,7 @@ use strict;
use warnings;
use Class::Std::Fast::Storable constructor => 'none';
use version; our $VERSION = qv('2.00.03');
use version; our $VERSION = qv('2.00.05');
sub get_xmlns { 'http://www.w3.org/2001/XMLSchema' };
lib/SOAP/WSDL/XSD/Typelib/Builtin/boolean.pm
+1 -1
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.04');
use version; our $VERSION = qv('2.00.05');
use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
lib/SOAP/WSDL/XSD/Typelib/Builtin/dateTime.pm
+2 -5
View File
@@ -17,15 +17,12 @@ sub set_value {
[\+\-] \d{2} \: \d{2} $
}xms
);
no warnings qw(uninitialized);
# strptime sets empty values to undef - and strftime doesn't like that...
my @time_from = map { ! defined $_ ? 0 : $_ } strptime($_[1]);
undef $time_from[$#time_from];
undef $time_from[-1];
my $time_str = do { # no warnings;
strftime( '%Y-%m-%dT%H:%M:%S%z', @time_from );
};
my $time_str = strftime( '%Y-%m-%dT%H:%M:%S%z', @time_from );
# insert : in timezone info
substr $time_str, -2, 0, ':';
lib/SOAP/WSDL/XSD/Typelib/Builtin/time.pm
+1 -2
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.04');
use version; our $VERSION = qv('2.00.05');
sub set_value {
# use set_value from base class if we have a XML-Time format
@@ -37,7 +37,6 @@ sub set_value {
my $time_str = strftime( '%H:%M:%S%z', @time_from );
substr $time_str, -2, 0, ':';
$_[0]->SUPER::set_value($time_str);
}
}
lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm
+3 -3
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.1.0');
use version; our $VERSION = qv('2.00.05');
my %ELEMENTS_FROM; # order of elements in a class
my %ATTRIBUTES_OF; # references to value hashes
@@ -508,9 +508,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
=head1 REPOSITORY INFORMATION
$Rev: 670 $
$Rev: 728 $
$LastChangedBy: kutterma $
$Id: ComplexType.pm 670 2008-05-14 07:39:14Z kutterma $
$Id: ComplexType.pm 728 2008-07-13 19:28:50Z kutterma $
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm $
=cut
lib/SOAP/WSDL/XSD/Typelib/Element.pm
+9 -8
View File
@@ -1,9 +1,8 @@
#!/usr/bin/perl
package SOAP::WSDL::XSD::Typelib::Element;
use strict; use warnings;
use Class::Std::Fast::Storable constructor => 'none';
use strict;
use version; our $VERSION = qv('2.00.04');
use version; our $VERSION = qv('2.00.05');
my %NAME;
my %NILLABLE;
@@ -25,15 +24,17 @@ BLOCK: {
_maxOccurs => \%MAX_OCCURS,
);
# create getters / setters for all elements' class data
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";
@_ or die "Cannot call __set$name without parameter";
my $class = ref $_[0] || $_[0];
$value->{ $class } = $_[1];
};
*{ "__get$name" } = sub {
my $class = ref $_[0] || $_[0] or die "Cannot call __get$name as function";
@_ or die "Cannot call __set$name as function";
my $class = ref $_[0] || $_[0];
return $value->{ $class };
};
}
@@ -176,9 +177,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
=head1 REPOSITORY INFORMATION
$Rev: 701 $
$Rev: 728 $
$LastChangedBy: kutterma $
$Id: Element.pm 701 2008-06-05 19:19:16Z kutterma $
$Id: Element.pm 728 2008-07-13 19:28:50Z kutterma $
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Typelib/Element.pm $
=cut
lib/SOAP/WSDL/XSD/Typelib/SimpleType.pm
+5 -6
View File
@@ -1,16 +1,15 @@
#!/usr/bin/perl
package SOAP::WSDL::XSD::Typelib::SimpleType;
use strict;
use strict; use warnings;
use SOAP::WSDL::XSD::Typelib::Builtin;
use version; our $VERSION = qv('2.00.03');
use version; our $VERSION = qv('2.00.05');
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.03');
use version; our $VERSION = qv('2.00.05');
1;
__END__
@@ -133,9 +132,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
=head1 REPOSITORY INFORMATION
$Rev: 677 $
$Rev: 728 $
$LastChangedBy: kutterma $
$Id: SimpleType.pm 677 2008-05-18 20:17:56Z kutterma $
$Id: SimpleType.pm 728 2008-07-13 19:28:50Z kutterma $
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Typelib/SimpleType.pm $
=cut
lib/SOAP/WSDL/XSD/WhiteSpace.pm
+1 -1
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.04');
use version; our $VERSION = qv('2.00.05');
#<pattern value="">