import SOAP-WSDL 2.00.09 from CPAN

git-cpan-module:   SOAP-WSDL
git-cpan-version:  2.00.09
git-cpan-authorid: MKUTTER
git-cpan-file:     authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.09.tar.gz

Build.PL

@@ -5,7 +5,7 @@ $build = Module::Build->new(
     create_makefile_pl => 'small',
     dist_abstract      => 'SOAP with WSDL support',
     dist_name          => 'SOAP-WSDL',
-    dist_version       => '2.00.05',
+    dist_version       => '2.00.09',
     module_name        => 'SOAP::WSDL',
     license            => 'artistic',
     requires           => {

Changes

@@ -1,4 +1,4 @@
-Release notes for SOAP::WSDL 2.00.05
+Release notes for SOAP::WSDL 2.00.07
 -------
 
 I'm proud to present a new release of SOAP::WSDL.
@@ -20,6 +20,7 @@ Features:
     * Efficient documentation
           o SOAP::WSDL::Manual guides you at getting your work done, not at
           the module's internals
+    * Examples in Perl and Java
     * Thorough test suite
           o SOAP::WSDL is heavily regression tested, with a test coverage of
           over 95% (excluding documentation - you wouldn't want to read
@@ -27,7 +28,7 @@ Features:
     * SOAP::Lite like look and feel
           o Where possible, SOAP::WSDL mimics SOAP::Lite's API to allow easy migration
     * XML schema based class library for creating data objects
-    * High-performance XML parser
+    * High-performance SOAP Message parser
     * Plugin support. SOAP::WSDL can be extended through plugins in various aspects.
       The following plugins are supported:
           o Transport plugins via SOAP::WSDL::Factory::Transport
@@ -36,7 +37,121 @@ Features:
 
 The following changes have been made:
 
-2.00.05
+2.00.09 - Feb 22 2009
+
+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/).
+
+   * [ 2631555 ] Template used without version
+   * [ 2631220 ] Faults generated with soap:Server actor
+
+2.00.08 - Feb 22 2009
+
+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/).
+
+   * [2628386] SOAP::WSDL::Generator::Visitor::Typelib still used in tests
+
+   * #41453: Content-Type 'charset=...' not set in HTTP header
+   Already fixed in 2.00.07
+
+2.00.07 - Feb 21 2009
+
+The following features were added (the numbers in square brackets are the
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660924):
+
+   * [ 2621474 ] Add Non-Perl examples / test client / Servers
+   The distribution now includes a Java / Apache CXF example.
+
+   * [ 2585274 ] Create a HTTP::Server::Simple based SOAP Server
+   SOAP::WSDL now ships with a server class to use with HTTP::Server::Simple
+   for testing purposes. See SOAP::WSDL::Server::Simple for details.
+
+   * [ 1911232 ] Allow skipping unknown XML elements
+   See SOAP::WSDL::Manual::Cookbook on how to use this feature
+
+   * [ 2505421 ] include XML attributes in as_hash_ref
+   ComplexTypes now include XML attributes in as_hash_ref's result under the
+   special key "xmlattr".
+   As a side effect, as_hash ref now works for ComplexType objects with a
+   simpleContent content model, too (though the results may be misleading:
+   Their value is included under the hash key "value", the only other
+   possible hash key is "xmlattr").
+
+   * [ 1960062 ] Use POSIX::strftime for date conversion
+   Not really a feature, but a little speedup. The Feature request is
+   obsoleted by resorting to good old sprintf for date formatting.
+   Speeds up set_value in date and dateTime Objects by around 30% for non-
+   XML-formatted strings.
+   As a side effect, dateTime now does not allow setting 0 as date.
+
+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/).
+
+   * [ 2621471 ] SOAP::WSDL::Server sends fault with invalid namespace prefix
+   Faults now use the correct prefix.
+
+   * [ 2560208 ] elementFormDefault always "qualified"
+   SOAP::WSDL now respects the elementFormDefault attribute in embedded
+   XML Schemas.
+
+   * #42049: [PATCH] SOAP::WSDL uses default User-Agent
+   SOAP::WSDL now announces itself as "SOAP::WSDL $VERSION" instead of
+   "libwww/perl $VERSION" in HTTP requests. Note however, that this only
+   applies for wsdl2perl, SOAP::WSDL and SOAP::WSDL::Transport::HTTP.
+   SOAP::Transport HTTP (from the SOAP-Lite distribution) is not affected.
+
+   * [ 2533903 ] Imported schema overwrites existing XML namespace/prefix map
+   Importing a schema which defined the same XML namespace prefix as the
+   importing schema, but with a different URI resulted in having the URI
+   of the associated with the prefix from the imported schema set in the
+   importing schema.
+
+   * #42388 [PATCH] Disabling 'die' in Typemaps
+   Duplicate of [1911232] Allow skipping unknown XML elements - see added
+   features.
+
+   * #42179 Problem deserializing SOAP messages that contain only a simpleType
+   Now the top-level element may consist of a simpleType only, too.
+
+The following uncategorized improvements have been made:
+
+   * Fixed a =back error in element POD generation
+   * Improved test suite
+   * Improved documentation
+   * Improved TEST_COVERAGE to report coverage correctly
+
+2.00.06 - Dec 03 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/).
+
+    * #40658 wsdl2perl - prefix option
+    The prefix option is now changed to behave more practical
+    * #40802 wsdl2perl problems with special url
+    The "fixed" attribute caused an error.
+    * #40650 Deserialization on inherited types
+    The inherited complexType variety (sequence/all/choice...) did not get
+    propagated to derived complexTypes. Thus, derived complexTypes which did
+    not add elements lost all inherited elements.
+    * #40108 Test failure on Cygwin
+    Fixes a test failure on Cygwin due to a malformed file:// URL
+    * #40021 charset: utf-8
+    Removed duplicate charset in HTTP requests issued by
+    SOAP::WSDL::Transport::HTTP. Replaced the utf8 by utf-8 in HTTP requests
+    * #39715 Error with complexType extension base without child elements
+    A rather subtle error caused by a wrong init value (undef) for the list
+    of child elements in a complexType sequence.
+    * [ 2005693 ] <maxLength fixed ="true"> causes error
+    * [ 2023797 ] type extensions not handled correctly
+    ComplexType objects now test their elements with ->isa, not with ref
+    * [ 2021755 ] Generating nested complexType extensions throws errors
+
+2.00.05 - Jul 13 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):

MANIFEST

@@ -13,8 +13,6 @@ benchmark/XSD/strftime.pl
 bin/wsdl2perl.pl
 Build.PL
 Changes
-covered_by.pl
-covering.pl
 example/cgi-bin/helloworld.pl
 example/cgi-bin/person.pl
 example/fortune.pl
@@ -22,9 +20,16 @@ example/genericbarcode.pl
 example/hello.pl
 example/hello_compile.pl
 example/hello_lite.pl
-example/leaktest/hello_wsdl.pl
+example/java/cxf/.classpath
-example/leaktest/leak.pl
+example/java/cxf/.settings/org.eclipse.jdt.core.prefs
-example/leaktest/parse.pl
+example/java/cxf/.settings/org.maven.ide.eclipse.prefs
+example/java/cxf/11_helloworld.wsdl
+example/java/cxf/jax-binding.xml
+example/java/cxf/pom.xml
+example/java/cxf/README
+example/java/cxf/src/main/resources/cxf.xml
+example/java/cxf/src/test/java/helloworld/HelloWorldTest.java
+example/java/cxf/src/test/resources/test-context.xml
 example/lib/MyElements/CountCookies.pm
 example/lib/MyElements/CountCookiesResponse.pm
 example/lib/MyElements/GenerateBarCode.pm
@@ -74,6 +79,7 @@ example/lib/MyTypes/test2.pm
 example/lib/MyTypes/testExtended.pm
 example/person.pl
 example/person_compile.pl
+example/server/hello_simple.pl
 example/visitor/visitor.pl
 example/weather.pl
 example/weather_wsdl.pl
@@ -82,6 +88,7 @@ example/wsdl/FortuneCookie.xml
 example/wsdl/genericbarcode.xml
 example/wsdl/globalweather.xml
 example/wsdl/Person.wsdl
+example/wsdl/person.xml
 HACKING
 lib/SOAP/WSDL.pm
 lib/SOAP/WSDL/Base.pm
@@ -162,9 +169,9 @@ lib/SOAP/WSDL/Generator/Template/XSD/simpleType/restriction.tt
 lib/SOAP/WSDL/Generator/Template/XSD/simpleType/union.tt
 lib/SOAP/WSDL/Generator/Template/XSD/Typemap.tt
 lib/SOAP/WSDL/Generator/Visitor.pm
-lib/SOAP/WSDL/Generator/Visitor/Typelib.pm
 lib/SOAP/WSDL/Generator/Visitor/Typemap.pm
 lib/SOAP/WSDL/Manual.pod
+lib/SOAP/WSDL/Manual/CodeFirst.pod
 lib/SOAP/WSDL/Manual/Cookbook.pod
 lib/SOAP/WSDL/Manual/Deserializer.pod
 lib/SOAP/WSDL/Manual/FAQ.pod
@@ -183,6 +190,7 @@ lib/SOAP/WSDL/Serializer/XSD.pm
 lib/SOAP/WSDL/Server.pm
 lib/SOAP/WSDL/Server/CGI.pm
 lib/SOAP/WSDL/Server/Mod_Perl2.pm
+lib/SOAP/WSDL/Server/Simple.pm
 lib/SOAP/WSDL/Service.pm
 lib/SOAP/WSDL/SOAP/Address.pm
 lib/SOAP/WSDL/SOAP/Body.pm
@@ -311,11 +319,6 @@ t/acceptance/wsdl/05_simpleType-restriction.wsdl
 t/acceptance/wsdl/05_simpleType-union.wsdl
 t/acceptance/wsdl/10_helloworld.asmx.xml
 t/acceptance/wsdl/11_helloworld.wsdl
-t/acceptance/wsdl/contributed/Axis.wsdl
-t/acceptance/wsdl/contributed/ETest.wsdl
-t/acceptance/wsdl/contributed/gasquery.wsdl
-t/acceptance/wsdl/contributed/OITest.wsdl
-t/acceptance/wsdl/contributed/tools.wsdl
 t/acceptance/wsdl/elementAtomicComplexType.xml
 t/acceptance/wsdl/email_account.wsdl
 t/acceptance/wsdl/generator_test.wsdl
@@ -335,10 +338,16 @@ t/acceptance/wsdl/WSDLParser/import_xsd_cascade.wsdl
 t/acceptance/wsdl/WSDLParser/imported.xsd
 t/acceptance/wsdl/WSDLParser/xsd_import_no_location.wsdl
 t/acceptance/wsdl/WSDLParser_import_loop.wsdl
+t/CodeFirst/ComplexType.pm
+t/CodeFirst/element.pm
+t/CodeFirst/sequence.pm
+t/CodeFirst/test.pl
 t/contributed.wsdl
+t/lib/CodeFirst.pm
 t/lib/Mod_Perl2Test.pm
 t/lib/MyComplexType.pm
 t/lib/MyElement.pm
+t/lib/MySimpleElement.pm
 t/lib/MySimpleType.pm
 t/lib/Test/SOAP/WSDL/Expat/WSDLParser.pm
 t/lib/Test/SOAP/WSDL/Generator/Iterator/WSDL11.pm
@@ -380,6 +389,7 @@ t/SOAP/WSDL/Factory/Serializer.t
 t/SOAP/WSDL/Factory/Transport.t
 t/SOAP/WSDL/Generator/Template.t
 t/SOAP/WSDL/Generator/Template/XSD/Import.t
+t/SOAP/WSDL/Generator/Template/XSD/Unqualified.t
 t/SOAP/WSDL/Generator/Visitor.t
 t/SOAP/WSDL/Generator/Visitor/Typemap.t
 t/SOAP/WSDL/Generator/XSD.t
@@ -393,6 +403,7 @@ t/SOAP/WSDL/Serializer/XSD.t
 t/SOAP/WSDL/Server.t
 t/SOAP/WSDL/Server/CGI.t
 t/SOAP/WSDL/Server/Mod_Perl2.t
+t/SOAP/WSDL/Server/Simple.t
 t/SOAP/WSDL/Transport/01_Test.t
 t/SOAP/WSDL/Transport/acceptance/test2.xml
 t/SOAP/WSDL/Transport/acceptance/test3.xml

META.yml

@@ -1,12 +1,12 @@
 ---
 name: SOAP-WSDL
-version: 2.00.05
+version: 2.00.09
 author:
   - 'Martin Kutter <martin.kutter@fen-net.de>'
 abstract: SOAP with WSDL support
 license: artistic
 resources:
-  license: http://opensource.org/licenses/artistic-license.php
+  license: ~
 requires:
   Class::Std::Fast: 0.0.5
   Data::Dumper: 0
@@ -41,220 +41,220 @@ build_requires:
 provides:
   SOAP::WSDL:
     file: lib/SOAP/WSDL.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Base:
     file: lib/SOAP/WSDL/Base.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Binding:
     file: lib/SOAP/WSDL/Binding.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Client:
     file: lib/SOAP/WSDL/Client.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Client::Base:
     file: lib/SOAP/WSDL/Client/Base.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Definitions:
     file: lib/SOAP/WSDL/Definitions.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Deserializer::Hash:
     file: lib/SOAP/WSDL/Deserializer/Hash.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Deserializer::SOM:
     file: lib/SOAP/WSDL/Deserializer/SOM.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Deserializer::XSD:
     file: lib/SOAP/WSDL/Deserializer/XSD.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Expat::Base:
     file: lib/SOAP/WSDL/Expat/Base.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Expat::Message2Hash:
     file: lib/SOAP/WSDL/Expat/Message2Hash.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Expat::MessageParser:
     file: lib/SOAP/WSDL/Expat/MessageParser.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Expat::MessageStreamParser:
     file: lib/SOAP/WSDL/Expat/MessageStreamParser.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Expat::WSDLParser:
     file: lib/SOAP/WSDL/Expat/WSDLParser.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Factory::Deserializer:
     file: lib/SOAP/WSDL/Factory/Deserializer.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Factory::Generator:
     file: lib/SOAP/WSDL/Factory/Generator.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Factory::Serializer:
     file: lib/SOAP/WSDL/Factory/Serializer.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Factory::Transport:
     file: lib/SOAP/WSDL/Factory/Transport.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Generator::Iterator::WSDL11:
     file: lib/SOAP/WSDL/Generator/Iterator/WSDL11.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Generator::PrefixResolver:
     file: lib/SOAP/WSDL/Generator/PrefixResolver.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Generator::Template:
     file: lib/SOAP/WSDL/Generator/Template.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Generator::Template::Plugin::XSD:
     file: lib/SOAP/WSDL/Generator/Template/Plugin/XSD.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Generator::Template::XSD:
     file: lib/SOAP/WSDL/Generator/Template/XSD.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Generator::Visitor:
     file: lib/SOAP/WSDL/Generator/Visitor.pm
-    version: 2.00.05
+    version: 2.00.09
-  SOAP::WSDL::Generator::Visitor::Typelib:
-    file: lib/SOAP/WSDL/Generator/Visitor/Typelib.pm
-    version: 2.00.05
   SOAP::WSDL::Generator::Visitor::Typemap:
     file: lib/SOAP/WSDL/Generator/Visitor/Typemap.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Message:
     file: lib/SOAP/WSDL/Message.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::OpMessage:
     file: lib/SOAP/WSDL/OpMessage.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Operation:
     file: lib/SOAP/WSDL/Operation.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Part:
     file: lib/SOAP/WSDL/Part.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Port:
     file: lib/SOAP/WSDL/Port.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::PortType:
     file: lib/SOAP/WSDL/PortType.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::SOAP::Address:
     file: lib/SOAP/WSDL/SOAP/Address.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::SOAP::Body:
     file: lib/SOAP/WSDL/SOAP/Body.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::SOAP::Header:
     file: lib/SOAP/WSDL/SOAP/Header.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::SOAP::HeaderFault:
     file: lib/SOAP/WSDL/SOAP/HeaderFault.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::SOAP::Operation:
     file: lib/SOAP/WSDL/SOAP/Operation.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::SOAP::Typelib::Fault11:
     file: lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Serializer::XSD:
     file: lib/SOAP/WSDL/Serializer/XSD.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Server:
     file: lib/SOAP/WSDL/Server.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Server::CGI:
     file: lib/SOAP/WSDL/Server/CGI.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Server::Mod_Perl2:
     file: lib/SOAP/WSDL/Server/Mod_Perl2.pm
-    version: 2.00.05
+    version: 2.00.09
+  SOAP::WSDL::Server::Simple:
+    file: lib/SOAP/WSDL/Server/Simple.pm
+    version: 2.00.09
   SOAP::WSDL::Service:
     file: lib/SOAP/WSDL/Service.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Transport::HTTP:
     file: lib/SOAP/WSDL/Transport/HTTP.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Transport::Loopback:
     file: lib/SOAP/WSDL/Transport/Loopback.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Transport::Test:
     file: lib/SOAP/WSDL/Transport/Test.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::TypeLookup:
     file: lib/SOAP/WSDL/TypeLookup.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::Types:
     file: lib/SOAP/WSDL/Types.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::Annotation:
     file: lib/SOAP/WSDL/XSD/Annotation.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::Attribute:
     file: lib/SOAP/WSDL/XSD/Attribute.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::AttributeGroup:
     file: lib/SOAP/WSDL/XSD/AttributeGroup.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::Builtin:
     file: lib/SOAP/WSDL/XSD/Builtin.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::ComplexType:
     file: lib/SOAP/WSDL/XSD/ComplexType.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::Element:
     file: lib/SOAP/WSDL/XSD/Element.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::Enumeration:
     file: lib/SOAP/WSDL/XSD/Enumeration.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::FractionDigits:
     file: lib/SOAP/WSDL/XSD/FractionDigits.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::Group:
     file: lib/SOAP/WSDL/XSD/Group.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::Length:
     file: lib/SOAP/WSDL/XSD/Length.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::MaxExclusive:
     file: lib/SOAP/WSDL/XSD/MaxExclusive.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::MaxInclusive:
     file: lib/SOAP/WSDL/XSD/MaxInclusive.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::MaxLength:
     file: lib/SOAP/WSDL/XSD/MaxLength.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::MinExclusive:
     file: lib/SOAP/WSDL/XSD/MinExclusive.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::MinInclusive:
     file: lib/SOAP/WSDL/XSD/MinInclusive.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::MinLength:
     file: lib/SOAP/WSDL/XSD/MinLength.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::Pattern:
     file: lib/SOAP/WSDL/XSD/Pattern.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::Schema:
     file: lib/SOAP/WSDL/XSD/Schema.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::Schema::Builtin:
     file: lib/SOAP/WSDL/XSD/Schema/Builtin.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::SimpleType:
     file: lib/SOAP/WSDL/XSD/SimpleType.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::TotalDigits:
     file: lib/SOAP/WSDL/XSD/TotalDigits.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::Typelib::Attribute:
     file: lib/SOAP/WSDL/XSD/Typelib/Attribute.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::Typelib::AttributeSet:
     file: lib/SOAP/WSDL/XSD/Typelib/AttributeSet.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::Typelib::Builtin:
     file: lib/SOAP/WSDL/XSD/Typelib/Builtin.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::Typelib::Builtin::ENTITY:
     file: lib/SOAP/WSDL/XSD/Typelib/Builtin/ENTITY.pm
   SOAP::WSDL::XSD::Typelib::Builtin::ID:
@@ -279,14 +279,14 @@ provides:
     file: lib/SOAP/WSDL/XSD/Typelib/Builtin/anySimpleType.pm
   SOAP::WSDL::XSD::Typelib::Builtin::anyType:
     file: lib/SOAP/WSDL/XSD/Typelib/Builtin/anyType.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::Typelib::Builtin::anyURI:
     file: lib/SOAP/WSDL/XSD/Typelib/Builtin/anyURI.pm
   SOAP::WSDL::XSD::Typelib::Builtin::base64Binary:
     file: lib/SOAP/WSDL/XSD/Typelib/Builtin/base64Binary.pm
   SOAP::WSDL::XSD::Typelib::Builtin::boolean:
     file: lib/SOAP/WSDL/XSD/Typelib/Builtin/boolean.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::Typelib::Builtin::byte:
     file: lib/SOAP/WSDL/XSD/Typelib/Builtin/byte.pm
   SOAP::WSDL::XSD::Typelib::Builtin::date:
@@ -339,7 +339,7 @@ provides:
     file: lib/SOAP/WSDL/XSD/Typelib/Builtin/string.pm
   SOAP::WSDL::XSD::Typelib::Builtin::time:
     file: lib/SOAP/WSDL/XSD/Typelib/Builtin/time.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::Typelib::Builtin::token:
     file: lib/SOAP/WSDL/XSD/Typelib/Builtin/token.pm
   SOAP::WSDL::XSD::Typelib::Builtin::unsignedByte:
@@ -352,20 +352,20 @@ provides:
     file: lib/SOAP/WSDL/XSD/Typelib/Builtin/unsignedShort.pm
   SOAP::WSDL::XSD::Typelib::ComplexType:
     file: lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::Typelib::Element:
     file: lib/SOAP/WSDL/XSD/Typelib/Element.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::Typelib::SimpleType:
     file: lib/SOAP/WSDL/XSD/Typelib/SimpleType.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::Typelib::SimpleType::restriction:
     file: lib/SOAP/WSDL/XSD/Typelib/SimpleType.pm
-    version: 2.00.05
+    version: 2.00.09
   SOAP::WSDL::XSD::WhiteSpace:
     file: lib/SOAP/WSDL/XSD/WhiteSpace.pm
-    version: 2.00.05
+    version: 2.00.09
-generated_by: Module::Build version 0.2808
+generated_by: Module::Build version 0.31012
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.2.html
   version: 1.2

Makefile.PL

@@ -1,4 +1,5 @@
-# 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.31012
+require 5.8.0;
     use Module::Build::Compat 0.02;
     
     Module::Build::Compat->run_build_pl(args => \@ARGV);

TEST_COVERAGE

@@ -6,18 +6,20 @@
 # Note that this shell script requires Devel::CoverX::Covered - if you
 # don't have it, comment out the line noted below
 #
-
+perl Build.PL && perl Build && \
-perl -It/lib -MTAP::Harness -MFile::Find::Rule -e '
+perl -MTAP::Harness -MFile::Find::Rule -e '
     local $ENV{TEST_VERBOSE} = 1;
     TAP::Harness->new({
          merge => 1,
-         lib => [ q{t/lib}, q{lib} ],
+         lib => [ q{t/lib}, q{blib/lib} ],
-         switches => [ q{-MDevel::Cover=-ignore,.,-select,^lib/.+,-coverage,statement,-coverage,subroutine,-coverage,condition,-coverage,branch} ],
+         switches => [ q{-MDevel::Cover=-ignore,.,-select,^blib/lib/.+,-coverage,statement,-coverage,subroutine,-coverage,condition,-coverage,branch} ],
     })->runtests( sort { $a cmp $b } File::Find::Rule->file()->name( q{*.t} )->in( q{t/} ) );
 '
 
 # Devel::CoverX::Covered
-covered runs
+# covered runs
 
-cover -coverage="statement" -coverage=condition -coverage=subroutine -coverage="branch"
+cover
+
+# cover -coverage="statement" -coverage=condition -coverage=subroutine -coverage="branch"
 

benchmark/XSD/strftime.pl

@@ -1,9 +1,20 @@
-use Benchmark qw(cmpthese);
+use Benchmark qw(cmpthese timethis timethese);
 use POSIX ();
 use Date::Format ();
 
 my @time_from = localtime;
 
+#use lib '../../lib';
+
+use SOAP::WSDL::XSD::Typelib::Builtin::dateTime;
+
+my $date = SOAP::WSDL::XSD::Typelib::Builtin::dateTime->new();
+timethese 10000, {
+ 'sprintf' =>   sub { $date->set_value('Dec 24 2004 CET'); }
+};
+
+__END__
+
 print "Comparing POSIX::strftime and Date::Format::strftime '%Y-%m-%dT%H:%M:%S%z'\n\n";
 print 'POSIX: ', POSIX::strftime('%Y-%m-%dT%H:%M:%S%z', @time_from), "\n";
 print 'Date::Format: ', Date::Format::strftime('%Y-%m-%dT%H:%M:%S%z', @time_from), "\n";

benchmark/hello.pl

@@ -8,18 +8,19 @@ use lib '/home/martin/workspace/SOAP-WSDL_XS/blib/lib';
 use lib '/home/martin/workspace/SOAP-WSDL_XS/blib/arch';
 use Data::Dumper;
 use SOAP::Lite;
+use XML::Compile::SOAP11;
 use XML::Compile::WSDL11;
 use XML::Compile::Transport::SOAPHTTP;
 use MyInterfaces::HelloWorld::HelloWorldSoap;
-use SOAP::WSDL::Deserializer::XSD_XS;
+#use SOAP::WSDL::Deserializer::XSD_XS;
 use Benchmark qw(cmpthese timethese);
 
 use SOAP::WSDL::Transport::HTTP;
 use SOAP::WSDL::Factory::Transport;
 SOAP::WSDL::Factory::Transport->register('http', 'SOAP::WSDL::Transport::HTTP');
 
-#my $proxy = 'http://localhost:81/soap-wsdl-test/helloworld.pl';
+my $proxy = 'http://localhost:81/soap-wsdl-test/helloworld.pl';
-my $proxy = 'http://localhost:81/soap-wsdl-test/helloworld';
+#my $proxy = 'http://localhost:81/soap-wsdl-test/helloworld';
 
 my $lite = SOAP::Lite->new(
     proxy => $proxy
@@ -35,7 +36,7 @@ my $soap = MyInterfaces::HelloWorld::HelloWorldSoap->new({
 my $soap_xs = MyInterfaces::HelloWorld::HelloWorldSoap->new({
 	proxy => $proxy,
 });
-$soap_xs->set_deserializer( SOAP::WSDL::Deserializer::XSD_XS->new() );
+#$soap_xs->set_deserializer( SOAP::WSDL::Deserializer::XSD_XS->new() );
 
 my @result = ();;
 
@@ -81,11 +82,11 @@ sub lite_bench {
 compile_bench();
 lite_bench();
 wsdl_bench();
-wsdl_xs_bench();
+#wsdl_xs_bench();
 
 timethese 150, {
     'SOAP::WSDL' => \&wsdl_bench,
-    'SOAP::WSDL_XS' => \&wsdl_xs_bench,
+#    'SOAP::WSDL_XS' => \&wsdl_xs_bench,
     'XML::Compile' => \&compile_bench,
     'SOAP::Lite' => \&lite_bench,
 };

benchmark/person.pl

@@ -8,6 +8,7 @@ use strict;
 
 use Benchmark qw(cmpthese);
 
+use XML::Compile::SOAP11;
 use XML::Compile::Transport::SOAPHTTP();
 use XML::Compile::Util;
 use XML::Compile::WSDL11;
@@ -16,7 +17,7 @@ use XML::Simple;
 use SOAP::Lite;
 use MyInterfaces::TestService::TestPort;
 
-use SOAP::WSDL::Deserializer::XSD_XS;
+#use SOAP::WSDL::Deserializer::XSD_XS;
 use SOAP::WSDL::Factory::Deserializer;
 
 #
@@ -112,8 +113,8 @@ $lite_xml->outputxml(1);
 $lite_xml->ListPerson();
 
 # # 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();
 
 my $count = 70;
 my @data = ();
@@ -138,7 +139,7 @@ $n++;
 cmpthese $count, {
 	'SOAP::Lite'	=> sub { my $som = $lite->call('ListPerson') },
     'SOAP::WSDL' => sub { my $result = $soap->ListPerson({}) },
-    'SOAP::WSDL_XS' => sub { my $result = $wsdl_xs->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')) },
 };
@@ -148,27 +149,27 @@ $n++;
 cmpthese $count, {
     'SOAP::Lite'    => sub { push @data, $lite->call('ListPerson') },
     'SOAP::WSDL'    => sub { push @data, $soap->ListPerson({}) },
-    'SOAP::WSDL_XS' => sub { push @data, $wsdl_xs->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 = ();
-print "\nBenchmark $n: Play it again, Sam\n";
+print "\nBenchmark $n: Play it, please play it again, Sam\n";
 $n++;
 cmpthese $count, {
 
     'SOAP::WSDL'    => sub { push @data, $soap->ListPerson({}) },
-    'SOAP::WSDL_XS' => sub { push @data, $wsdl_xs->ListPerson({}) },
+#    'SOAP::WSDL_XS' => sub { push @data, $wsdl_xs->ListPerson({}) },
-    'XML::Compile'  => sub { push @data, $call->() },
+#    'XML::Compile'  => sub { push @data, $call->() },
-    'SOAP::Lite'    => sub { push @data, $lite->call('ListPerson') },
+#    'SOAP::Lite'    => sub { push @data, $lite->call('ListPerson') },
 };
 
 print "\nBenchmark $n: ca. 1kB request - result destroyed immediately\n";
 $n++;
 cmpthese $count, {
     'SOAP::WSDL'    => sub { my $result = $soap->ListPerson({ in => $person }) },
-    'SOAP::WSDL_XS' => sub { my $result = $wsdl_xs->ListPerson({ in => $person }) },
+#    'SOAP::WSDL_XS' => sub { my $result = $wsdl_xs->ListPerson({ in => $person }) },
     'XML::Compile'  => sub { my $result = $call->({ in => $person }) },
 };
 
@@ -176,7 +177,7 @@ print "\nBenchmark $n: ca. 1kB request - push result on list\n";
 $n++;
 cmpthese $count, {
     'SOAP::WSDL'    => sub { push @data, $soap->ListPerson({ in => $person }) },
-    'SOAP::WSDL_XS' => sub { push @data, $wsdl_xs->ListPerson({ in => $person }) },
+#    'SOAP::WSDL_XS' => sub { push @data, $wsdl_xs->ListPerson({ in => $person }) },
     'XML::Compile'  => sub { push @data, $call->({ in => $person }) },
 };
 

bin/wsdl2perl.pl

@@ -10,13 +10,13 @@ use Term::ReadKey;
 
 my %opt = (
   url => '',
-  prefix => undef,
+  prefix            => 'My',
-  attribute_prefix => 'MyAttributes',
+  attribute_prefix  => undef,
-  type_prefix => 'MyTypes',
+  type_prefix       => undef,
-  element_prefix => 'MyElements',
+  element_prefix    => undef,
-  typemap_prefix => 'MyTypemaps',
+  typemap_prefix    => undef,
-  interface_prefix => 'MyInterfaces',
+  interface_prefix  => undef,
-  server_prefix => 'MyServer',
+  server_prefix     => undef,
   base_path => 'lib/',
   proxy => undef,
   generator => 'XSD',
@@ -86,11 +86,26 @@ my $lwp = LWP::UserAgent->new(
         : ()
     );
 $lwp->env_proxy();  # get proxy from environment. Works for both http & https.
+$lwp->agent(qq[SOAP::WSDL $SOAP::WSDL::Expat::WSDLParser::VERSION]);
 
 my $parser = SOAP::WSDL::Expat::WSDLParser->new({
     user_agent => $lwp,
 });
 
+# resolve the default prefix options
+map {
+    my $opt_key = $_;
+    if ( $opt_key =~ / (\w+) _prefix $/xms # relevant option
+            && !$opt{ $opt_key }           # that hasn't already been explicitly set
+        )
+    {
+        my $prefix_type = $1;
+        $opt{ $opt_key } = $opt{prefix} .                           # My
+                           ucfirst( $prefix_type ) .                # Typemap
+                           ( $prefix_type eq 'server' ? '' : 's' ); # s
+    }
+} keys %opt;
+
 my $definitions = $parser->parse_uri( $url );
 
 my %typemap = ();
@@ -150,7 +165,9 @@ wsdl2perl.pl - create perl bindings for SOAP webservices.
 
  NAME            SHORT  DESCRITPION
  ----------------------------------------------------------------------------
- prefix            p   Prefix for both type and element classes.
+ prefix            p   Prefix for all generated classes. If you set "-p=Foo",
+                       you will get "FooAttributes", "FooTypes",
+					   "FooElements" and so on.
  attribute_prefix  a   Prefix for XML attribute classes.
                        Default: MyAttributes
  type_prefix       t   Prefix for type classes.

covered_by.pl

@@ -1,20 +0,0 @@
-use Getopt::Long;
-use Pod::Usage;
-use File::Basename;
-use POSIX;
-use Data::Dumper;
-use Path::Class;
-
-use Devel::CoverX::Covered::Db;
-my $db = Devel::CoverX::Covered::Db->new(
-    dir => dir('./cover_db')->absolute(),
-);
-
-print( "* Covered *\nVersion: " . Devel::CoverX::Covered->VERSION . "\n" );
-
-my @test_file_from = $db->test_files();
-for my $test_file (sort @test_file_from) {
-    print "$test_file\n";
-    print( "\t", join("\n\t", $db->source_files_covered_by($test_file)) , "\n\n" );
-}
-

covering.pl

@@ -1,58 +0,0 @@
-use strict;
-use Getopt::Long;
-use Pod::Usage;
-use File::Basename;
-use POSIX;
-use Data::Dumper;
-use Path::Class;
-
-use Devel::CoverX::Covered::Db;
-my $db = Devel::CoverX::Covered::Db->new(
-    dir => dir('./cover_db')->absolute(),
-);
-
-sub covered_subs {
-    my $db = shift;
-    my ($covered_file_name, $calling_file_name) = @_;
-
-    my %sub_covered;
-    map { push @{ $sub_covered{ $_->[1] } }, $_->[0] } $db->db->query(
-        qq{
-        SELECT ccm.covered_row, ccm.covered_sub_name
-            FROM covered_calling_metric ccm, file f_covered, file f_calling
-            WHERE
-                    f_covered.name = ?
-                AND f_calling.name = ?
-                AND ccm.calling_file_id = f_calling.file_id
-                AND ccm.covered_file_id = f_covered.file_id
-                AND ccm.metric_type_id = ?
-            GROUP BY ccm.covered_row
-            ORDER by ccm.covered_sub_name
-        },
-        $covered_file_name,
-        $calling_file_name,
-        $db->get_metric_type_id("subroutine"),
-    )->arrays;
-
-    return \%sub_covered;
-}
-
-print( "* Covered *\nVersion: " . Devel::CoverX::Covered->VERSION . "\n" );
-
-my @covered_files = sort { $a cmp $b } $db->covered_files();
-for my $covered_file (sort @covered_files) {
-    next if $covered_file =~m{\.t$}x;
-    print "$covered_file\n";
-#   print( "\t", join("\n\t", $db->test_files_covering($covered_file)) , "\n\n" );
-
-    my @test_files = $db->test_files_covering($covered_file);
-    for my $test_file (@test_files) {
-        print "\t$test_file\n";
-
-        my $covered_subs_of_ref = covered_subs($db, $covered_file, $test_file);
-        for my $covered_sub (sort keys %{ $covered_subs_of_ref }) {
-            print "\t\t$covered_sub (line ", join(q{, }, @{ $covered_subs_of_ref->{ $covered_sub } }), ")\n";
-        }
-    }
-}
-

example/hello.pl

@@ -7,7 +7,9 @@ use lib 'lib';  # just needed because interface lies here
 use MyInterfaces::HelloWorld::HelloWorldSoap;
 
 # I instantiate a interface class.
-my $soap = MyInterfaces::HelloWorld::HelloWorldSoap->new();
+my $soap = MyInterfaces::HelloWorld::HelloWorldSoap->new({
+#	proxy => 'http://localhost:8080/JLearn/WS/sayHello'
+});
 
 # I have to lookup the method and synopsis from the interface's pod
 my $result = $soap->sayHello({

example/hello_compile.pl

@@ -1,6 +1,7 @@
 #!/usr/bin/perl -w
 use strict;
 use warnings;
+use XML::Compile::SOAP11;
 use XML::Compile::WSDL11;
 use XML::Compile::Transport::SOAPHTTP;
 
@@ -10,9 +11,11 @@ my $wsdl = XML::Compile::WSDL11->new('wsdl/11_helloworld.wsdl');
 
 # I compile a interface method for a single SOAP method from the WSDL
 # I have to lookup the method names from the WSDL
+# or use the provided script examining the WSDL
 my $call = $wsdl->compileClient('sayHello');
 
 # I have to lookup the parameters from the WSDL - can be quite tricky
+# XML::Compile provides a script creating examples, so I can use that, too.
 my $result = $call->(
     name => $ARGV[1] || '"Your name"',
     givenName => $ARGV[0] || '"Your given name"',
@@ -22,4 +25,5 @@ my $result = $call->(
 die "Error calling soap method" if not defined $result;
 
 # I have to lookup the output parameters from the WSDL - or try Data::Dumper
+# XML::Compile provides a script creating examples, so I can use that, too.
 print $result->{ parameters }->{ sayHelloResult }, "\n";

example/hello_lite.pl

@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 #use strict;
 use warnings;
-use SOAP::Lite +trace;
+use SOAP::Lite; # +trace;
 
 # I have to lookup the URL from the WSDL
 my $soap = SOAP::Lite->new(

example/java/cxf/.classpath

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<classpath>
+	<classpathentry kind="src" path="src/test/java"/>
+	<classpathentry kind="src" path="src/main/java"/>
+	<classpathentry kind="src" path="src/main/resources"/>
+	<classpathentry kind="src" path="src/test/resources"/>
+	<classpathentry kind="con" path="org.eclipse.jdt.launching.JRE_CONTAINER/org.eclipse.jdt.internal.debug.ui.launcher.StandardVMType/java-6-openjdk"/>
+	<classpathentry kind="con" path="org.maven.ide.eclipse.MAVEN2_CLASSPATH_CONTAINER"/>
+	<classpathentry kind="output" path="target/classes"/>
+</classpath>

example/java/cxf/.settings/org.eclipse.jdt.core.prefs

@@ -0,0 +1,5 @@
+#Fri Feb 20 19:27:55 CET 2009
+eclipse.preferences.version=1
+org.eclipse.jdt.core.compiler.codegen.targetPlatform=1.5
+org.eclipse.jdt.core.compiler.compliance=1.5
+org.eclipse.jdt.core.compiler.source=1.5

example/java/cxf/.settings/org.maven.ide.eclipse.prefs

@@ -0,0 +1,8 @@
+#Fri Feb 20 19:27:52 CET 2009
+activeProfiles=
+eclipse.preferences.version=1
+fullBuildGoals=process-test-resources
+includeModules=false
+resolveWorkspaceProjects=true
+resourceFilterGoals=process-resources resources\:testResources
+version=1

example/java/cxf/11_helloworld.wsdl

@@ -0,0 +1,95 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<definitions xmlns:http="http://schemas.xmlsoap.org/wsdl/http/"
+	xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
+	xmlns:s="http://www.w3.org/2001/XMLSchema" xmlns:s0="urn:HelloWorld"
+	xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"
+	xmlns:tm="http://microsoft.com/wsdl/mime/textMatching/"
+	xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/"
+	targetNamespace="urn:HelloWorld"
+	xmlns="http://schemas.xmlsoap.org/wsdl/">
+	<types>
+		<s:schema elementFormDefault="qualified"
+			targetNamespace="urn:HelloWorld">
+			<s:element name="sayHello">
+				<s:complexType>
+					<s:sequence>
+						<s:element minOccurs="0" maxOccurs="1"
+							name="name" type="s:string" />
+						<s:element minOccurs="0" maxOccurs="1"
+							name="givenName" type="s:string" nillable="1" />
+					</s:sequence>
+				</s:complexType>
+			</s:element>
+
+			<s:element name="sayHelloResponse">
+				<s:complexType>
+					<s:sequence>
+						<s:element minOccurs="0" maxOccurs="1"
+							name="sayHelloResult" type="s:string" />
+					</s:sequence>
+				</s:complexType>
+			</s:element>
+
+			<s:complexType name="test2">
+				<s:sequence>
+					<s:element minOccurs="0" maxOccurs="1" name="name"
+						type="s:string" />
+
+					<s:element minOccurs="0" maxOccurs="1"
+						name="givenName" type="s:string" />
+				</s:sequence>
+			</s:complexType>
+
+			<s:complexType name="testExtended">
+				<s:extension base="s0:test2">
+					<s:sequence>
+						<s:element minOccurs="0" maxOccurs="1"
+							name="extend" type="s:string" />
+					</s:sequence>
+				</s:extension>
+			</s:complexType>
+		</s:schema>
+	</types>
+
+	<message name="sayHelloSoapIn">
+		<part name="parameters" element="s0:sayHello" />
+	</message>
+
+	<message name="sayHelloSoapOut">
+		<part name="parameters" element="s0:sayHelloResponse" />
+	</message>
+
+	<portType name="Service1Soap">
+		<operation name="sayHello">
+			<input message="s0:sayHelloSoapIn" />
+
+			<output message="s0:sayHelloSoapOut" />
+		</operation>
+	</portType>
+
+	<binding name="Service1Soap" type="s0:Service1Soap">
+		<soap:binding transport="http://schemas.xmlsoap.org/soap/http"
+			style="document" />
+
+		<operation name="sayHello">
+			<soap:operation soapAction="urn:HelloWorld#sayHello"
+				style="document" />
+
+			<input>
+				<soap:body use="literal" />
+			</input>
+
+			<output>
+				<soap:body use="literal" />
+			</output>
+		</operation>
+	</binding>
+
+	<service name="HelloWorld">
+		<port name="HelloWorldSoap" binding="s0:Service1Soap">
+			<soap:address
+				location="http://localhost:81/soap-wsdl-test/helloworld.pl" />
+		</port>
+	</service>
+</definitions>
+

example/java/cxf/README

@@ -0,0 +1,22 @@
+README
+------
+
+This is an example for creating a Apache CXF based client for a SOAP::WSDL
+based SOAP server.
+
+The example contains a pom.xml for building CXF based SOAP Clients from
+a WSDL, a test Spring context configuration, and a JUnit4 test class for
+testing the generated client.
+
+It is intended to run against the HTTP::Server::Simple based SOAP server
+in example/server/hello_simple.pl
+
+To run the example, fire up the test server by calling
+
+ perl example/server/hello_simple.pl
+
+Then open a second terminal and run
+
+ mvn test
+
+The included JUnit test should pass.

example/java/cxf/jax-binding.xml

@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<bindings
+    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+    xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
+    xmlns="http://java.sun.com/xml/ns/jaxws"
+    xmlns:jxb="http://java.sun.com/xml/ns/jaxb"
+>
+        <bindings
+                node="wsdl:definitions/wsdl:types/xsd:schema[@targetNamespace='urn:HelloWorld']">
+                <jxb:globalBindings xmlns:jxb="http://java.sun.com/xml/ns/jaxb"
+                        xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+                        <jxb:serializable/>
+                </jxb:globalBindings>
+        </bindings>
+</bindings>

example/java/cxf/pom.xml

@@ -0,0 +1,181 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<project xmlns="http://maven.apache.org/POM/4.0.0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+    xsi:schemaLocation="http://maven.apache.org/POM/4.0.0 http://maven.apache.org/maven-v4_0_0.xsd">
+    <modelVersion>4.0.0</modelVersion>
+    <groupId>perl.soap.wsdl</groupId>
+    <artifactId>cxf-test</artifactId>
+    <version>1.0.0</version>
+    <properties>
+        <cxf.version>2.1.4</cxf.version>
+    </properties>
+    <dependencies>
+        <!--
+            Depending on your requirements you may need more or fewer modules
+            from cxf
+        --><!--
+        <dependency>
+             <groupId>org.apache.cxf</groupId>
+             <artifactId>cxf-api</artifactId>
+             <version>${cxf.version}</version>
+            <exclusions>
+                <exclusion>
+                    <artifactId>spring-core</artifactId>
+                    <groupId>org.springframework</groupId>
+                </exclusion>
+                <exclusion>
+                    <artifactId>spring-beans</artifactId>
+                    <groupId>org.springframework</groupId>
+                </exclusion>
+                <exclusion>
+                    <artifactId>spring-context</artifactId>
+                    <groupId>org.springframework</groupId>
+                </exclusion>
+            </exclusions>
+         </dependency>
+
+         <dependency>
+             <groupId>org.apache.cxf</groupId>
+             <artifactId>cxf-common-utilities</artifactId>
+             <version>${cxf.version}</version>
+                         <exclusions>
+                <exclusion>
+                    <artifactId>spring-core</artifactId>
+                    <groupId>org.springframework</groupId>
+                </exclusion>
+                <exclusion>
+                    <artifactId>spring-beans</artifactId>
+                    <groupId>org.springframework</groupId>
+                </exclusion>
+                <exclusion>
+                    <artifactId>spring-context</artifactId>
+                    <groupId>org.springframework</groupId>
+                </exclusion>
+            </exclusions>
+         </dependency>
+        -->
+        <dependency>
+            <groupId>org.apache.cxf</groupId>
+            <artifactId>cxf-rt-frontend-jaxws</artifactId>
+            <version>${cxf.version}</version>
+            <exclusions>
+                <exclusion>
+                    <artifactId>spring-core</artifactId>
+                    <groupId>org.springframework</groupId>
+                </exclusion>
+                <exclusion>
+                    <artifactId>spring-beans</artifactId>
+                    <groupId>org.springframework</groupId>
+                </exclusion>
+                <exclusion>
+                    <artifactId>spring-context</artifactId>
+                    <groupId>org.springframework</groupId>
+                </exclusion>
+            </exclusions>
+        </dependency>
+        <dependency>
+            <groupId>org.apache.cxf</groupId>
+            <artifactId>cxf-rt-transports-http</artifactId>
+            <version>${cxf.version}</version>
+            <exclusions>
+                <exclusion>
+                    <artifactId>spring-core</artifactId>
+                    <groupId>org.springframework</groupId>
+                </exclusion>
+                <exclusion>
+                    <artifactId>spring-beans</artifactId>
+                    <groupId>org.springframework</groupId>
+                </exclusion>
+                <exclusion>
+                    <artifactId>spring-context</artifactId>
+                    <groupId>org.springframework</groupId>
+                </exclusion>
+                <exclusion>
+                    <artifactId>spring-web</artifactId>
+                    <groupId>org.springframework</groupId>
+                </exclusion>
+            </exclusions>
+        </dependency>
+        <dependency>
+            <groupId>junit</groupId>
+            <artifactId>junit</artifactId>
+            <version>4.4</version>
+            <scope>test</scope>
+        </dependency>
+        <dependency>
+            <groupId>org.springframework</groupId>
+            <artifactId>org.springframework.core</artifactId>
+            <version>2.5.6.A</version>
+        </dependency>
+        <dependency>
+            <groupId>org.springframework</groupId>
+            <artifactId>org.springframework.beans</artifactId>
+            <version>2.5.6.A</version>
+        </dependency>
+        <dependency>
+            <groupId>org.springframework</groupId>
+            <artifactId>org.springframework.test</artifactId>
+            <version>2.5.6.A</version>
+            <scope>test</scope>
+        </dependency>
+        <dependency>
+            <groupId>org.springframework</groupId>
+            <artifactId>org.springframework.context</artifactId>
+            <version>2.5.6.A</version>
+        </dependency>
+        <dependency>
+            <groupId>org.springframework</groupId>
+            <artifactId>org.springframework.web</artifactId>
+            <version>2.5.6.A</version>
+        </dependency>
+        <dependency>
+            <groupId>org.apache.cxf</groupId>
+            <artifactId>cxf-rt-transports-http-jetty</artifactId>
+            <version>${cxf.version}</version>
+        </dependency>
+    </dependencies>
+    <build>
+        <plugins>
+            <plugin>
+                <artifactId>maven-compiler-plugin</artifactId>
+                <configuration>
+                    <source>1.5</source>
+                    <target>1.5</target>
+                </configuration>
+            </plugin>
+            <plugin>
+                <artifactId>maven-compiler-plugin</artifactId>
+                <configuration>
+                    <source>1.5</source>
+                    <target>1.5</target>
+                </configuration>
+            </plugin>
+            <plugin>
+                <groupId>org.apache.cxf</groupId>
+                <artifactId>cxf-codegen-plugin</artifactId>
+                <version>2.0.9</version>
+                <executions>
+                    <execution>
+                        <id>generate-sources</id>
+                        <phase>generate-sources</phase>
+                        <configuration>
+                            <sourceRoot>${basedir}/src/main/java</sourceRoot>
+                            <wsdlOptions>
+                                <wsdlOption>
+                                    <wsdl>${basedir}/11_helloworld.wsdl</wsdl>
+                                    <extraargs>
+                                        <extraarg>-b</extraarg>
+                                        <extraarg>${basedir}/jax-binding.xml</extraarg>
+                                    </extraargs>
+                                </wsdlOption>
+                            </wsdlOptions>
+                        </configuration>
+                        <goals>
+                            <goal>wsdl2java</goal>
+                        </goals>
+                    </execution>
+                </executions>
+            </plugin>
+        </plugins>
+    </build>
+
+</project>

example/java/cxf/src/main/resources/cxf.xml

@@ -0,0 +1,21 @@
+<beans xmlns="http://www.springframework.org/schema/beans"
+       xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+       xmlns:http-conf="http://cxf.apache.org/transports/http/configuration"
+       xsi:schemaLocation="http://cxf.apache.org/transports/http/configuration
+           http://cxf.apache.org/schemas/configuration/http-conf.xsd
+           http://www.springframework.org/schema/beans
+           http://www.springframework.org/schema/beans/spring-beans.xsd">
+  <!--
+  This http-conf:conduit is required for SOAP::WSDL based CGI-servers.
+  SOAP::WSDL::Server::CGI does not allow chunked transfer-encoding, which
+  is the default for CXF. the http-conf:conduit below switches it off.
+
+  Adapt the name to your URI(s). Wildcards are allowed.
+
+   -->
+
+  <http-conf:conduit
+           name="http://localhost:8081.http-conduit">
+      <http-conf:client AllowChunking="false"/>
+  </http-conf:conduit>
+</beans>

example/java/cxf/src/test/java/helloworld/HelloWorldTest.java

@@ -0,0 +1,23 @@
+package helloworld;
+import static org.junit.Assert.*;
+
+import org.junit.Test;
+import org.junit.runner.RunWith;
+import org.springframework.beans.factory.annotation.Autowired;
+import org.springframework.test.context.ContextConfiguration;
+import org.springframework.test.context.junit4.SpringJUnit4ClassRunner;
+
+@RunWith(SpringJUnit4ClassRunner.class)
+@ContextConfiguration(locations = { "classpath:test-context.xml"})
+
+public class HelloWorldTest {
+	@Autowired
+	private Service1Soap soapClient;
+
+	@Test
+	public void testClient() {
+		assertNotNull(soapClient);
+		String result = soapClient.sayHello("Kutter", "Martin");
+		assertEquals("Hello Martin Kutter", result);
+	}
+}

example/java/cxf/src/test/resources/test-context.xml

@@ -0,0 +1,16 @@
+<beans xmlns="http://www.springframework.org/schema/beans"
+  xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+  xmlns:jaxws="http://cxf.apache.org/jaxws"
+  xsi:schemaLocation="
+http://www.springframework.org/schema/beans http://www.springframework.org/schema/beans/spring-beans-2.0.xsd
+http://cxf.apache.org/jaxws http://cxf.apache.org/schemas/jaxws.xsd">
+
+  <bean id="proxyFactory" class="org.apache.cxf.jaxws.JaxWsProxyFactoryBean">
+    <property name="serviceClass" value="helloworld.Service1Soap"/>
+    <property name="address" value="http://localhost:8081"/>
+  </bean>
+
+  <bean id="helloWorldClient" class="helloworld.Service1Soap"
+    factory-bean="proxyFactory" factory-method="create"/>
+
+</beans>

example/leaktest/hello_wsdl.pl

@@ -1,45 +0,0 @@
-#!/usr/bin/perl -w
-use strict;
-use warnings;
-# use SOAP::Lite 'trace';
-use Devel::Leak;
-use Devel::Cycle;
-use SOAP::WSDL;
-my $path = `pwd`; chomp $path;
-# I have to lookup the URL from the WSDL
-
-use SOAP::WSDL::Factory::Transport;
-SOAP::WSDL::Factory::Transport->register('http' => 'SOAP::WSDL::Transport::HTTP');
-
-my $table;
-my $count = Devel::Leak::NoteSV($table);
-
-for (1..10) { 
-    my $soap;
-    $soap = SOAP::WSDL->new(
-	    wsdl => "file://$path/../wsdl/11_helloworld.wsdl",
-    );
-    $count = Devel::Leak::NoteSV($table);
-    print "SVs: $count\n";
-
-    $soap->wsdlinit();
-    # $count = Devel::Leak::NoteSV($table);
-    # print "SVs: $count\n";
-    # $soap->autotype(0);
-
-my $som = $soap->call(
-    "sayHello", 
-    'sayHello', => { 'name' => 'Your Name',
-    'givenName' => 'Your given name',
-	}
-);
-
-die $som->fault->{ faultstring } if ($som->fault);
-
-print $som->result, "\n";
-    undef $som;
-# $count = Devel::Leak::NoteSV($table);
-# print "SVs: $count\n";
-}
-#}
-sleep 500;

example/leaktest/leak.pl

@@ -1,28 +0,0 @@
-#!/usr/bin/perl -w
-use strict;
-use warnings;
-# use SOAP::Lite 'trace';
-use Devel::Leak;
-use SOAP::WSDL;
-use SOAP::WSDL::Definitions;
-use SOAP::WSDL::Binding;
-my $path = `pwd`; chomp $path;
-# I have to lookup the URL from the WSDL
-
-my $table;
-my $count = Devel::Leak::NoteSV($table);
-for (1..3) {
-print "SVs: $count\n";
-my $definitions = SOAP::WSDL::Definitions->new({
-	annotation => 'Foo',
-});
-
-$definitions->set_binding(
-    SOAP::WSDL::Binding->new({ parent => $definitions })
-);
-
-undef $definitions;
-$count = Devel::Leak::NoteSV($table);
-}
-print "SVs: $count\n";
-

example/leaktest/parse.pl

@@ -1,16 +0,0 @@
-use SOAP::WSDL::Expat::WSDLParser;
-use Devel::Leak;
-my $xml = `cat ../wsdl/11_helloworld.wsdl`;
-
-my ($table, $count);
-
-
-for (1..5) {
-	$count = Devel::Leak::NoteSV($table);
-	print "SV: $count \n";
-	my $parser = SOAP::WSDL::Expat::WSDLParser->new();
-	$parser->parse_string($xml);
-	my $data = $parser->get_data();
-	undef $parser;
-	undef $data;
-}

example/lib/MyElements/CountCookies.pm

@@ -1,3 +1,4 @@
+
 package MyElements::CountCookies;
 use strict;
 use warnings;
@@ -17,13 +18,30 @@ use base qw(
     SOAP::WSDL::XSD::Typelib::ComplexType
 );
 
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+
+
+# There's no variety - empty complexType
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+__PACKAGE__->_factory();
+
 
 
 
 } # end of BLOCK
+
+
+
 1;
 
-# __END__
 
 =pod
 
@@ -36,6 +54,21 @@ MyElements::CountCookies
 Perl data type class for the XML Schema defined element
 CountCookies from the namespace http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.
 
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+
 =head1 METHODS
 
 =head2 new

example/lib/MyElements/CountCookiesResponse.pm

@@ -1,3 +1,4 @@
+
 package MyElements::CountCookiesResponse;
 use strict;
 use warnings;
@@ -16,6 +17,14 @@ use base qw(
     SOAP::WSDL::XSD::Typelib::Element
     SOAP::WSDL::XSD::Typelib::ComplexType
 );
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
 use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
 
@@ -26,14 +35,18 @@ Class::Std::initialize();
 my %CountCookiesResult_of :ATTR(:get<CountCookiesResult>);
 
 __PACKAGE__->_factory(
-    [ qw(
+    [ qw(        CountCookiesResult
-        CountCookiesResult
+
     ) ],
     {
-        CountCookiesResult => \%CountCookiesResult_of,
+        'CountCookiesResult' => \%CountCookiesResult_of,
     },
     {
-        CountCookiesResult => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+        'CountCookiesResult' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+    },
+    {
+
+        'CountCookiesResult' => 'CountCookiesResult',
     }
 );
 
@@ -44,11 +57,12 @@ __PACKAGE__->_factory(
 
 
 
-
 } # end of BLOCK
+
+
+
 1;
 
-# __END__
 
 =pod
 
@@ -61,6 +75,30 @@ MyElements::CountCookiesResponse
 Perl data type class for the XML Schema defined element
 CountCookiesResponse from the namespace http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.
 
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * CountCookiesResult
+
+ $element->set_CountCookiesResult($data);
+ $element->get_CountCookiesResult();
+
+
+
+
+=back
+
+
 =head1 METHODS
 
 =head2 new

example/lib/MyElements/GenerateBarCode.pm

@@ -43,12 +43,6 @@ __PACKAGE__->_factory(
 
 } # end BLOCK
 
-
-
-
-
-
-
 } # end of BLOCK
 1;
 

example/lib/MyElements/GetFortuneCookie.pm

@@ -1,3 +1,4 @@
+
 package MyElements::GetFortuneCookie;
 use strict;
 use warnings;
@@ -17,13 +18,30 @@ use base qw(
     SOAP::WSDL::XSD::Typelib::ComplexType
 );
 
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+
+
+# There's no variety - empty complexType
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+__PACKAGE__->_factory();
+
 
 
 
 } # end of BLOCK
+
+
+
 1;
 
-# __END__
 
 =pod
 
@@ -36,6 +54,21 @@ MyElements::GetFortuneCookie
 Perl data type class for the XML Schema defined element
 GetFortuneCookie from the namespace http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.
 
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+
 =head1 METHODS
 
 =head2 new

example/lib/MyElements/GetFortuneCookieResponse.pm

@@ -1,3 +1,4 @@
+
 package MyElements::GetFortuneCookieResponse;
 use strict;
 use warnings;
@@ -16,6 +17,14 @@ use base qw(
     SOAP::WSDL::XSD::Typelib::Element
     SOAP::WSDL::XSD::Typelib::ComplexType
 );
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
 use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
 
@@ -26,14 +35,18 @@ Class::Std::initialize();
 my %GetFortuneCookieResult_of :ATTR(:get<GetFortuneCookieResult>);
 
 __PACKAGE__->_factory(
-    [ qw(
+    [ qw(        GetFortuneCookieResult
-        GetFortuneCookieResult
+
     ) ],
     {
-        GetFortuneCookieResult => \%GetFortuneCookieResult_of,
+        'GetFortuneCookieResult' => \%GetFortuneCookieResult_of,
     },
     {
-        GetFortuneCookieResult => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        'GetFortuneCookieResult' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+    },
+    {
+
+        'GetFortuneCookieResult' => 'GetFortuneCookieResult',
     }
 );
 
@@ -44,11 +57,12 @@ __PACKAGE__->_factory(
 
 
 
-
 } # end of BLOCK
+
+
+
 1;
 
-# __END__
 
 =pod
 
@@ -61,6 +75,30 @@ MyElements::GetFortuneCookieResponse
 Perl data type class for the XML Schema defined element
 GetFortuneCookieResponse from the namespace http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.
 
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * GetFortuneCookieResult
+
+ $element->set_GetFortuneCookieResult($data);
+ $element->get_GetFortuneCookieResult();
+
+
+
+
+=back
+
+
 =head1 METHODS
 
 =head2 new

example/lib/MyElements/GetSpecificCookie.pm

@@ -1,3 +1,4 @@
+
 package MyElements::GetSpecificCookie;
 use strict;
 use warnings;
@@ -16,6 +17,14 @@ use base qw(
     SOAP::WSDL::XSD::Typelib::Element
     SOAP::WSDL::XSD::Typelib::ComplexType
 );
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
 use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
 
@@ -26,14 +35,18 @@ Class::Std::initialize();
 my %index_of :ATTR(:get<index>);
 
 __PACKAGE__->_factory(
-    [ qw(
+    [ qw(        index
-        index
+
     ) ],
     {
-        index => \%index_of,
+        'index' => \%index_of,
     },
     {
-        index => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+        'index' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+    },
+    {
+
+        'index' => 'index',
     }
 );
 
@@ -44,11 +57,12 @@ __PACKAGE__->_factory(
 
 
 
-
 } # end of BLOCK
+
+
+
 1;
 
-# __END__
 
 =pod
 
@@ -61,6 +75,30 @@ MyElements::GetSpecificCookie
 Perl data type class for the XML Schema defined element
 GetSpecificCookie from the namespace http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.
 
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * index
+
+ $element->set_index($data);
+ $element->get_index();
+
+
+
+
+=back
+
+
 =head1 METHODS
 
 =head2 new

example/lib/MyElements/GetSpecificCookieResponse.pm

@@ -1,3 +1,4 @@
+
 package MyElements::GetSpecificCookieResponse;
 use strict;
 use warnings;
@@ -16,6 +17,14 @@ use base qw(
     SOAP::WSDL::XSD::Typelib::Element
     SOAP::WSDL::XSD::Typelib::ComplexType
 );
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
 use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
 
@@ -26,14 +35,18 @@ Class::Std::initialize();
 my %GetSpecificCookieResult_of :ATTR(:get<GetSpecificCookieResult>);
 
 __PACKAGE__->_factory(
-    [ qw(
+    [ qw(        GetSpecificCookieResult
-        GetSpecificCookieResult
+
     ) ],
     {
-        GetSpecificCookieResult => \%GetSpecificCookieResult_of,
+        'GetSpecificCookieResult' => \%GetSpecificCookieResult_of,
     },
     {
-        GetSpecificCookieResult => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        'GetSpecificCookieResult' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+    },
+    {
+
+        'GetSpecificCookieResult' => 'GetSpecificCookieResult',
     }
 );
 
@@ -44,11 +57,12 @@ __PACKAGE__->_factory(
 
 
 
-
 } # end of BLOCK
+
+
+
 1;
 
-# __END__
 
 =pod
 
@@ -61,6 +75,30 @@ MyElements::GetSpecificCookieResponse
 Perl data type class for the XML Schema defined element
 GetSpecificCookieResponse from the namespace http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.
 
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * GetSpecificCookieResult
+
+ $element->set_GetSpecificCookieResult($data);
+ $element->get_GetSpecificCookieResult();
+
+
+
+
+=back
+
+
 =head1 METHODS
 
 =head2 new

example/lib/MyElements/int.pm

@@ -1,3 +1,4 @@
+
 package MyElements::int;
 use strict;
 use warnings;
@@ -14,14 +15,12 @@ __PACKAGE__->__set_ref();
 use base qw(
     SOAP::WSDL::XSD::Typelib::Element
     SOAP::WSDL::XSD::Typelib::Builtin::int
-
 );
 
+}
 
-} # end of BLOCK
 1;
 
-# __END__
 
 =pod
 
@@ -34,6 +33,12 @@ MyElements::int
 Perl data type class for the XML Schema defined element
 int from the namespace http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.
 
+
+
+
+
+
+
 =head1 METHODS
 
 =head2 new

example/lib/MyElements/readNodeCount.pm

@@ -1,3 +1,4 @@
+
 package MyElements::readNodeCount;
 use strict;
 use warnings;
@@ -17,13 +18,30 @@ use base qw(
     SOAP::WSDL::XSD::Typelib::ComplexType
 );
 
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+
+
+# There's no variety - empty complexType
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+__PACKAGE__->_factory();
+
 
 
 
 } # end of BLOCK
+
+
+
 1;
 
-# __END__
 
 =pod
 
@@ -36,6 +54,21 @@ MyElements::readNodeCount
 Perl data type class for the XML Schema defined element
 readNodeCount from the namespace http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.
 
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+
 =head1 METHODS
 
 =head2 new

example/lib/MyElements/readNodeCountResponse.pm

@@ -1,3 +1,4 @@
+
 package MyElements::readNodeCountResponse;
 use strict;
 use warnings;
@@ -16,6 +17,14 @@ use base qw(
     SOAP::WSDL::XSD::Typelib::Element
     SOAP::WSDL::XSD::Typelib::ComplexType
 );
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
 use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
 
@@ -26,14 +35,18 @@ Class::Std::initialize();
 my %readNodeCountResult_of :ATTR(:get<readNodeCountResult>);
 
 __PACKAGE__->_factory(
-    [ qw(
+    [ qw(        readNodeCountResult
-        readNodeCountResult
+
     ) ],
     {
-        readNodeCountResult => \%readNodeCountResult_of,
+        'readNodeCountResult' => \%readNodeCountResult_of,
     },
     {
-        readNodeCountResult => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+        'readNodeCountResult' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+    },
+    {
+
+        'readNodeCountResult' => 'readNodeCountResult',
     }
 );
 
@@ -44,11 +57,12 @@ __PACKAGE__->_factory(
 
 
 
-
 } # end of BLOCK
+
+
+
 1;
 
-# __END__
 
 =pod
 
@@ -61,6 +75,30 @@ MyElements::readNodeCountResponse
 Perl data type class for the XML Schema defined element
 readNodeCountResponse from the namespace http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.
 
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * readNodeCountResult
+
+ $element->set_readNodeCountResult($data);
+ $element->get_readNodeCountResult();
+
+
+
+
+=back
+
+
 =head1 METHODS
 
 =head2 new

example/lib/MyElements/string.pm

@@ -1,27 +1,26 @@
+
 package MyElements::string;
 use strict;
 use warnings;
 
 { # BLOCK to scope variables
 
-sub get_xmlns { 'http://www.webserviceX.NET' }
+sub get_xmlns { 'http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx' }
 
 __PACKAGE__->__set_name('string');
-__PACKAGE__->__set_nillable(true);
+__PACKAGE__->__set_nillable(1);
 __PACKAGE__->__set_minOccurs();
 __PACKAGE__->__set_maxOccurs();
 __PACKAGE__->__set_ref();
 use base qw(
     SOAP::WSDL::XSD::Typelib::Element
     SOAP::WSDL::XSD::Typelib::Builtin::string
-
 );
 
+}
 
-} # end of BLOCK
 1;
 
-# __END__
 
 =pod
 
@@ -32,7 +31,13 @@ MyElements::string
 =head1 DESCRIPTION
 
 Perl data type class for the XML Schema defined element
-string from the namespace http://www.webserviceX.NET.
+string from the namespace http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.
+
+
+
+
+
+
 
 =head1 METHODS
 

example/lib/MyInterfaces/FullerData_x0020_Fortune_x0020_Cookie/FullerData_x0020_Fortune_x0020_CookieSoap.pm

@@ -13,6 +13,8 @@ sub START {
     $_[0]->set_proxy('http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx') if not $_[2]->{proxy};
     $_[0]->set_class_resolver('MyTypemaps::FullerData_x0020_Fortune_x0020_Cookie')
         if not $_[2]->{class_resolver};
+
+    $_[0]->set_prefix($_[2]->{use_prefix}) if exists $_[2]->{use_prefix};
 }
 
 sub readNodeCount {
@@ -24,10 +26,11 @@ sub readNodeCount {
         style => 'document',
         body => {
             
-           'use' => 'literal',
+
-            namespace => '',
+           'use'            => 'literal',
-            encodingStyle => '',
+            namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
-            parts => [qw( MyElements::readNodeCount )],
+            encodingStyle   => '',
+            parts           =>  [qw( MyElements::readNodeCount )],
         },
         header => {
             
@@ -38,6 +41,7 @@ sub readNodeCount {
     }, $body, $header);
 }
 
+
 sub GetFortuneCookie {
     my ($self, $body, $header) = @_;
     die "GetFortuneCookie must be called as object method (\$self is <$self>)" if not blessed($self);
@@ -47,10 +51,11 @@ sub GetFortuneCookie {
         style => 'document',
         body => {
             
-           'use' => 'literal',
+
-            namespace => '',
+           'use'            => 'literal',
-            encodingStyle => '',
+            namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
-            parts => [qw( MyElements::GetFortuneCookie )],
+            encodingStyle   => '',
+            parts           =>  [qw( MyElements::GetFortuneCookie )],
         },
         header => {
             
@@ -61,6 +66,7 @@ sub GetFortuneCookie {
     }, $body, $header);
 }
 
+
 sub CountCookies {
     my ($self, $body, $header) = @_;
     die "CountCookies must be called as object method (\$self is <$self>)" if not blessed($self);
@@ -70,10 +76,11 @@ sub CountCookies {
         style => 'document',
         body => {
             
-           'use' => 'literal',
+
-            namespace => '',
+           'use'            => 'literal',
-            encodingStyle => '',
+            namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
-            parts => [qw( MyElements::CountCookies )],
+            encodingStyle   => '',
+            parts           =>  [qw( MyElements::CountCookies )],
         },
         header => {
             
@@ -84,6 +91,7 @@ sub CountCookies {
     }, $body, $header);
 }
 
+
 sub GetSpecificCookie {
     my ($self, $body, $header) = @_;
     die "GetSpecificCookie must be called as object method (\$self is <$self>)" if not blessed($self);
@@ -93,10 +101,11 @@ sub GetSpecificCookie {
         style => 'document',
         body => {
             
-           'use' => 'literal',
+
-            namespace => '',
+           'use'            => 'literal',
-            encodingStyle => '',
+            namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
-            parts => [qw( MyElements::GetSpecificCookie )],
+            encodingStyle   => '',
+            parts           =>  [qw( MyElements::GetSpecificCookie )],
         },
         header => {
             
@@ -109,6 +118,7 @@ sub GetSpecificCookie {
 
 
 
+
 1;
 
 
@@ -119,7 +129,6 @@ __END__
 
 =head1 NAME
 
-
 MyInterfaces::FullerData_x0020_Fortune_x0020_Cookie::FullerData_x0020_Fortune_x0020_CookieSoap - SOAP Interface for the FullerData_x0020_Fortune_x0020_Cookie Web Service
 
 =head1 SYNOPSIS
@@ -168,34 +177,50 @@ of the corresponding class can be passed instead of the marked hash ref.
 You may pass any combination of objects, hash and list refs to these
 methods, as long as you meet the structure.
 
+List items (i.e. multiple occurences) are not displayed in the synopsis.
+You may generally pass a list ref of hash refs (or objects) instead of a hash
+ref - this may result in invalid XML if used improperly, though. Note that
+SOAP::WSDL always expects list references at maximum depth position.
+
+XML attributes are not displayed in this synopsis and cannot be set using
+hash refs. See the respective class' documentation for additional information.
+
 
 
 =head3 readNodeCount
 
 Display the number of nodes specified in fortune XML document
 
- $interface->readNodeCount(,,
+Returns a L<MyElements::readNodeCountResponse|MyElements::readNodeCountResponse> object.
+
+ $response = $interface->readNodeCount(,,
  );
 
 =head3 GetFortuneCookie
 
 Get a random fortune cookie from the XML document
 
- $interface->GetFortuneCookie(,,
+Returns a L<MyElements::GetFortuneCookieResponse|MyElements::GetFortuneCookieResponse> object.
+
+ $response = $interface->GetFortuneCookie(,,
  );
 
 =head3 CountCookies
 
 Count the actual number of nodes in the XML document of fortunes
 
- $interface->CountCookies(,,
+Returns a L<MyElements::CountCookiesResponse|MyElements::CountCookiesResponse> object.
+
+ $response = $interface->CountCookies(,,
  );
 
 =head3 GetSpecificCookie
 
 Get a specific cookie by the XML node number
 
- $interface->GetSpecificCookie(  {
+Returns a L<MyElements::GetSpecificCookieResponse|MyElements::GetSpecificCookieResponse> object.
+
+ $response = $interface->GetSpecificCookie( {
     index =>  $some_value, # int
   },,
  );
@@ -204,6 +229,6 @@ Get a specific cookie by the XML node number
 
 =head1 AUTHOR
 
-Generated by SOAP::WSDL on Sun Dec 16 19:58:30 2007
+Generated by SOAP::WSDL on Wed Dec  3 22:05:20 2008
 
-=pod
+=cut

example/lib/MyTypemaps/FullerData_x0020_Fortune_x0020_Cookie.pm

@@ -1,3 +1,4 @@
+
 package MyTypemaps::FullerData_x0020_Fortune_x0020_Cookie;
 use strict;
 use warnings;
@@ -38,11 +39,13 @@ sub get_typemap {
 
 __END__
 
+__END__
+
 =pod
 
 =head1 NAME
 
-MyTypemaps::FullerData_x0020_Fortune_x0020_Cookie; - typemap for ::FullerData_x0020_Fortune_x0020_Cookie;
+MyTypemaps::FullerData_x0020_Fortune_x0020_Cookie - typemap for FullerData_x0020_Fortune_x0020_Cookie
 
 =head1 DESCRIPTION
 

example/person_compile.pl

@@ -1,6 +1,7 @@
 #!/usr/bin/perl -w
 use strict;
 use warnings;
+use XML::Compile::SOAP11;
 use XML::Compile::WSDL11;
 use XML::Compile::Transport::SOAPHTTP;
 

example/server/hello_simple.pl

@@ -0,0 +1,29 @@
+use lib '../../lib';
+use lib '../lib';
+use SOAP::WSDL::Server::Simple;
+
+use base qw(HTTP::Server::Simple::CGI);
+
+use MyServer::HelloWorld::HelloWorldSoap;
+
+sub handle_request {
+     my ($self, $cgi) = @_;
+     my $server = MyServer::HelloWorld::HelloWorldSoap->new({
+         dispatch_to => 'main',
+         transport_class => 'SOAP::WSDL::Server::Simple',
+     });
+     $server->handle($cgi);
+ }
+
+ my $httpd = __PACKAGE__->new(8081);
+ $httpd->run();
+
+sub sayHello {
+    my ($self, $body, $header) = @_;
+    my $name = $body->get_name();
+    my $givenName = $body->get_givenName();
+
+    return MyElements::sayHelloResponse->new({
+        sayHelloResult => "Hello $givenName $name"
+    })
+}

example/wsdl/Person.wsdl

@@ -7,7 +7,8 @@
     xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/">
     <wsdl:types>
         <xsd:schema xmlns:xsd="http://www.w3.org/2001/XMLSchema"
-            targetNamespace="http://www.example.org/benchmark/">
+            targetNamespace="http://www.example.org/benchmark/"
+            elementFormDefault="qualified">
 
             <xsd:element name="ListPerson">
                 <xsd:complexType>

example/wsdl/person.xml

@@ -0,0 +1,440 @@
+<SOAP-ENV:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+    xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/">
+    <SOAP-ENV:Body>
+        <ListPersonResponse xmlns="http://www.example.org/benchmark/">
+            <out>
+                <NewElement>
+                    <PersonID>
+                        <ID>1</ID>
+                    </PersonID>
+                    <Salutation>Salutation0</Salutation>
+                    <Name>Name0</Name>
+                    <GivenName>Martin</GivenName>
+                    <DateOfBirth>1970-01-01</DateOfBirth>
+                    <HomeAddress>
+                        <Street>Street 0</Street>
+                        <ZIP>00000</ZIP>
+                        <City>City0</City>
+                        <Country>Country0</Country>
+                        <PhoneNumber>++499131123456</PhoneNumber>
+                        <MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+                    </HomeAddress>
+                    <WorkAddress>
+                        <Street>Somestreet 23</Street>
+                        <ZIP>12345</ZIP>
+                        <City>SomeCity</City>
+                        <Country>Germany</Country>
+                        <PhoneNumber>++499131123456</PhoneNumber>
+                        <MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+                    </WorkAddress>
+                    <Contracts>
+                        <Contract>
+                            <ContractID>100000</ContractID>
+                            <ContractName>SomeContract0</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100001</ContractID>
+                            <ContractName>SomeContract1</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100002</ContractID>
+                            <ContractName>SomeContract2</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100003</ContractID>
+                            <ContractName>SomeContract3</ContractName>
+                        </Contract>
+                    </Contracts>
+                </NewElement>
+                <NewElement>
+                    <PersonID>
+                        <ID>1</ID>
+                    </PersonID>
+                    <Salutation>Salutation0</Salutation>
+                    <Name>Name0</Name>
+                    <GivenName>Martin</GivenName>
+                    <DateOfBirth>1970-01-01</DateOfBirth>
+                    <HomeAddress>
+                        <Street>Street 0</Street>
+                        <ZIP>00000</ZIP>
+                        <City>City0</City>
+                        <Country>Country0</Country>
+                        <PhoneNumber>++499131123456</PhoneNumber>
+                        <MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+                    </HomeAddress>
+                    <WorkAddress>
+                        <Street>Somestreet 23</Street>
+                        <ZIP>12345</ZIP>
+                        <City>SomeCity</City>
+                        <Country>Germany</Country>
+                        <PhoneNumber>++499131123456</PhoneNumber>
+                        <MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+                    </WorkAddress>
+                    <Contracts>
+                        <Contract>
+                            <ContractID>100000</ContractID>
+                            <ContractName>SomeContract0</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100001</ContractID>
+                            <ContractName>SomeContract1</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100002</ContractID>
+                            <ContractName>SomeContract2</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100003</ContractID>
+                            <ContractName>SomeContract3</ContractName>
+                        </Contract>
+                    </Contracts>
+                </NewElement>
+                <NewElement>
+                    <PersonID>
+                        <ID>1</ID>
+                    </PersonID>
+                    <Salutation>Salutation0</Salutation>
+                    <Name>Name0</Name>
+                    <GivenName>Martin</GivenName>
+                    <DateOfBirth>1970-01-01</DateOfBirth>
+                    <HomeAddress>
+                        <Street>Street 0</Street>
+                        <ZIP>00000</ZIP>
+                        <City>City0</City>
+                        <Country>Country0</Country>
+                        <PhoneNumber>++499131123456</PhoneNumber>
+                        <MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+                    </HomeAddress>
+                    <WorkAddress>
+                        <Street>Somestreet 23</Street>
+                        <ZIP>12345</ZIP>
+                        <City>SomeCity</City>
+                        <Country>Germany</Country>
+                        <PhoneNumber>++499131123456</PhoneNumber>
+                        <MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+                    </WorkAddress>
+                    <Contracts>
+                        <Contract>
+                            <ContractID>100000</ContractID>
+                            <ContractName>SomeContract0</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100001</ContractID>
+                            <ContractName>SomeContract1</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100002</ContractID>
+                            <ContractName>SomeContract2</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100003</ContractID>
+                            <ContractName>SomeContract3</ContractName>
+                        </Contract>
+                    </Contracts>
+                </NewElement>
+                <NewElement>
+                    <PersonID>
+                        <ID>1</ID>
+                    </PersonID>
+                    <Salutation>Salutation0</Salutation>
+                    <Name>Name0</Name>
+                    <GivenName>Martin</GivenName>
+                    <DateOfBirth>1970-01-01</DateOfBirth>
+                    <HomeAddress>
+                        <Street>Street 0</Street>
+                        <ZIP>00000</ZIP>
+                        <City>City0</City>
+                        <Country>Country0</Country>
+                        <PhoneNumber>++499131123456</PhoneNumber>
+                        <MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+                    </HomeAddress>
+                    <WorkAddress>
+                        <Street>Somestreet 23</Street>
+                        <ZIP>12345</ZIP>
+                        <City>SomeCity</City>
+                        <Country>Germany</Country>
+                        <PhoneNumber>++499131123456</PhoneNumber>
+                        <MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+                    </WorkAddress>
+                    <Contracts>
+                        <Contract>
+                            <ContractID>100000</ContractID>
+                            <ContractName>SomeContract0</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100001</ContractID>
+                            <ContractName>SomeContract1</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100002</ContractID>
+                            <ContractName>SomeContract2</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100003</ContractID>
+                            <ContractName>SomeContract3</ContractName>
+                        </Contract>
+                    </Contracts>
+                </NewElement>
+                <NewElement>
+                    <PersonID>
+                        <ID>1</ID>
+                    </PersonID>
+                    <Salutation>Salutation0</Salutation>
+                    <Name>Name0</Name>
+                    <GivenName>Martin</GivenName>
+                    <DateOfBirth>1970-01-01</DateOfBirth>
+                    <HomeAddress>
+                        <Street>Street 0</Street>
+                        <ZIP>00000</ZIP>
+                        <City>City0</City>
+                        <Country>Country0</Country>
+                        <PhoneNumber>++499131123456</PhoneNumber>
+                        <MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+                    </HomeAddress>
+                    <WorkAddress>
+                        <Street>Somestreet 23</Street>
+                        <ZIP>12345</ZIP>
+                        <City>SomeCity</City>
+                        <Country>Germany</Country>
+                        <PhoneNumber>++499131123456</PhoneNumber>
+                        <MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+                    </WorkAddress>
+                    <Contracts>
+                        <Contract>
+                            <ContractID>100000</ContractID>
+                            <ContractName>SomeContract0</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100001</ContractID>
+                            <ContractName>SomeContract1</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100002</ContractID>
+                            <ContractName>SomeContract2</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100003</ContractID>
+                            <ContractName>SomeContract3</ContractName>
+                        </Contract>
+                    </Contracts>
+                </NewElement>
+                <NewElement>
+                    <PersonID>
+                        <ID>1</ID>
+                    </PersonID>
+                    <Salutation>Salutation0</Salutation>
+                    <Name>Name0</Name>
+                    <GivenName>Martin</GivenName>
+                    <DateOfBirth>1970-01-01</DateOfBirth>
+                    <HomeAddress>
+                        <Street>Street 0</Street>
+                        <ZIP>00000</ZIP>
+                        <City>City0</City>
+                        <Country>Country0</Country>
+                        <PhoneNumber>++499131123456</PhoneNumber>
+                        <MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+                    </HomeAddress>
+                    <WorkAddress>
+                        <Street>Somestreet 23</Street>
+                        <ZIP>12345</ZIP>
+                        <City>SomeCity</City>
+                        <Country>Germany</Country>
+                        <PhoneNumber>++499131123456</PhoneNumber>
+                        <MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+                    </WorkAddress>
+                    <Contracts>
+                        <Contract>
+                            <ContractID>100000</ContractID>
+                            <ContractName>SomeContract0</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100001</ContractID>
+                            <ContractName>SomeContract1</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100002</ContractID>
+                            <ContractName>SomeContract2</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100003</ContractID>
+                            <ContractName>SomeContract3</ContractName>
+                        </Contract>
+                    </Contracts>
+                </NewElement>
+                <NewElement>
+                    <PersonID>
+                        <ID>1</ID>
+                    </PersonID>
+                    <Salutation>Salutation0</Salutation>
+                    <Name>Name0</Name>
+                    <GivenName>Martin</GivenName>
+                    <DateOfBirth>1970-01-01</DateOfBirth>
+                    <HomeAddress>
+                        <Street>Street 0</Street>
+                        <ZIP>00000</ZIP>
+                        <City>City0</City>
+                        <Country>Country0</Country>
+                        <PhoneNumber>++499131123456</PhoneNumber>
+                        <MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+                    </HomeAddress>
+                    <WorkAddress>
+                        <Street>Somestreet 23</Street>
+                        <ZIP>12345</ZIP>
+                        <City>SomeCity</City>
+                        <Country>Germany</Country>
+                        <PhoneNumber>++499131123456</PhoneNumber>
+                        <MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+                    </WorkAddress>
+                    <Contracts>
+                        <Contract>
+                            <ContractID>100000</ContractID>
+                            <ContractName>SomeContract0</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100001</ContractID>
+                            <ContractName>SomeContract1</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100002</ContractID>
+                            <ContractName>SomeContract2</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100003</ContractID>
+                            <ContractName>SomeContract3</ContractName>
+                        </Contract>
+                    </Contracts>
+                </NewElement>
+                <NewElement>
+                    <PersonID>
+                        <ID>1</ID>
+                    </PersonID>
+                    <Salutation>Salutation0</Salutation>
+                    <Name>Name0</Name>
+                    <GivenName>Martin</GivenName>
+                    <DateOfBirth>1970-01-01</DateOfBirth>
+                    <HomeAddress>
+                        <Street>Street 0</Street>
+                        <ZIP>00000</ZIP>
+                        <City>City0</City>
+                        <Country>Country0</Country>
+                        <PhoneNumber>++499131123456</PhoneNumber>
+                        <MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+                    </HomeAddress>
+                    <WorkAddress>
+                        <Street>Somestreet 23</Street>
+                        <ZIP>12345</ZIP>
+                        <City>SomeCity</City>
+                        <Country>Germany</Country>
+                        <PhoneNumber>++499131123456</PhoneNumber>
+                        <MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+                    </WorkAddress>
+                    <Contracts>
+                        <Contract>
+                            <ContractID>100000</ContractID>
+                            <ContractName>SomeContract0</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100001</ContractID>
+                            <ContractName>SomeContract1</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100002</ContractID>
+                            <ContractName>SomeContract2</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100003</ContractID>
+                            <ContractName>SomeContract3</ContractName>
+                        </Contract>
+                    </Contracts>
+                </NewElement>
+                <NewElement>
+                    <PersonID>
+                        <ID>1</ID>
+                    </PersonID>
+                    <Salutation>Salutation0</Salutation>
+                    <Name>Name0</Name>
+                    <GivenName>Martin</GivenName>
+                    <DateOfBirth>1970-01-01</DateOfBirth>
+                    <HomeAddress>
+                        <Street>Street 0</Street>
+                        <ZIP>00000</ZIP>
+                        <City>City0</City>
+                        <Country>Country0</Country>
+                        <PhoneNumber>++499131123456</PhoneNumber>
+                        <MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+                    </HomeAddress>
+                    <WorkAddress>
+                        <Street>Somestreet 23</Street>
+                        <ZIP>12345</ZIP>
+                        <City>SomeCity</City>
+                        <Country>Germany</Country>
+                        <PhoneNumber>++499131123456</PhoneNumber>
+                        <MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+                    </WorkAddress>
+                    <Contracts>
+                        <Contract>
+                            <ContractID>100000</ContractID>
+                            <ContractName>SomeContract0</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100001</ContractID>
+                            <ContractName>SomeContract1</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100002</ContractID>
+                            <ContractName>SomeContract2</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100003</ContractID>
+                            <ContractName>SomeContract3</ContractName>
+                        </Contract>
+                    </Contracts>
+                </NewElement>
+                <NewElement>
+                    <PersonID>
+                        <ID>1</ID>
+                    </PersonID>
+                    <Salutation>Salutation0</Salutation>
+                    <Name>Name0</Name>
+                    <GivenName>Martin</GivenName>
+                    <DateOfBirth>1970-01-01</DateOfBirth>
+                    <HomeAddress>
+                        <Street>Street 0</Street>
+                        <ZIP>00000</ZIP>
+                        <City>City0</City>
+                        <Country>Country0</Country>
+                        <PhoneNumber>++499131123456</PhoneNumber>
+                        <MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+                    </HomeAddress>
+                    <WorkAddress>
+                        <Street>Somestreet 23</Street>
+                        <ZIP>12345</ZIP>
+                        <City>SomeCity</City>
+                        <Country>Germany</Country>
+                        <PhoneNumber>++499131123456</PhoneNumber>
+                        <MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+                    </WorkAddress>
+                    <Contracts>
+                        <Contract>
+                            <ContractID>100000</ContractID>
+                            <ContractName>SomeContract0</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100001</ContractID>
+                            <ContractName>SomeContract1</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100002</ContractID>
+                            <ContractName>SomeContract2</ContractName>
+                        </Contract>
+                        <Contract>
+                            <ContractID>100003</ContractID>
+                            <ContractName>SomeContract3</ContractName>
+                        </Contract>
+                    </Contracts>
+                </NewElement>
+            </out>
+        </ListPersonResponse>
+    </SOAP-ENV:Body>
+</SOAP-ENV:Envelope>
+

lib/SOAP/WSDL.pm

@@ -14,7 +14,7 @@ use Class::Std::Fast constructor => 'none';
 use SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;
 use LWP::UserAgent;
 
-use version; our $VERSION = qv('2.00.05');
+use version; our $VERSION = qv('2.00.09');
 
 my %no_dispatch_of      :ATTR(:name<no_dispatch>);
 my %wsdl_of             :ATTR(:name<wsdl>);
@@ -125,6 +125,7 @@ sub wsdlinit {
         ? (keep_alive => 1)
         : ()
     );
+    $lwp->agent(qq[SOAP::WSDL $VERSION]);
     my $response = $lwp->get( $wsdl_of{ $ident } );
     croak $response->message() if ($response->code != 200);
 
@@ -830,9 +831,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 728 $
+ $Rev: 805 $
  $LastChangedBy: kutterma $
- $Id: WSDL.pm 728 2008-07-13 19:28:50Z kutterma $
+ $Id: WSDL.pm 805 2009-02-23 21:12:24Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL.pm $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL.pm $
 
 =cut

lib/SOAP/WSDL/Base.pm

@@ -5,7 +5,7 @@ use List::Util;
 use Scalar::Util;
 use Carp qw(croak carp confess);
 
-use version; our $VERSION = qv('2.00.05');
+use version; our $VERSION = qv('2.00.09');
 
 my %id_of               :ATTR(:name<id> :default<()>);
 my %lang_of             :ATTR(:name<lang> :default<()>);
@@ -13,7 +13,7 @@ my %name_of             :ATTR(:name<name> :default<()>);
 my %namespace_of        :ATTR(:name<namespace> :default<()>);
 my %documentation_of    :ATTR(:name<documentation> :default<()>);
 my %annotation_of       :ATTR(:name<annotation> :default<()>);
-my %targetNamespace_of  :ATTR(:name<targetNamespace> :default<()>);
+my %targetNamespace_of  :ATTR(:name<targetNamespace> :default<"">);
 my %xmlns_of            :ATTR(:name<xmlns> :default<{}>);
 my %parent_of           :ATTR(:get<parent> :default<()>);
 
@@ -167,6 +167,13 @@ sub expand {
 sub _expand;
 *_expand = \&expand;
 
+sub schema {
+    my $parent = $_[0]->get_parent();
+    return if ! defined $parent;
+    return $parent if $parent->isa('SOAP::WSDL::XSD::Schema');
+    return $parent->schema();
+}
+
 1;
 
 __END__

lib/SOAP/WSDL/Binding.pm

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

lib/SOAP/WSDL/Client.pm

@@ -11,7 +11,7 @@ use SOAP::WSDL::Factory::Serializer;
 use SOAP::WSDL::Factory::Transport;
 use SOAP::WSDL::Expat::MessageParser;
 
-use version; our $VERSION = qv('2.00.05');
+use version; our $VERSION = qv('2.00.09');
 
 my %class_resolver_of   :ATTR(:name<class_resolver> :default<()>);
 my %no_dispatch_of      :ATTR(:name<no_dispatch>    :default<()>);
@@ -23,9 +23,11 @@ my %endpoint_of         :ATTR(:name<endpoint>       :default<()>);
 my %soap_version_of     :ATTR(:get<soap_version>    :init_attr<soap_version> :default<1.1>);
 
 my %on_action_of        :ATTR(:name<on_action>      :default<()>);
-my %content_type_of     :ATTR(:name<content_type>   :default<text/xml; charset=utf8>);  #/#trick editors
+my %content_type_of     :ATTR(:name<content_type>   :default<text/xml; charset=utf-8>);  #/#trick editors
+my %encoding_of         :ATTR(:name<encoding>       :default<utf-8>);
 my %serializer_of       :ATTR(:name<serializer>     :default<()>);
 my %deserializer_of     :ATTR(:name<deserializer>   :default<()>);
+my %deserializer_args_of   :ATTR(:name<deserializer_args>   :default<{}>);
 
 sub BUILD {
     my ($self, $ident, $attrs_of_ref) = @_;
@@ -147,6 +149,7 @@ sub call {
     my $response = $transport->send_receive(
        endpoint => $self->get_endpoint(),
        content_type => $content_type_of{ $ident },
+       encoding => $encoding_of{ $ident },
        envelope => $envelope,
        action => $soap_action,
        # on_receive_chunk => sub {}     # optional, may be used for parsing large responses as they arrive.
@@ -155,8 +158,10 @@ sub call {
     return $response if ($outputxml_of{ $ident } );
 
     # get deserializer
+    use Data::Dumper;
     $deserializer_of{ $ident } ||= SOAP::WSDL::Factory::Deserializer->get_deserializer({
         soap_version => $soap_version_of{ $ident },
+        %{ $deserializer_args_of{ $ident } },
     });
 
     # set class resolver if serializer supports it
@@ -395,10 +400,10 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 728 $
+ $Rev: 805 $
  $LastChangedBy: kutterma $
- $Id: Client.pm 728 2008-07-13 19:28:50Z kutterma $
+ $Id: Client.pm 805 2009-02-23 21:12:24Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client.pm $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client.pm $
 
 =cut
 

lib/SOAP/WSDL/Client/Base.pm

@@ -4,7 +4,7 @@ use warnings;
 use base 'SOAP::WSDL::Client';
 use Scalar::Util qw(blessed);
 
-use version; our $VERSION = qv('2.00.05');
+use version; our $VERSION = qv('2.00.09');
 
 sub call {
     my ($self, $method, $body, $header) = @_;
@@ -85,9 +85,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 728 $
+ $Rev: 805 $
  $LastChangedBy: kutterma $
- $Id: Base.pm 728 2008-07-13 19:28:50Z kutterma $
+ $Id: Base.pm 805 2009-02-23 21:12:24Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client/Base.pm $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client/Base.pm $
 
 =cut

lib/SOAP/WSDL/Definitions.pm

@@ -5,7 +5,7 @@ use List::Util qw(first);
 use Class::Std::Fast::Storable;
 use base qw(SOAP::WSDL::Base);
 
-use version; our $VERSION = qv('2.00.05');
+use version; our $VERSION = qv('2.00.09');
 
 my %types_of        :ATTR(:name<types>      :default<[]>);
 my %message_of      :ATTR(:name<message>    :default<[]>);
@@ -115,10 +115,10 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 728 $
+ $Rev: 805 $
  $LastChangedBy: kutterma $
- $Id: Definitions.pm 728 2008-07-13 19:28:50Z kutterma $
+ $Id: Definitions.pm 805 2009-02-23 21:12:24Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Definitions.pm $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Definitions.pm $
 
 =cut
 

lib/SOAP/WSDL/Deserializer/Hash.pm

@@ -8,7 +8,7 @@ use SOAP::WSDL::Expat::Message2Hash;
 use SOAP::WSDL::Factory::Deserializer;
 SOAP::WSDL::Factory::Deserializer->register( '1.1', __PACKAGE__ );
 
-use version; our $VERSION = qv('2.00.05');
+use version; our $VERSION = qv('2.00.09');
 
 sub BUILD {
     my ($self, $ident, $args_of_ref) = @_;
@@ -38,7 +38,7 @@ sub deserialize {
 sub generate_fault {
     my ($self, $args_from_ref) = @_;
     return SOAP::WSDL::SOAP::Typelib::Fault11->new({
-            faultcode => $args_from_ref->{ code } || 'soap:Client',
+            faultcode => $args_from_ref->{ code } || 'SOAP-ENV:Client',
             faultactor => $args_from_ref->{ role } || 'urn:localhost',
             faultstring => $args_from_ref->{ message } || "Unknown error"
     });
@@ -163,9 +163,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 728 $
+ $Rev: 805 $
  $LastChangedBy: kutterma $
- $Id: Hash.pm 728 2008-07-13 19:28:50Z kutterma $
+ $Id: Hash.pm 805 2009-02-23 21:12:24Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/Hash.pm $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/Hash.pm $
 
 =cut

lib/SOAP/WSDL/Deserializer/SOM.pm

@@ -2,7 +2,7 @@ package SOAP::WSDL::Deserializer::SOM;
 use strict;
 use warnings;
 
-use version; our $VERSION = qv('2.00.05');
+use version; our $VERSION = qv('2.00.09');
 our @ISA;
 
 eval {
@@ -18,7 +18,7 @@ sub deserialize {
     my $result = eval { $self->SUPER::deserialize(@_) };
     if ($@) {
         return SOAP::Fault->new(
-            faultactor => 'soap:Server',
+            faultactor => 'SOAP-ENV:Server',
             faultstring => $@,
         );
     }
@@ -140,9 +140,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 728 $
+ $Rev: 805 $
  $LastChangedBy: kutterma $
- $Id: SOM.pm 728 2008-07-13 19:28:50Z kutterma $
+ $Id: SOM.pm 805 2009-02-23 21:12:24Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/SOM.pm $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/SOM.pm $
 
 =cut

lib/SOAP/WSDL/Deserializer/XSD.pm

@@ -5,31 +5,40 @@ use Class::Std::Fast::Storable;
 use SOAP::WSDL::SOAP::Typelib::Fault11;
 use SOAP::WSDL::Expat::MessageParser;
 
-use version; our $VERSION = qv('2.00.05');
+use version; our $VERSION = qv('2.00.09');
 
-my %class_resolver_of :ATTR(:name<class_resolver> :default<()>);
+my %class_resolver_of   :ATTR(:name<class_resolver> :default<()>);
+my %strict_of           :ATTR(:get<strict> :init_arg<strict> :default<1>);
+my %parser_of           :ATTR();
 
-my %parser_of :ATTR();
+sub set_strict {
+    undef $parser_of{${$_[0]}};
+    $strict_of{${$_[0]}} = $_[1];
+}
 
 sub BUILD {
     my ($self, $ident, $args_of_ref) = @_;
 
     # ignore all options except 'class_resolver'
     for (keys %{ $args_of_ref }) {
-        delete $args_of_ref->{ $_ } if $_ ne 'class_resolver';
+        next if $_ eq 'strict';
+        next if $_ eq 'class_resolver';
+        delete $args_of_ref->{ $_ };
     }
 }
 
 sub deserialize {
     my ($self, $content) = @_;
 
-    $parser_of{ ${ $self } } = SOAP::WSDL::Expat::MessageParser->new()
+    $parser_of{ ${ $self } } = SOAP::WSDL::Expat::MessageParser->new({
+        strict => $strict_of{ ${ $self } }
+    })
         if not $parser_of{ ${ $self } };
     $parser_of{ ${ $self } }->class_resolver( $class_resolver_of{ ${ $self } } );
     eval { $parser_of{ ${ $self } }->parse_string( $content ) };
     if ($@) {
         return $self->generate_fault({
-            code => 'soap:Server',
+            code => 'SOAP-ENV:Server',
             role => 'urn:localhost',
             message => "Error deserializing message: $@. \n"
                 . "Message was: \n$content"
@@ -41,7 +50,7 @@ sub deserialize {
 sub generate_fault {
     my ($self, $args_from_ref) = @_;
     return SOAP::WSDL::SOAP::Typelib::Fault11->new({
-            faultcode => $args_from_ref->{ code } || 'soap:Client',
+            faultcode => $args_from_ref->{ code } || 'SOAP-ENV:Client',
             faultactor => $args_from_ref->{ role } || 'urn:localhost',
             faultstring => $args_from_ref->{ message } || "Unknown error"
     });
@@ -75,6 +84,20 @@ SOAP::WSDL.
 If you want to use the XSD serializer from SOAP::WSDL, set the outputtree()
 property and provide a class_resolver.
 
+=head1 OPTIONS
+
+=over
+
+=item * strict
+
+Enables/disables strict XML processing. Strict processing is enabled by
+default. To disable strict XML processing pass the following to the
+constructor or use the C<set_strict> method:
+
+ strict => 0
+
+=back
+
 =head1 METHODS
 
 =head2 deserialize
@@ -86,6 +109,10 @@ Deserializes the message.
 Generates a L<SOAP::WSDL::SOAP::Typelib::Fault11|SOAP::WSDL::SOAP::Typelib::Fault11>
 object and returns it.
 
+=head2 set_strict
+
+Enable/disable strict XML parsing. Default is enabled.
+
 =head1 LICENSE AND COPYRIGHT
 
 Copyright 2004-2007 Martin Kutter.
@@ -99,9 +126,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 728 $
+ $Rev: 805 $
  $LastChangedBy: kutterma $
- $Id: XSD.pm 728 2008-07-13 19:28:50Z kutterma $
+ $Id: XSD.pm 805 2009-02-23 21:12:24Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/XSD.pm $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/XSD.pm $
 
 =cut

lib/SOAP/WSDL/Expat/Base.pm

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

lib/SOAP/WSDL/Expat/Message2Hash.pm

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

lib/SOAP/WSDL/Expat/MessageParser.pm

@@ -9,7 +9,7 @@ use base qw(SOAP::WSDL::Expat::Base);
 
 BEGIN { require Class::Std::Fast };
 
-use version; our $VERSION = qv('2.00.05');
+use version; our $VERSION = qv('2.00.09');
 
 # GLOBALS
 my $OBJECT_CACHE_REF = Class::Std::Fast::OBJECT_CACHE_REF();
@@ -108,7 +108,10 @@ sub _initialize {
                     return;
             }
         )
-        : ();
+        : (
+            0 => sub { $depth++ },
+            1 => sub { $depth++ },
+        );
 
     # use "globals" for speed
     my ($_prefix, $_method, $_class, $_leaf) = ();
@@ -137,11 +140,14 @@ sub _initialize {
             return if $skip;               # skip inside __SKIP__
 
             # resolve class of this element
-            $_class = $self->{ class_resolver }->get_class( $path )
+            $_class = $self->{ class_resolver }->get_class( $path );
-                or die "Cannot resolve class for "
-                    . join('/', @{ $path }) . " via " . $self->{ class_resolver };
 
-            if ($_class eq '__SKIP__') {
+            if (! defined($_class) and $self->{ strict }) {
+                die "Cannot resolve class for "
+                    . join('/', @{ $path }) . " via " . $self->{ class_resolver };
+            }
+
+            if (! defined($_class) or ($_class eq '__SKIP__') ) {
                 $skip = join('/', @{ $path });
                 $_[0]->setHandlers( Char => undef );
                 return;
@@ -233,6 +239,9 @@ sub _initialize {
             # empty characters
             $characters = q{};
 
+            # stop believing we're a leaf node
+            $_leaf = 0;
+
             # return if there's only one elment - can't set it in parent ;-)
             # but set as root element if we don't have one already.
             if (not defined $list->[-1]) {
@@ -254,8 +263,6 @@ sub _initialize {
 
             $current = pop @$list;          # step up in object hierarchy
 
-            $_leaf = 0;                     # stop believing we're a leaf node
-
             return;
         }
     );
@@ -323,11 +330,11 @@ the same terms as perl itself
 
 =head1 Repository information
 
- $Id: MessageParser.pm 728 2008-07-13 19:28:50Z kutterma $
+ $Id: MessageParser.pm 805 2009-02-23 21:12:24Z kutterma $
 
- $LastChangedDate: 2008-07-13 21:28:50 +0200 (So, 13 Jul 2008) $
+ $LastChangedDate: 2009-02-23 22:12:24 +0100 (Mo, 23 Feb 2009) $
- $LastChangedRevision: 728 $
+ $LastChangedRevision: 805 $
  $LastChangedBy: kutterma $
 
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageParser.pm $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageParser.pm $
 

lib/SOAP/WSDL/Expat/MessageStreamParser.pm

@@ -6,7 +6,7 @@ use XML::Parser::Expat;
 use SOAP::WSDL::Expat::MessageParser;
 use base qw(SOAP::WSDL::Expat::MessageParser);
 
-use version; our $VERSION = qv('2.00.05');
+use version; our $VERSION = qv('2.00.09');
 
 sub parse_start {
     my $self = shift;
@@ -69,9 +69,9 @@ the same terms as perl itself
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 728 $
+ $Rev: 805 $
  $LastChangedBy: kutterma $
- $Id: MessageStreamParser.pm 728 2008-07-13 19:28:50Z kutterma $
+ $Id: MessageStreamParser.pm 805 2009-02-23 21:12:24Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageStreamParser.pm $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageStreamParser.pm $
 
 =cut

lib/SOAP/WSDL/Expat/WSDLParser.pm

@@ -5,7 +5,7 @@ use Carp;
 use SOAP::WSDL::TypeLookup;
 use base qw(SOAP::WSDL::Expat::Base);
 
-use version; our $VERSION = qv('2.00.05');
+use version; our $VERSION = qv('2.00.09');
 
 #
 # Import child elements of a WSDL / XML Schema tree into the current tree
@@ -18,33 +18,38 @@ use version; our $VERSION = qv('2.00.05');
 #
 
 sub _import_children {
-    my ($self, $name, $imported, $importer, $import_namespace) = @_;
+    my ( $self, $name, $imported, $importer, $import_namespace ) = @_;
 
-    my $targetNamespace = $importer->get_targetNamespace();
+    my $targetNamespace   = $importer->get_targetNamespace();
-    my $push_method = "push_$name";
+    my $push_method       = "push_$name";
-    my $get_method = "get_$name";
+    my $get_method        = "get_$name";
-    my $default_namespace = $imported->get_xmlns()->{ '#default' };
+    my $default_namespace = $imported->get_xmlns()->{'#default'};
 
     no strict qw(refs);
     my $value_ref = $imported->$get_method();
     if ($value_ref) {
 
-        $value_ref = [ $value_ref ] if (not ref $value_ref eq 'ARRAY');
+        $value_ref = [$value_ref] if ( not ref $value_ref eq 'ARRAY' );
+
+        for ( @{$value_ref} ) {
 
-        for (@{ $value_ref }) {
             # fixup namespace - new parent may be from different namespace
-            if (defined ($default_namespace)) {
+            if ( defined($default_namespace) ) {
                 my $xmlns = $_->get_xmlns();
+
                 # it's a hash ref, so we can just update values
-                if (! defined $xmlns->{ '#default'}) {
+                if ( !defined $xmlns->{'#default'} ) {
-                    $xmlns->{ '#default' } = $default_namespace;
+                    $xmlns->{'#default'} = $default_namespace;
                 }
             }
+
             # fixup targetNamespace, but don't override
-            $_->set_targetNamespace( $import_namespace )
+            $_->set_targetNamespace($import_namespace)
-                if ( ($import_namespace ne $targetNamespace) && !  $_->get_targetNamespace);
+              if ( ( $import_namespace ne $targetNamespace )
+                && !$_->get_targetNamespace );
+
             # update parent...
-            $_->set_parent( $importer );
+            $_->set_parent($importer);
 
             # push elements into importing WSDL
             $importer->$push_method($_);
@@ -53,225 +58,254 @@ sub _import_children {
 }
 
 sub _import_namespace_definitions {
-    my $self = shift;
+    my $self     = shift;
-    my $arg_ref = shift;
+    my $arg_ref  = shift;
-    my $importer = $arg_ref->{ importer };
+    my $importer = $arg_ref->{importer};
-    my $imported = $arg_ref->{ imported };
+    my $imported = $arg_ref->{imported};
 
     # import namespace definitions, too
     my $importer_ns_of = $importer->get_xmlns();
-    my %xmlns_of = %{ $imported->get_xmlns() };
+    my %xmlns_of       = %{$imported->get_xmlns()};
 
     # it's a hash ref, we can just add to.
-    # TODO: check whether prefix is already taken.
+    # TODO: check whether URI is the better key.
-    # TODO: check wheter URI is the better key.
+    while ( my ( $prefix, $url ) = each %xmlns_of ) {
-    while (my ($prefix, $url) = each %xmlns_of) {
+        if ( exists( $importer_ns_of->{$prefix} ) ) {
-        $importer_ns_of->{ $prefix } = $url;
+
+            # warn "$prefix already exists";
+            next;
+        }
+        $importer_ns_of->{$prefix} = $url;
     }
 }
 
 sub xml_schema_import {
-    my $self = shift;
+    my $self             = shift;
-    my $schema = shift;
+    my $schema           = shift;
-    my $parser = $self->clone();
+    my $parser           = $self->clone();
-    my %attr_of = @_;
+    my %attr_of          = @_;
-    my $import_namespace = $attr_of{ namespace };
+    my $import_namespace = $attr_of{namespace};
 
-    if (not $attr_of{schemaLocation}) {
+    if ( not $attr_of{schemaLocation} ) {
-        warn "cannot import document for namespace >$import_namespace< without location";
+        warn
+"cannot import document for namespace >$import_namespace< without location";
         return;
     }
 
-    if (not $self->get_uri) {
+    if ( not $self->get_uri ) {
-        die "cannot import document from namespace >$import_namespace< without base uri. Use >parse_uri< or >set_uri< to set one."
+        die
+"cannot import document from namespace >$import_namespace< without base uri. Use >parse_uri< or >set_uri< to set one.";
     }
 
-    my $uri = URI->new_abs($attr_of{schemaLocation}, $self->get_uri() );
+    my $uri = URI->new_abs( $attr_of{schemaLocation}, $self->get_uri() );
     my $imported = $parser->parse_uri($uri);
 
     # might already be imported - parse_uri just returns in this case
     return if not defined $imported;
 
-    $self->_import_namespace_definitions({
+    $self->_import_namespace_definitions( {
-        importer => $schema,
+            importer => $schema,
-        imported => $imported,
+            imported => $imported,
-    });
+    } );
 
-    for my $name ( qw(type element group attribute attributeGroup) ) {
+    for my $name (qw(type element group attribute attributeGroup)) {
-        $self->_import_children( $name, $imported, $schema, $import_namespace);
+        $self->_import_children( $name, $imported, $schema,
+            $import_namespace );
     }
 }
 
 sub wsdl_import {
-    my $self = shift;
+    my $self             = shift;
-    my $definitions = shift;
+    my $definitions      = shift;
-    my $parser = $self->clone();
+    my $parser           = $self->clone();
-    my %attr_of = @_;
+    my %attr_of          = @_;
-    my $import_namespace = $attr_of{ namespace };
+    my $import_namespace = $attr_of{namespace};
 
-    if (not $attr_of{location}) {
+    if ( not $attr_of{location} ) {
-        warn "cannot import document for namespace >$import_namespace< without location";
+        warn
+"cannot import document for namespace >$import_namespace< without location";
         return;
     }
 
-    if (not $self->get_uri) {
+    if ( not $self->get_uri ) {
-        die "cannot import document from namespace >$import_namespace< without base uri. Use >parse_uri< or >set_uri< to set one."
+        die
+"cannot import document from namespace >$import_namespace< without base uri. Use >parse_uri< or >set_uri< to set one.";
     }
 
-    my $uri = URI->new_abs($attr_of{location}, $self->get_uri() );
+    my $uri = URI->new_abs( $attr_of{location}, $self->get_uri() );
 
     my $imported = $parser->parse_uri($uri);
 
     # might already be imported - parse_uri just returns in this case
     return if not defined $imported;
 
-    $self->_import_namespace_definitions({
+    $self->_import_namespace_definitions( {
-        importer => $definitions,
+            importer => $definitions,
-        imported => $imported,
+            imported => $imported,
-    });
+    } );
 
-    for my $name ( qw(types message binding portType service) ) {
+    for my $name (qw(types message binding portType service)) {
-        $self->_import_children( $name, $imported, $definitions, $import_namespace);
+        $self->_import_children( $name, $imported, $definitions,
+            $import_namespace );
     }
 }
 
 sub _initialize {
-    my ($self, $parser) = @_;
+    my ( $self, $parser ) = @_;
 
     # init object data
-    $self->{ parser } = $parser;
+    $self->{parser} = $parser;
-    delete $self->{ data };
+    delete $self->{data};
 
     # setup local variables for keeping temp data
-    my $characters = undef;
+    my $characters           = undef;
-    my $current = undef;
+    my $current              = undef;
-    my $list = [];        # node list
+    my $list                 = [];    # node list
+    my $elementFormQualified = 1;     # default for WSDLs, schema may override
 
     # TODO skip non-XML Schema namespace tags
     $parser->setHandlers(
         Start => sub {
+
             # handle attrs as list - expat uses dual-vars for looking
             # up namespace information, and hash keys don't allow dual vars...
-            my ($parser, $localname, @attrs) = @_;
+            my ( $parser, $localname, @attrs ) = @_;
             $characters = q{};
 
-            my $action = SOAP::WSDL::TypeLookup->lookup(
+            my $action =
-                $parser->namespace($localname),
+              SOAP::WSDL::TypeLookup->lookup( $parser->namespace($localname),
-                $localname
+                $localname );
-            );
 
             return if not $action;
 
-            if ($action->{ type } eq 'CLASS') {
+            if ( $action->{type} eq 'CLASS' ) {
                 eval "require $action->{ class }";
                 croak $@ if ($@);
 
-                my $obj = $action->{ class }->new({
+                my $obj = $action->{class}->new( {
-                        parent => $current,
+                        parent    => $current,
                         namespace => $parser->namespace($localname),
-                    })
+                        defined($current)
-                  ->init( _fixup_attrs( $parser, @attrs ) );
+                        ? ( xmlns => $current->get_xmlns() )
+                        : ()} )->init( _fixup_attrs( $parser, @attrs ) );
 
                 if ($current) {
+                    if ( defined $list->[-1]
+                        && $list->[-1]->isa('SOAP::WSDL::XSD::Schema') ) {
+                        $elementFormQualified =
+                          $list->[-1]->get_elementFormDefault() eq
+                          'qualified';
+                    }
+
                     # inherit namespace, but don't override
-                    $obj->set_targetNamespace( $current->get_targetNamespace() )
+                    if ($elementFormQualified) {
-                        if not $obj->get_targetNamespace();
+                        $obj->set_targetNamespace(
+                            $current->get_targetNamespace() )
+                          if not $obj->get_targetNamespace();
+                    }
 
                     # push on parent's element/type list
                     my $method = "push_$localname";
 
                     no strict qw(refs);
-                    $current->$method( $obj );
+                    $current->$method($obj);
 
                     # remember element for stepping back
-                    push @{ $list }, $current;
+                    push @{$list}, $current;
                 }
 
                 # set new element (step down)
                 $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};
 
                 no strict qw(refs);
+
                 # call method with
                 # - default value ($action->{ value } if defined,
                 #   dereferencing lists
                 # - the values of the elements Attributes hash
                 # TODO: add namespaces declared to attributes.
                 # Expat consumes them, so we have to re-add them here.
-                $current->$method( defined $action->{ value }
+                $current->$method(
-                    ? ref $action->{ value }
+                      defined $action->{value}
-                        ? @{ $action->{ value } }
+                    ? ref $action->{value}
-                        : ($action->{ value })
+                          ? @{$action->{value}}
-                    : _fixup_attrs($parser, @attrs)
+                          : ( $action->{value} )
-                );
+                    : _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 {
+
                 # TODO replace by hash lookup of known namespaces.
                 my $namespace = $parser->namespace($localname) || q{};
-                my $part = $namespace eq 'http://schemas.xmlsoap.org/wsdl/'
+                my $part =
-                    ? 'WSDL 1.1'
+                  $namespace eq 'http://schemas.xmlsoap.org/wsdl/'
-                    : 'XML Schema';
+                  ? 'WSDL 1.1'
+                  : 'XML Schema';
 
                 warn "$part element <$localname> is not implemented yet"
-                    if ($localname !~m{ \A (:? annotation | documentation ) \z }xms );
+                  if ( $localname !~
+                    m{ \A (:? annotation | documentation ) \z }xms );
             }
 
             return;
         },
 
-        Char => sub { $characters .= $_[1]; return;  },
+        Char => sub { $characters .= $_[1]; return; },
 
         End => sub {
-            my ($parser, $localname) = @_;
+            my ( $parser, $localname ) = @_;
 
-            my $action = SOAP::WSDL::TypeLookup->lookup(
+            my $action =
-                $parser->namespace( $localname ),
+              SOAP::WSDL::TypeLookup->lookup( $parser->namespace($localname),
-                $localname
+                $localname )
-            ) || {};
+              || {};
 
-            if (! defined $list->[-1]) {
+            if ( !defined $list->[-1] ) {
-                $self->{ data } = $current;
+                $self->{data} = $current;
                 return;
             }
 
-            return if not ($action->{ type });
+
-            if ( $action->{ type } eq 'CLASS' ) {
+            return if not( $action->{type} );
-               $current = pop @{ $list };
+            if ( $action->{type} eq 'CLASS' ) {
+                $current = pop @{$list};
+                if ( defined $list->[-1] && $list->[-1]->isa('SOAP::WSDL::XSD::Schema') ) {
+                    $elementFormQualified = 1;
+                }
             }
-            elsif ($action->{ type } eq 'CONTENT' ) {
+            elsif ( $action->{type} eq 'CONTENT' ) {
-                my $method = $action->{ method };
+                my $method = $action->{method};
 
                 # normalize whitespace
-                $characters =~s{ ^ \s+ (.+) \s+ $ }{$1}xms;
+                $characters =~ s{ ^ \s+ (.+) \s+ $ }{$1}xms;
-                $characters =~s{ \s+ }{ }xmsg;
+                $characters =~ s{ \s+ }{ }xmsg;
 
                 no strict qw(refs);
-                $current->$method( $characters );
+                $current->$method($characters);
             }
             return;
-        }
+        } );
-    );
     return $parser;
 }
 
 # make attrs SAX style
 sub _fixup_attrs {
-    my ($parser, @attrs) = @_;
+    my ( $parser, @attrs ) = @_;
 
-    my @attr_key_from = ();
+    my @attr_key_from   = ();
     my @attr_value_from = ();
 
     while (@attrs) {
-        push @attr_key_from, shift @attrs;
+        push @attr_key_from,   shift @attrs;
         push @attr_value_from, shift @attrs;
     }
 
@@ -281,20 +315,18 @@ sub _fixup_attrs {
     #
     # add namespaces before attributes: Attributes may be namespace-qualified
     #
-    push @attrs_from, map {
+    push @attrs_from, map { {
-        {
+            Name      => "xmlns:$_",
-            Name => "xmlns:$_",
+            Value     => $parser->expand_ns_prefix($_),
-            Value => $parser->expand_ns_prefix( $_ ),
             LocalName => $_
         }
     } $parser->new_ns_prefixes();
 
-    push @attrs_from, map {
+    push @attrs_from, map { {
-        {
             Name => defined $parser->namespace($_)
-                ? $parser->namespace($_) . '|' . $_
+            ? $parser->namespace($_) . '|' . $_
-                : '|' . $_,
+            : '|' . $_,
-            Value => shift @attr_value_from, # $attrs_of{ $_ },
+            Value     => shift @attr_value_from,    # $attrs_of{ $_ },
             LocalName => $_
         }
     } @attr_key_from;
@@ -304,7 +336,6 @@ sub _fixup_attrs {
 
 1;
 
-
 =pod
 
 =head1 NAME
@@ -336,11 +367,11 @@ the same terms as perl itself
 
 =head1 Repository information
 
- $Id: WSDLParser.pm 728 2008-07-13 19:28:50Z kutterma $
+ $Id: WSDLParser.pm 805 2009-02-23 21:12:24Z kutterma $
 
- $LastChangedDate: 2008-07-13 21:28:50 +0200 (So, 13 Jul 2008) $
+ $LastChangedDate: 2009-02-23 22:12:24 +0100 (Mo, 23 Feb 2009) $
- $LastChangedRevision: 728 $
+ $LastChangedRevision: 805 $
  $LastChangedBy: kutterma $
 
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/WSDLParser.pm $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/WSDLParser.pm $
 

lib/SOAP/WSDL/Factory/Deserializer.pm

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

lib/SOAP/WSDL/Factory/Generator.pm

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

lib/SOAP/WSDL/Factory/Serializer.pm

@@ -2,7 +2,7 @@ package SOAP::WSDL::Factory::Serializer;
 use strict;
 use warnings;
 
-use version; our $VERSION = qv('2.00.05');
+use version; our $VERSION = qv('2.00.09');
 
 my %SERIALIZER = (
     '1.1' => 'SOAP::WSDL::Serializer::XSD',
@@ -138,9 +138,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 728 $
+ $Rev: 805 $
  $LastChangedBy: kutterma $
- $Id: Serializer.pm 728 2008-07-13 19:28:50Z kutterma $
+ $Id: Serializer.pm 805 2009-02-23 21:12:24Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Serializer.pm $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Serializer.pm $
 
 =cut

lib/SOAP/WSDL/Factory/Transport.pm

@@ -1,7 +1,7 @@
 package SOAP::WSDL::Factory::Transport;
 use strict;
 use warnings;
-use version; our $VERSION = qv('2.00.05');
+use version; our $VERSION = qv('2.00.09');
 
 my %registered_transport_of = ();
 
@@ -243,9 +243,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 728 $
+ $Rev: 805 $
  $LastChangedBy: kutterma $
- $Id: Transport.pm 728 2008-07-13 19:28:50Z kutterma $
+ $Id: Transport.pm 805 2009-02-23 21:12:24Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Transport.pm $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Transport.pm $
 
 =cut

lib/SOAP/WSDL/Generator/Iterator/WSDL11.pm

@@ -2,7 +2,7 @@ package SOAP::WSDL::Generator::Iterator::WSDL11;
 use strict; use warnings;
 use Class::Std::Fast;
 
-use version; our $VERSION = qv('2.00.05');
+use version; our $VERSION = qv('2.00.09');
 
 my %definitions_of  :ATTR(:name<definitions>    :default<[]>);
 my %nodes_of        :ATTR(:name<nodes>          :default<[]>);
@@ -73,7 +73,8 @@ my %METHOD_OF = (
             $node->get_type()
                 ? do {
                     die "unsupported global type <"
-                        . $node->get_type . "> found in part ". $node->get_name();
+                        . $node->get_type . "> found in part <". $node->get_name() . ">\n"
+                        . "Looks like a rpc/literal WSDL, which is not supported by SOAP::WSDL\n";
                     ## use this once we can auto-generate an element for RPC bindings
                     # $types->find_type( $node->expand($node->get_type) )
                 }

lib/SOAP/WSDL/Generator/PrefixResolver.pm

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

lib/SOAP/WSDL/Generator/Template.pm

@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
 use Carp;
 use SOAP::WSDL::Generator::PrefixResolver;
 
-use version; our $VERSION = qv('2.00.05');
+use version; our $VERSION = qv('2.00.09');
 
 my %tt_of               :ATTR(:get<tt>);
 my %definitions_of      :ATTR(:name<definitions>        :default<()>);
@@ -70,3 +70,39 @@ sub _process :PROTECTED {
 }
 
 1;
+
+=pod
+
+=head1 NAME
+
+SOAP::WSDL::Generator::Template - Template-based code generator
+
+=head1 DESCRIPTION
+
+SOAP::WSDL's template based code generator
+
+Base class for writing template based generators
+
+=head1 AUTHOR
+
+Replace the whitespace by @ for E-Mail Address.
+
+ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright 2008, 2009 Martin Kutter.
+
+This file is part of SOAP-WSDL. You may distribute/modify it under
+the same terms as perl itself
+
+=head1 Repository information
+
+ $Id: WSDLParser.pm 770 2009-01-24 22:55:54Z kutterma $
+
+ $LastChangedDate: 2009-01-24 23:55:54 +0100 (Sa, 24 Jan 2009) $
+ $LastChangedRevision: 770 $
+ $LastChangedBy: kutterma $
+
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/WSDLParser.pm $
+

lib/SOAP/WSDL/Generator/Template/Plugin/XSD.pm

@@ -3,8 +3,8 @@ use strict;
 use warnings;
 use Carp qw(confess);
 use Class::Std::Fast::Storable constructor => 'none';
-
+use Scalar::Util qw(blessed);
-use version; our $VERSION = qv('2.00.05');
+use version; our $VERSION = qv('2.00.09');
 
 my %namespace_prefix_map_of :ATTR(:name<namespace_prefix_map>   :default<{}>);
 my %namespace_map_of        :ATTR(:name<namespace_map>          :default<{}>);
@@ -155,6 +155,8 @@ sub element_name {
     my $self = shift;
     my $element = shift;
 
+    confess "no element object" unless blessed $element;
+
     my $name = $element->get_name();
     if (! $name) {
         while (my $ref = $element->get_ref()) {

lib/SOAP/WSDL/Generator/Template/XSD.pm

@@ -1,19 +1,19 @@
 package SOAP::WSDL::Generator::Template::XSD;
 use strict; use warnings;
-use Template;
+use Template 2.18;
 use Class::Std::Fast::Storable;
 use File::Basename;
 use File::Spec;
 
-use version; our $VERSION = qv('2.00.05');
+use version; our $VERSION = qv('2.00.09');
 
 use SOAP::WSDL::Generator::Visitor::Typemap;
-use SOAP::WSDL::Generator::Visitor::Typelib;
 use SOAP::WSDL::Generator::Template::Plugin::XSD;
 use base qw(SOAP::WSDL::Generator::Template);
 
 my %output_of                   :ATTR(:name<output>         :default<()>);
 my %typemap_of                  :ATTR(:name<typemap>        :default<({})>);
+my %silent_of                   :ATTR(:name<silent>         :default<0>);
 
 sub BUILD {
     my ($self, $ident, $arg_ref) = @_;
@@ -113,7 +113,8 @@ sub _generate_interface {
                         $service,
                         $port,
                 ));
-            print "Creating interface class $output\n";
+            print "Creating interface class $output\n"
+                if not $silent_of{ident $self};
 
             $self->_process($template_name,
             {
@@ -173,7 +174,8 @@ sub generate_typemap {
             my $output = $arg_ref->{ output }
                 ? $arg_ref->{ output }
                 : $self->_generate_filename( $self->get_name_resolver()->create_typemap_name($service) );
-            print "Creating typemap class $output\n";
+            print "Creating typemap class $output\n"
+                if not $silent_of{ident $self};
             $self->_process('Typemap.tt',
             {
                 service => $service,
@@ -205,6 +207,8 @@ sub visit_XSD_Element {
     my $output = defined $output_of{ ident $self }
         ? $output_of{ ident $self }
         : $self->_generate_filename( $self->get_name_resolver()->create_xsd_name($element) );
+    warn "Creating element class $output \n"
+        if not $silent_of{ ident $self};
     $self->_process('element.tt', { element => $element } , $output);
 }
 
@@ -213,6 +217,8 @@ sub visit_XSD_SimpleType {
     my $output = defined $output_of{ ident $self }
         ? $output_of{ ident $self }
         : $self->_generate_filename( $self->get_name_resolver()->create_xsd_name($type) );
+    warn "Creating simpleType class $output \n"
+        if not $silent_of{ ident $self};
     $self->_process('simpleType.tt', { simpleType => $type } , $output);
 }
 
@@ -221,7 +227,111 @@ sub visit_XSD_ComplexType {
     my $output = defined $output_of{ ident $self }
         ? $output_of{ ident $self }
         : $self->_generate_filename( $self->get_name_resolver()->create_xsd_name($type) );
+    warn "Creating complexType class $output \n"
+        if not $silent_of{ ident $self};
     $self->_process('complexType.tt', { complexType => $type } , $output);
 }
 
 1;
+
+=pod
+
+=head1 NAME
+
+SOAP::WSDL::Generator::Template::XSD - XSD code generator
+
+=head1 DESCRIPTION
+
+SOAP::WSDL's XSD code generator
+
+=head1 SYNOPSIS
+
+See L<wsdl2perl.pl|wsdl2perl.pl> for an example on how to use this class.
+
+=head1 METHODS
+
+=head2 new
+
+Constructor.
+
+Options (Options can also be set via set_OPTION methods):
+
+=over
+
+=item * silent
+
+Suppress warnings about what's being generated
+
+=back
+
+=head2 generate
+
+Shortcut for calling L<generate_typelib> and L<generate_client>
+
+=head2 generate_client
+
+Generates a client interface
+
+=head2 generate_server
+
+Generates a server class
+
+=head2 generate_typelib
+
+Generates type and element classes
+
+=head2 generate_typemap
+
+Generate a typemap class required by SOAP::WSDL's MessageParser
+
+=head2 generate_interface
+
+(Deprecated) alias for generate_client
+
+=head2 get_name_resolver
+
+Returns a name resolver template plugin
+
+=head2 visit_XSD_Attribute
+
+Visitor method for SOAP::WSDL::XSD::Attribute. Should be factored out into
+visitor class.
+
+=head2 visit_XSD_ComplexType
+
+Visitor method for SOAP::WSDL::XSD::ComplexType. Should be factored out into
+visitor class.
+
+=head2 visit_XSD_Element
+
+Visitor method for SOAP::WSDL::XSD::Element. Should be factored out into
+visitor class.
+
+=head2 visit_XSD_SimpleType
+
+Visitor method for SOAP::WSDL::XSD::SimpleType. Should be factored out into
+visitor class.
+
+=head1 AUTHOR
+
+Replace the whitespace by @ for E-Mail Address.
+
+ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright 2008, 2009 Martin Kutter.
+
+This file is part of SOAP-WSDL. You may distribute/modify it under
+the same terms as perl itself
+
+=head1 Repository information
+
+ $Id: WSDLParser.pm 770 2009-01-24 22:55:54Z kutterma $
+
+ $LastChangedDate: 2009-01-24 23:55:54 +0100 (Sa, 24 Jan 2009) $
+ $LastChangedRevision: 770 $
+ $LastChangedBy: kutterma $
+
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/WSDLParser.pm $
+

lib/SOAP/WSDL/Generator/Template/XSD/Interface/POD/Operation.tt

@@ -4,6 +4,16 @@
 
 [%     type = definitions.find_portType( binding.expand( binding.get_type ) );
     port_op = type.find_operation( definitions.get_targetNamespace, operation.get_name );
-port_op.get_documentation %]
+    port_op.get_documentation();
 
- $interface->[% operation.get_name %]([% INCLUDE Interface/POD/Message.tt %] );
+    # for now we only document the first response part - document/literal
+    # doesn't allow more.
+    response_name = port_op.first_output.get_message();
+    response_part = definitions.find_message( port_op.first_output.expand( response_name ) ).get_part();
+    response_body_element = definitions.first_types.find_element( response_part.0.expand( response_part.0.get_element ) );
+    response_body_class = XSD.create_xsd_name(response_body_element);
+%]
+
+Returns a L<[% response_body_class %]|[% response_body_class %]> object.
+
+ $response = $interface->[% operation.get_name %]([% INCLUDE Interface/POD/Message.tt %] );

lib/SOAP/WSDL/Generator/Template/XSD/Typemap.tt

@@ -7,7 +7,6 @@ our [% USE Dumper(varname = 'typemap_'); Dumper.dump( typemap ) %];
 
 sub get_class {
   my $name = join '/', @{ $_[1] };
-  exists $typemap_1->{ $name } or die "Cannot resolve $name via " . __PACKAGE__;
   return $typemap_1->{ $name };
 }
 

lib/SOAP/WSDL/Generator/Template/XSD/complexType.tt

@@ -8,6 +8,10 @@ use warnings;
 # may be sub-packages...
 #-%]
 
+__PACKAGE__->_set_element_form_qualified([%-
+    IF complexType.schema.get_elementFormDefault == 'qualified'
+    -%]1[% ELSE %]0[% END %]);
+
 [% INCLUDE complexType/contentModel.tt %]
 
 1;

lib/SOAP/WSDL/Generator/Template/XSD/complexType/POD/complexContent.tt

@@ -1,12 +1,12 @@
-[% IF (complexType.get_variety == 'restriction');
+[% IF (complexType.get_derivation == 'restriction');
     INCLUDE complexType/POD/restriction.tt(complexType = complexType);
-ELSIF (complexType.get_variety == 'extension');
+ELSIF (complexType.get_derivation == 'extension');
     #THROW NOT_IMPLEMENTED, "${ complexType.get_name } - complexType complexContent extension not implemented yet";
 %]
  # No documentation generated for complexContent / extension yet
 [%
 ELSE;
-    THROW UNKNOWN, "unknown variety ${ complexType.get_variety }";
+    THROW UNKNOWN, "unknown derivation ${ complexType.get_derivation }";
 END;
 
 %]

lib/SOAP/WSDL/Generator/Template/XSD/complexType/complexContent.tt

@@ -7,6 +7,10 @@ ELSIF (complexType.get_variety == 'sequence');
 ELSIF (complexType.get_variety == 'all');
     INCLUDE complexType/extension.tt(complexType = complexType);
 ELSE;
-    THROW UNKNOWN, "unknown variety ${ complexType.get_variety }";
+    IF (complexType.get_variety);
+        THROW UNKNOWN, "unknown variety ${ complexType.get_variety }";
+    ELSE -%]
+# empty variety
+[%  END;
 END;
 %]

lib/SOAP/WSDL/Generator/Template/XSD/complexType/extension.tt

@@ -22,7 +22,7 @@ element_list = [];
 
 # copy complexType ref
 base_type = complexType;
-base_name=base_type.expand( base_type.get_base );
+base_name = base_type.expand( base_type.get_base );
 base_type = definitions.first_types.find_type( base_name );
 
 # add a use base for first to setup inheritance
@@ -31,13 +31,17 @@ use base qw([% XSD.create_xsd_name( base_type ) %]);
 [%
 # loop forever
 WHILE (1);
+    IF (complexType.get_variety == 'extension');
+        # wrap statement in IF to avoid printing
+        IF (complexType.set_variety( base_type.get_variety )); END;
+    END;
     # make a copy. We don't want to modify the original list here...
     FOREACH element = base_type.get_element.reverse;
         element_list.unshift(element);
     END;
-
+    # get next base type if there is one...
-    # get next base type
+    IF (base_type.get_base);
-    IF (base_name=base_type.expand( base_type.get_base ));
+        base_name=base_type.expand( base_type.get_base );
         # set new base_type
         base_type = definitions.first_types.find_type( base_name );
     ELSE;
@@ -59,8 +63,11 @@ END;
 
 # set derived element list
 # wrap in IF; END; to prevent it getting printed
-IF (complexType.set_element( element_list )); END;
+IF ( complexType.set_element( element_list ) ); END;
 
+-%]
+# Variety: [% complexType.get_variety %]
+[%
 INCLUDE complexType/variety.tt(complexType = complexType);
 
 # restore original element list

lib/SOAP/WSDL/Generator/Template/XSD/element.tt

@@ -76,6 +76,38 @@ Perl data type class for the XML Schema defined element
 
 [% INCLUDE POD/annotation.tt(node = element) %]
 
+[% IF (complexType = element.first_complexType);
+    IF (complexType.get_element); %]
+
+[% head1 %] PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+[%      FOREACH child_element = complexType.get_element -%]
+=item * [% XSD.perl_var_name(XSD.element_name(child_element)) %]
+
+ $element->set_[% XSD.perl_var_name(XSD.element_name(child_element)) %]($data);
+ $element->get_[% XSD.perl_var_name(XSD.element_name(child_element)) %]();
+
+[%          IF (XSD.perl_var_name(XSD.element_name(child_element)) == child_element.get_name); %]
+[%          ELSE %]
+Note: The name of this property has been altered, because it didn't match
+perl's notion of variable/subroutine names. The altered name is used in
+perl code only, XML output uses the original name:
+
+ [% child_element.get_name %]
+
+[%          END %]
+
+[%      END; %]
+=back
+[%    END;
+END; -%]
+
+
 [% head1 %] METHODS
 
 [% head2 %] new

lib/SOAP/WSDL/Generator/Visitor.pm

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

lib/SOAP/WSDL/Generator/Visitor/Typelib.pm

@@ -1,11 +0,0 @@
-package SOAP::WSDL::Generator::Visitor::Typelib;
-use strict;
-use warnings;
-use base qw(SOAP::WSDL::Generator::Visitor
-    SOAP::WSDL::Generator::Template
-);
-
-use version; our $VERSION = qv('2.00.05');
-
-1;
-

lib/SOAP/WSDL/Generator/Visitor/Typemap.pm

@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
 
 use base qw(SOAP::WSDL::Generator::Visitor);
 
-use version; our $VERSION = qv('2.00.05');
+use version; our $VERSION = qv('2.00.09');
 
 my %path_of             :ATTR(:name<path>           :default<[]>);
 my %typemap_of          :ATTR(:name<typemap>        :default<()>);
@@ -182,3 +182,39 @@ sub visit_XSD_ComplexType {
 }
 
 1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+SOAP::WSDL::Generator::Visitor::Typemap - Visitor class for generating typemaps
+
+=head1 DESCRIPTION
+
+Visitor used by SOAP::WSDL's XSD generator for creating typemaps
+
+=head1 AUTHOR
+
+Replace the whitespace by @ for E-Mail Address.
+
+ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright 2008, 2009 Martin Kutter.
+
+This file is part of SOAP-WSDL. You may distribute/modify it under
+the same terms as perl itself
+
+=head1 Repository information
+
+ $Id: WSDLParser.pm 770 2009-01-24 22:55:54Z kutterma $
+
+ $LastChangedDate: 2009-01-24 23:55:54 +0100 (Sa, 24 Jan 2009) $
+ $LastChangedRevision: 770 $
+ $LastChangedBy: kutterma $
+
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/WSDLParser.pm $
+

lib/SOAP/WSDL/Manual/CodeFirst.pod

@@ -0,0 +1,91 @@
+=pod
+
+=head1 Writing Code-First Web Services with SOAP::WSDL
+
+B<Note: This document is just a collection of thought. There's no implementation yet>.
+
+=head2 How Data Class definitions could look like
+
+=head3 Moose
+
+Of course SOAP::WSDL could (and probably should) just use Moose - it provides the full
+Metaclass Framework needed for generating Schemas from class definitions.
+
+However, Moose is way too powerful for building (just) simple Data Transfer Objects which
+can be expressed in XML.
+
+With Moose, a class could look like this:
+
+ package MyElements::GenerateBarCode;
+ use Moose;
+
+ has 'xmlns' =>
+     is => 'ro',
+     default => 'http://webservicex.net';
+
+ has 'xmlname' =>
+     is => 'ro',
+     default => 'GenerateBarCode';
+
+ has 'BarCodeParam' =>
+      is => 'rw',
+      type => 'MyTypes::BarCodeData';
+
+ has 'BarCodeText' =>
+      is => 'rw',
+      type => 'String';
+ 1;
+
+This is - despite the condensed syntax - a lot of line noise.
+
+=head3 Native SOAP::WSDL
+
+SOAP::WSDL::XSD::Typelib::ComplexType (should) provide a simple setup method allowing a even shorter
+description (and offering the additional performance boost SOAP::WSDL has over Moose):
+
+ package MyElements::GenerateBarCode;
+ use strice; use warnings;
+ use SOAP::WSDL::XSD::Typelib::Element;
+ use SOAP::WSDL::XSD::Typelib::ComplexType;
+
+ _namespace 'http://webservicex.net';    # might be better in the SOAP server interface
+ _name 'GenerateBarCode';
+ _elements
+         BarCodeParam => 'MyTypes::BarCodeData',
+         BarCodeText => 'string';
+
+This would result in the following XML Schema (inside a schema with the namespace
+"http://webservicex.net" - the namespaces could even be declared outside the DTO classes.
+
+ <complexType name="GenerateBarCode">
+      <sequence>
+           <element name="BarCodeParam" type="tns:BarCodeData"/>
+           <element name="BarCodeText" type="xsd:string"/>
+      </sequence>
+ </complexType>
+
+=head2 Interface definitions
+
+Perl does not have the concept of interfaces. However, Moose provides Roles, which can be used for defining
+interfaces.
+
+However, it's not really necessary to define a interface Interface (in the sense of a Jave interface) -
+a interface class is sufficient.
+
+Subroutine attributes could be used for providing additional information - attributes in perl are much like
+annotations in Java
+
+A interface could look like this:
+
+ package MyServer::BarCode;
+ use strict; use warnings;
+ use SOAP::WSDL::Server::CodeFirst;
+
+ sub generateBarCode :WebMethod(name=<GenerateBarCode>
+     return=<MyElements::GenerateBarcodeResponse>
+     body=<MyElements::GenerateBarcode>) {
+     my ($self, $body, $header) = @_;
+     my $result = MyElements::GenerateBarcodeResponse->new();
+     return $result;
+ };
+ 1;

lib/SOAP/WSDL/Manual/Cookbook.pod

@@ -12,7 +12,7 @@ You need Crypt::SSLeay installed to access HTTPS webservices.
 
 Passing a username and password, or a client certificate and key, to the
 transport layer is highly dependent on the transport backend. The descriptions
-below are for HTTP(S) transport usingLWP::UserAgent
+below are for HTTP(S) transport using LWP::UserAgent
 
 =head3 Accessing HTTP(S) webservices with basic/digest authentication
 
@@ -121,12 +121,82 @@ or nil elements):
      return "<$prefix:$name>";
  }
 
+=head1 Skipping unknown XML elements - "lax" XML processing
+
+SOAP::WSDL's default serializer
+L<SOAP::WSDL::Deserializer::XSD|SOAP::WSDL::Deserializer::XSD> is a "strict"
+XML processor in the sense that it throws an exception on encountering unknown
+XML elements.
+
+L<SOAP::WSDL::Deserializer::XSD|SOAP::WSDL::Deserializer::XSD> allows
+switching off the stric XML processing by passing the C<strict =E<gt> 0>
+option.
+
+=head2 Disabling strict XML processing in a Client
+
+Pass the following as C<deserializer_args>:
+
+ { strict => 0 }
+
+Example: The generated SOAP client is assumed to be "MyInterface::Test".
+
+ use MyInterface::Test;
+
+ my $soap = MyInterface::Test->new({
+     deserializer_args => { strict => 0 }
+ });
+
+ my $result = $soap->SomeMethod();
+
+=head2 Disabling strict XML processing in a CGI based server
+
+You have to set the deserializer in the transport class explicitely to
+a L<SOAP::WSDL::Deserializer|SOAP::WSDL::Deserializer> object with the
+C<strict> option set to 0.
+
+Example: The generated SOAP server is assumed to be "MyServer::Test".
+
+ use strict;
+ use MyServer::Test;
+ use SOAP::WSDL::Deserializer::XSD;
+
+ my $soap = MyServer::Test->new({
+     transport_class => 'SOAP::WSDL::Server::CGI',
+     dispatch_to => 'main',
+ });
+ $soap->get_transport()->set_deserializer(
+    SOAP::WSDL::Deserializer::XSD->new({ strict => 0 })
+ );
+
+ $soap->handle();
+
+=head2 Disabling strict XML processing in a mod_perl based server
+
+Sorry, this is not implemented yet - you'll have to write your own handler
+class based on L<SOAP::WSDL::Server::Mod_Perl2|SOAP::WSDL::Server::Mod_Perl2>.
+
+=head1 Changing the encoding of a SOAP request
+
+SOAP::WSDL uses utf-8 per default: utf-8
+is the de-facto standard for webservice ommunication.
+
+However, you can change the encoding the transport layer announces by calling
+C<set_encoding($encoding)> on a client object.
+
+You probably have to write your own serializer class too, because the default
+serializer has the utf-8 encoding hardcoded in the envelope.
+
+Just look into SOAP::WSDL::Serializer on how to do that.
+
+Don't forget to register your serializer at the serializer factory
+SOAP::WSDL::Factory::Serializer.
+
 =head1 LICENSE AND COPYRIGHT
 
-Copyright 2008 Martin Kutter.
+Copyright 2008, 2009 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
 

lib/SOAP/WSDL/Manual/Glossary.pod

@@ -93,7 +93,7 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
  $Rev: 391 $
  $LastChangedBy: kutterma $
  $Id: Glossary.pod 391 2007-11-17 21:56:13Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Manual/Glossary.pod $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Manual/Glossary.pod $
 
 =cut
 

lib/SOAP/WSDL/Manual/Parser.pod

@@ -241,7 +241,7 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
  $Rev: 391 $
  $LastChangedBy: kutterma $
  $Id: Parser.pod 391 2007-11-17 21:56:13Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Manual/Parser.pod $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Manual/Parser.pod $
 
 =cut
 

lib/SOAP/WSDL/Manual/WS_I.pod

@@ -1255,7 +1255,7 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
  $Rev: 562 $
  $LastChangedBy: kutterma $
  $Id: WS_I.pod 562 2008-02-22 20:32:17Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Manual/WS_I.pod $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Manual/WS_I.pod $
 
 =cut
 

lib/SOAP/WSDL/Message.pm

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

lib/SOAP/WSDL/OpMessage.pm

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

lib/SOAP/WSDL/Operation.pm

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

lib/SOAP/WSDL/Part.pm

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

lib/SOAP/WSDL/Port.pm

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

lib/SOAP/WSDL/PortType.pm

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

lib/SOAP/WSDL/SOAP/Address.pm

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

lib/SOAP/WSDL/SOAP/Body.pm

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

lib/SOAP/WSDL/SOAP/Header.pm

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

lib/SOAP/WSDL/SOAP/HeaderFault.pm

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

lib/SOAP/WSDL/SOAP/Operation.pm

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

lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm

@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use Class::Std::Fast::Storable constructor => 'none';
 
-use version; our $VERSION = qv('2.00.05');
+use version; our $VERSION = qv('2.00.09');
 
 use SOAP::WSDL::XSD::Typelib::ComplexType;
 use SOAP::WSDL::XSD::Typelib::Element;
@@ -101,10 +101,10 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 728 $
+ $Rev: 805 $
  $LastChangedBy: kutterma $
- $Id: Fault11.pm 728 2008-07-13 19:28:50Z kutterma $
+ $Id: Fault11.pm 805 2009-02-23 21:12:24Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm $
 
 =cut
 

lib/SOAP/WSDL/Serializer/XSD.pm

@@ -5,7 +5,7 @@ use warnings;
 use Class::Std::Fast::Storable;
 use Scalar::Util qw(blessed);
 
-use version; our $VERSION = qv('2.00.05');
+use version; our $VERSION = qv('2.00.09');
 
 use SOAP::WSDL::Factory::Serializer;
 
@@ -50,7 +50,7 @@ sub serialize {
 }
 
 sub serialize_header {
-    my ($self, $name, $data, $opt) = @_;
+    my ($self, $method, $data, $opt) = @_;
 
     # header is optional. Leave out if there's no header data
     return q{} if not $data;
@@ -62,8 +62,11 @@ sub serialize_header {
 }
 
 sub serialize_body {
-    my ($self, $name, $data, $opt) = @_;
+    my ($self, $method, $data, $opt) = @_;
-    $data->__set_name("$opt->{prefix}:$name") if $opt->{prefix};
+
+    # TODO This one wipes out the old class' XML name globally
+    # Fix in some more appropriate place...
+    $data->__set_name("$opt->{prefix}:" . $data->__get_name() ) if $opt->{prefix};
 
     # Body is NOT optional. Serialize to empty body
     # if we have no data.
@@ -129,10 +132,10 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 728 $
+ $Rev: 805 $
  $LastChangedBy: kutterma $
- $Id: XSD.pm 728 2008-07-13 19:28:50Z kutterma $
+ $Id: XSD.pm 805 2009-02-23 21:12:24Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Serializer/XSD.pm $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Serializer/XSD.pm $
 
 =cut
 

lib/SOAP/WSDL/Server.pm

@@ -6,7 +6,7 @@ use Scalar::Util qw(blessed);
 use SOAP::WSDL::Factory::Deserializer;
 use SOAP::WSDL::Factory::Serializer;
 
-use version; our $VERSION = qv('2.00.05');
+use version; our $VERSION = qv('2.00.09');
 
 my %dispatch_to_of      :ATTR(:name<dispatch_to> :default<()>);
 my %action_map_ref_of   :ATTR(:name<action_map_ref> :default<{}>);
@@ -42,7 +42,7 @@ sub handle {
     };
     if ($@) {
         die $deserializer_of{ $ident }->generate_fault({
-                code => 'soap:Server',
+                code => 'SOAP-ENV:Server',
                 role => 'urn:localhost',
                 message => "Error deserializing message: $@. \n"
             });
@@ -65,7 +65,7 @@ sub handle {
 
     if (!$dispatch_to_of{ $ident }) {
         die $deserializer_of{ $ident }->generate_fault({
-                code => 'soap:Server',
+                code => 'SOAP-ENV:Server',
                 role => 'urn:localhost',
                 message => "No handler registered",
             });
@@ -73,7 +73,7 @@ sub handle {
 
     if (! defined $request->header('SOAPAction') ) {
         die $deserializer_of{ $ident }->generate_fault({
-                code => 'soap:Server',
+                code => 'SOAP-ENV:Server',
                 role => 'urn:localhost',
                 message => "Not found: No SOAPAction given",
             });
@@ -81,7 +81,7 @@ sub handle {
 
     if (! defined $method_name) {
         die $deserializer_of{ $ident }->generate_fault({
-                code => 'soap:Server',
+                code => 'SOAP-ENV:Server',
                 role => 'urn:localhost',
                 message => "Not found: No method found for the SOAPAction '$soap_action'",
             });
@@ -92,7 +92,7 @@ sub handle {
 
     if (!$method_ref) {
         die $deserializer_of{ $ident }->generate_fault({
-                code => 'soap:Server',
+                code => 'SOAP-ENV:Server',
                 role => 'urn:localhost',
                 message => "Not implemented: The handler does not implement the method $method_name",
             });
@@ -190,7 +190,7 @@ SOAP::Server's deserializer create one for you:
  my $soap = MyServer::SomeService->new();
 
  die $soap->get_deserializer()->generate_fault({
-    code => 'soap:Server',
+    code => 'SOAP-ENV:Server',
     role => 'urn:localhost',
     message => "The error message to pas back",
     detail => "Some details on the error",

lib/SOAP/WSDL/Server/CGI.pm

@@ -2,6 +2,8 @@ package SOAP::WSDL::Server::CGI;
 use strict;
 use warnings;
 
+use Encode;
+
 use HTTP::Request;
 use HTTP::Response;
 use HTTP::Status;
@@ -12,7 +14,7 @@ use Class::Std::Fast::Storable;
 
 use base qw(SOAP::WSDL::Server);
 
-use version; our $VERSION = qv('2.00.05');
+use version; our $VERSION = qv('2.00.09');
 
 # 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...
@@ -80,7 +82,7 @@ sub handle {
     else {
         $response = HTTP::Response->new(200);
         $response->header('Content-type' => 'text/xml; charset="utf-8"');
-        $response->content( $response_message );
+        $response->content( encode('utf8', $response_message ) );
         {
             use bytes;
             $response->header('Content-length', length $response_message);

lib/SOAP/WSDL/Server/Mod_Perl2.pm

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

lib/SOAP/WSDL/Server/Simple.pm

@@ -0,0 +1,161 @@
+package SOAP::WSDL::Server::Simple;
+use strict;
+use warnings;
+
+use Encode;
+
+use HTTP::Request;
+use HTTP::Response;
+use HTTP::Status;
+use HTTP::Headers;
+use Scalar::Util qw(blessed);
+
+use Class::Std::Fast::Storable;
+
+use base qw(SOAP::WSDL::Server);
+
+use version; our $VERSION = qv('2.00.09');
+
+# 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...
+#
+# This should be a warning for us: We should not handle methods via inheritance,
+# but via some plugin mechanism, to allow alternative handlers to be plugged
+# in.
+
+sub handle {
+    my ($self, $cgi) = @_;
+
+    my $response;
+
+    my $content = $cgi->param('POSTDATA');
+
+    my $request = HTTP::Request->new(
+        $ENV{'REQUEST_METHOD'} || '' => $ENV{'SCRIPT_NAME'},
+        HTTP::Headers->new(
+            map {
+                    (/^HTTP_(.+)/i
+                        ? ($1=~m/SOAPACTION/)
+                            ?('SOAPAction')
+                            :($1)
+                        : $_
+                     ) => $ENV{$_}
+            } keys %ENV),
+        $content,
+    );
+
+    # we copy the response message around here.
+    # Passing by reference would be much better...
+    my $response_message = eval { $self->SUPER::handle($request) };
+
+    # caveat: SOAP::WSDL::SOAP::Typelib::Fault11 is false in bool context...
+    if ($@ || blessed $@) {
+        my $exception = $@;
+        $response = HTTP::Response->new(500);
+        $response->header('Content-type' => 'text/xml; charset="utf-8"');
+        if (blessed($exception)) {
+            $response->content( $self->get_serializer->serialize({
+                    body => $exception
+                })
+            );
+        }
+        else {
+            $response->content($exception);
+        }
+    }
+    else {
+        $response = HTTP::Response->new(200);
+        $response->header('Content-type' => 'text/xml; charset="utf-8"');
+        $response->content( encode('utf8', $response_message ) );
+        {
+            use bytes;
+            $response->header('Content-length', length $response_message);
+        }
+    }
+
+    $self->_output($response);
+    return;
+}
+
+sub _output :PRIVATE {
+    my ($self, $response) = @_;
+    my $code = $response->code;
+    binmode(STDOUT);
+    print STDOUT "HTTP/1.0 $code ", HTTP::Status::status_message($code)
+        , "\015\012", $response->headers_as_string("\015\012")
+        , "\015\012", $response->content;
+
+    warn "HTTP/1.0 $code ", HTTP::Status::status_message($code)
+        , "\015\012", $response->headers_as_string("\015\012")
+        , $response->content, "\n\n";
+}
+
+1;
+
+=pod
+
+=head1 NAME
+
+SOAP::WSDL::Server::Simple - CGI based SOAP server for HTTP::Server::Simple
+
+=head1 SYNOPSIS
+
+ package TestServer;
+ use base qw(HTTP::Server::Simple::CGI);
+ use MyServer::TestService::TestPort;
+
+ sub handle_request {
+     my ($self, $cgi) = @_;
+     my $server = MyServer::TestService::TestPort->new({
+         dispatch_to => 'main',
+         transport_class => 'SOAP::WSDL::Server::Simple',
+     });
+     $server->handle($cgi);
+ }
+
+ my $httpd = __PACKAGE__->new();
+ $httpd->run();
+
+=head1 USAGE
+
+To use SOAP::WSDL::Server::Simple efficiently, you should first create a server
+interface using L<wsdl2perl.pl|wsdl2perl.pl>.
+
+SOAP::WSDL::Server::Simple dispatches all calls to appropriately named methods in the
+class or object set via C<dispatch_to>.
+
+See the generated server class on details.
+
+=head1 DESCRIPTION
+
+Lightweight SOAP server for use with HTTP::Server::Simple, mainly designed
+for testing purposes. It allows to set up a simple SOAP server without having
+to configure CGI or mod_perl stuff.
+
+SOAP::WSDL::Server::Simple is not recommended for production use.
+
+=head1 METHODS
+
+=head2 handle
+
+See synopsis above.
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright 2004-2008 Martin Kutter.
+
+This file is part of SOAP-WSDL. You may distribute/modify it under the same
+terms as perl itself
+
+=head1 AUTHOR
+
+Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
+
+=head1 REPOSITORY INFORMATION
+
+ $Rev: 391 $
+ $LastChangedBy: kutterma $
+ $Id: Client.pm 391 2007-11-17 21:56:13Z kutterma $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client.pm $
+
+=cut