Compare commits
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
c3e3d1908e | ||
|
|
e58a27e2ad |
@@ -5,7 +5,7 @@ $build = Module::Build->new(
|
|||||||
create_makefile_pl => 'small',
|
create_makefile_pl => 'small',
|
||||||
dist_abstract => 'SOAP with WSDL support',
|
dist_abstract => 'SOAP with WSDL support',
|
||||||
dist_name => 'SOAP-WSDL',
|
dist_name => 'SOAP-WSDL',
|
||||||
dist_version => '2.00.02',
|
dist_version => '2.00.04',
|
||||||
module_name => 'SOAP::WSDL',
|
module_name => 'SOAP::WSDL',
|
||||||
license => 'artistic',
|
license => 'artistic',
|
||||||
requires => {
|
requires => {
|
||||||
|
|||||||
@@ -1,4 +1,4 @@
|
|||||||
Release notes for SOAP::WSDL 2.00.02
|
Release notes for SOAP::WSDL 2.00.04
|
||||||
-------
|
-------
|
||||||
|
|
||||||
I'm proud to present a new release of SOAP::WSDL.
|
I'm proud to present a new release of SOAP::WSDL.
|
||||||
@@ -36,6 +36,35 @@ Features:
|
|||||||
|
|
||||||
The following changes have been made:
|
The following changes have been made:
|
||||||
|
|
||||||
|
2.00.04
|
||||||
|
|
||||||
|
The following bugs have been fixed (the numbers in square brackets are the
|
||||||
|
tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660921):
|
||||||
|
The numbers with # are CPAN RT IDs (http://rt.cpan.org/).
|
||||||
|
|
||||||
|
* [ 1972059 ] Can't set timeout via SOAP::WSDL
|
||||||
|
* [ 1961409 ] Error with unqualified references in imported schema
|
||||||
|
* #35873: SOAP::WSDL -- Can't locate object method "set_Action" via package "SOAP::WSDL::OpMessage"
|
||||||
|
* [ 1969427 ] Mod_Perl.t broken when mod_perl is unavailable
|
||||||
|
* #35610 Test fails when Test::Without::Module is installed
|
||||||
|
|
||||||
|
The following uncategorized improvements have been made:
|
||||||
|
|
||||||
|
* Changed the environment variable for author tests to "RELEASE_TESTING",
|
||||||
|
as defined by the Oslo QA Hackathon 2008
|
||||||
|
(see http://perl-qa.hexten.net/wiki/index.php/Oslo_QA_Hackathon_2008_:Achievements)
|
||||||
|
* Enhanced documentation
|
||||||
|
* Fixed a wrong error message
|
||||||
|
* Cleaned up test suite (removed duplicate tests)
|
||||||
|
|
||||||
|
2.00.03 - May 18 2008
|
||||||
|
|
||||||
|
The following bugs have been fixed (the numbers in square brackets are the
|
||||||
|
tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660921):
|
||||||
|
The numbers with # are CPAN RT IDs (http://rt.cpan.org/).
|
||||||
|
|
||||||
|
* [ 1966575 ] 2.00.02 produced bad code with complexType extensions
|
||||||
|
|
||||||
2.00.02 - May 16 2008
|
2.00.02 - May 16 2008
|
||||||
|
|
||||||
The following features were added (the numbers in square brackets are the
|
The following features were added (the numbers in square brackets are the
|
||||||
|
|||||||
@@ -270,17 +270,17 @@ MANIFEST This list of files
|
|||||||
META.yml
|
META.yml
|
||||||
MIGRATING
|
MIGRATING
|
||||||
README
|
README
|
||||||
|
SOAP-WSDL-2.00.01.ppd
|
||||||
|
SOAP-WSDL-2.00.01.zip
|
||||||
t/002_parse_wsdl.t
|
t/002_parse_wsdl.t
|
||||||
t/003_wsdl_based_serializer.t
|
t/003_wsdl_based_serializer.t
|
||||||
t/006_client.t
|
t/006_client.t
|
||||||
t/007_envelope.t
|
|
||||||
t/008_client_wsdl_complexType.t
|
t/008_client_wsdl_complexType.t
|
||||||
t/009_data_classes.t
|
t/009_data_classes.t
|
||||||
t/011_simpleType.t
|
t/011_simpleType.t
|
||||||
t/012_element.t
|
t/012_element.t
|
||||||
t/013_complexType.t
|
t/013_complexType.t
|
||||||
t/016_client_object.t
|
t/016_client_object.t
|
||||||
t/020_storable.t
|
|
||||||
t/095_copying.t
|
t/095_copying.t
|
||||||
t/096_characters.t
|
t/096_characters.t
|
||||||
t/097_kwalitee.t
|
t/097_kwalitee.t
|
||||||
@@ -332,7 +332,9 @@ t/acceptance/wsdl/WSDLParser/imported.xsd
|
|||||||
t/acceptance/wsdl/WSDLParser/xsd_import_no_location.wsdl
|
t/acceptance/wsdl/WSDLParser/xsd_import_no_location.wsdl
|
||||||
t/acceptance/wsdl/WSDLParser_import_loop.wsdl
|
t/acceptance/wsdl/WSDLParser_import_loop.wsdl
|
||||||
t/contributed.wsdl
|
t/contributed.wsdl
|
||||||
t/Expat/03_wsdl.t
|
t/covered-by.txt
|
||||||
|
t/covered.txt
|
||||||
|
t/covered/covered-0.01.db
|
||||||
t/lib/Mod_Perl2Test.pm
|
t/lib/Mod_Perl2Test.pm
|
||||||
t/lib/MyComplexType.pm
|
t/lib/MyComplexType.pm
|
||||||
t/lib/MyElement.pm
|
t/lib/MyElement.pm
|
||||||
@@ -375,6 +377,7 @@ t/SOAP/WSDL/Factory/Deserializer.t
|
|||||||
t/SOAP/WSDL/Factory/Serializer.t
|
t/SOAP/WSDL/Factory/Serializer.t
|
||||||
t/SOAP/WSDL/Factory/Transport.t
|
t/SOAP/WSDL/Factory/Transport.t
|
||||||
t/SOAP/WSDL/Generator/Template.t
|
t/SOAP/WSDL/Generator/Template.t
|
||||||
|
t/SOAP/WSDL/Generator/Template/XSD/Import.t
|
||||||
t/SOAP/WSDL/Generator/Visitor.t
|
t/SOAP/WSDL/Generator/Visitor.t
|
||||||
t/SOAP/WSDL/Generator/Visitor/Typemap.t
|
t/SOAP/WSDL/Generator/Visitor/Typemap.t
|
||||||
t/SOAP/WSDL/Generator/XSD.t
|
t/SOAP/WSDL/Generator/XSD.t
|
||||||
@@ -403,7 +406,6 @@ t/SOAP/WSDL/XSD/Enumeration.t
|
|||||||
t/SOAP/WSDL/XSD/Schema.t
|
t/SOAP/WSDL/XSD/Schema.t
|
||||||
t/SOAP/WSDL/XSD/SimpleType.t
|
t/SOAP/WSDL/XSD/SimpleType.t
|
||||||
t/SOAP/WSDL/XSD/Typelib/Attribute.t
|
t/SOAP/WSDL/XSD/Typelib/Attribute.t
|
||||||
t/SOAP/WSDL/XSD/Typelib/Builtin/01_constructors.t
|
|
||||||
t/SOAP/WSDL/XSD/Typelib/Builtin/anySimpleType.t
|
t/SOAP/WSDL/XSD/Typelib/Builtin/anySimpleType.t
|
||||||
t/SOAP/WSDL/XSD/Typelib/Builtin/anyType.t
|
t/SOAP/WSDL/XSD/Typelib/Builtin/anyType.t
|
||||||
t/SOAP/WSDL/XSD/Typelib/Builtin/anyURI.t
|
t/SOAP/WSDL/XSD/Typelib/Builtin/anyURI.t
|
||||||
@@ -414,8 +416,14 @@ t/SOAP/WSDL/XSD/Typelib/Builtin/date.t
|
|||||||
t/SOAP/WSDL/XSD/Typelib/Builtin/dateTime.t
|
t/SOAP/WSDL/XSD/Typelib/Builtin/dateTime.t
|
||||||
t/SOAP/WSDL/XSD/Typelib/Builtin/decimal.t
|
t/SOAP/WSDL/XSD/Typelib/Builtin/decimal.t
|
||||||
t/SOAP/WSDL/XSD/Typelib/Builtin/double.t
|
t/SOAP/WSDL/XSD/Typelib/Builtin/double.t
|
||||||
|
t/SOAP/WSDL/XSD/Typelib/Builtin/duration.t
|
||||||
t/SOAP/WSDL/XSD/Typelib/Builtin/ENTITY.t
|
t/SOAP/WSDL/XSD/Typelib/Builtin/ENTITY.t
|
||||||
t/SOAP/WSDL/XSD/Typelib/Builtin/float.t
|
t/SOAP/WSDL/XSD/Typelib/Builtin/float.t
|
||||||
|
t/SOAP/WSDL/XSD/Typelib/Builtin/gDay.t
|
||||||
|
t/SOAP/WSDL/XSD/Typelib/Builtin/gMonth.t
|
||||||
|
t/SOAP/WSDL/XSD/Typelib/Builtin/gMonthDay.t
|
||||||
|
t/SOAP/WSDL/XSD/Typelib/Builtin/gYear.t
|
||||||
|
t/SOAP/WSDL/XSD/Typelib/Builtin/gYearMonth.t
|
||||||
t/SOAP/WSDL/XSD/Typelib/Builtin/hexBinary.t
|
t/SOAP/WSDL/XSD/Typelib/Builtin/hexBinary.t
|
||||||
t/SOAP/WSDL/XSD/Typelib/Builtin/ID.t
|
t/SOAP/WSDL/XSD/Typelib/Builtin/ID.t
|
||||||
t/SOAP/WSDL/XSD/Typelib/Builtin/IDREF.t
|
t/SOAP/WSDL/XSD/Typelib/Builtin/IDREF.t
|
||||||
@@ -435,6 +443,7 @@ t/SOAP/WSDL/XSD/Typelib/Builtin/nonPositiveInteger.t
|
|||||||
t/SOAP/WSDL/XSD/Typelib/Builtin/normalizedString.t
|
t/SOAP/WSDL/XSD/Typelib/Builtin/normalizedString.t
|
||||||
t/SOAP/WSDL/XSD/Typelib/Builtin/NOTATION.t
|
t/SOAP/WSDL/XSD/Typelib/Builtin/NOTATION.t
|
||||||
t/SOAP/WSDL/XSD/Typelib/Builtin/positiveInteger.t
|
t/SOAP/WSDL/XSD/Typelib/Builtin/positiveInteger.t
|
||||||
|
t/SOAP/WSDL/XSD/Typelib/Builtin/QName.t
|
||||||
t/SOAP/WSDL/XSD/Typelib/Builtin/short.t
|
t/SOAP/WSDL/XSD/Typelib/Builtin/short.t
|
||||||
t/SOAP/WSDL/XSD/Typelib/Builtin/string.t
|
t/SOAP/WSDL/XSD/Typelib/Builtin/string.t
|
||||||
t/SOAP/WSDL/XSD/Typelib/Builtin/time.t
|
t/SOAP/WSDL/XSD/Typelib/Builtin/time.t
|
||||||
|
|||||||
@@ -1,373 +1,373 @@
|
|||||||
---
|
---
|
||||||
name: SOAP-WSDL
|
name: SOAP-WSDL
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
author:
|
author:
|
||||||
- 'Martin Kutter <martin.kutter@fen-net.de>'
|
- 'Martin Kutter <martin.kutter@fen-net.de>'
|
||||||
abstract: SOAP with WSDL support
|
abstract: SOAP with WSDL support
|
||||||
license: artistic
|
license: artistic
|
||||||
resources:
|
resources:
|
||||||
license: http://opensource.org/licenses/artistic-license.php
|
license: http://opensource.org/licenses/artistic-license.php
|
||||||
requires:
|
requires:
|
||||||
Class::Std::Fast: 0.0.5
|
Class::Std::Fast: 0.0.5
|
||||||
Data::Dumper: 0
|
Data::Dumper: 0
|
||||||
Date::Format: 0
|
Date::Format: 0
|
||||||
Date::Parse: 0
|
Date::Parse: 0
|
||||||
File::Basename: 0
|
File::Basename: 0
|
||||||
File::Path: 0
|
File::Path: 0
|
||||||
Getopt::Long: 0
|
Getopt::Long: 0
|
||||||
LWP::UserAgent: 0
|
LWP::UserAgent: 0
|
||||||
List::Util: 0
|
List::Util: 0
|
||||||
Template: 2.18
|
Template: 2.18
|
||||||
Term::ReadKey: 0
|
Term::ReadKey: 0
|
||||||
URI: 0
|
URI: 0
|
||||||
XML::Parser::Expat: 0
|
XML::Parser::Expat: 0
|
||||||
perl: 5.8.0
|
perl: 5.8.0
|
||||||
build_requires:
|
build_requires:
|
||||||
Class::Std::Fast: 0.0.5
|
Class::Std::Fast: 0.0.5
|
||||||
Cwd: 0
|
Cwd: 0
|
||||||
Date::Format: 0
|
Date::Format: 0
|
||||||
Date::Parse: 0
|
Date::Parse: 0
|
||||||
File::Basename: 0
|
File::Basename: 0
|
||||||
File::Path: 0
|
File::Path: 0
|
||||||
File::Spec: 0
|
File::Spec: 0
|
||||||
Getopt::Long: 0
|
Getopt::Long: 0
|
||||||
LWP::UserAgent: 0
|
LWP::UserAgent: 0
|
||||||
List::Util: 0
|
List::Util: 0
|
||||||
Module::Build: 0
|
Module::Build: 0
|
||||||
Storable: 0
|
Storable: 0
|
||||||
Template: 2.18
|
Template: 2.18
|
||||||
Test::More: 0
|
Test::More: 0
|
||||||
XML::Parser::Expat: 0
|
XML::Parser::Expat: 0
|
||||||
provides:
|
provides:
|
||||||
SOAP::WSDL:
|
SOAP::WSDL:
|
||||||
file: lib/SOAP/WSDL.pm
|
file: lib/SOAP/WSDL.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::Base:
|
SOAP::WSDL::Base:
|
||||||
file: lib/SOAP/WSDL/Base.pm
|
file: lib/SOAP/WSDL/Base.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::Binding:
|
SOAP::WSDL::Binding:
|
||||||
file: lib/SOAP/WSDL/Binding.pm
|
file: lib/SOAP/WSDL/Binding.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::Client:
|
SOAP::WSDL::Client:
|
||||||
file: lib/SOAP/WSDL/Client.pm
|
file: lib/SOAP/WSDL/Client.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::Client::Base:
|
SOAP::WSDL::Client::Base:
|
||||||
file: lib/SOAP/WSDL/Client/Base.pm
|
file: lib/SOAP/WSDL/Client/Base.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::Definitions:
|
SOAP::WSDL::Definitions:
|
||||||
file: lib/SOAP/WSDL/Definitions.pm
|
file: lib/SOAP/WSDL/Definitions.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::Deserializer::Hash:
|
SOAP::WSDL::Deserializer::Hash:
|
||||||
file: lib/SOAP/WSDL/Deserializer/Hash.pm
|
file: lib/SOAP/WSDL/Deserializer/Hash.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::Deserializer::SOM:
|
SOAP::WSDL::Deserializer::SOM:
|
||||||
file: lib/SOAP/WSDL/Deserializer/SOM.pm
|
file: lib/SOAP/WSDL/Deserializer/SOM.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::Deserializer::XSD:
|
SOAP::WSDL::Deserializer::XSD:
|
||||||
file: lib/SOAP/WSDL/Deserializer/XSD.pm
|
file: lib/SOAP/WSDL/Deserializer/XSD.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::Expat::Base:
|
SOAP::WSDL::Expat::Base:
|
||||||
file: lib/SOAP/WSDL/Expat/Base.pm
|
file: lib/SOAP/WSDL/Expat/Base.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::Expat::Message2Hash:
|
SOAP::WSDL::Expat::Message2Hash:
|
||||||
file: lib/SOAP/WSDL/Expat/Message2Hash.pm
|
file: lib/SOAP/WSDL/Expat/Message2Hash.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::Expat::MessageParser:
|
SOAP::WSDL::Expat::MessageParser:
|
||||||
file: lib/SOAP/WSDL/Expat/MessageParser.pm
|
file: lib/SOAP/WSDL/Expat/MessageParser.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::Expat::MessageStreamParser:
|
SOAP::WSDL::Expat::MessageStreamParser:
|
||||||
file: lib/SOAP/WSDL/Expat/MessageStreamParser.pm
|
file: lib/SOAP/WSDL/Expat/MessageStreamParser.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::Expat::WSDLParser:
|
SOAP::WSDL::Expat::WSDLParser:
|
||||||
file: lib/SOAP/WSDL/Expat/WSDLParser.pm
|
file: lib/SOAP/WSDL/Expat/WSDLParser.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::Factory::Deserializer:
|
SOAP::WSDL::Factory::Deserializer:
|
||||||
file: lib/SOAP/WSDL/Factory/Deserializer.pm
|
file: lib/SOAP/WSDL/Factory/Deserializer.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::Factory::Generator:
|
SOAP::WSDL::Factory::Generator:
|
||||||
file: lib/SOAP/WSDL/Factory/Generator.pm
|
file: lib/SOAP/WSDL/Factory/Generator.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::Factory::Serializer:
|
SOAP::WSDL::Factory::Serializer:
|
||||||
file: lib/SOAP/WSDL/Factory/Serializer.pm
|
file: lib/SOAP/WSDL/Factory/Serializer.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::Factory::Transport:
|
SOAP::WSDL::Factory::Transport:
|
||||||
file: lib/SOAP/WSDL/Factory/Transport.pm
|
file: lib/SOAP/WSDL/Factory/Transport.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::Generator::Iterator::WSDL11:
|
SOAP::WSDL::Generator::Iterator::WSDL11:
|
||||||
file: lib/SOAP/WSDL/Generator/Iterator/WSDL11.pm
|
file: lib/SOAP/WSDL/Generator/Iterator/WSDL11.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::Generator::PrefixResolver:
|
SOAP::WSDL::Generator::PrefixResolver:
|
||||||
file: lib/SOAP/WSDL/Generator/PrefixResolver.pm
|
file: lib/SOAP/WSDL/Generator/PrefixResolver.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::Generator::Template:
|
SOAP::WSDL::Generator::Template:
|
||||||
file: lib/SOAP/WSDL/Generator/Template.pm
|
file: lib/SOAP/WSDL/Generator/Template.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::Generator::Template::Plugin::XSD:
|
SOAP::WSDL::Generator::Template::Plugin::XSD:
|
||||||
file: lib/SOAP/WSDL/Generator/Template/Plugin/XSD.pm
|
file: lib/SOAP/WSDL/Generator/Template/Plugin/XSD.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::Generator::Template::XSD:
|
SOAP::WSDL::Generator::Template::XSD:
|
||||||
file: lib/SOAP/WSDL/Generator/Template/XSD.pm
|
file: lib/SOAP/WSDL/Generator/Template/XSD.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::Generator::Visitor:
|
SOAP::WSDL::Generator::Visitor:
|
||||||
file: lib/SOAP/WSDL/Generator/Visitor.pm
|
file: lib/SOAP/WSDL/Generator/Visitor.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::Generator::Visitor::Typelib:
|
SOAP::WSDL::Generator::Visitor::Typelib:
|
||||||
file: lib/SOAP/WSDL/Generator/Visitor/Typelib.pm
|
file: lib/SOAP/WSDL/Generator/Visitor/Typelib.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::Generator::Visitor::Typemap:
|
SOAP::WSDL::Generator::Visitor::Typemap:
|
||||||
file: lib/SOAP/WSDL/Generator/Visitor/Typemap.pm
|
file: lib/SOAP/WSDL/Generator/Visitor/Typemap.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::Message:
|
SOAP::WSDL::Message:
|
||||||
file: lib/SOAP/WSDL/Message.pm
|
file: lib/SOAP/WSDL/Message.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::OpMessage:
|
SOAP::WSDL::OpMessage:
|
||||||
file: lib/SOAP/WSDL/OpMessage.pm
|
file: lib/SOAP/WSDL/OpMessage.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::Operation:
|
SOAP::WSDL::Operation:
|
||||||
file: lib/SOAP/WSDL/Operation.pm
|
file: lib/SOAP/WSDL/Operation.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::Part:
|
SOAP::WSDL::Part:
|
||||||
file: lib/SOAP/WSDL/Part.pm
|
file: lib/SOAP/WSDL/Part.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::Port:
|
SOAP::WSDL::Port:
|
||||||
file: lib/SOAP/WSDL/Port.pm
|
file: lib/SOAP/WSDL/Port.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::PortType:
|
SOAP::WSDL::PortType:
|
||||||
file: lib/SOAP/WSDL/PortType.pm
|
file: lib/SOAP/WSDL/PortType.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::SOAP::Address:
|
SOAP::WSDL::SOAP::Address:
|
||||||
file: lib/SOAP/WSDL/SOAP/Address.pm
|
file: lib/SOAP/WSDL/SOAP/Address.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::SOAP::Body:
|
SOAP::WSDL::SOAP::Body:
|
||||||
file: lib/SOAP/WSDL/SOAP/Body.pm
|
file: lib/SOAP/WSDL/SOAP/Body.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::SOAP::Header:
|
SOAP::WSDL::SOAP::Header:
|
||||||
file: lib/SOAP/WSDL/SOAP/Header.pm
|
file: lib/SOAP/WSDL/SOAP/Header.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::SOAP::HeaderFault:
|
SOAP::WSDL::SOAP::HeaderFault:
|
||||||
file: lib/SOAP/WSDL/SOAP/HeaderFault.pm
|
file: lib/SOAP/WSDL/SOAP/HeaderFault.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::SOAP::Operation:
|
SOAP::WSDL::SOAP::Operation:
|
||||||
file: lib/SOAP/WSDL/SOAP/Operation.pm
|
file: lib/SOAP/WSDL/SOAP/Operation.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::SOAP::Typelib::Fault11:
|
SOAP::WSDL::SOAP::Typelib::Fault11:
|
||||||
file: lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm
|
file: lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::Serializer::XSD:
|
SOAP::WSDL::Serializer::XSD:
|
||||||
file: lib/SOAP/WSDL/Serializer/XSD.pm
|
file: lib/SOAP/WSDL/Serializer/XSD.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::Server:
|
SOAP::WSDL::Server:
|
||||||
file: lib/SOAP/WSDL/Server.pm
|
file: lib/SOAP/WSDL/Server.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::Server::CGI:
|
SOAP::WSDL::Server::CGI:
|
||||||
file: lib/SOAP/WSDL/Server/CGI.pm
|
file: lib/SOAP/WSDL/Server/CGI.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::Server::Mod_Perl2:
|
SOAP::WSDL::Server::Mod_Perl2:
|
||||||
file: lib/SOAP/WSDL/Server/Mod_Perl2.pm
|
file: lib/SOAP/WSDL/Server/Mod_Perl2.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::Service:
|
SOAP::WSDL::Service:
|
||||||
file: lib/SOAP/WSDL/Service.pm
|
file: lib/SOAP/WSDL/Service.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::Transport::HTTP:
|
SOAP::WSDL::Transport::HTTP:
|
||||||
file: lib/SOAP/WSDL/Transport/HTTP.pm
|
file: lib/SOAP/WSDL/Transport/HTTP.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::Transport::Loopback:
|
SOAP::WSDL::Transport::Loopback:
|
||||||
file: lib/SOAP/WSDL/Transport/Loopback.pm
|
file: lib/SOAP/WSDL/Transport/Loopback.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::Transport::Test:
|
SOAP::WSDL::Transport::Test:
|
||||||
file: lib/SOAP/WSDL/Transport/Test.pm
|
file: lib/SOAP/WSDL/Transport/Test.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::TypeLookup:
|
SOAP::WSDL::TypeLookup:
|
||||||
file: lib/SOAP/WSDL/TypeLookup.pm
|
file: lib/SOAP/WSDL/TypeLookup.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::Types:
|
SOAP::WSDL::Types:
|
||||||
file: lib/SOAP/WSDL/Types.pm
|
file: lib/SOAP/WSDL/Types.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::XSD::Annotation:
|
SOAP::WSDL::XSD::Annotation:
|
||||||
file: lib/SOAP/WSDL/XSD/Annotation.pm
|
file: lib/SOAP/WSDL/XSD/Annotation.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::XSD::Attribute:
|
SOAP::WSDL::XSD::Attribute:
|
||||||
file: lib/SOAP/WSDL/XSD/Attribute.pm
|
file: lib/SOAP/WSDL/XSD/Attribute.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::XSD::AttributeGroup:
|
SOAP::WSDL::XSD::AttributeGroup:
|
||||||
file: lib/SOAP/WSDL/XSD/AttributeGroup.pm
|
file: lib/SOAP/WSDL/XSD/AttributeGroup.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::XSD::Builtin:
|
SOAP::WSDL::XSD::Builtin:
|
||||||
file: lib/SOAP/WSDL/XSD/Builtin.pm
|
file: lib/SOAP/WSDL/XSD/Builtin.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::XSD::ComplexType:
|
SOAP::WSDL::XSD::ComplexType:
|
||||||
file: lib/SOAP/WSDL/XSD/ComplexType.pm
|
file: lib/SOAP/WSDL/XSD/ComplexType.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::XSD::Element:
|
SOAP::WSDL::XSD::Element:
|
||||||
file: lib/SOAP/WSDL/XSD/Element.pm
|
file: lib/SOAP/WSDL/XSD/Element.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::XSD::Enumeration:
|
SOAP::WSDL::XSD::Enumeration:
|
||||||
file: lib/SOAP/WSDL/XSD/Enumeration.pm
|
file: lib/SOAP/WSDL/XSD/Enumeration.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::XSD::FractionDigits:
|
SOAP::WSDL::XSD::FractionDigits:
|
||||||
file: lib/SOAP/WSDL/XSD/FractionDigits.pm
|
file: lib/SOAP/WSDL/XSD/FractionDigits.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::XSD::Group:
|
SOAP::WSDL::XSD::Group:
|
||||||
file: lib/SOAP/WSDL/XSD/Group.pm
|
file: lib/SOAP/WSDL/XSD/Group.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::XSD::Length:
|
SOAP::WSDL::XSD::Length:
|
||||||
file: lib/SOAP/WSDL/XSD/Length.pm
|
file: lib/SOAP/WSDL/XSD/Length.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::XSD::MaxExclusive:
|
SOAP::WSDL::XSD::MaxExclusive:
|
||||||
file: lib/SOAP/WSDL/XSD/MaxExclusive.pm
|
file: lib/SOAP/WSDL/XSD/MaxExclusive.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::XSD::MaxInclusive:
|
SOAP::WSDL::XSD::MaxInclusive:
|
||||||
file: lib/SOAP/WSDL/XSD/MaxInclusive.pm
|
file: lib/SOAP/WSDL/XSD/MaxInclusive.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::XSD::MaxLength:
|
SOAP::WSDL::XSD::MaxLength:
|
||||||
file: lib/SOAP/WSDL/XSD/MaxLength.pm
|
file: lib/SOAP/WSDL/XSD/MaxLength.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::XSD::MinExclusive:
|
SOAP::WSDL::XSD::MinExclusive:
|
||||||
file: lib/SOAP/WSDL/XSD/MinExclusive.pm
|
file: lib/SOAP/WSDL/XSD/MinExclusive.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::XSD::MinInclusive:
|
SOAP::WSDL::XSD::MinInclusive:
|
||||||
file: lib/SOAP/WSDL/XSD/MinInclusive.pm
|
file: lib/SOAP/WSDL/XSD/MinInclusive.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::XSD::MinLength:
|
SOAP::WSDL::XSD::MinLength:
|
||||||
file: lib/SOAP/WSDL/XSD/MinLength.pm
|
file: lib/SOAP/WSDL/XSD/MinLength.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::XSD::Pattern:
|
SOAP::WSDL::XSD::Pattern:
|
||||||
file: lib/SOAP/WSDL/XSD/Pattern.pm
|
file: lib/SOAP/WSDL/XSD/Pattern.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::XSD::Schema:
|
SOAP::WSDL::XSD::Schema:
|
||||||
file: lib/SOAP/WSDL/XSD/Schema.pm
|
file: lib/SOAP/WSDL/XSD/Schema.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::XSD::Schema::Builtin:
|
SOAP::WSDL::XSD::Schema::Builtin:
|
||||||
file: lib/SOAP/WSDL/XSD/Schema/Builtin.pm
|
file: lib/SOAP/WSDL/XSD/Schema/Builtin.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::XSD::SimpleType:
|
SOAP::WSDL::XSD::SimpleType:
|
||||||
file: lib/SOAP/WSDL/XSD/SimpleType.pm
|
file: lib/SOAP/WSDL/XSD/SimpleType.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::XSD::TotalDigits:
|
SOAP::WSDL::XSD::TotalDigits:
|
||||||
file: lib/SOAP/WSDL/XSD/TotalDigits.pm
|
file: lib/SOAP/WSDL/XSD/TotalDigits.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::XSD::Typelib::Attribute:
|
SOAP::WSDL::XSD::Typelib::Attribute:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Attribute.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Attribute.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::XSD::Typelib::AttributeSet:
|
SOAP::WSDL::XSD::Typelib::AttributeSet:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/AttributeSet.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/AttributeSet.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin:
|
SOAP::WSDL::XSD::Typelib::Builtin:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::ENTITY:
|
SOAP::WSDL::XSD::Typelib::Builtin::ENTITY:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/ENTITY.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/ENTITY.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::ID:
|
SOAP::WSDL::XSD::Typelib::Builtin::ID:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/ID.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/ID.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::IDREF:
|
SOAP::WSDL::XSD::Typelib::Builtin::IDREF:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/IDREF.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/IDREF.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::IDREFS:
|
SOAP::WSDL::XSD::Typelib::Builtin::IDREFS:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/IDREFS.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/IDREFS.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::NCName:
|
SOAP::WSDL::XSD::Typelib::Builtin::NCName:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/NCName.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/NCName.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::NMTOKEN:
|
SOAP::WSDL::XSD::Typelib::Builtin::NMTOKEN:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/NMTOKEN.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/NMTOKEN.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::NMTOKENS:
|
SOAP::WSDL::XSD::Typelib::Builtin::NMTOKENS:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/NMTOKENS.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/NMTOKENS.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::NOTATION:
|
SOAP::WSDL::XSD::Typelib::Builtin::NOTATION:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/NOTATION.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/NOTATION.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::Name:
|
SOAP::WSDL::XSD::Typelib::Builtin::Name:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/Name.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/Name.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::QName:
|
SOAP::WSDL::XSD::Typelib::Builtin::QName:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/QName.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/QName.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType:
|
SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/anySimpleType.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/anySimpleType.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::anyType:
|
SOAP::WSDL::XSD::Typelib::Builtin::anyType:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/anyType.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/anyType.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::anyURI:
|
SOAP::WSDL::XSD::Typelib::Builtin::anyURI:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/anyURI.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/anyURI.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::base64Binary:
|
SOAP::WSDL::XSD::Typelib::Builtin::base64Binary:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/base64Binary.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/base64Binary.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::boolean:
|
SOAP::WSDL::XSD::Typelib::Builtin::boolean:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/boolean.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/boolean.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::byte:
|
SOAP::WSDL::XSD::Typelib::Builtin::byte:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/byte.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/byte.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::date:
|
SOAP::WSDL::XSD::Typelib::Builtin::date:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/date.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/date.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::dateTime:
|
SOAP::WSDL::XSD::Typelib::Builtin::dateTime:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/dateTime.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/dateTime.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::decimal:
|
SOAP::WSDL::XSD::Typelib::Builtin::decimal:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/decimal.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/decimal.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::double:
|
SOAP::WSDL::XSD::Typelib::Builtin::double:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/double.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/double.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::duration:
|
SOAP::WSDL::XSD::Typelib::Builtin::duration:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/duration.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/duration.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::float:
|
SOAP::WSDL::XSD::Typelib::Builtin::float:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/float.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/float.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::gDay:
|
SOAP::WSDL::XSD::Typelib::Builtin::gDay:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/gDay.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/gDay.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::gMonth:
|
SOAP::WSDL::XSD::Typelib::Builtin::gMonth:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/gMonth.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/gMonth.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::gMonthDay:
|
SOAP::WSDL::XSD::Typelib::Builtin::gMonthDay:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/gMonthDay.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/gMonthDay.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::gYear:
|
SOAP::WSDL::XSD::Typelib::Builtin::gYear:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/gYear.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/gYear.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::gYearMonth:
|
SOAP::WSDL::XSD::Typelib::Builtin::gYearMonth:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/gYearMonth.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/gYearMonth.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::hexBinary:
|
SOAP::WSDL::XSD::Typelib::Builtin::hexBinary:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/hexBinary.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/hexBinary.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::int:
|
SOAP::WSDL::XSD::Typelib::Builtin::int:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/int.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/int.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::integer:
|
SOAP::WSDL::XSD::Typelib::Builtin::integer:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/integer.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/integer.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::language:
|
SOAP::WSDL::XSD::Typelib::Builtin::language:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/language.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/language.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::list:
|
SOAP::WSDL::XSD::Typelib::Builtin::list:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/list.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/list.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::long:
|
SOAP::WSDL::XSD::Typelib::Builtin::long:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/long.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/long.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::negativeInteger:
|
SOAP::WSDL::XSD::Typelib::Builtin::negativeInteger:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/negativeInteger.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/negativeInteger.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::nonNegativeInteger:
|
SOAP::WSDL::XSD::Typelib::Builtin::nonNegativeInteger:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/nonNegativeInteger.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/nonNegativeInteger.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::nonPositiveInteger:
|
SOAP::WSDL::XSD::Typelib::Builtin::nonPositiveInteger:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/nonPositiveInteger.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/nonPositiveInteger.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::normalizedString:
|
SOAP::WSDL::XSD::Typelib::Builtin::normalizedString:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/normalizedString.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/normalizedString.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::positiveInteger:
|
SOAP::WSDL::XSD::Typelib::Builtin::positiveInteger:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/positiveInteger.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/positiveInteger.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::short:
|
SOAP::WSDL::XSD::Typelib::Builtin::short:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/short.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/short.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::string:
|
SOAP::WSDL::XSD::Typelib::Builtin::string:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/string.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/string.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::time:
|
SOAP::WSDL::XSD::Typelib::Builtin::time:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/time.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/time.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::token:
|
SOAP::WSDL::XSD::Typelib::Builtin::token:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/token.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/token.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::unsignedByte:
|
SOAP::WSDL::XSD::Typelib::Builtin::unsignedByte:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/unsignedByte.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/unsignedByte.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::unsignedInt:
|
SOAP::WSDL::XSD::Typelib::Builtin::unsignedInt:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/unsignedInt.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/unsignedInt.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::unsignedLong:
|
SOAP::WSDL::XSD::Typelib::Builtin::unsignedLong:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/unsignedLong.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/unsignedLong.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::unsignedShort:
|
SOAP::WSDL::XSD::Typelib::Builtin::unsignedShort:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/unsignedShort.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/unsignedShort.pm
|
||||||
SOAP::WSDL::XSD::Typelib::ComplexType:
|
SOAP::WSDL::XSD::Typelib::ComplexType:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm
|
||||||
version: 2.1.0
|
version: 2.1.0
|
||||||
SOAP::WSDL::XSD::Typelib::Element:
|
SOAP::WSDL::XSD::Typelib::Element:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Element.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Element.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
SOAP::WSDL::XSD::Typelib::SimpleType:
|
SOAP::WSDL::XSD::Typelib::SimpleType:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/SimpleType.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/SimpleType.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::XSD::Typelib::SimpleType::restriction:
|
SOAP::WSDL::XSD::Typelib::SimpleType::restriction:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/SimpleType.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/SimpleType.pm
|
||||||
version: 2.00.02
|
version: 2.00.03
|
||||||
SOAP::WSDL::XSD::WhiteSpace:
|
SOAP::WSDL::XSD::WhiteSpace:
|
||||||
file: lib/SOAP/WSDL/XSD/WhiteSpace.pm
|
file: lib/SOAP/WSDL/XSD/WhiteSpace.pm
|
||||||
version: 2.00.02
|
version: 2.00.04
|
||||||
generated_by: Module::Build version 0.2808
|
generated_by: Module::Build version 0.2808
|
||||||
meta-spec:
|
meta-spec:
|
||||||
url: http://module-build.sourceforge.net/META-spec-v1.2.html
|
url: http://module-build.sourceforge.net/META-spec-v1.2.html
|
||||||
version: 1.2
|
version: 1.2
|
||||||
no_index:
|
no_index:
|
||||||
directory: lib/SOAP/WSDL/Generator/Template/XSD/
|
directory: lib/SOAP/WSDL/Generator/Template/XSD/
|
||||||
|
|||||||
+6
-6
@@ -1,6 +1,6 @@
|
|||||||
# Note: this file was auto-generated by Module::Build::Compat version 0.03
|
# Note: this file was auto-generated by Module::Build::Compat version 0.03
|
||||||
use Module::Build::Compat 0.02;
|
use Module::Build::Compat 0.02;
|
||||||
|
|
||||||
Module::Build::Compat->run_build_pl(args => \@ARGV);
|
Module::Build::Compat->run_build_pl(args => \@ARGV);
|
||||||
require Module::Build;
|
require Module::Build;
|
||||||
Module::Build::Compat->write_makefile(build_class => 'Module::Build');
|
Module::Build::Compat->write_makefile(build_class => 'Module::Build');
|
||||||
|
|||||||
@@ -0,0 +1,16 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
|
<SOFTPKG NAME="SOAP-WSDL-2.00.01" VERSION="2,00,01,0">
|
||||||
|
<TITLE>SOAP-WSDL-2.00.01</TITLE>
|
||||||
|
<ABSTRACT>SOAP with WSDL support</ABSTRACT>
|
||||||
|
<AUTHOR>Martin Kutter <martin.kutter@fen-net.de></AUTHOR>
|
||||||
|
<IMPLEMENTATION>
|
||||||
|
<DEPENDENCY NAME="Data-Dumper" VERSION="0,0,0,0" />
|
||||||
|
<DEPENDENCY NAME="Scalar-List-Utils" VERSION="0,0,0,0" />
|
||||||
|
<DEPENDENCY NAME="Class-Std-Fast" VERSION="0,0,5,0" />
|
||||||
|
<DEPENDENCY NAME="Template-Toolkit" VERSION="0,0,0,0" />
|
||||||
|
<DEPENDENCY NAME="TimeDate" VERSION="0,0,0,0" />
|
||||||
|
<OS NAME="linux" />
|
||||||
|
<ARCHITECTURE NAME="i486-linux-gnu-thread-multi-5.8" />
|
||||||
|
<CODEBASE HREF="SOAP-WSDL-2.00.01.zip" />
|
||||||
|
</IMPLEMENTATION>
|
||||||
|
</SOFTPKG>
|
||||||
Binary file not shown.
+29
-10
@@ -82,17 +82,17 @@ my $person = {
|
|||||||
my $compile = XML::Compile::WSDL11->new('../example/wsdl/Person.wsdl',
|
my $compile = XML::Compile::WSDL11->new('../example/wsdl/Person.wsdl',
|
||||||
sloppy_integers => 1,
|
sloppy_integers => 1,
|
||||||
check_values => 0,
|
check_values => 0,
|
||||||
check_values => 0,
|
|
||||||
validation => 0,
|
validation => 0,
|
||||||
ignore_facets => 1,
|
ignore_facets => 1,
|
||||||
);
|
);
|
||||||
|
|
||||||
|
#
|
||||||
|
# Call all variants once to allow their first-time tasks to be done
|
||||||
|
#
|
||||||
|
|
||||||
my $call = $compile->compileClient('ListPerson');
|
my $call = $compile->compileClient('ListPerson');
|
||||||
$call->({ in => undef});
|
$call->({ in => undef});
|
||||||
|
|
||||||
# Initialize SOAP::Lite
|
|
||||||
my $deserializer = SOAP::Deserializer->new();
|
|
||||||
|
|
||||||
# Initialize SOAP::WSDL interface
|
# Initialize SOAP::WSDL interface
|
||||||
my $soap = MyInterfaces::TestService::TestPort->new();
|
my $soap = MyInterfaces::TestService::TestPort->new();
|
||||||
# Load all classes - XML::Compile has created everything before, too
|
# Load all classes - XML::Compile has created everything before, too
|
||||||
@@ -102,6 +102,15 @@ my $lite = SOAP::Lite->new()->default_ns('http://www.example.org/benchmark/')
|
|||||||
->proxy('http://localhost:81/soap-wsdl-test/person.pl');
|
->proxy('http://localhost:81/soap-wsdl-test/person.pl');
|
||||||
$lite->on_action( sub { 'http://www.example.org/benchmark/ListPerson' } );
|
$lite->on_action( sub { 'http://www.example.org/benchmark/ListPerson' } );
|
||||||
|
|
||||||
|
$lite->ListPerson();
|
||||||
|
|
||||||
|
my $lite_xml = SOAP::Lite->new()->default_ns('http://www.example.org/benchmark/')
|
||||||
|
->proxy('http://localhost:81/soap-wsdl-test/person.pl');
|
||||||
|
$lite_xml->on_action( sub { 'http://www.example.org/benchmark/ListPerson' } );
|
||||||
|
$lite_xml->outputxml(1);
|
||||||
|
|
||||||
|
$lite_xml->ListPerson();
|
||||||
|
|
||||||
# # register for SOAP 1.1
|
# # register for SOAP 1.1
|
||||||
SOAP::WSDL::Factory::Deserializer->register('1.1' => 'SOAP::WSDL::Deserializer::XSD_XS' );
|
SOAP::WSDL::Factory::Deserializer->register('1.1' => 'SOAP::WSDL::Deserializer::XSD_XS' );
|
||||||
my $wsdl_xs = MyInterfaces::TestService::TestPort->new();
|
my $wsdl_xs = MyInterfaces::TestService::TestPort->new();
|
||||||
@@ -114,24 +123,34 @@ SOAP::Lite - $SOAP::Lite::VERSION
|
|||||||
SOAP::WSDL - $SOAP::WSDL::Client::VERSION
|
SOAP::WSDL - $SOAP::WSDL::Client::VERSION
|
||||||
SOAP::WSDL_XS - $SOAP::WSDL::Deserializer::XSD_XS::VERSION;
|
SOAP::WSDL_XS - $SOAP::WSDL::Deserializer::XSD_XS::VERSION;
|
||||||
XML::Compile::SOAP - $XML::Compile::SOAP::VERSION
|
XML::Compile::SOAP - $XML::Compile::SOAP::VERSION
|
||||||
|
XML::Simple - $XML::Simple::VERSION
|
||||||
|
|
||||||
|
XML::Simple uses XML::Parser as backend and SOAP::Lite with
|
||||||
|
outputxml(1) set as SOAP client.
|
||||||
|
XML::Parser - $XML::Parser::VERSION
|
||||||
|
|
||||||
|
XML::Simple is not benchmarked in run 3ff, as it is expected
|
||||||
|
do deliver the same result.
|
||||||
|
|
||||||
Benchmark $n: Store result in private variable and destroy it
|
Benchmark $n: Store result in private variable and destroy it
|
||||||
";
|
";
|
||||||
$n++;
|
$n++;
|
||||||
cmpthese $count, {
|
cmpthese $count, {
|
||||||
'SOAP::WSDL' => sub { my $result = $soap->ListPerson({}) },
|
|
||||||
'XML::Compile' => sub { my $result = $call->() },
|
|
||||||
'SOAP::WSDL_XS' => sub { my $result = $wsdl_xs->ListPerson({}) },
|
|
||||||
'SOAP::Lite' => sub { my $som = $lite->call('ListPerson') },
|
'SOAP::Lite' => sub { my $som = $lite->call('ListPerson') },
|
||||||
|
'SOAP::WSDL' => sub { my $result = $soap->ListPerson({}) },
|
||||||
|
'SOAP::WSDL_XS' => sub { my $result = $wsdl_xs->ListPerson({}) },
|
||||||
|
'XML::Compile' => sub { my $result = $call->() },
|
||||||
|
'XML::Simple' => sub { my $result = XMLin( $lite_xml->call('ListPerson')) },
|
||||||
};
|
};
|
||||||
|
|
||||||
print "\nBenchmark $n: Push result on list\n";
|
print "\nBenchmark $n: Push result on list\n";
|
||||||
$n++;
|
$n++;
|
||||||
cmpthese $count, {
|
cmpthese $count, {
|
||||||
'SOAP::WSDL' => sub { push @data, $soap->ListPerson({}) },
|
|
||||||
'XML::Compile' => sub { push @data, $call->() },
|
|
||||||
'SOAP::WSDL_XS' => sub { push @data, $wsdl_xs->ListPerson({}) },
|
|
||||||
'SOAP::Lite' => sub { push @data, $lite->call('ListPerson') },
|
'SOAP::Lite' => sub { push @data, $lite->call('ListPerson') },
|
||||||
|
'SOAP::WSDL' => sub { push @data, $soap->ListPerson({}) },
|
||||||
|
'SOAP::WSDL_XS' => sub { push @data, $wsdl_xs->ListPerson({}) },
|
||||||
|
'XML::Compile' => sub { push @data, $call->() },
|
||||||
|
'XML::Simple' => sub { push @data, XMLin( $lite_xml->call('ListPerson')) },
|
||||||
};
|
};
|
||||||
|
|
||||||
@data = ();
|
@data = ();
|
||||||
|
|||||||
@@ -5,7 +5,7 @@ use lib '../../SOAP-WSDL_XS/blib/arch';
|
|||||||
use strict;
|
use strict;
|
||||||
use Benchmark;
|
use Benchmark;
|
||||||
use Storable;
|
use Storable;
|
||||||
#use SOAP::WSDL::Deserializer::XSD_XS;
|
use SOAP::WSDL::Deserializer::XSD_XS;
|
||||||
use SOAP::WSDL::Factory::Deserializer;
|
use SOAP::WSDL::Factory::Deserializer;
|
||||||
# # register for SOAP 1.1
|
# # register for SOAP 1.1
|
||||||
SOAP::WSDL::Factory::Deserializer->register('1.1' => 'SOAP::WSDL::Deserializer::XSD_XS' );
|
SOAP::WSDL::Factory::Deserializer->register('1.1' => 'SOAP::WSDL::Deserializer::XSD_XS' );
|
||||||
@@ -16,10 +16,10 @@ my @data = ();
|
|||||||
my $soap = MyInterfaces::TestService::TestPort->new();
|
my $soap = MyInterfaces::TestService::TestPort->new();
|
||||||
|
|
||||||
# Load all classes - XML::Compile has created everything before, too
|
# Load all classes - XML::Compile has created everything before, too
|
||||||
#timethis 100, sub { $soap->ListPerson({}) };
|
timethis 150, sub { $soap->ListPerson({}) };
|
||||||
#timethis 50, sub { push @data, $soap->ListPerson({}) };
|
timethis 300, sub { push @data, $soap->ListPerson({}) };
|
||||||
#@data = ();
|
@data = ();
|
||||||
# timethis 50, sub { push @data, $soap->ListPerson({}) };
|
timethis 300, sub { push @data, $soap->ListPerson({}) };
|
||||||
|
|
||||||
# for (1..50) { push @data, $soap->ListPerson({}) };
|
# for (1..50) { push @data, $soap->ListPerson({}) };
|
||||||
#print $soap->ListPerson({});
|
#print $soap->ListPerson({});
|
||||||
|
|||||||
Regular → Executable
Regular → Executable
+43
-19
@@ -10,15 +10,14 @@ use Carp;
|
|||||||
use Scalar::Util qw(blessed);
|
use Scalar::Util qw(blessed);
|
||||||
use SOAP::WSDL::Client;
|
use SOAP::WSDL::Client;
|
||||||
use SOAP::WSDL::Expat::WSDLParser;
|
use SOAP::WSDL::Expat::WSDLParser;
|
||||||
use Class::Std::Fast;
|
use Class::Std::Fast constructor => 'none';
|
||||||
use SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;
|
use SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;
|
||||||
use LWP::UserAgent;
|
use LWP::UserAgent;
|
||||||
|
|
||||||
use version; our $VERSION= qv('2.00.02');
|
use version; our $VERSION= qv('2.00.03');
|
||||||
|
|
||||||
my %no_dispatch_of :ATTR(:name<no_dispatch>);
|
my %no_dispatch_of :ATTR(:name<no_dispatch>);
|
||||||
my %wsdl_of :ATTR(:name<wsdl>);
|
my %wsdl_of :ATTR(:name<wsdl>);
|
||||||
my %proxy_of :ATTR(:name<proxy>);
|
|
||||||
my %autotype_of :ATTR(:name<autotype>);
|
my %autotype_of :ATTR(:name<autotype>);
|
||||||
my %outputxml_of :ATTR(:name<outputxml> :default<0>);
|
my %outputxml_of :ATTR(:name<outputxml> :default<0>);
|
||||||
my %outputtree_of :ATTR(:name<outputtree>);
|
my %outputtree_of :ATTR(:name<outputtree>);
|
||||||
@@ -42,7 +41,6 @@ my %LOOKUP = (
|
|||||||
no_dispatch => \%no_dispatch_of,
|
no_dispatch => \%no_dispatch_of,
|
||||||
class_resolver => \%class_resolver_of,
|
class_resolver => \%class_resolver_of,
|
||||||
wsdl => \%wsdl_of,
|
wsdl => \%wsdl_of,
|
||||||
proxy => \%proxy_of,
|
|
||||||
autotype => \%autotype_of,
|
autotype => \%autotype_of,
|
||||||
outputxml => \%outputxml_of,
|
outputxml => \%outputxml_of,
|
||||||
outputtree => \%outputtree_of,
|
outputtree => \%outputtree_of,
|
||||||
@@ -94,12 +92,30 @@ for my $method (keys %LOOKUP ) {
|
|||||||
}
|
}
|
||||||
|
|
||||||
my $ident = ident $self;
|
my $ident = ident $self;
|
||||||
$self->wsdlinit() if ($wsdl_of{ $ident });
|
|
||||||
$client_of{ $ident } = SOAP::WSDL::Client->new();
|
$client_of{ $ident } = SOAP::WSDL::Client->new();
|
||||||
|
$self->wsdlinit() if ($wsdl_of{ $ident });
|
||||||
return $self;
|
return $self;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
sub set_proxy {
|
||||||
|
my $self = shift;
|
||||||
|
return $self->get_client()->set_proxy(@_);
|
||||||
|
}
|
||||||
|
|
||||||
|
sub get_proxy {
|
||||||
|
my $self = shift;
|
||||||
|
return $self->get_client()->get_proxy();
|
||||||
|
}
|
||||||
|
|
||||||
|
sub proxy {
|
||||||
|
my $self = shift;
|
||||||
|
if (@_) {
|
||||||
|
return $self->set_proxy(@_);
|
||||||
|
}
|
||||||
|
return $self->get_proxy();
|
||||||
|
}
|
||||||
|
|
||||||
sub wsdlinit {
|
sub wsdlinit {
|
||||||
my ($self, %opt) = @_;
|
my ($self, %opt) = @_;
|
||||||
my $ident = ident $self;
|
my $ident = ident $self;
|
||||||
@@ -132,6 +148,15 @@ sub wsdlinit {
|
|||||||
|
|
||||||
$servicename_of{ $ident } = $opt{servicename} if $opt{servicename};
|
$servicename_of{ $ident } = $opt{servicename} if $opt{servicename};
|
||||||
$portname_of{ $ident } = $opt{portname} if $opt{portname};
|
$portname_of{ $ident } = $opt{portname} if $opt{portname};
|
||||||
|
|
||||||
|
$self->_wsdl_init_methods();
|
||||||
|
|
||||||
|
# pass-through keep_alive if we need it...
|
||||||
|
$self->get_client()->set_proxy(
|
||||||
|
$port_of{ $ident }->first_address()->get_location(),
|
||||||
|
$keep_alive_of{ $ident } ? (keep_alive => 1) : (),
|
||||||
|
);
|
||||||
|
|
||||||
return $self;
|
return $self;
|
||||||
} ## end sub wsdlinit
|
} ## end sub wsdlinit
|
||||||
|
|
||||||
@@ -151,6 +176,7 @@ sub _wsdl_get_port :PRIVATE {
|
|||||||
? $service_of{ $ident }->get_port( $ns, $portname_of{ $ident } )
|
? $service_of{ $ident }->get_port( $ns, $portname_of{ $ident } )
|
||||||
: $port_of{ $ident } = $service_of{ $ident }->get_port()->[ 0 ];
|
: $port_of{ $ident } = $service_of{ $ident }->get_port()->[ 0 ];
|
||||||
}
|
}
|
||||||
|
|
||||||
sub _wsdl_get_binding :PRIVATE {
|
sub _wsdl_get_binding :PRIVATE {
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
my $ident = ident $self;
|
my $ident = ident $self;
|
||||||
@@ -160,6 +186,7 @@ sub _wsdl_get_binding :PRIVATE {
|
|||||||
or croak "no binding found for ", $port->get_binding();
|
or croak "no binding found for ", $port->get_binding();
|
||||||
return $binding_of{ $ident };
|
return $binding_of{ $ident };
|
||||||
}
|
}
|
||||||
|
|
||||||
sub _wsdl_get_portType :PRIVATE {
|
sub _wsdl_get_portType :PRIVATE {
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
my $ident = ident $self;
|
my $ident = ident $self;
|
||||||
@@ -169,6 +196,7 @@ sub _wsdl_get_portType :PRIVATE {
|
|||||||
or croak "cannot find portType for " . $binding->get_type();
|
or croak "cannot find portType for " . $binding->get_type();
|
||||||
return $porttype_of{ $ident };
|
return $porttype_of{ $ident };
|
||||||
}
|
}
|
||||||
|
|
||||||
sub _wsdl_init_methods :PRIVATE {
|
sub _wsdl_init_methods :PRIVATE {
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
my $ident = ident $self;
|
my $ident = ident $self;
|
||||||
@@ -259,12 +287,6 @@ sub call {
|
|||||||
|
|
||||||
my $client = $client_of{ $ident };
|
my $client = $client_of{ $ident };
|
||||||
|
|
||||||
# pass-through keep_alive if we need it...
|
|
||||||
$client->set_proxy( $proxy_of{ $ident }
|
|
||||||
|| $port_of{ $ident }->first_address()->get_location(),
|
|
||||||
$keep_alive_of{ $ident } ? (keep_alive => 1) : (),
|
|
||||||
);
|
|
||||||
|
|
||||||
$client->set_no_dispatch( $no_dispatch_of{ $ident } );
|
$client->set_no_dispatch( $no_dispatch_of{ $ident } );
|
||||||
$client->set_outputxml( $outputxml_of{ $ident } ? 1 : 0 );
|
$client->set_outputxml( $outputxml_of{ $ident } ? 1 : 0 );
|
||||||
|
|
||||||
@@ -772,8 +794,6 @@ Peter Orvos, Mark Overmeer, Jon Robens, Isidro Vila Verde and Glenn Wood
|
|||||||
(in alphabetical order) spotted bugs and/or suggested improvements in
|
(in alphabetical order) spotted bugs and/or suggested improvements in
|
||||||
the 1.2x releases.
|
the 1.2x releases.
|
||||||
|
|
||||||
Noah Robin contirbuted lots of documentation fixes, and the mod_perl server.
|
|
||||||
|
|
||||||
JT Justman and Noah Robin provided early feedback and bug reports for
|
JT Justman and Noah Robin provided early feedback and bug reports for
|
||||||
the 2.xx pre-releases.
|
the 2.xx pre-releases.
|
||||||
|
|
||||||
@@ -786,13 +806,17 @@ Matt S. Trout encouraged me "to get a non-dev-release out."
|
|||||||
|
|
||||||
CPAN Testers provided most valuable (automated) feedback. Thanks a lot.
|
CPAN Testers provided most valuable (automated) feedback. Thanks a lot.
|
||||||
|
|
||||||
Numerous people sent me their real-world WSDL files for testing. Thank you.
|
Numerous people sent me their real-world WSDL files and error reports for
|
||||||
|
testing. Thank you.
|
||||||
|
|
||||||
|
Noah Robin contributed lots of documentation fixes, and the mod_perl server,
|
||||||
|
and eventually joined SOAP::WSDL's developement. Thanks.
|
||||||
|
|
||||||
|
Mark Overmeer wrote XML::Compile::SOAP - competition is good for business.
|
||||||
|
|
||||||
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.
|
thus provided a base (and counterpart) for SOAP::WSDL.
|
||||||
|
|
||||||
Mark Overmeer wrote XML::Compile::SOAP - competition is good for business.
|
|
||||||
|
|
||||||
=head1 LICENSE AND COPYRIGHT
|
=head1 LICENSE AND COPYRIGHT
|
||||||
|
|
||||||
Copyright 2004-2008 Martin Kutter.
|
Copyright 2004-2008 Martin Kutter.
|
||||||
@@ -806,9 +830,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 672 $
|
$Rev: 694 $
|
||||||
$LastChangedBy: kutterma $
|
$LastChangedBy: kutterma $
|
||||||
$Id: WSDL.pm 672 2008-05-16 09:37:59Z kutterma $
|
$Id: WSDL.pm 694 2008-05-25 21:06:56Z kutterma $
|
||||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL.pm $
|
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|||||||
+25
-12
@@ -5,11 +5,12 @@ use Class::Std::Fast::Storable;
|
|||||||
use List::Util qw(first);
|
use List::Util qw(first);
|
||||||
use Carp qw(croak carp confess);
|
use Carp qw(croak carp confess);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
my %id_of :ATTR(:name<id> :default<()>);
|
my %id_of :ATTR(:name<id> :default<()>);
|
||||||
my %lang_of :ATTR(:name<lang> :default<()>);
|
my %lang_of :ATTR(:name<lang> :default<()>);
|
||||||
my %name_of :ATTR(:name<name> :default<()>);
|
my %name_of :ATTR(:name<name> :default<()>);
|
||||||
|
my %namespace_of :ATTR(:name<namespace> :default<()>);
|
||||||
my %documentation_of :ATTR(:name<documentation> :default<()>);
|
my %documentation_of :ATTR(:name<documentation> :default<()>);
|
||||||
my %annotation_of :ATTR(:name<annotation> :default<()>);
|
my %annotation_of :ATTR(:name<annotation> :default<()>);
|
||||||
my %targetNamespace_of :ATTR(:name<targetNamespace> :default<()>);
|
my %targetNamespace_of :ATTR(:name<targetNamespace> :default<()>);
|
||||||
@@ -24,7 +25,6 @@ sub namespaces {
|
|||||||
|
|
||||||
sub START {
|
sub START {
|
||||||
my ($self, $ident, $arg_ref) = @_;
|
my ($self, $ident, $arg_ref) = @_;
|
||||||
#$xmlns_of{ $ident }->{ '#default' } = $self->get_xmlns()->{ '#default' };
|
|
||||||
$xmlns_of{ $ident }->{ 'xml' } = 'http://www.w3.org/XML/1998/namespace';
|
$xmlns_of{ $ident }->{ 'xml' } = 'http://www.w3.org/XML/1998/namespace';
|
||||||
$namespaces_of{ $ident }->{ '#default' } = $self->get_xmlns()->{ '#default' };
|
$namespaces_of{ $ident }->{ '#default' } = $self->get_xmlns()->{ '#default' };
|
||||||
$namespaces_of{ $ident }->{ 'xml' } = 'http://www.w3.org/XML/1998/namespace';
|
$namespaces_of{ $ident }->{ 'xml' } = 'http://www.w3.org/XML/1998/namespace';
|
||||||
@@ -38,10 +38,11 @@ sub DEMOLISH {
|
|||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
|
|
||||||
sub STORABLE_freeze_pre :CUMULATIVE {};
|
#
|
||||||
sub STORABLE_freeze_post :CUMULATIVE {};
|
#sub STORABLE_freeze_pre :CUMULATIVE {};
|
||||||
sub STORABLE_thaw_pre :CUMULATIVE {};
|
#sub STORABLE_freeze_post :CUMULATIVE {};
|
||||||
sub STORABLE_thaw_post :CUMULATIVE { return $_[0] };
|
#sub STORABLE_thaw_pre :CUMULATIVE {};
|
||||||
|
#sub STORABLE_thaw_post :CUMULATIVE { return $_[0] };
|
||||||
|
|
||||||
sub _accept {
|
sub _accept {
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
@@ -109,15 +110,24 @@ sub AUTOMETHOD {
|
|||||||
|
|
||||||
sub init {
|
sub init {
|
||||||
my ($self, @args) = @_;
|
my ($self, @args) = @_;
|
||||||
foreach my $value (@args)
|
foreach my $value (@args) {
|
||||||
{
|
|
||||||
croak @args if (not defined ($value->{ Name }));
|
croak @args if (not defined ($value->{ Name }));
|
||||||
|
|
||||||
if ($value->{ Name } =~m{^xmlns\:}xms) {
|
if ($value->{ Name } =~m{^xmlns\:}xms) {
|
||||||
# add namespaces
|
# add namespaces
|
||||||
$xmlns_of{ ident $self }->{ $value->{ LocalName } } = $value->{ Value };
|
$xmlns_of{ ident $self }->{ $value->{ LocalName } } = $value->{ Value };
|
||||||
next;
|
next;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
# check for namespae-qualified attributes.
|
||||||
|
# neither XML Schema, nor WSDL1.1, nor the SOAP binding allow
|
||||||
|
# namespace-qualified attribute names
|
||||||
|
my ($ns, $localname) = split /\|/, $value->{ Name };
|
||||||
|
if ($ns) {
|
||||||
|
warn "found unrecognised attribute \{$ns}$localname (ignored)";
|
||||||
|
next;
|
||||||
|
}
|
||||||
|
|
||||||
my $name = $value->{ LocalName };
|
my $name = $value->{ LocalName };
|
||||||
my $method = "set_$name";
|
my $method = "set_$name";
|
||||||
$self->$method( $value->{ Value } );
|
$self->$method( $value->{ Value } );
|
||||||
@@ -128,12 +138,15 @@ sub init {
|
|||||||
sub expand {
|
sub expand {
|
||||||
my ($self, $qname) = @_;
|
my ($self, $qname) = @_;
|
||||||
my $ns_of = $self->namespaces();
|
my $ns_of = $self->namespaces();
|
||||||
|
my $parent;
|
||||||
if (not $qname=~m{:}xm) {
|
if (not $qname=~m{:}xm) {
|
||||||
if (defined $ns_of->{ '#default' }) {
|
if (defined $ns_of->{ '#default' }) {
|
||||||
return $self->get_targetNamespace(), $qname;
|
# TODO check. Returning the targetNamespace for the default ns
|
||||||
# return $ns_of->{ '#default' }, $qname;
|
# is probably wrong
|
||||||
|
#return $self->get_targetNamespace(), $qname;
|
||||||
|
return $ns_of->{ '#default' }, $qname;
|
||||||
}
|
}
|
||||||
if (my $parent = $self->get_parent()) {
|
if ($parent = $self->get_parent()) {
|
||||||
return $parent->expand($qname);
|
return $parent->expand($qname);
|
||||||
}
|
}
|
||||||
die "un-prefixed element name <$qname> found, but no default namespace set\n"
|
die "un-prefixed element name <$qname> found, but no default namespace set\n"
|
||||||
@@ -142,7 +155,7 @@ sub expand {
|
|||||||
my ($prefix, $localname) = split /:/x, $qname;
|
my ($prefix, $localname) = split /:/x, $qname;
|
||||||
|
|
||||||
return ($ns_of->{ $prefix }, $localname) if ($ns_of->{ $prefix });
|
return ($ns_of->{ $prefix }, $localname) if ($ns_of->{ $prefix });
|
||||||
if (my $parent = $self->get_parent()) {
|
if ($parent = $self->get_parent()) {
|
||||||
return $parent->expand($qname);
|
return $parent->expand($qname);
|
||||||
}
|
}
|
||||||
croak "unbound prefix $prefix found for $prefix:$localname. Bound prefixes are "
|
croak "unbound prefix $prefix found for $prefix:$localname. Bound prefixes are "
|
||||||
|
|||||||
@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
|
|||||||
use List::Util qw(first);
|
use List::Util qw(first);
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
my %operation_of :ATTR(:name<operation> :default<()>);
|
my %operation_of :ATTR(:name<operation> :default<()>);
|
||||||
my %type_of :ATTR(:name<type> :default<()>);
|
my %type_of :ATTR(:name<type> :default<()>);
|
||||||
|
|||||||
@@ -11,7 +11,7 @@ use SOAP::WSDL::Factory::Serializer;
|
|||||||
use SOAP::WSDL::Factory::Transport;
|
use SOAP::WSDL::Factory::Transport;
|
||||||
use SOAP::WSDL::Expat::MessageParser;
|
use SOAP::WSDL::Expat::MessageParser;
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
my %class_resolver_of :ATTR(:name<class_resolver> :default<()>);
|
my %class_resolver_of :ATTR(:name<class_resolver> :default<()>);
|
||||||
my %no_dispatch_of :ATTR(:name<no_dispatch> :default<()>);
|
my %no_dispatch_of :ATTR(:name<no_dispatch> :default<()>);
|
||||||
@@ -395,10 +395,10 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 672 $
|
$Rev: 677 $
|
||||||
$LastChangedBy: kutterma $
|
$LastChangedBy: kutterma $
|
||||||
$Id: Client.pm 672 2008-05-16 09:37:59Z kutterma $
|
$Id: Client.pm 677 2008-05-18 20:17:56Z kutterma $
|
||||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client.pm $
|
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use base 'SOAP::WSDL::Client';
|
use base 'SOAP::WSDL::Client';
|
||||||
use Scalar::Util qw(blessed);
|
use Scalar::Util qw(blessed);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
sub call {
|
sub call {
|
||||||
my ($self, $method, $body, $header) = @_;
|
my ($self, $method, $body, $header) = @_;
|
||||||
@@ -65,6 +65,13 @@ SOAP::WSDL::Client::Base - Factory class for WSDL-based SOAP access
|
|||||||
Factory class for creating interface classes. Should probably be renamed to
|
Factory class for creating interface classes. Should probably be renamed to
|
||||||
SOAP::WSDL::Factory::Interface...
|
SOAP::WSDL::Factory::Interface...
|
||||||
|
|
||||||
|
=head1 METHODS
|
||||||
|
|
||||||
|
=head2 call
|
||||||
|
|
||||||
|
Abstraction layer method between the generated interfaces and
|
||||||
|
L<SOAP::WSDL::Client|SOAP::WSDL::Client>.
|
||||||
|
|
||||||
=head1 LICENSE AND COPYRIGHT
|
=head1 LICENSE AND COPYRIGHT
|
||||||
|
|
||||||
Copyright 2004-2007 Martin Kutter.
|
Copyright 2004-2007 Martin Kutter.
|
||||||
@@ -78,9 +85,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 672 $
|
$Rev: 689 $
|
||||||
$LastChangedBy: kutterma $
|
$LastChangedBy: kutterma $
|
||||||
$Id: Base.pm 672 2008-05-16 09:37:59Z kutterma $
|
$Id: Base.pm 689 2008-05-23 22:11:46Z kutterma $
|
||||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client/Base.pm $
|
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client/Base.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|||||||
@@ -9,7 +9,7 @@ use List::Util qw(first);
|
|||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
my %types_of :ATTR(:name<types> :default<[]>);
|
my %types_of :ATTR(:name<types> :default<[]>);
|
||||||
my %message_of :ATTR(:name<message> :default<[]>);
|
my %message_of :ATTR(:name<message> :default<[]>);
|
||||||
@@ -72,7 +72,7 @@ Returns the service matching the namespace/localname pair passed as arguments.
|
|||||||
Accessors/Mutators for accessing / setting the E<gt>bindingE<lt> child
|
Accessors/Mutators for accessing / setting the E<gt>bindingE<lt> child
|
||||||
element(s).
|
element(s).
|
||||||
|
|
||||||
=head2 find_service
|
=head2 find_binding
|
||||||
|
|
||||||
Returns the binding matching the namespace/localname pair passed as arguments.
|
Returns the binding matching the namespace/localname pair passed as arguments.
|
||||||
|
|
||||||
@@ -94,7 +94,7 @@ Returns the portType matching the namespace/localname pair passed as arguments.
|
|||||||
Accessors/Mutators for accessing / setting the E<gt>messageE<lt> child
|
Accessors/Mutators for accessing / setting the E<gt>messageE<lt> child
|
||||||
element(s).
|
element(s).
|
||||||
|
|
||||||
=head2 find_service
|
=head2 find_message
|
||||||
|
|
||||||
Returns the message matching the namespace/localname pair passed as arguments.
|
Returns the message matching the namespace/localname pair passed as arguments.
|
||||||
|
|
||||||
@@ -118,10 +118,10 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 672 $
|
$Rev: 689 $
|
||||||
$LastChangedBy: kutterma $
|
$LastChangedBy: kutterma $
|
||||||
$Id: Definitions.pm 672 2008-05-16 09:37:59Z kutterma $
|
$Id: Definitions.pm 689 2008-05-23 22:11:46Z kutterma $
|
||||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Definitions.pm $
|
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Definitions.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|
||||||
|
|||||||
@@ -8,7 +8,7 @@ use SOAP::WSDL::Expat::Message2Hash;
|
|||||||
use SOAP::WSDL::Factory::Deserializer;
|
use SOAP::WSDL::Factory::Deserializer;
|
||||||
SOAP::WSDL::Factory::Deserializer->register( '1.1', __PACKAGE__ );
|
SOAP::WSDL::Factory::Deserializer->register( '1.1', __PACKAGE__ );
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
sub BUILD {
|
sub BUILD {
|
||||||
my ($self, $ident, $args_of_ref) = @_;
|
my ($self, $ident, $args_of_ref) = @_;
|
||||||
@@ -139,9 +139,20 @@ a parse error appears
|
|||||||
|
|
||||||
=back
|
=back
|
||||||
|
|
||||||
|
=head1 METHODS
|
||||||
|
|
||||||
|
=head2 deserialize
|
||||||
|
|
||||||
|
Deserializes the message.
|
||||||
|
|
||||||
|
=head2 generate_fault
|
||||||
|
|
||||||
|
Generates a L<SOAP::WSDL::SOAP::Typelib::Fault11|SOAP::WSDL::SOAP::Typelib::Fault11>
|
||||||
|
object and returns it.
|
||||||
|
|
||||||
=head1 LICENSE AND COPYRIGHT
|
=head1 LICENSE AND COPYRIGHT
|
||||||
|
|
||||||
Copyright 2004-2007 Martin Kutter.
|
Copyright 2004-2008 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.
|
the same terms as perl itself.
|
||||||
@@ -152,9 +163,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 672 $
|
$Rev: 689 $
|
||||||
$LastChangedBy: kutterma $
|
$LastChangedBy: kutterma $
|
||||||
$Id: Hash.pm 672 2008-05-16 09:37:59Z kutterma $
|
$Id: Hash.pm 689 2008-05-23 22:11:46Z kutterma $
|
||||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/Hash.pm $
|
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/Hash.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|||||||
@@ -2,7 +2,7 @@ package SOAP::WSDL::Deserializer::SOM;
|
|||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
our @ISA;
|
our @ISA;
|
||||||
|
|
||||||
eval {
|
eval {
|
||||||
@@ -114,9 +114,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 672 $
|
$Rev: 677 $
|
||||||
$LastChangedBy: kutterma $
|
$LastChangedBy: kutterma $
|
||||||
$Id: SOM.pm 672 2008-05-16 09:37:59Z kutterma $
|
$Id: SOM.pm 677 2008-05-18 20:17:56Z kutterma $
|
||||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/SOM.pm $
|
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/SOM.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|||||||
@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
|
|||||||
use SOAP::WSDL::SOAP::Typelib::Fault11;
|
use SOAP::WSDL::SOAP::Typelib::Fault11;
|
||||||
use SOAP::WSDL::Expat::MessageParser;
|
use SOAP::WSDL::Expat::MessageParser;
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
my %class_resolver_of :ATTR(:name<class_resolver> :default<()>);
|
my %class_resolver_of :ATTR(:name<class_resolver> :default<()>);
|
||||||
|
|
||||||
@@ -99,9 +99,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 672 $
|
$Rev: 677 $
|
||||||
$LastChangedBy: kutterma $
|
$LastChangedBy: kutterma $
|
||||||
$Id: XSD.pm 672 2008-05-16 09:37:59Z kutterma $
|
$Id: XSD.pm 677 2008-05-18 20:17:56Z kutterma $
|
||||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/XSD.pm $
|
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/XSD.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|||||||
@@ -6,7 +6,7 @@ use XML::Parser::Expat;
|
|||||||
|
|
||||||
# TODO: convert to Class::Std::Fast based class - hash based classes suck.
|
# TODO: convert to Class::Std::Fast based class - hash based classes suck.
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
sub new {
|
sub new {
|
||||||
my ($class, $arg_ref) = @_;
|
my ($class, $arg_ref) = @_;
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use strict;
|
|||||||
use warnings;
|
use warnings;
|
||||||
use base qw(SOAP::WSDL::Expat::Base);
|
use base qw(SOAP::WSDL::Expat::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
sub _initialize {
|
sub _initialize {
|
||||||
my ($self, $parser) = @_;
|
my ($self, $parser) = @_;
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use strict;
|
|||||||
use warnings;
|
use warnings;
|
||||||
use Carp qw(croak confess);
|
use Carp qw(croak confess);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
use SOAP::WSDL::XSD::Typelib::Builtin;
|
use SOAP::WSDL::XSD::Typelib::Builtin;
|
||||||
use SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;
|
use SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;
|
||||||
@@ -319,11 +319,11 @@ the same terms as perl itself
|
|||||||
|
|
||||||
=head1 Repository information
|
=head1 Repository information
|
||||||
|
|
||||||
$Id: MessageParser.pm 672 2008-05-16 09:37:59Z kutterma $
|
$Id: MessageParser.pm 677 2008-05-18 20:17:56Z kutterma $
|
||||||
|
|
||||||
$LastChangedDate: 2008-05-16 11:37:59 +0200 (Fr, 16 Mai 2008) $
|
$LastChangedDate: 2008-05-18 22:17:56 +0200 (So, 18 Mai 2008) $
|
||||||
$LastChangedRevision: 672 $
|
$LastChangedRevision: 677 $
|
||||||
$LastChangedBy: kutterma $
|
$LastChangedBy: kutterma $
|
||||||
|
|
||||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageParser.pm $
|
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageParser.pm $
|
||||||
|
|
||||||
|
|||||||
@@ -6,7 +6,7 @@ use XML::Parser::Expat;
|
|||||||
use SOAP::WSDL::Expat::MessageParser;
|
use SOAP::WSDL::Expat::MessageParser;
|
||||||
use base qw(SOAP::WSDL::Expat::MessageParser);
|
use base qw(SOAP::WSDL::Expat::MessageParser);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
sub parse_start {
|
sub parse_start {
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
@@ -69,9 +69,9 @@ the same terms as perl itself
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 672 $
|
$Rev: 701 $
|
||||||
$LastChangedBy: kutterma $
|
$LastChangedBy: kutterma $
|
||||||
$Id: MessageStreamParser.pm 672 2008-05-16 09:37:59Z kutterma $
|
$Id: MessageStreamParser.pm 701 2008-06-05 19:19:16Z kutterma $
|
||||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageStreamParser.pm $
|
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageStreamParser.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|||||||
@@ -5,7 +5,7 @@ use Carp;
|
|||||||
use SOAP::WSDL::TypeLookup;
|
use SOAP::WSDL::TypeLookup;
|
||||||
use base qw(SOAP::WSDL::Expat::Base);
|
use base qw(SOAP::WSDL::Expat::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
sub _import_children {
|
sub _import_children {
|
||||||
my ($self, $name, $imported, $importer, $import_namespace) = @_;
|
my ($self, $name, $imported, $importer, $import_namespace) = @_;
|
||||||
@@ -140,7 +140,7 @@ sub _initialize {
|
|||||||
# TODO skip non-XML Schema namespace tags
|
# TODO skip non-XML Schema namespace tags
|
||||||
$parser->setHandlers(
|
$parser->setHandlers(
|
||||||
Start => sub {
|
Start => sub {
|
||||||
my ($parser, $localname, %attrs) = @_;
|
my ($parser, $localname, @attrs) = @_;
|
||||||
$characters = q{};
|
$characters = q{};
|
||||||
|
|
||||||
my $action = SOAP::WSDL::TypeLookup->lookup(
|
my $action = SOAP::WSDL::TypeLookup->lookup(
|
||||||
@@ -154,10 +154,11 @@ sub _initialize {
|
|||||||
eval "require $action->{ class }";
|
eval "require $action->{ class }";
|
||||||
croak $@ if ($@);
|
croak $@ if ($@);
|
||||||
|
|
||||||
my $obj = $action->{ class }->new({ parent => $current,
|
my $obj = $action->{ class }->new({
|
||||||
# xmlns => { '#default' => $parser->namespace($localname) }
|
parent => $current,
|
||||||
|
namespace => $parser->namespace($localname),
|
||||||
})
|
})
|
||||||
->init( _fixup_attrs( $parser, %attrs ) );
|
->init( _fixup_attrs( $parser, @attrs ) );
|
||||||
|
|
||||||
if ($current) {
|
if ($current) {
|
||||||
# inherit namespace, but don't override
|
# inherit namespace, but don't override
|
||||||
@@ -180,7 +181,7 @@ sub _initialize {
|
|||||||
$current = $obj;
|
$current = $obj;
|
||||||
}
|
}
|
||||||
elsif ($action->{ type } eq 'PARENT') {
|
elsif ($action->{ type } eq 'PARENT') {
|
||||||
$current->init( _fixup_attrs($parser, %attrs) );
|
$current->init( _fixup_attrs($parser, @attrs) );
|
||||||
}
|
}
|
||||||
elsif ($action->{ type } eq 'METHOD') {
|
elsif ($action->{ type } eq 'METHOD') {
|
||||||
my $method = $action->{ method };
|
my $method = $action->{ method };
|
||||||
@@ -196,12 +197,12 @@ sub _initialize {
|
|||||||
? ref $action->{ value }
|
? ref $action->{ value }
|
||||||
? @{ $action->{ value } }
|
? @{ $action->{ value } }
|
||||||
: ($action->{ value })
|
: ($action->{ value })
|
||||||
: _fixup_attrs($parser, %attrs)
|
: _fixup_attrs($parser, @attrs)
|
||||||
);
|
);
|
||||||
}
|
}
|
||||||
elsif ($action->{type} eq 'HANDLER') {
|
elsif ($action->{type} eq 'HANDLER') {
|
||||||
my $method = $self->can($action->{method});
|
my $method = $self->can($action->{method});
|
||||||
$method->($self, $current, %attrs);
|
$method->($self, $current, @attrs);
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
# TODO replace by hash lookup of known namespaces.
|
# TODO replace by hash lookup of known namespaces.
|
||||||
@@ -249,30 +250,41 @@ sub _initialize {
|
|||||||
|
|
||||||
# make attrs SAX style
|
# make attrs SAX style
|
||||||
sub _fixup_attrs {
|
sub _fixup_attrs {
|
||||||
my ($parser, %attrs_of) = @_;
|
my ($parser, @attrs) = @_;
|
||||||
|
|
||||||
my @attrs_from = map {
|
my @attr_key_from = ();
|
||||||
$_ =
|
my @attr_value_from = ();
|
||||||
{
|
|
||||||
Name => $_,
|
while (@attrs) {
|
||||||
Value => $attrs_of{ $_ },
|
push @attr_key_from, shift @attrs;
|
||||||
LocalName => $_
|
push @attr_value_from, shift @attrs;
|
||||||
}
|
}
|
||||||
} keys %attrs_of;
|
|
||||||
|
my @attrs_from;
|
||||||
|
|
||||||
# add xmlns: attrs. expat eats them.
|
# add xmlns: attrs. expat eats them.
|
||||||
|
#
|
||||||
|
# add namespaces before attributes: Attributes may be namespace-qualified
|
||||||
|
#
|
||||||
push @attrs_from, map {
|
push @attrs_from, map {
|
||||||
# ignore xmlns=FOO namespaces - must be XML schema
|
|
||||||
# # Other nodes should be ignored somewhere else
|
|
||||||
# ($_ eq '#default')
|
|
||||||
# ? ()
|
|
||||||
# :
|
|
||||||
{
|
{
|
||||||
Name => "xmlns:$_",
|
Name => "xmlns:$_",
|
||||||
Value => $parser->expand_ns_prefix( $_ ),
|
Value => $parser->expand_ns_prefix( $_ ),
|
||||||
LocalName => $_
|
LocalName => $_
|
||||||
}
|
}
|
||||||
} $parser->new_ns_prefixes();
|
} $parser->new_ns_prefixes();
|
||||||
|
|
||||||
|
push @attrs_from, map {
|
||||||
|
$_ =
|
||||||
|
{
|
||||||
|
Name => defined $parser->namespace($_)
|
||||||
|
? $parser->namespace($_) . '|' . $_
|
||||||
|
: '|' . $_,
|
||||||
|
Value => shift @attr_value_from, # $attrs_of{ $_ },
|
||||||
|
LocalName => $_
|
||||||
|
}
|
||||||
|
} @attr_key_from;
|
||||||
|
|
||||||
return @attrs_from;
|
return @attrs_from;
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -310,11 +322,11 @@ the same terms as perl itself
|
|||||||
|
|
||||||
=head1 Repository information
|
=head1 Repository information
|
||||||
|
|
||||||
$Id: WSDLParser.pm 672 2008-05-16 09:37:59Z kutterma $
|
$Id: WSDLParser.pm 688 2008-05-23 21:01:54Z kutterma $
|
||||||
|
|
||||||
$LastChangedDate: 2008-05-16 11:37:59 +0200 (Fr, 16 Mai 2008) $
|
$LastChangedDate: 2008-05-23 23:01:54 +0200 (Fr, 23 Mai 2008) $
|
||||||
$LastChangedRevision: 672 $
|
$LastChangedRevision: 688 $
|
||||||
$LastChangedBy: kutterma $
|
$LastChangedBy: kutterma $
|
||||||
|
|
||||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/WSDLParser.pm $
|
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/WSDLParser.pm $
|
||||||
|
|
||||||
|
|||||||
@@ -2,7 +2,7 @@ package SOAP::WSDL::Factory::Deserializer;
|
|||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
my %DESERIALIZER = (
|
my %DESERIALIZER = (
|
||||||
'1.1' => 'SOAP::WSDL::Deserializer::XSD',
|
'1.1' => 'SOAP::WSDL::Deserializer::XSD',
|
||||||
|
|||||||
@@ -2,7 +2,7 @@ package SOAP::WSDL::Factory::Generator;
|
|||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
my %GENERATOR = (
|
my %GENERATOR = (
|
||||||
'XSD' => 'SOAP::WSDL::Generator::Template::XSD',
|
'XSD' => 'SOAP::WSDL::Generator::Template::XSD',
|
||||||
|
|||||||
@@ -2,7 +2,7 @@ package SOAP::WSDL::Factory::Serializer;
|
|||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
my %SERIALIZER = (
|
my %SERIALIZER = (
|
||||||
'1.1' => 'SOAP::WSDL::Serializer::XSD',
|
'1.1' => 'SOAP::WSDL::Serializer::XSD',
|
||||||
@@ -138,9 +138,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 672 $
|
$Rev: 677 $
|
||||||
$LastChangedBy: kutterma $
|
$LastChangedBy: kutterma $
|
||||||
$Id: Serializer.pm 672 2008-05-16 09:37:59Z kutterma $
|
$Id: Serializer.pm 677 2008-05-18 20:17:56Z kutterma $
|
||||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Serializer.pm $
|
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Serializer.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|||||||
@@ -1,7 +1,7 @@
|
|||||||
package SOAP::WSDL::Factory::Transport;
|
package SOAP::WSDL::Factory::Transport;
|
||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
my %registered_transport_of = ();
|
my %registered_transport_of = ();
|
||||||
|
|
||||||
@@ -39,7 +39,7 @@ sub get_transport {
|
|||||||
|
|
||||||
if (defined $registered_transport_of{ $scheme }) {
|
if (defined $registered_transport_of{ $scheme }) {
|
||||||
no strict qw(refs);
|
no strict qw(refs);
|
||||||
defined %{ "$registered_transport_of{ $scheme }::" } or
|
$registered_transport_of{ $scheme }->can('new') or
|
||||||
eval "require $registered_transport_of{ $scheme }"
|
eval "require $registered_transport_of{ $scheme }"
|
||||||
or die "Cannot load transport class $registered_transport_of{ $scheme } : $@";
|
or die "Cannot load transport class $registered_transport_of{ $scheme } : $@";
|
||||||
|
|
||||||
@@ -60,11 +60,11 @@ sub get_transport {
|
|||||||
no strict qw(refs);
|
no strict qw(refs);
|
||||||
# behaves interestingly different under different versions of perl
|
# behaves interestingly different under different versions of perl
|
||||||
# maybe true even if it's not available
|
# maybe true even if it's not available
|
||||||
defined %{ "$SOAP_LITE_TRANSPORT_OF{ $scheme }::" }
|
my $protocol_class = $SOAP_LITE_TRANSPORT_OF{ $scheme } . '::Client';
|
||||||
|
$protocol_class->can('new')
|
||||||
or eval "require $SOAP_LITE_TRANSPORT_OF{ $scheme }"
|
or eval "require $SOAP_LITE_TRANSPORT_OF{ $scheme }"
|
||||||
or last SOAP_Lite;
|
or last SOAP_Lite;
|
||||||
|
|
||||||
my $protocol_class = $SOAP_LITE_TRANSPORT_OF{ $scheme } . '::Client';
|
|
||||||
# may fail if it's not available
|
# may fail if it's not available
|
||||||
my $transport = eval { $protocol_class->new( %attrs ) }
|
my $transport = eval { $protocol_class->new( %attrs ) }
|
||||||
or last SOAP_Lite;
|
or last SOAP_Lite;
|
||||||
@@ -74,7 +74,7 @@ sub get_transport {
|
|||||||
|
|
||||||
if (exists $SOAP_WSDL_TRANSPORT_OF{ $scheme }) {
|
if (exists $SOAP_WSDL_TRANSPORT_OF{ $scheme }) {
|
||||||
no strict qw(refs);
|
no strict qw(refs);
|
||||||
defined %{ "$SOAP_WSDL_TRANSPORT_OF{ $scheme }::"}
|
$SOAP_WSDL_TRANSPORT_OF{ $scheme }->can('new')
|
||||||
or eval "require $SOAP_WSDL_TRANSPORT_OF{ $scheme }"
|
or eval "require $SOAP_WSDL_TRANSPORT_OF{ $scheme }"
|
||||||
or die "Cannot load transport class $SOAP_WSDL_TRANSPORT_OF{ $scheme } : $@";
|
or die "Cannot load transport class $SOAP_WSDL_TRANSPORT_OF{ $scheme } : $@";
|
||||||
return $SOAP_WSDL_TRANSPORT_OF{ $scheme }->new( %attrs );
|
return $SOAP_WSDL_TRANSPORT_OF{ $scheme }->new( %attrs );
|
||||||
@@ -243,9 +243,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 672 $
|
$Rev: 679 $
|
||||||
$LastChangedBy: kutterma $
|
$LastChangedBy: kutterma $
|
||||||
$Id: Transport.pm 672 2008-05-16 09:37:59Z kutterma $
|
$Id: Transport.pm 679 2008-05-18 21:18:03Z kutterma $
|
||||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Transport.pm $
|
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Transport.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|||||||
@@ -2,7 +2,7 @@ package SOAP::WSDL::Generator::Iterator::WSDL11;
|
|||||||
use strict; use warnings;
|
use strict; use warnings;
|
||||||
use Class::Std::Fast;
|
use Class::Std::Fast;
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
my %definitions_of :ATTR(:name<definitions> :default<[]>);
|
my %definitions_of :ATTR(:name<definitions> :default<[]>);
|
||||||
my %nodes_of :ATTR(:name<nodes> :default<[]>);
|
my %nodes_of :ATTR(:name<nodes> :default<[]>);
|
||||||
|
|||||||
@@ -3,7 +3,7 @@ use strict; use warnings;
|
|||||||
|
|
||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
my %namespace_prefix_map_of :ATTR(:name<namespace_prefix_map> :default<{}>);
|
my %namespace_prefix_map_of :ATTR(:name<namespace_prefix_map> :default<{}>);
|
||||||
my %namespace_map_of :ATTR(:name<namespace_map> :default<{}>);
|
my %namespace_map_of :ATTR(:name<namespace_map> :default<{}>);
|
||||||
@@ -128,7 +128,7 @@ You cannot suffix your types by some rule yet...
|
|||||||
|
|
||||||
Copyright 2008 Martin Kutter.
|
Copyright 2008 Martin Kutter.
|
||||||
|
|
||||||
This library is free software. 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
|
the same terms as perl itself
|
||||||
|
|
||||||
=head1 AUTHOR
|
=head1 AUTHOR
|
||||||
|
|||||||
@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
|
|||||||
use Carp;
|
use Carp;
|
||||||
use SOAP::WSDL::Generator::PrefixResolver;
|
use SOAP::WSDL::Generator::PrefixResolver;
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
my %tt_of :ATTR(:get<tt>);
|
my %tt_of :ATTR(:get<tt>);
|
||||||
my %definitions_of :ATTR(:name<definitions> :default<()>);
|
my %definitions_of :ATTR(:name<definitions> :default<()>);
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Carp qw(confess);
|
use Carp qw(confess);
|
||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
my %namespace_prefix_map_of :ATTR(:name<namespace_prefix_map> :default<{}>);
|
my %namespace_prefix_map_of :ATTR(:name<namespace_prefix_map> :default<{}>);
|
||||||
my %namespace_map_of :ATTR(:name<namespace_map> :default<{}>);
|
my %namespace_map_of :ATTR(:name<namespace_map> :default<{}>);
|
||||||
|
|||||||
@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
|
|||||||
use File::Basename;
|
use File::Basename;
|
||||||
use File::Spec;
|
use File::Spec;
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
use SOAP::WSDL::Generator::Visitor::Typemap;
|
use SOAP::WSDL::Generator::Visitor::Typemap;
|
||||||
use SOAP::WSDL::Generator::Visitor::Typelib;
|
use SOAP::WSDL::Generator::Visitor::Typelib;
|
||||||
|
|||||||
@@ -30,14 +30,17 @@ __PACKAGE__->_factory(
|
|||||||
{
|
{
|
||||||
[% FOREACH element = complexType.get_element;
|
[% FOREACH element = complexType.get_element;
|
||||||
IF (ref = element.get_ref);
|
IF (ref = element.get_ref);
|
||||||
element = definitions.first_types.find_element(element.expand( element.get_ref ));
|
ref_element = definitions.first_types.find_element(element.expand( ref ));
|
||||||
END;
|
-%]
|
||||||
IF (type = element.get_type);
|
'[% XSD.perl_var_name(XSD.element_name(ref_element)) %]' => '[% XSD.create_xsd_name(ref_element) %]',
|
||||||
|
|
||||||
|
[% ELSIF (type = element.get_type);
|
||||||
element_type = definitions.first_types.find_type(complexType.expand( type ));
|
element_type = definitions.first_types.find_type(complexType.expand( type ));
|
||||||
IF (! element_type);
|
IF (! element_type);
|
||||||
type_name = complexType.expand( type );
|
type_name = complexType.expand( type );
|
||||||
THROW NOT_FOUND, "${ type_name.0 } ${ type_name.1 } not found";
|
THROW NOT_FOUND, "${ type_name.0 } ${ type_name.1 } not found";
|
||||||
END; -%]
|
END;
|
||||||
|
-%]
|
||||||
'[% XSD.perl_var_name(XSD.element_name(element)) %]' => '[% XSD.create_xsd_name(element_type) %]',
|
'[% XSD.perl_var_name(XSD.element_name(element)) %]' => '[% XSD.create_xsd_name(element_type) %]',
|
||||||
[% ELSE;
|
[% ELSE;
|
||||||
IF (element.first_simpleType);
|
IF (element.first_simpleType);
|
||||||
|
|||||||
@@ -58,11 +58,13 @@ FOREACH element = element_from;
|
|||||||
END;
|
END;
|
||||||
|
|
||||||
# set derived element list
|
# set derived element list
|
||||||
complexType.set_element( element_list );
|
# wrap in IF; END; to prevent it getting printed
|
||||||
|
IF (complexType.set_element( element_list )); END;
|
||||||
|
|
||||||
INCLUDE complexType/variety.tt(complexType = complexType);
|
INCLUDE complexType/variety.tt(complexType = complexType);
|
||||||
|
|
||||||
# restore original element list
|
# restore original element list
|
||||||
complexType.set_element( element_from );
|
# wrap in IF; END; to prevent it getting printed
|
||||||
|
IF ( complexType.set_element( element_from ) ); END;
|
||||||
|
|
||||||
%]
|
%]
|
||||||
@@ -4,11 +4,11 @@ use base qw(
|
|||||||
[%
|
[%
|
||||||
base_type = definitions.get_types.0.find_type(simpleType.expand(base));
|
base_type = definitions.get_types.0.find_type(simpleType.expand(base));
|
||||||
IF ! base_type;
|
IF ! base_type;
|
||||||
THROW NOT_FOUND "No base type in " _ simpleType.get_parent.get_name;
|
THROW NOT_FOUND "base type $base not found." _ simpleType.get_parent.get_name;
|
||||||
END;
|
END;
|
||||||
XSD.create_xsd_name(base_type) %]);
|
XSD.create_xsd_name(base_type) %]);
|
||||||
[% ELSIF (type = simpleType.first_simpleType() );
|
[% ELSIF (type = simpleType.first_simpleType() );
|
||||||
INCLUDE simpleType/atomicType.tt(type = type);
|
INCLUDE simpleType/atomicType.tt(type = type);
|
||||||
ELSE;
|
ELSE;
|
||||||
THROW "neither base nor atomic type - don't know what to do" %]
|
THROW "neither base nor atomic type - don't know what to do" %]
|
||||||
[% END %]
|
[% END %]
|
||||||
@@ -3,7 +3,7 @@ use strict;
|
|||||||
use warnings;
|
use warnings;
|
||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
my %definitions_of :ATTR(:name<definitions> :default<()>);
|
my %definitions_of :ATTR(:name<definitions> :default<()>);
|
||||||
my %type_prefix_of :ATTR(:name<type_prefix> :default<()>);
|
my %type_prefix_of :ATTR(:name<type_prefix> :default<()>);
|
||||||
|
|||||||
@@ -5,7 +5,7 @@ use base qw(SOAP::WSDL::Generator::Visitor
|
|||||||
SOAP::WSDL::Generator::Template
|
SOAP::WSDL::Generator::Template
|
||||||
);
|
);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
1;
|
1;
|
||||||
|
|
||||||
|
|||||||
@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
|
|||||||
|
|
||||||
use base qw(SOAP::WSDL::Generator::Visitor);
|
use base qw(SOAP::WSDL::Generator::Visitor);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
my %path_of :ATTR(:name<path> :default<[]>);
|
my %path_of :ATTR(:name<path> :default<[]>);
|
||||||
my %typemap_of :ATTR(:name<typemap> :default<()>);
|
my %typemap_of :ATTR(:name<typemap> :default<()>);
|
||||||
|
|||||||
@@ -93,7 +93,7 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
$Rev: 391 $
|
$Rev: 391 $
|
||||||
$LastChangedBy: kutterma $
|
$LastChangedBy: kutterma $
|
||||||
$Id: Glossary.pod 391 2007-11-17 21:56:13Z kutterma $
|
$Id: Glossary.pod 391 2007-11-17 21:56:13Z kutterma $
|
||||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Manual/Glossary.pod $
|
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Manual/Glossary.pod $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|
||||||
|
|||||||
@@ -241,7 +241,7 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
$Rev: 391 $
|
$Rev: 391 $
|
||||||
$LastChangedBy: kutterma $
|
$LastChangedBy: kutterma $
|
||||||
$Id: Parser.pod 391 2007-11-17 21:56:13Z kutterma $
|
$Id: Parser.pod 391 2007-11-17 21:56:13Z kutterma $
|
||||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Manual/Parser.pod $
|
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Manual/Parser.pod $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|
||||||
|
|||||||
@@ -1255,7 +1255,7 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
$Rev: 562 $
|
$Rev: 562 $
|
||||||
$LastChangedBy: kutterma $
|
$LastChangedBy: kutterma $
|
||||||
$Id: WS_I.pod 562 2008-02-22 20:32:17Z kutterma $
|
$Id: WS_I.pod 562 2008-02-22 20:32:17Z kutterma $
|
||||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Manual/WS_I.pod $
|
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Manual/WS_I.pod $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
my %part_of :ATTR(:name<part> :default<[]>);
|
my %part_of :ATTR(:name<part> :default<[]>);
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
my %body_of :ATTR(:name<body> :default<[]>);
|
my %body_of :ATTR(:name<body> :default<[]>);
|
||||||
my %header_of :ATTR(:name<header> :default<[]>);
|
my %header_of :ATTR(:name<header> :default<[]>);
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
my %operation_of :ATTR(:name<operation> :default<()>);
|
my %operation_of :ATTR(:name<operation> :default<()>);
|
||||||
my %input_of :ATTR(:name<input> :default<[]>);
|
my %input_of :ATTR(:name<input> :default<[]>);
|
||||||
|
|||||||
@@ -6,7 +6,7 @@ use Class::Std::Fast::Storable;
|
|||||||
|
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
my %element_of :ATTR(:name<element> :default<()>);
|
my %element_of :ATTR(:name<element> :default<()>);
|
||||||
my %type_of :ATTR(:name<type> :default<()>);
|
my %type_of :ATTR(:name<type> :default<()>);
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
my %binding_of :ATTR(:name<binding> :default<()>);
|
my %binding_of :ATTR(:name<binding> :default<()>);
|
||||||
my %address_of :ATTR(:name<address> :default<()>);
|
my %address_of :ATTR(:name<address> :default<()>);
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
my %operation_of :ATTR(:name<operation> :default<()>);
|
my %operation_of :ATTR(:name<operation> :default<()>);
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
my %location :ATTR(:name<location> :default<()>);
|
my %location :ATTR(:name<location> :default<()>);
|
||||||
1;
|
1;
|
||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
my %use_of :ATTR(:name<use> :default<q{}>);
|
my %use_of :ATTR(:name<use> :default<q{}>);
|
||||||
my %namespace_of :ATTR(:name<namespace> :default<q{}>);
|
my %namespace_of :ATTR(:name<namespace> :default<q{}>);
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
my %use_of :ATTR(:name<use> :default<q{}>);
|
my %use_of :ATTR(:name<use> :default<q{}>);
|
||||||
my %namespace_of :ATTR(:name<namespace> :default<q{}>);
|
my %namespace_of :ATTR(:name<namespace> :default<q{}>);
|
||||||
|
|||||||
@@ -3,6 +3,6 @@ use strict;
|
|||||||
use warnings;
|
use warnings;
|
||||||
use base qw(SOAP::WSDL::Header);
|
use base qw(SOAP::WSDL::Header);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
1;
|
1;
|
||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
my %style_of :ATTR(:name<style> :default<()>);
|
my %style_of :ATTR(:name<style> :default<()>);
|
||||||
my %soapAction_of :ATTR(:name<soapAction> :default<()>);
|
my %soapAction_of :ATTR(:name<soapAction> :default<()>);
|
||||||
|
|||||||
@@ -3,7 +3,7 @@ use strict;
|
|||||||
use warnings;
|
use warnings;
|
||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
use SOAP::WSDL::XSD::Typelib::ComplexType;
|
use SOAP::WSDL::XSD::Typelib::ComplexType;
|
||||||
use SOAP::WSDL::XSD::Typelib::Element;
|
use SOAP::WSDL::XSD::Typelib::Element;
|
||||||
@@ -101,10 +101,10 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 672 $
|
$Rev: 677 $
|
||||||
$LastChangedBy: kutterma $
|
$LastChangedBy: kutterma $
|
||||||
$Id: Fault11.pm 672 2008-05-16 09:37:59Z kutterma $
|
$Id: Fault11.pm 677 2008-05-18 20:17:56Z kutterma $
|
||||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm $
|
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|
||||||
|
|||||||
@@ -5,7 +5,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use Scalar::Util qw(blessed);
|
use Scalar::Util qw(blessed);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
use SOAP::WSDL::Factory::Serializer;
|
use SOAP::WSDL::Factory::Serializer;
|
||||||
|
|
||||||
@@ -129,10 +129,10 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 672 $
|
$Rev: 677 $
|
||||||
$LastChangedBy: kutterma $
|
$LastChangedBy: kutterma $
|
||||||
$Id: XSD.pm 672 2008-05-16 09:37:59Z kutterma $
|
$Id: XSD.pm 677 2008-05-18 20:17:56Z kutterma $
|
||||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Serializer/XSD.pm $
|
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Serializer/XSD.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|
||||||
|
|||||||
+33
-1
@@ -6,7 +6,7 @@ use Scalar::Util qw(blessed);
|
|||||||
use SOAP::WSDL::Factory::Deserializer;
|
use SOAP::WSDL::Factory::Deserializer;
|
||||||
use SOAP::WSDL::Factory::Serializer;
|
use SOAP::WSDL::Factory::Serializer;
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
my %dispatch_to_of :ATTR(:name<dispatch_to> :default<()>);
|
my %dispatch_to_of :ATTR(:name<dispatch_to> :default<()>);
|
||||||
my %action_map_ref_of :ATTR(:name<action_map_ref> :default<{}>);
|
my %action_map_ref_of :ATTR(:name<action_map_ref> :default<{}>);
|
||||||
@@ -199,6 +199,38 @@ SOAP::Server's deserializer create one for you:
|
|||||||
You may use any other object as exception, provided it has a
|
You may use any other object as exception, provided it has a
|
||||||
serialize() method which returns the object's XML representation.
|
serialize() method which returns the object's XML representation.
|
||||||
|
|
||||||
|
=head2 Subclassing
|
||||||
|
|
||||||
|
To write a transport-specific SOAP Server, you should subclass
|
||||||
|
SOAP::WSDL::Server.
|
||||||
|
|
||||||
|
See the C<SOAP::WSDL::Server::*> modules for examples.
|
||||||
|
|
||||||
|
A SOAP Server must call the following method to actually handle the request:
|
||||||
|
|
||||||
|
=head3 handle
|
||||||
|
|
||||||
|
Handles the SOAP request.
|
||||||
|
|
||||||
|
Returns the response message as XML.
|
||||||
|
|
||||||
|
Expects a C<HTTP::Request> object as only parameter.
|
||||||
|
|
||||||
|
You may use any other object as parameter, as long as it implements the
|
||||||
|
following methods:
|
||||||
|
|
||||||
|
=over
|
||||||
|
|
||||||
|
=item * header
|
||||||
|
|
||||||
|
Called as header('SOAPAction'). Must return the corresponding HTTP header.
|
||||||
|
|
||||||
|
=item * content
|
||||||
|
|
||||||
|
Returns the request message
|
||||||
|
|
||||||
|
=back
|
||||||
|
|
||||||
=head1 LICENSE AND COPYRIGHT
|
=head1 LICENSE AND COPYRIGHT
|
||||||
|
|
||||||
Copyright 2004-2008 Martin Kutter.
|
Copyright 2004-2008 Martin Kutter.
|
||||||
|
|||||||
@@ -12,7 +12,7 @@ use Class::Std::Fast::Storable;
|
|||||||
|
|
||||||
use base qw(SOAP::WSDL::Server);
|
use base qw(SOAP::WSDL::Server);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
# mostly copied from SOAP::Lite. Unfortunately we can't use SOAP::Lite's CGI
|
# 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...
|
# server directly - we would have to swap out it's base class...
|
||||||
|
|||||||
@@ -16,7 +16,7 @@ use Apache2::Const -compile => qw(
|
|||||||
HTTP_LENGTH_REQUIRED
|
HTTP_LENGTH_REQUIRED
|
||||||
);
|
);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
my %LOADED_OF = ();
|
my %LOADED_OF = ();
|
||||||
|
|
||||||
@@ -266,8 +266,8 @@ Thanks!
|
|||||||
|
|
||||||
=head1 LICENSE AND COPYRIGHT
|
=head1 LICENSE AND COPYRIGHT
|
||||||
|
|
||||||
This library is free software. 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.
|
the same terms as perl itself
|
||||||
|
|
||||||
=head1 AUTHOR
|
=head1 AUTHOR
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
my %port_of :ATTR(:name<port> :default<[]>);
|
my %port_of :ATTR(:name<port> :default<[]>);
|
||||||
|
|
||||||
|
|||||||
@@ -2,7 +2,7 @@ package SOAP::WSDL::Transport::HTTP;
|
|||||||
use strict;
|
use strict;
|
||||||
use base qw(LWP::UserAgent);
|
use base qw(LWP::UserAgent);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
# create methods normally inherited from SOAP::Client
|
# create methods normally inherited from SOAP::Client
|
||||||
SUBFACTORY: {
|
SUBFACTORY: {
|
||||||
@@ -90,10 +90,10 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 672 $
|
$Rev: 677 $
|
||||||
$LastChangedBy: kutterma $
|
$LastChangedBy: kutterma $
|
||||||
$Id: HTTP.pm 672 2008-05-16 09:37:59Z kutterma $
|
$Id: HTTP.pm 677 2008-05-18 20:17:56Z kutterma $
|
||||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Transport/HTTP.pm $
|
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Transport/HTTP.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'basic';
|
use Class::Std::Fast::Storable constructor => 'basic';
|
||||||
use SOAP::WSDL::Factory::Transport;
|
use SOAP::WSDL::Factory::Transport;
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
# register on loading
|
# register on loading
|
||||||
SOAP::WSDL::Factory::Transport->register( http => __PACKAGE__ );
|
SOAP::WSDL::Factory::Transport->register( http => __PACKAGE__ );
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use SOAP::WSDL::Factory::Transport;
|
use SOAP::WSDL::Factory::Transport;
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
SOAP::WSDL::Factory::Transport->register( http => __PACKAGE__ );
|
SOAP::WSDL::Factory::Transport->register( http => __PACKAGE__ );
|
||||||
SOAP::WSDL::Factory::Transport->register( https => __PACKAGE__ );
|
SOAP::WSDL::Factory::Transport->register( https => __PACKAGE__ );
|
||||||
|
|||||||
@@ -2,7 +2,7 @@ package SOAP::WSDL::TypeLookup;
|
|||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
my %TYPE_FROM = (
|
my %TYPE_FROM = (
|
||||||
# wsdl:
|
# wsdl:
|
||||||
|
|||||||
@@ -5,7 +5,7 @@ use SOAP::WSDL::XSD::Schema::Builtin;
|
|||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
my %schema_of :ATTR(:name<schema> :default<[]>);
|
my %schema_of :ATTR(:name<schema> :default<[]>);
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
#<enumeration value="">
|
#<enumeration value="">
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
#<attribute
|
#<attribute
|
||||||
# default = string
|
# default = string
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
#<attributeGroup
|
#<attributeGroup
|
||||||
# id = ID
|
# id = ID
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
# only used in SOAP::WSDL - will be obsolete once SOAP::WSDL uses the
|
# only used in SOAP::WSDL - will be obsolete once SOAP::WSDL uses the
|
||||||
# generative approach, too
|
# generative approach, too
|
||||||
|
|||||||
@@ -6,7 +6,7 @@ use Class::Std::Fast::Storable;
|
|||||||
use Scalar::Util qw(blessed);
|
use Scalar::Util qw(blessed);
|
||||||
use base qw/SOAP::WSDL::Base/;
|
use base qw/SOAP::WSDL::Base/;
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
# id provided by Base
|
# id provided by Base
|
||||||
# name provided by Base
|
# name provided by Base
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
# id provided by Base
|
# id provided by Base
|
||||||
# name provided by Base
|
# name provided by Base
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
#<enumeration value="">
|
#<enumeration value="">
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
#<pattern value="">
|
#<pattern value="">
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
#<xs:group name="myModelGroup">
|
#<xs:group name="myModelGroup">
|
||||||
# <xs:sequence>
|
# <xs:sequence>
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
#<minExclusive value="">
|
#<minExclusive value="">
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
#<minExclusive value="">
|
#<minExclusive value="">
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
#<minExclusive value="">
|
#<minExclusive value="">
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
#<maxLength value="">
|
#<maxLength value="">
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
#<minExclusive value="">
|
#<minExclusive value="">
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
#<minExclusive value="">
|
#<minExclusive value="">
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
#<minExclusive value="">
|
#<minExclusive value="">
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
#<pattern value="">
|
#<pattern value="">
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
# child elements
|
# child elements
|
||||||
my %attributeGroup_of :ATTR(:name<attributeGroup> :default<[]>);
|
my %attributeGroup_of :ATTR(:name<attributeGroup> :default<[]>);
|
||||||
|
|||||||
@@ -6,7 +6,7 @@ use SOAP::WSDL::XSD::Schema;
|
|||||||
use SOAP::WSDL::XSD::Builtin;
|
use SOAP::WSDL::XSD::Builtin;
|
||||||
use base qw(SOAP::WSDL::XSD::Schema);
|
use base qw(SOAP::WSDL::XSD::Schema);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
# all builtin types - add validation (e.g. content restrictions) later...
|
# all builtin types - add validation (e.g. content restrictions) later...
|
||||||
my %BUILTINS = (
|
my %BUILTINS = (
|
||||||
@@ -98,10 +98,10 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 672 $
|
$Rev: 701 $
|
||||||
$LastChangedBy: kutterma $
|
$LastChangedBy: kutterma $
|
||||||
$Id: Builtin.pm 672 2008-05-16 09:37:59Z kutterma $
|
$Id: Builtin.pm 701 2008-06-05 19:19:16Z kutterma $
|
||||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Schema/Builtin.pm $
|
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Schema/Builtin.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
my %length_of :ATTR(:name<length> :default<[]>);
|
my %length_of :ATTR(:name<length> :default<[]>);
|
||||||
my %minLength_of :ATTR(:name<minLength> :default<[]>);
|
my %minLength_of :ATTR(:name<minLength> :default<[]>);
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
#<totalDigits value="">
|
#<totalDigits value="">
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
|
|
||||||
use base qw(SOAP::WSDL::XSD::Typelib::Element);
|
use base qw(SOAP::WSDL::XSD::Typelib::Element);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
sub start_tag {
|
sub start_tag {
|
||||||
# my ($self, $opt, $value) = @_;
|
# my ($self, $opt, $value) = @_;
|
||||||
|
|||||||
@@ -3,7 +3,7 @@ use strict;
|
|||||||
use warnings;
|
use warnings;
|
||||||
use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
|
use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
sub serialize {
|
sub serialize {
|
||||||
# we work on @_ for performance.
|
# we work on @_ for performance.
|
||||||
|
|||||||
@@ -3,7 +3,7 @@ use strict;
|
|||||||
use warnings;
|
use warnings;
|
||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
use SOAP::WSDL::XSD::Typelib::Builtin::anyType;
|
use SOAP::WSDL::XSD::Typelib::Builtin::anyType;
|
||||||
use SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;
|
use SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;
|
||||||
|
|||||||
@@ -3,7 +3,7 @@ use strict;
|
|||||||
use warnings;
|
use warnings;
|
||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
sub get_xmlns { 'http://www.w3.org/2001/XMLSchema' };
|
sub get_xmlns { 'http://www.w3.org/2001/XMLSchema' };
|
||||||
|
|
||||||
|
|||||||
@@ -3,7 +3,7 @@ use strict;
|
|||||||
use warnings;
|
use warnings;
|
||||||
use Class::Std::Fast::Storable constructor => 'none', cache => 1;
|
use Class::Std::Fast::Storable constructor => 'none', cache => 1;
|
||||||
|
|
||||||
use version; our $VERSION= qv('2.00.02');
|
use version; our $VERSION= qv('2.00.04');
|
||||||
|
|
||||||
use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
|
use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
|
||||||
|
|
||||||
|
|||||||
@@ -6,7 +6,7 @@ use Date::Format;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none', cache => 1;
|
use Class::Std::Fast::Storable constructor => 'none', cache => 1;
|
||||||
use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
|
use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
|
||||||
|
|
||||||
use version; our $VERSION=qv('2.00.02');
|
use version; our $VERSION=qv('2.00.04');
|
||||||
|
|
||||||
sub set_value {
|
sub set_value {
|
||||||
# use set_value from base class if we have a XML-Time format
|
# use set_value from base class if we have a XML-Time format
|
||||||
|
|||||||
@@ -511,7 +511,7 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
$Rev: 670 $
|
$Rev: 670 $
|
||||||
$LastChangedBy: kutterma $
|
$LastChangedBy: kutterma $
|
||||||
$Id: ComplexType.pm 670 2008-05-14 07:39:14Z kutterma $
|
$Id: ComplexType.pm 670 2008-05-14 07:39:14Z kutterma $
|
||||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm $
|
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|
||||||
|
|||||||
@@ -3,7 +3,7 @@ package SOAP::WSDL::XSD::Typelib::Element;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use strict;
|
use strict;
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
my %NAME;
|
my %NAME;
|
||||||
my %NILLABLE;
|
my %NILLABLE;
|
||||||
@@ -176,10 +176,10 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 672 $
|
$Rev: 701 $
|
||||||
$LastChangedBy: kutterma $
|
$LastChangedBy: kutterma $
|
||||||
$Id: Element.pm 672 2008-05-16 09:37:59Z kutterma $
|
$Id: Element.pm 701 2008-06-05 19:19:16Z kutterma $
|
||||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Typelib/Element.pm $
|
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Typelib/Element.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|
||||||
|
|||||||
@@ -3,14 +3,14 @@ package SOAP::WSDL::XSD::Typelib::SimpleType;
|
|||||||
use strict;
|
use strict;
|
||||||
use SOAP::WSDL::XSD::Typelib::Builtin;
|
use SOAP::WSDL::XSD::Typelib::Builtin;
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
package SOAP::WSDL::XSD::Typelib::SimpleType::restriction;
|
package SOAP::WSDL::XSD::Typelib::SimpleType::restriction;
|
||||||
use strict;
|
use strict;
|
||||||
use SOAP::WSDL::XSD::Typelib::Builtin;
|
use SOAP::WSDL::XSD::Typelib::Builtin;
|
||||||
use base qw(SOAP::WSDL::XSD::Typelib::SimpleType);
|
use base qw(SOAP::WSDL::XSD::Typelib::SimpleType);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.03');
|
||||||
|
|
||||||
1;
|
1;
|
||||||
__END__
|
__END__
|
||||||
@@ -133,10 +133,10 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 672 $
|
$Rev: 677 $
|
||||||
$LastChangedBy: kutterma $
|
$LastChangedBy: kutterma $
|
||||||
$Id: SimpleType.pm 672 2008-05-16 09:37:59Z kutterma $
|
$Id: SimpleType.pm 677 2008-05-18 20:17:56Z kutterma $
|
||||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Typelib/SimpleType.pm $
|
$HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Typelib/SimpleType.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.02');
|
use version; our $VERSION = qv('2.00.04');
|
||||||
|
|
||||||
#<pattern value="">
|
#<pattern value="">
|
||||||
|
|
||||||
|
|||||||
+6
-2
@@ -1,7 +1,9 @@
|
|||||||
#!/usr/bin/perl -w
|
#!/usr/bin/perl -w
|
||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
use Test::More tests => 22;
|
use Test::More tests => 23;
|
||||||
|
use Storable;
|
||||||
|
|
||||||
use lib '../lib';
|
use lib '../lib';
|
||||||
|
|
||||||
eval {
|
eval {
|
||||||
@@ -20,6 +22,8 @@ $parser->parse_string( xml() );
|
|||||||
my $wsdl;
|
my $wsdl;
|
||||||
ok( $wsdl = $parser->get_data() , "get object tree");
|
ok( $wsdl = $parser->get_data() , "get object tree");
|
||||||
|
|
||||||
|
ok Storable::thaw(Storable::freeze($wsdl));
|
||||||
|
|
||||||
my $types = $wsdl->first_types();
|
my $types = $wsdl->first_types();
|
||||||
|
|
||||||
is $types->get_parent(), $wsdl , 'types parent';
|
is $types->get_parent(), $wsdl , 'types parent';
|
||||||
@@ -123,7 +127,7 @@ SKIP: {
|
|||||||
}
|
}
|
||||||
ok($xml = $wsdl->find_message('urn:myNamespace', 'testRequest')
|
ok($xml = $wsdl->find_message('urn:myNamespace', 'testRequest')
|
||||||
->get_part()->[0]->serialize(
|
->get_part()->[0]->serialize(
|
||||||
undef,
|
undef,
|
||||||
{ test => { length => { size => -13, unit => 'BLA' } , int => 3 } },
|
{ test => { length => { size => -13, unit => 'BLA' } , int => 3 } },
|
||||||
$serializer_options ),
|
$serializer_options ),
|
||||||
"serialize part"
|
"serialize part"
|
||||||
|
|||||||
+5
-4
@@ -32,7 +32,7 @@ $soap->servicename('MessageGateway');
|
|||||||
|
|
||||||
ok( $soap->no_dispatch( 1 ) , "Set no_dispatch" );
|
ok( $soap->no_dispatch( 1 ) , "Set no_dispatch" );
|
||||||
ok $soap->get_client();
|
ok $soap->get_client();
|
||||||
ok ! $soap->get_client()->get_proxy();
|
ok $soap->get_client()->get_proxy();
|
||||||
|
|
||||||
SKIP: {
|
SKIP: {
|
||||||
skip_without_test_xml();
|
skip_without_test_xml();
|
||||||
@@ -74,7 +74,7 @@ ok $soap->get_client()->get_serializer();
|
|||||||
|
|
||||||
# set_soap_version invalidates serializer and deserializer
|
# set_soap_version invalidates serializer and deserializer
|
||||||
ok $soap->get_client()->set_soap_version('1.1');
|
ok $soap->get_client()->set_soap_version('1.1');
|
||||||
ok ! $soap->get_client()->get_serializer();
|
ok ! $soap->get_client()->get_serializer(), 'serializer not loaded yet';
|
||||||
|
|
||||||
$soap->call( 'EnqueueMessage' , EnqueueMessage => {
|
$soap->call( 'EnqueueMessage' , EnqueueMessage => {
|
||||||
'MMessage' => {
|
'MMessage' => {
|
||||||
@@ -93,7 +93,8 @@ SKIP: {
|
|||||||
eval "require SOAP::Lite"
|
eval "require SOAP::Lite"
|
||||||
or skip 'cannot test SOAP::Deserializer::SOM without SOAP::Lite', 4;
|
or skip 'cannot test SOAP::Deserializer::SOM without SOAP::Lite', 4;
|
||||||
require SOAP::WSDL::Transport::Loopback;
|
require SOAP::WSDL::Transport::Loopback;
|
||||||
$soap->outputxml(0);
|
$soap->proxy('http://example.org');
|
||||||
|
$soap->outputxml(0);
|
||||||
$soap->no_dispatch(0);
|
$soap->no_dispatch(0);
|
||||||
ok my $result = $soap->call( 'EnqueueMessage' , EnqueueMessage => {
|
ok my $result = $soap->call( 'EnqueueMessage' , EnqueueMessage => {
|
||||||
'MMessage' => {
|
'MMessage' => {
|
||||||
@@ -118,4 +119,4 @@ if (! $@) {
|
|||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
fail $@
|
fail $@
|
||||||
};
|
};
|
||||||
|
|||||||
@@ -1,36 +0,0 @@
|
|||||||
#!/usr/bin/perl
|
|
||||||
use strict;
|
|
||||||
use warnings;
|
|
||||||
|
|
||||||
use Test::More qw/no_plan/;
|
|
||||||
use lib '../lib';
|
|
||||||
|
|
||||||
eval {
|
|
||||||
require Test::XML;
|
|
||||||
import Test::XML;
|
|
||||||
};
|
|
||||||
|
|
||||||
use_ok qw/SOAP::WSDL::Serializer::XSD/;
|
|
||||||
|
|
||||||
my $opt = {
|
|
||||||
readable => 1,
|
|
||||||
namespace => {
|
|
||||||
},
|
|
||||||
};
|
|
||||||
my $xml;
|
|
||||||
ok( $xml = SOAP::WSDL::Serializer::XSD->serialize(
|
|
||||||
undef, undef, $opt
|
|
||||||
),
|
|
||||||
"serialize empty envelope"
|
|
||||||
);
|
|
||||||
|
|
||||||
SKIP: {
|
|
||||||
skip 'Cannot test XML content without Test::XML', 1
|
|
||||||
if (not $Test::XML::VERSION);
|
|
||||||
is_xml( $xml, q{<SOAP-ENV:Envelope
|
|
||||||
xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" >
|
|
||||||
<SOAP-ENV:Body >
|
|
||||||
</SOAP-ENV:Body>
|
|
||||||
</SOAP-ENV:Envelope>}
|
|
||||||
, 'Content comparison' );
|
|
||||||
}
|
|
||||||
@@ -1,10 +0,0 @@
|
|||||||
use Test::More tests => 1;
|
|
||||||
use lib '../lib';
|
|
||||||
eval "require SOAP::WSDL::XSD::Typelib::Builtin";
|
|
||||||
use Storable;
|
|
||||||
|
|
||||||
my $long = SOAP::WSDL::XSD::Typelib::Builtin::long->new();
|
|
||||||
$long->set_value( 9 );
|
|
||||||
my $clone = Storable::thaw( Storable::freeze( $long ) );
|
|
||||||
|
|
||||||
is $clone->serialize, 9 , 'clone via freeze/thaw';
|
|
||||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user