bump version to 3.003

missing asterisk fixes pod error

Build.PL

@@ -1,53 +0,0 @@
-use Module::Build;
-use version;
-$build = Module::Build->new(
-    dist_author        => 'Martin Kutter <martin.kutter@fen-net.de>',
-    create_makefile_pl => 'passthrough',
-    dist_abstract      => 'SOAP with WSDL support',
-    dist_name          => 'SOAP-WSDL',
-    dist_version       => '2.00_26',
-    module_name        => 'SOAP::WSDL',
-    license            => 'artistic',
-    requires           => {
-        # 5.6.x is way too buggy and has no unicode support 
-        # for us. SOAP-WSDL relies on unicode (WS-I demands it)
-        # and triggers several 5.6 bugs...
-        'perl'                    => q(5.8.0),
-        'Class::Std::Fast'        => qv(0.0.5),
-        'Data::Dumper'            => 0,
-        'Date::Parse'             => 0,
-        'Date::Format'            => 0,
-        'File::Basename'          => 0,
-        'File::Path'              => 0,
-        'Getopt::Long'            => 0,
-        'List::Util'              => 0,
-        'LWP::UserAgent'          => 0,
-        'Template'                => 0,
-        'Term::ReadKey'           => 0,
-        'XML::Parser::Expat'      => 0,
-    },
-    buildrequires => {
-        'Class::Std::Fast'        => qv(0.0.5),
-        'Cwd'                     => 0,
-        'Date::Parse'             => 0,
-        'Date::Format'            => 0,
-        'Getopt::Long'            => 0,
-        'List::Util'              => 0,
-        'LWP::UserAgent'          => 0,
-        'File::Basename'          => 0,
-        'File::Path'              => 0,
-        'File::Spec'              => 0,
-        'Storable'                => 0,
-        'Test::More'              => 0,
-        'Template'                => 0,	
-        'XML::Parser::Expat'      => 0,
-    },
-    recursive_test_files => 1,
-    meta_add => {
-        no_index => {
-            directory => 'lib/SOAP/WSDL/Generator/Template/XSD/',
-        },
-    }
-);
-$build->add_build_element('tt');
-$build->create_build_script;

LICENSE

@@ -2,6 +2,145 @@ SOAP::WSDL is dual licensed under the same terms as
 Perl itself.
 
 This means at your choice, either the Perl Artistic License, or
-the GNU GPL version 1 or higher.
+the GNU GPL version 1 or - at your choice - any higher version.
+
+The GNU GPL can be obtained from
+http://www.gnu.org/licenses/old-licenses/gpl-1.0.txt
+
+Newer versions can be found at http://www.gnu.org/licenses/gpl.html
+
+The Artistic License can be obtained from
+http://dev.perl.org/licenses/artistic.html and is included below.
+
+ARTISTIC LICENSE
+================
 
 
+             The "Artistic License"
+
+                Preamble
+
+The intent of this document is to state the conditions under which a
+Package may be copied, such that the Copyright Holder maintains some
+semblance of artistic control over the development of the package,
+while giving the users of the package the right to use and distribute
+the Package in a more-or-less customary fashion, plus the right to make
+reasonable modifications.
+
+Definitions:
+
+    "Package" refers to the collection of files distributed by the
+    Copyright Holder, and derivatives of that collection of files
+    created through textual modification.
+
+    "Standard Version" refers to such a Package if it has not been
+    modified, or has been modified in accordance with the wishes
+    of the Copyright Holder as specified below.
+
+    "Copyright Holder" is whoever is named in the copyright or
+    copyrights for the package.
+
+    "You" is you, if you're thinking about copying or distributing
+    this Package.
+
+    "Reasonable copying fee" is whatever you can justify on the
+    basis of media cost, duplication charges, time of people involved,
+    and so on.  (You will not be required to justify it to the
+    Copyright Holder, but only to the computing community at large
+    as a market that must bear the fee.)
+
+    "Freely Available" means that no fee is charged for the item
+    itself, though there may be fees involved in handling the item.
+    It also means that recipients of the item may redistribute it
+    under the same conditions they received it.
+
+1. You may make and give away verbatim copies of the source form of the
+Standard Version of this Package without restriction, provided that you
+duplicate all of the original copyright notices and associated disclaimers.
+
+2. You may apply bug fixes, portability fixes and other modifications
+derived from the Public Domain or from the Copyright Holder.  A Package
+modified in such a way shall still be considered the Standard Version.
+
+3. You may otherwise modify your copy of this Package in any way, provided
+that you insert a prominent notice in each changed file stating how and
+when you changed that file, and provided that you do at least ONE of the
+following:
+
+    a) place your modifications in the Public Domain or otherwise make them
+    Freely Available, such as by posting said modifications to Usenet or
+    an equivalent medium, or placing the modifications on a major archive
+    site such as uunet.uu.net, or by allowing the Copyright Holder to include
+    your modifications in the Standard Version of the Package.
+
+    b) use the modified Package only within your corporation or organization.
+
+    c) rename any non-standard executables so the names do not conflict
+    with standard executables, which must also be provided, and provide
+    a separate manual page for each non-standard executable that clearly
+    documents how it differs from the Standard Version.
+
+    d) make other distribution arrangements with the Copyright Holder.
+
+4. You may distribute the programs of this Package in object code or
+executable form, provided that you do at least ONE of the following:
+
+    a) distribute a Standard Version of the executables and library files,
+    together with instructions (in the manual page or equivalent) on where
+    to get the Standard Version.
+
+    b) accompany the distribution with the machine-readable source of
+    the Package with your modifications.
+
+    c) give non-standard executables non-standard names, and clearly
+    document the differences in manual pages (or equivalent), together
+    with instructions on where to get the Standard Version.
+
+    d) make other distribution arrangements with the Copyright Holder.
+
+5. You may charge a reasonable copying fee for any distribution of this
+Package.  You may charge any fee you choose for support of this
+Package.  You may not charge a fee for this Package itself.  However,
+you may distribute this Package in aggregate with other (possibly
+commercial) programs as part of a larger (possibly commercial) software
+distribution provided that you do not advertise this Package as a
+product of your own.  You may embed this Package's interpreter within
+an executable of yours (by linking); this shall be construed as a mere
+form of aggregation, provided that the complete Standard Version of the
+interpreter is so embedded.
+
+6. The scripts and library files supplied as input to or produced as
+output from the programs of this Package do not automatically fall
+under the copyright of this Package, but belong to whoever generated
+them, and may be sold commercially, and may be aggregated with this
+Package.  If such scripts or library files are aggregated with this
+Package via the so-called "undump" or "unexec" methods of producing a
+binary executable image, then distribution of such an image shall
+neither be construed as a distribution of this Package nor shall it
+fall under the restrictions of Paragraphs 3 and 4, provided that you do
+not represent such an executable image as a Standard Version of this
+Package.
+
+7. C subroutines (or comparably compiled subroutines in other
+languages) supplied by you and linked into this Package in order to
+emulate subroutines and variables of the language defined by this
+Package shall not be considered part of this Package, but are the
+equivalent of input as in Paragraph 6, provided these subroutines do
+not change the language in any way that would cause it to fail the
+regression tests for the language.
+
+8. Aggregation of this Package with a commercial distribution is always
+permitted provided that the use of this Package is embedded; that is,
+when no overt attempt is made to make this Package's interfaces visible
+to the end user of the commercial distribution.  Such use shall not be
+construed as a distribution of this Package.
+
+9. The name of the Copyright Holder may not be used to endorse or promote
+products derived from this software without specific prior written permission.
+
+10. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
+IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
+WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+
+                The End
+

MANIFEST

@@ -1,10 +1,15 @@
 benchmark/01_expat.t
 benchmark/hello.pl
+benchmark/MEMORY_FOOTPRINT
 benchmark/person.pl
 benchmark/person.xml
+benchmark/person_profile.pl
+benchmark/person_single.pl
+benchmark/README
 benchmark/XSD/01_anyType.t
 benchmark/XSD/02_anySimpleType.t
 benchmark/XSD/03_string.t
+benchmark/XSD/strftime.pl
 bin/wsdl2perl.pl
 Build.PL
 Changes
@@ -15,6 +20,16 @@ example/genericbarcode.pl
 example/hello.pl
 example/hello_compile.pl
 example/hello_lite.pl
+example/java/cxf/.classpath
+example/java/cxf/.settings/org.eclipse.jdt.core.prefs
+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
@@ -50,14 +65,21 @@ example/lib/MyTypemaps/TestService.pm
 example/lib/MyTypes/Address.pm
 example/lib/MyTypes/ArrayOfContract.pm
 example/lib/MyTypes/ArrayOfPerson.pm
+example/lib/MyTypes/BarCodeData.pm
+example/lib/MyTypes/BarcodeOption.pm
+example/lib/MyTypes/BarcodeType.pm
+example/lib/MyTypes/CheckSumMethod.pm
 example/lib/MyTypes/Contract.pm
+example/lib/MyTypes/ImageFormats.pm
 example/lib/MyTypes/Person.pm
 example/lib/MyTypes/PersonID.pm
 example/lib/MyTypes/PhoneNumber.pm
+example/lib/MyTypes/ShowTextPosition.pm
 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
@@ -66,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
@@ -85,23 +108,37 @@ lib/SOAP/WSDL/Factory/Deserializer.pm
 lib/SOAP/WSDL/Factory/Generator.pm
 lib/SOAP/WSDL/Factory/Serializer.pm
 lib/SOAP/WSDL/Factory/Transport.pm
+lib/SOAP/WSDL/Generator/Iterator/WSDL11.pm
+lib/SOAP/WSDL/Generator/PrefixResolver.pm
 lib/SOAP/WSDL/Generator/Template.pm
+lib/SOAP/WSDL/Generator/Template/Plugin/XSD.pm
 lib/SOAP/WSDL/Generator/Template/XSD.pm
-lib/SOAP/WSDL/Generator/Template/XSD/_type_class.tt
+lib/SOAP/WSDL/Generator/Template/XSD/attribute.tt
 lib/SOAP/WSDL/Generator/Template/XSD/complexType.tt
 lib/SOAP/WSDL/Generator/Template/XSD/complexType/all.tt
 lib/SOAP/WSDL/Generator/Template/XSD/complexType/atomicTypes.tt
+lib/SOAP/WSDL/Generator/Template/XSD/complexType/attributeSet.tt
 lib/SOAP/WSDL/Generator/Template/XSD/complexType/complexContent.tt
 lib/SOAP/WSDL/Generator/Template/XSD/complexType/contentModel.tt
 lib/SOAP/WSDL/Generator/Template/XSD/complexType/extension.tt
 lib/SOAP/WSDL/Generator/Template/XSD/complexType/POD/all.tt
+lib/SOAP/WSDL/Generator/Template/XSD/complexType/POD/attributeSet.tt
 lib/SOAP/WSDL/Generator/Template/XSD/complexType/POD/choice.tt
 lib/SOAP/WSDL/Generator/Template/XSD/complexType/POD/complexContent.tt
+lib/SOAP/WSDL/Generator/Template/XSD/complexType/POD/content_model.tt
 lib/SOAP/WSDL/Generator/Template/XSD/complexType/POD/restriction.tt
+lib/SOAP/WSDL/Generator/Template/XSD/complexType/POD/simpleContent.tt
+lib/SOAP/WSDL/Generator/Template/XSD/complexType/POD/simpleContent/extension.tt
+lib/SOAP/WSDL/Generator/Template/XSD/complexType/POD/simpleContent/restriction.tt
 lib/SOAP/WSDL/Generator/Template/XSD/complexType/POD/structure.tt
+lib/SOAP/WSDL/Generator/Template/XSD/complexType/POD/structure/restriction.tt
+lib/SOAP/WSDL/Generator/Template/XSD/complexType/POD/structure/simpleContent.tt
 lib/SOAP/WSDL/Generator/Template/XSD/complexType/restriction.tt
+lib/SOAP/WSDL/Generator/Template/XSD/complexType/simpleContent.tt
+lib/SOAP/WSDL/Generator/Template/XSD/complexType/simpleContent/extension.tt
 lib/SOAP/WSDL/Generator/Template/XSD/complexType/variety.tt
 lib/SOAP/WSDL/Generator/Template/XSD/element.tt
+lib/SOAP/WSDL/Generator/Template/XSD/element/POD/contentModel.tt
 lib/SOAP/WSDL/Generator/Template/XSD/element/POD/structure.tt
 lib/SOAP/WSDL/Generator/Template/XSD/Interface.tt
 lib/SOAP/WSDL/Generator/Template/XSD/Interface/Body.tt
@@ -113,6 +150,7 @@ lib/SOAP/WSDL/Generator/Template/XSD/Interface/POD/method_info.tt
 lib/SOAP/WSDL/Generator/Template/XSD/Interface/POD/Operation.tt
 lib/SOAP/WSDL/Generator/Template/XSD/Interface/POD/Part.tt
 lib/SOAP/WSDL/Generator/Template/XSD/Interface/POD/Type.tt
+lib/SOAP/WSDL/Generator/Template/XSD/POD/annotation.tt
 lib/SOAP/WSDL/Generator/Template/XSD/Server.tt
 lib/SOAP/WSDL/Generator/Template/XSD/Server/POD/Message.tt
 lib/SOAP/WSDL/Generator/Template/XSD/Server/POD/method_info.tt
@@ -122,16 +160,21 @@ lib/SOAP/WSDL/Generator/Template/XSD/simpleType.tt
 lib/SOAP/WSDL/Generator/Template/XSD/simpleType/atomicType.tt
 lib/SOAP/WSDL/Generator/Template/XSD/simpleType/contentModel.tt
 lib/SOAP/WSDL/Generator/Template/XSD/simpleType/list.tt
+lib/SOAP/WSDL/Generator/Template/XSD/simpleType/POD/contentModel.tt
 lib/SOAP/WSDL/Generator/Template/XSD/simpleType/POD/list.tt
 lib/SOAP/WSDL/Generator/Template/XSD/simpleType/POD/restriction.tt
 lib/SOAP/WSDL/Generator/Template/XSD/simpleType/POD/structure.tt
+lib/SOAP/WSDL/Generator/Template/XSD/simpleType/POD/union.tt
 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
 lib/SOAP/WSDL/Manual/Glossary.pod
 lib/SOAP/WSDL/Manual/Parser.pod
 lib/SOAP/WSDL/Manual/Serializer.pod
@@ -146,24 +189,44 @@ lib/SOAP/WSDL/PortType.pm
 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
 lib/SOAP/WSDL/SOAP/Header.pm
 lib/SOAP/WSDL/SOAP/HeaderFault.pm
 lib/SOAP/WSDL/SOAP/Operation.pm
+lib/SOAP/WSDL/SOAP/Typelib/Fault.pm
 lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm
 lib/SOAP/WSDL/Transport/HTTP.pm
 lib/SOAP/WSDL/Transport/Loopback.pm
 lib/SOAP/WSDL/Transport/Test.pm
 lib/SOAP/WSDL/TypeLookup.pm
 lib/SOAP/WSDL/Types.pm
+lib/SOAP/WSDL/XSD/Annotation.pm
+lib/SOAP/WSDL/XSD/Attribute.pm
+lib/SOAP/WSDL/XSD/AttributeGroup.pm
 lib/SOAP/WSDL/XSD/Builtin.pm
 lib/SOAP/WSDL/XSD/ComplexType.pm
 lib/SOAP/WSDL/XSD/Element.pm
+lib/SOAP/WSDL/XSD/Enumeration.pm
+lib/SOAP/WSDL/XSD/FractionDigits.pm
+lib/SOAP/WSDL/XSD/Group.pm
+lib/SOAP/WSDL/XSD/Length.pm
+lib/SOAP/WSDL/XSD/MaxExclusive.pm
+lib/SOAP/WSDL/XSD/MaxInclusive.pm
+lib/SOAP/WSDL/XSD/MaxLength.pm
+lib/SOAP/WSDL/XSD/MinExclusive.pm
+lib/SOAP/WSDL/XSD/MinInclusive.pm
+lib/SOAP/WSDL/XSD/MinLength.pm
+lib/SOAP/WSDL/XSD/Pattern.pm
 lib/SOAP/WSDL/XSD/Schema.pm
 lib/SOAP/WSDL/XSD/Schema/Builtin.pm
 lib/SOAP/WSDL/XSD/SimpleType.pm
+lib/SOAP/WSDL/XSD/TotalDigits.pm
+lib/SOAP/WSDL/XSD/Typelib/Attribute.pm
+lib/SOAP/WSDL/XSD/Typelib/AttributeSet.pm
 lib/SOAP/WSDL/XSD/Typelib/Builtin.pm
 lib/SOAP/WSDL/XSD/Typelib/Builtin/anySimpleType.pm
 lib/SOAP/WSDL/XSD/Typelib/Builtin/anyType.pm
@@ -214,26 +277,24 @@ lib/SOAP/WSDL/XSD/Typelib/Builtin/unsignedShort.pm
 lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm
 lib/SOAP/WSDL/XSD/Typelib/Element.pm
 lib/SOAP/WSDL/XSD/Typelib/SimpleType.pm
+lib/SOAP/WSDL/XSD/WhiteSpace.pm
 LICENSE
 Makefile.PL
 MANIFEST			This list of files
 META.yml
 MIGRATING
 README
-t/001_use.t
 t/002_parse_wsdl.t
 t/003_wsdl_based_serializer.t
-t/004_parse_wsdl.t
 t/006_client.t
-t/007_envelope.t
 t/008_client_wsdl_complexType.t
 t/009_data_classes.t
 t/011_simpleType.t
 t/012_element.t
 t/013_complexType.t
 t/016_client_object.t
-t/017_generator.t
-t/020_storable.t
+t/094_cpan_meta.t
+t/095_copying.t
 t/096_characters.t
 t/097_kwalitee.t
 t/098_pod.t
@@ -259,27 +320,44 @@ 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/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
+t/acceptance/wsdl/generator_test_dot_names.wsdl
 t/acceptance/wsdl/generator_unsupported_test.wsdl
+t/acceptance/wsdl/helloWorld_header.wsdl
+t/acceptance/wsdl/import.xsd
+t/acceptance/wsdl/import_loop.xsd
 t/acceptance/wsdl/message_gateway.wsdl
+t/acceptance/wsdl/nested_complextype.wsdl
+t/acceptance/wsdl/WSDLParser-import.wsdl
+t/acceptance/wsdl/WSDLParser-imported.wsdl
+t/acceptance/wsdl/WSDLParser.wsdl
+t/acceptance/wsdl/WSDLParser/import_cascade.xsd
+t/acceptance/wsdl/WSDLParser/import_no_location.wsdl
+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/Expat/01_expat.t
-t/Expat/03_wsdl.t
+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/SOAPMessage.pm
+t/lib/Test/SOAP/WSDL/Expat/WSDLParser.pm
+t/lib/Test/SOAP/WSDL/Generator/Iterator/WSDL11.pm
+t/lib/Test/SOAP/WSDL/Generator/Visitor/Typemap.pm
+t/lib/Test/SOAP/WSDL/Tester.pm
 t/lib/Typelib/Base.pm
 t/lib/Typelib/TEnqueueMessage.pm
 t/lib/Typelib/TMessage.pm
 t/SOAP/WSDL.t
-t/SOAP/WSDL/01_use.t
 t/SOAP/WSDL/02_port.t
 t/SOAP/WSDL/03_complexType-all.t
 t/SOAP/WSDL/03_complexType-choice.t
@@ -297,28 +375,51 @@ t/SOAP/WSDL/05_simpleType-union.t
 t/SOAP/WSDL/06_keep_alive.t
 t/SOAP/WSDL/11_helloworld.NET.t
 t/SOAP/WSDL/12_binding.t
+t/SOAP/WSDL/Base.t
+t/SOAP/WSDL/Client.t
 t/SOAP/WSDL/Client/Base.t
+t/SOAP/WSDL/Definitions.t
 t/SOAP/WSDL/Deserializer/Hash.t
 t/SOAP/WSDL/Deserializer/SOM.t
 t/SOAP/WSDL/Deserializer/XSD.t
 t/SOAP/WSDL/Expat/Base.t
+t/SOAP/WSDL/Expat/MessageParser.t
+t/SOAP/WSDL/Expat/WSDLParser.t
 t/SOAP/WSDL/Factory/Deserializer.t
 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/XCS.t
 t/SOAP/WSDL/Generator/XSD.t
+t/SOAP/WSDL/Generator/XSD_custom_resolver.t
+t/SOAP/WSDL/Generator/XSD_dot_names.t
+t/SOAP/WSDL/Generator/XSD_nested_complextype.t
 t/SOAP/WSDL/Generator/XSD_unsupported.t
+t/SOAP/WSDL/Part.t
+t/SOAP/WSDL/PortType.t
+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/02_HTTP.t
 t/SOAP/WSDL/Transport/acceptance/test2.xml
 t/SOAP/WSDL/Transport/acceptance/test3.xml
+t/SOAP/WSDL/Transport/HTTP.t
 t/SOAP/WSDL/Typelib/Fault11.t
-t/SOAP/WSDL/XSD/Typelib/Builtin/01_constructors.t
+t/SOAP/WSDL/Types.t
+t/SOAP/WSDL/XSD/Attribute.t
+t/SOAP/WSDL/XSD/AttributeGroup.t
+t/SOAP/WSDL/XSD/Builtin.t
+t/SOAP/WSDL/XSD/ComplexType.t
+t/SOAP/WSDL/XSD/Element.t
+t/SOAP/WSDL/XSD/Enumeration.t
+t/SOAP/WSDL/XSD/Schema.t
+t/SOAP/WSDL/XSD/SimpleType.t
+t/SOAP/WSDL/XSD/Typelib/Attribute.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/anySimpleType.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/anyType.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/anyURI.t
@@ -329,8 +430,14 @@ t/SOAP/WSDL/XSD/Typelib/Builtin/date.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/dateTime.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/decimal.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/double.t
+t/SOAP/WSDL/XSD/Typelib/Builtin/duration.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/ENTITY.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/float.t
+t/SOAP/WSDL/XSD/Typelib/Builtin/gDay.t
+t/SOAP/WSDL/XSD/Typelib/Builtin/gMonth.t
+t/SOAP/WSDL/XSD/Typelib/Builtin/gMonthDay.t
+t/SOAP/WSDL/XSD/Typelib/Builtin/gYear.t
+t/SOAP/WSDL/XSD/Typelib/Builtin/gYearMonth.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/hexBinary.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/ID.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/IDREF.t
@@ -350,6 +457,7 @@ t/SOAP/WSDL/XSD/Typelib/Builtin/nonPositiveInteger.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/normalizedString.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/NOTATION.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/positiveInteger.t
+t/SOAP/WSDL/XSD/Typelib/Builtin/QName.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/short.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/string.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/time.t
@@ -367,4 +475,5 @@ t/SOAP/WSDL_NO_MESSAGE.wsdl
 t/SOAP/WSDL_NO_PORTTYPE.wsdl
 t/test.wsdl
 TEST_COVERAGE
+test_html.pl
 TODO

META.yml

@@ -1,272 +0,0 @@
----
-name: SOAP-WSDL
-version: 2.00_26
-author:
-  - 'Martin Kutter <martin.kutter@fen-net.de>'
-abstract: SOAP with WSDL support
-license: artistic
-resources:
-  license: http://opensource.org/licenses/artistic-license.php
-requires:
-  Class::Std::Fast: !!perl/hash:version
-    original: v0.0.5
-    qv: 1
-    version:
-      - 0
-      - 0
-      - 5
-  Data::Dumper: 0
-  Date::Format: 0
-  Date::Parse: 0
-  File::Basename: 0
-  File::Path: 0
-  Getopt::Long: 0
-  LWP::UserAgent: 0
-  List::Util: 0
-  Template: 0
-  Term::ReadKey: 0
-  XML::Parser::Expat: 0
-  perl: 5.8.0
-provides:
-  SOAP::WSDL:
-    file: lib/SOAP/WSDL.pm
-    version: 2.00_25
-  SOAP::WSDL::Base:
-    file: lib/SOAP/WSDL/Base.pm
-    version: 2.00_25
-  SOAP::WSDL::Binding:
-    file: lib/SOAP/WSDL/Binding.pm
-  SOAP::WSDL::Client:
-    file: lib/SOAP/WSDL/Client.pm
-    version: 2.00_25
-  SOAP::WSDL::Client::Base:
-    file: lib/SOAP/WSDL/Client/Base.pm
-    version: 2.00_25
-  SOAP::WSDL::Definitions:
-    file: lib/SOAP/WSDL/Definitions.pm
-    version: 2.00_25
-  SOAP::WSDL::Deserializer::Hash:
-    file: lib/SOAP/WSDL/Deserializer/Hash.pm
-    version: 2.00_25
-  SOAP::WSDL::Deserializer::SOM:
-    file: lib/SOAP/WSDL/Deserializer/SOM.pm
-    version: 2.00_24
-  SOAP::WSDL::Deserializer::XSD:
-    file: lib/SOAP/WSDL/Deserializer/XSD.pm
-    version: 2.00_25
-  SOAP::WSDL::Expat::Base:
-    file: lib/SOAP/WSDL/Expat/Base.pm
-    version: 2.00_24
-  SOAP::WSDL::Expat::Message2Hash:
-    file: lib/SOAP/WSDL/Expat/Message2Hash.pm
-    version: 2.00_24
-  SOAP::WSDL::Expat::MessageParser:
-    file: lib/SOAP/WSDL/Expat/MessageParser.pm
-    version: 2.00_25
-  SOAP::WSDL::Expat::MessageStreamParser:
-    file: lib/SOAP/WSDL/Expat/MessageStreamParser.pm
-    version: 2.00_24
-  SOAP::WSDL::Factory::Deserializer:
-    file: lib/SOAP/WSDL/Factory/Deserializer.pm
-    version: 2.00_24
-  SOAP::WSDL::Factory::Generator:
-    file: lib/SOAP/WSDL/Factory/Generator.pm
-    version: 2.00_24
-  SOAP::WSDL::Factory::Serializer:
-    file: lib/SOAP/WSDL/Factory/Serializer.pm
-    version: 2.00_24
-  SOAP::WSDL::Factory::Transport:
-    file: lib/SOAP/WSDL/Factory/Transport.pm
-    version: 2.00_25
-  SOAP::WSDL::Generator::Template:
-    file: lib/SOAP/WSDL/Generator/Template.pm
-    version: 2.00_25
-  SOAP::WSDL::Generator::Template::XSD:
-    file: lib/SOAP/WSDL/Generator/Template/XSD.pm
-    version: 2.00_25
-  SOAP::WSDL::Generator::Visitor:
-    file: lib/SOAP/WSDL/Generator/Visitor.pm
-    version: 2.00_25
-  SOAP::WSDL::Generator::Visitor::Typelib:
-    file: lib/SOAP/WSDL/Generator/Visitor/Typelib.pm
-  SOAP::WSDL::Generator::Visitor::Typemap:
-    file: lib/SOAP/WSDL/Generator/Visitor/Typemap.pm
-    version: 2.00_25
-  SOAP::WSDL::Message:
-    file: lib/SOAP/WSDL/Message.pm
-  SOAP::WSDL::OpMessage:
-    file: lib/SOAP/WSDL/OpMessage.pm
-  SOAP::WSDL::Operation:
-    file: lib/SOAP/WSDL/Operation.pm
-  SOAP::WSDL::Part:
-    file: lib/SOAP/WSDL/Part.pm
-  SOAP::WSDL::Port:
-    file: lib/SOAP/WSDL/Port.pm
-  SOAP::WSDL::PortType:
-    file: lib/SOAP/WSDL/PortType.pm
-  SOAP::WSDL::SOAP::Address:
-    file: lib/SOAP/WSDL/SOAP/Address.pm
-  SOAP::WSDL::SOAP::Body:
-    file: lib/SOAP/WSDL/SOAP/Body.pm
-  SOAP::WSDL::SOAP::Header:
-    file: lib/SOAP/WSDL/SOAP/Header.pm
-  SOAP::WSDL::SOAP::HeaderFault:
-    file: lib/SOAP/WSDL/SOAP/HeaderFault.pm
-  SOAP::WSDL::SOAP::Operation:
-    file: lib/SOAP/WSDL/SOAP/Operation.pm
-    version: 2.00_25
-  SOAP::WSDL::SOAP::Typelib::Fault11:
-    file: lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm
-    version: 2.00_25
-  SOAP::WSDL::Serializer::XSD:
-    file: lib/SOAP/WSDL/Serializer/XSD.pm
-    version: 2.00_25
-  SOAP::WSDL::Server:
-    file: lib/SOAP/WSDL/Server.pm
-    version: 2.00_25
-  SOAP::WSDL::Server::CGI:
-    file: lib/SOAP/WSDL/Server/CGI.pm
-    version: 2.00_26
-  SOAP::WSDL::Service:
-    file: lib/SOAP/WSDL/Service.pm
-  SOAP::WSDL::Transport::HTTP:
-    file: lib/SOAP/WSDL/Transport/HTTP.pm
-  SOAP::WSDL::Transport::Loopback:
-    file: lib/SOAP/WSDL/Transport/Loopback.pm
-    version: 2.00_25
-  SOAP::WSDL::Transport::Test:
-    file: lib/SOAP/WSDL/Transport/Test.pm
-    version: 2.00_25
-  SOAP::WSDL::TypeLookup:
-    file: lib/SOAP/WSDL/TypeLookup.pm
-  SOAP::WSDL::Types:
-    file: lib/SOAP/WSDL/Types.pm
-  SOAP::WSDL::XSD::Builtin:
-    file: lib/SOAP/WSDL/XSD/Builtin.pm
-  SOAP::WSDL::XSD::ComplexType:
-    file: lib/SOAP/WSDL/XSD/ComplexType.pm
-    version: 2.00_25
-  SOAP::WSDL::XSD::Element:
-    file: lib/SOAP/WSDL/XSD/Element.pm
-    version: 2.00_25
-  SOAP::WSDL::XSD::Schema:
-    file: lib/SOAP/WSDL/XSD/Schema.pm
-    version: 2.00_25
-  SOAP::WSDL::XSD::Schema::Builtin:
-    file: lib/SOAP/WSDL/XSD/Schema/Builtin.pm
-  SOAP::WSDL::XSD::SimpleType:
-    file: lib/SOAP/WSDL/XSD/SimpleType.pm
-    version: 2.00_25
-  SOAP::WSDL::XSD::Typelib::Builtin:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin.pm
-    version: 2.00_25
-  SOAP::WSDL::XSD::Typelib::Builtin::ENTITY:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/ENTITY.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::ID:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/ID.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::IDREF:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/IDREF.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::IDREFS:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/IDREFS.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::NCName:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/NCName.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::NMTOKEN:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/NMTOKEN.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::NMTOKENS:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/NMTOKENS.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::NOTATION:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/NOTATION.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::Name:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/Name.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::QName:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/QName.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/anySimpleType.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::anyType:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/anyType.pm
-  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_23
-  SOAP::WSDL::XSD::Typelib::Builtin::byte:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/byte.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::date:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/date.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::dateTime:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/dateTime.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::decimal:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/decimal.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::double:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/double.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::duration:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/duration.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::float:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/float.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::gDay:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/gDay.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::gMonth:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/gMonth.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::gMonthDay:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/gMonthDay.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::gYear:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/gYear.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::gYearMonth:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/gYearMonth.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::hexBinary:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/hexBinary.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::int:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/int.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::integer:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/integer.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::language:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/language.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::list:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/list.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::long:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/long.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::negativeInteger:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/negativeInteger.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::nonNegativeInteger:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/nonNegativeInteger.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::nonPositiveInteger:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/nonPositiveInteger.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::normalizedString:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/normalizedString.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::positiveInteger:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/positiveInteger.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::short:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/short.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::string:
-    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_25
-  SOAP::WSDL::XSD::Typelib::Builtin::token:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/token.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::unsignedByte:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/unsignedByte.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::unsignedInt:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/unsignedInt.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::unsignedLong:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/unsignedLong.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::unsignedShort:
-    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_25
-  SOAP::WSDL::XSD::Typelib::Element:
-    file: lib/SOAP/WSDL/XSD/Typelib/Element.pm
-    version: 2.00_25
-  SOAP::WSDL::XSD::Typelib::SimpleType:
-    file: lib/SOAP/WSDL/XSD/Typelib/SimpleType.pm
-  SOAP::WSDL::XSD::Typelib::SimpleType::restriction:
-    file: lib/SOAP/WSDL/XSD/Typelib/SimpleType.pm
-generated_by: Module::Build version 0.2808
-meta-spec:
-  url: http://module-build.sourceforge.net/META-spec-v1.2.html
-  version: 1.2
-no_index:
-  directory: lib/SOAP/WSDL/Generator/Template/XSD/

MIGRATING

@@ -1,7 +1,36 @@
 MIGRATING
 ---------
+MIGRATING FROM PRE-2.00_33
+--------------------------
+The handling of stringification of SOAP::WSDL::XSD simpleType objects with
+undef values changed in 2.00_33.
 
-This document describes how to migrate from 2.00_24 and before versions to 
+While 2.00_32 and before returned undef on stringification of a undef value,
+>=2.00_33 now returns an empty string.
+
+This is due to common usage in templates or the like, where undef is likely
+to produce a warning, and the unreliable behavior of
+ $obj eq undef
+which behaves differently in different versions of perl.
+
+
+MIGRATING FROM PRE-2.00_29
+--------------------------
+SOAP::WSDL 2.00_29 added experimental XML attribute support. The attribute
+support changed the code of the generated classes, which may now
+require the class SOAP::WSDL::XSD::Typelib::Attribute introduced in the same
+pre-release.
+
+While interfaces generated with pre-releases back to 2.00_25 work without
+change, this does not hold true vice versa: Interfaces generated with
+2.00_29 and above won't work with older pre-releases.
+
+You'll have to update SOAP::WSDL on all your machines.
+
+MIGRATING FROM PRE-2.00_24
+--------------------------
+
+This section describes how to migrate from 2.00_24 and before versions to
 2.00_25.
 
 Migrating from 2.00_xx
@@ -9,9 +38,9 @@ Migrating from 2.00_xx
 
 Background
 
-SOAP::WSDL 2.00_xx has used Class::Std as base for its inside out objects 
+SOAP::WSDL 2.00_xx has used Class::Std as base for its inside out objects
 up to 2.00_24. For performance reasons, now Class::Std::Fast is used.
-As Class::Std::Fast is a drop-in replacement for Class::Std, there should be 
+As Class::Std::Fast is a drop-in replacement for Class::Std, there should be
 no need to change anything in your (handwritten) code.
 
 Generated interfaces
@@ -26,8 +55,8 @@ Typemaps
 
 SOAP::WSDL now tries to load all typemap classes at once from 2.00_25 on.
 
-If you use __SKIP__ in your typemaps, you'll have to comment out all 
-path deeper than the path marked with __SKIP__ - if you don't, SOAP::WSDL 
+If you use __SKIP__ in your typemaps, you'll have to comment out all
+paths deeper than the path marked with __SKIP__ - if you don't, SOAP::WSDL
 will try to load all correspondent classes.
 
 Migrating from 1.xx
@@ -39,7 +68,7 @@ SOAP::WSDL uses a custom WSDL parser and serializer. It does not rely on XPath
 for on the fly WSDL processing, nor does it use SOAP::Data objects for
 encoding any more.
 
-You should be able to use your wxisting code under most circumstances.
+You should be able to use your existing code under most circumstances.
 SOAP::WSDL is the compatibility module for old interfaces.
 
 Overloading

Makefile.PL

@@ -1,31 +1,44 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.03
-    
-    unless (eval "use Module::Build::Compat 0.02; 1" ) {
-      print "This module requires Module::Build to install itself.\n";
-      
-      require ExtUtils::MakeMaker;
-      my $yn = ExtUtils::MakeMaker::prompt
-	('  Install Module::Build now from CPAN?', 'y');
-      
-      unless ($yn =~ /^y/i) {
-	die " *** Cannot install without Module::Build.  Exiting ...\n";
-      }
-      
-      require Cwd;
-      require File::Spec;
-      require CPAN;
-      
-      # Save this 'cause CPAN will chdir all over the place.
-      my $cwd = Cwd::cwd();
-      
-      CPAN::Shell->install('Module::Build::Compat');
-      CPAN::Shell->expand("Module", "Module::Build::Compat")->uptodate
-	or die "Couldn't install Module::Build, giving up.\n";
-      
-      chdir $cwd or die "Cannot chdir() back to $cwd: $!";
-    }
-    eval "use Module::Build::Compat 0.02; 1" or die $@;
-    
-    Module::Build::Compat->run_build_pl(args => \@ARGV);
-    require Module::Build;
-    Module::Build::Compat->write_makefile(build_class => 'Module::Build');
+use 5.010000;
+use ExtUtils::MakeMaker;
+
+WriteMakefile(
+    NAME              => 'SOAP::WSDL',
+    VERSION_FROM      => 'lib/SOAP/WSDL.pm',
+    PREREQ_PM         => {
+        'Class::Std::Fast'        => q(0.000005),
+        'Cwd'                     => 0,
+        'Data::Dumper'            => 0,
+        'Date::Format'            => 0,
+        'Date::Parse'             => 0,
+        'File::Basename'          => 0,
+        'File::Path'              => 0,
+        'File::Spec'              => 0,
+        'Getopt::Long'            => 0,
+        'LWP::UserAgent'          => 0,
+        'List::Util'              => 0,
+        'Module::Build'           => 0,
+        'Storable'                => 0,
+        'Template'                => q(2.18),
+        'Term::ReadKey'           => 0,
+        'Test::More'              => 0,
+        'URI'                     => 0,
+        'XML::Parser::Expat'      => 0,
+        'Class::Load'             => 0.20,
+        'perl'                    => q(5.008),
+    },
+    test => { RECURSIVE_TEST_FILES => 1, },
+    ABSTRACT_FROM  => 'lib/SOAP/WSDL.pm',
+    AUTHOR       => 'Scott Walters <scott@slowass.net>',
+    (eval { ExtUtils::MakeMaker->VERSION(6.46) } ? (META_MERGE => {
+    'meta-spec' => { version => 2 },
+     resources => {
+         repository => {
+             type => 'git',
+             url  => 'https://github.com/scrottie/SOAP-WSDL.git',
+             web  => 'https://github.com/scrottie/SOAP-WSDL',
+         },
+     }})
+     : ()
+   ),
+);
+

README

@@ -3,7 +3,25 @@ INTRO
 
 SOAP-WSDL provides a SOAP client with WSDL support.
 
-This is a developer release - everything may (and most things will) change.
+SUBCLASSING
+-----------
+
+SOAP-WSDL is still under very active development. Please don't build
+applications using the following modules directly:
+
+ - SOAP::WSDL::Definitions
+ - SOAP::WSDL::Port
+ - SOAP::WSDL::PortType
+ - SOAP::WSDL::Binding
+ - SOAP::WSDL::Message
+ - SOAP::WSDL::Operation
+ - SOAP::WSDL::OpMessage
+ - SOAP::WSDL::Part
+ - SOAP::WSDL::Service
+ - SOAP::WSDL::Types
+ - SOAP::WSDL::XSD::Schema
+
+Those will be replaced some time in the future.
 
 INSTALLING
 ----------
@@ -15,12 +33,21 @@ Use the following mantra:
  perl Build test
  perl Build install
 
-If you don't have Module::Build installed, you may also use 
+If you don't have Module::Build installed, you may also use
 
  perl Makefile.PL
- make 
+ make
  make test
  make install
 
-Note that Module::Build is the recommended installer - make will not run 
-all tests provided with SOAP-WSDL.
+Note that Module::Build is the recommended installer - make will not run
+all tests provided with SOAP-WSDL.
+
+SOLARIS INSTALLATION NOTES
+--------------------------
+According to a CPAN RT report http://rt.cpan.org/Ticket/Display.html?id=36865
+it may be necessary to check (and possibly update) the expat libraries
+required by XML::Parser.
+
+SOAP::WSDL's metadata includes XML::Parser, but it seems that the expat
+libraries XML::Parser depends on may slip through missing or outdated.

TEST_COVERAGE

@@ -1,11 +1,25 @@
 # Unfortunately, Build testcover reports test coverage wrong.
 #
-# To get a complete coverage report, just run this file as a shell script 
+# To get a complete coverage report, just run this file as a shell script
 # on a linux box (or execute the equivalent commands on another OS):
+#
+# 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 -MTAP::Harness -MFile::Find::Rule -e '
+    local $ENV{TEST_VERBOSE} = 1;
+    TAP::Harness->new({
+         merge => 1,
+         lib => [ q{t/lib}, q{blib/lib} ],
+         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/} ) );
+'
 
-cd t/
+# Devel::CoverX::Covered
+# covered runs
 
-find . -type f -name '*.t' | xargs -n 1 /usr/bin/perl -MDevel::Cover=-silent,1,-summary,0 -I../lib
+cover
 
-cover -ignore_re \.t$ -ignore_re ^lib -coverage="statement" -coverage=condition -coverage=subroutine -coverage="branch"
+# cover -coverage="statement" -coverage=condition -coverage=subroutine -coverage="branch"
 

TODO

@@ -1,24 +1,19 @@
 TODO list for SOAP::WSDL
 
-2.00 Pre-releases
---------
-
 2.1 release
 --------
-* Support namespaces in SOAP message payload(#1809057)
+* Support namespaces in SOAP message payload [ 1809057 ]
 
-* Support the xsi:type attribute on derived types on the wire(#1809059)
+* Support the xsi:type attribute on derived types on the wire [ 1809059 ]
 
-* SOAP1.2 support (#1803331)
+* SOAP1.2 support [ 1803331 ]
 
 2.2 release
 --------
-* XML schema support ("minimal conformant") (#1764845)
+* XML schema support ("minimal conformant") [ 1764845 ]
 
 * Support SOAP attachments
 
-* Act as SOAP Server
-
 3.0 release
 --------
 We're not thinking that far ahead right now.

benchmark/01_expat.t

@@ -1,15 +1,17 @@
 #!/usr/bin/perl -w
-%DB::packages=(SOAP::WSDL::Expat::MessageParser => 1);
 use strict;
 use warnings;
 use lib '../lib';
 use lib '../../Class-Std-Fast/lib';
+use lib '/home/martin/workspace/SOAP-WSDL_XS/blib/lib';
+use lib '/home/martin/workspace/SOAP-WSDL_XS/blib/arch';
 use lib '../t/lib';
 # use SOAP::WSDL::SAX::MessageHandler;
 
 use Benchmark qw(cmpthese timethese);
 use SOAP::WSDL::Expat::MessageParser;
 use SOAP::WSDL::Expat::Message2Hash;
+use SOAP::WSDL::Expat::MessageParser_XS;
 use SOAP::Lite;
 use XML::Simple;
 use XML::LibXML;
@@ -17,24 +19,50 @@ use MyComplexType;
 use MyElement;
 use MySimpleType;
 
-my $xml = q{<SOAP-ENV:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" 
+my $xml = q{<SOAP-ENV:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
     xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" >
     <SOAP-ENV:Body>
     <MyAtomicComplexTypeElement xmlns="urn:Test" >
     <test>
-    <test2 >Test2</test2>
-    <test2 >Test2</test2>
-    <test2 >Test2</test2>
-    <test2 >Test2</test2>
-    <test2 >Test2</test2>
-    <test2 >Test2</test2>
-    <test2 >Test2</test2>
-    <test2 >Test2</test2>
-    <test2 >Test2</test2>
-    <test2 >Test2</test2>
-    <test2 >Test2</test2>
-    <test2 >Test2</test2>
-    <test2 >Test55</test2>
+        <test2 >Test2</test2>
+        <test2 >Test3</test2>
+        <test2 >Test4</test2>
+        <test2 >Test5</test2>
+        <test2 >Test6</test2>
+        <test2 >Test7</test2>
+        <test2 >Test8</test2>
+        <test2 >Test9</test2>
+        <test2 >Test10</test2>
+        <test2 >Test11</test2>
+        <test2 >Test12</test2>
+        <test2 >Test13</test2>
+        <test2 >Test55</test2>
+        <test2 >Test14</test2>
+        <test2 >Test15</test2>
+        <test2 >Test16</test2>
+        <test2 >Test17</test2>
+        <test2 >Test18</test2>
+        <test2 >Test19</test2>
+        <test2 >Test20</test2>
+        <test2 >Test21</test2>
+        <test2 >Test22</test2>
+        <test2 >Test23</test2>
+        <test2 >Test24</test2>
+        <test2 >Test25</test2>
+        <test2 >Test565</test2>
+        <test2 >Test27</test2>
+        <test2 >Test28</test2>
+        <test2 >Test29</test2>
+        <test2 >Test30</test2>
+        <test2 >Test31</test2>
+        <test2 >Test32</test2>
+        <test2 >Test33</test2>
+        <test2 >Test34</test2>
+        <test2 >Test35</test2>
+        <test2 >Test36</test2>
+        <test2 >Test37</test2>
+        <test2 >Test38</test2>
+        <test2 >Test55</test2>
     </test>
     </MyAtomicComplexTypeElement>
 </SOAP-ENV:Body></SOAP-ENV:Envelope>};
@@ -57,13 +85,17 @@ my @data;
 
 my $deserializer = SOAP::Deserializer->new();
 
-sub libxml_test { 
+my $parser_xs = SOAP::WSDL::Expat::MessageParser_XS->new({
+    class_resolver => 'FakeResolver'
+});
+
+sub libxml_test {
         my $dom = $libxml->parse_string( $xml );
         push @data, dom2hash( $dom->firstChild );
 };
 
 sub dom2hash {
-    for ($_[0]->childNodes) {  
+    for ($_[0]->childNodes) {
         if (exists $_[1]->{ $_->nodeName }) {
             if (ref $_[1]->{ $_->nodeName } eq 'ARRAY') {
                 if ($_->nodeName eq '#text') {
@@ -78,7 +110,7 @@ sub dom2hash {
                     $_[1] = [ $_[1], $_->textContent() ];
                 }
                 else {
-                    $_[1]->{ $_->nodeName } = [ $_[1]->{ $_->nodeName } , 
+                    $_[1]->{ $_->nodeName } = [ $_[1]->{ $_->nodeName } ,
                         dom2hash( $_, {} ) ];
                 }
             }
@@ -94,11 +126,11 @@ sub dom2hash {
     }
     return $_[1];
 }
-
-cmpthese 5000, 
+cmpthese 5000,
 {
   'SOAP::WSDL (Hash)' => sub { push @data, $hash_parser->parse( $xml ) },
   'SOAP::WSDL (XSD)' => sub { push @data, $parser->parse( $xml ) },
+  'SOAP::WSDL_XS (XSD)' => sub { push @data, $parser_xs->parse_string( $xml ) },
   'XML::Simple (Hash)' => sub { push @data, XMLin $xml },
   'XML::LibXML (DOM)' => sub { push @data,  $libxml->parse_string( $xml ) },
   'XML::LibXML (Hash)' => \&libxml_test,
@@ -128,3 +160,18 @@ BEGIN {
         };
     };
 };
+
+
+__END__
+
+Output on my machine:
+
+ xml length: 641 bytes
+                       Rate SOAP::Lite XML::Simple (Hash) SOAP::WSDL (XSD) XML::LibXML (Hash) SOAP::WSDL (Hash) SOAP::WSDL_XS (XSD) XML::LibXML (DOM)
+ SOAP::Lite            446/s         --               -54%             -72%               -73%              -80%                -95%              -96%
+ XML::Simple (Hash)    963/s       116%                 --             -39%               -41%              -57%                -89%              -91%
+ SOAP::WSDL (XSD)     1587/s       256%                65%               --                -3%              -29%                -81%              -86%
+ XML::LibXML (Hash)   1629/s       265%                69%               3%                 --              -27%                -81%              -85%
+ SOAP::WSDL (Hash)    2222/s       398%               131%              40%                36%                --                -74%              -80%
+ SOAP::WSDL_XS (XSD)  8475/s      1798%               780%             434%               420%              281%                  --              -24%
+ XML::LibXML (DOM)   11111/s      2389%              1053%             600%               582%              400%                 31%                --

benchmark/MEMORY_FOOTPRINT

@@ -0,0 +1,59 @@
+Memory footprints for example/ scripts comparing SOAP::WSDL, SOAP::Lite and
+XML::Compile::SOAP
+
+Results with perl-5.8.8 on Ubuntu 8.04 (x86):
+
+  PID %CPU %MEM    VSZ   RSS COMMAND
+10183 12.0  1.1  14292 11492 perl -I../lib hello.pl
+10554  7.2  0.9  12636  9828 perl hello_lite.pl
+10224 17.5  1.6  20780 17012 perl hello_compile.pl
+10287 25.0  1.1  14680 11776 perl -I../lib person.pl
+10313 24.0  1.6  21068 17312 perl person_compile.pl
+
+Summary of my perl5 (revision 5 version 8 subversion 8) configuration:
+  Platform:
+    osname=linux, osvers=2.6.15.7, archname=i486-linux-gnu-thread-multi
+    uname='linux palmer 2.6.15.7 #1 smp thu sep 7 19:42:20 utc 2006 i686 gnulinux '
+    config_args='-Dusethreads -Duselargefiles -Dccflags=-DDEBIAN -Dcccdlflags=-fPIC -Darchname=i486-linux-gnu -Dprefix=/usr -Dprivlib=/usr/share/perl/5.8 -Darchlib=/usr/lib/perl/5.8 -Dvendorprefix=/usr -Dvendorlib=/usr/share/perl5 -Dvendorarch=/usr/lib/perl5 -Dsiteprefix=/usr/local -Dsitelib=/usr/local/share/perl/5.8.8 -Dsitearch=/usr/local/lib/perl/5.8.8 -Dman1dir=/usr/share/man/man1 -Dman3dir=/usr/share/man/man3 -Dsiteman1dir=/usr/local/man/man1 -Dsiteman3dir=/usr/local/man/man3 -Dman1ext=1 -Dman3ext=3perl -Dpager=/usr/bin/sensible-pager -Uafs -Ud_csh -Ud_ualarm -Uusesfio -Uusenm -Duseshrplib -Dlibperl=libperl.so.5.8.8 -Dd_dosuid -des'
+    hint=recommended, useposix=true, d_sigaction=define
+    usethreads=define use5005threads=undef useithreads=define usemultiplicity=define
+    useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
+    use64bitint=undef use64bitall=undef uselongdouble=undef
+    usemymalloc=n, bincompat5005=undef
+  Compiler:
+    cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBIAN -fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
+    optimize='-O2',
+    cppflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBIAN -fno-strict-aliasing -pipe -I/usr/local/include'
+    ccversion='', gccversion='4.2.3 20071123 (prerelease) (Ubuntu 4.2.2-3ubuntu4)', gccosandvers=''
+    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
+    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
+    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
+    alignbytes=4, prototype=define
+  Linker and Libraries:
+    ld='cc', ldflags =' -L/usr/local/lib'
+    libpth=/usr/local/lib /lib /usr/lib
+    libs=-lgdbm -lgdbm_compat -ldb -ldl -lm -lpthread -lc -lcrypt
+    perllibs=-ldl -lm -lpthread -lc -lcrypt
+    libc=/lib/libc-2.6.1.so, so=so, useshrplib=true, libperl=libperl.so.5.8.8
+    gnulibc_version='2.6.1'
+  Dynamic Linking:
+    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
+    cccdlflags='-fPIC', lddlflags='-shared -L/usr/local/lib'
+
+
+Characteristics of this binary (from libperl):
+  Compile-time options: MULTIPLICITY PERL_IMPLICIT_CONTEXT
+                        PERL_MALLOC_WRAP THREADS_HAVE_PIDS USE_ITHREADS
+                        USE_LARGE_FILES USE_PERLIO USE_REENTRANT_API
+  Built under linux
+  Compiled at Nov 27 2007 10:44:36
+  @INC:
+    /etc/perl
+    /usr/local/lib/perl/5.8.8
+    /usr/local/share/perl/5.8.8
+    /usr/lib/perl5
+    /usr/share/perl5
+    /usr/lib/perl/5.8
+    /usr/share/perl/5.8
+    /usr/local/lib/site_perl
+    .

benchmark/README

@@ -0,0 +1,77 @@
+The benchmark directory includes a bunch of benchmarks. The most notable
+ones are listed below.
+
+Comparison benchmarks for SOAP::Lite, SOAP::WSDL, SOAP::WSDL_XS, and
+XML::Compile::WSDP need all of these installed for the benchmark to
+work (building and adding to the lib path suffices). All comparison benchmarks
+only account for the client part of the respective modules - the server part
+is not benchmarked.
+
+SOAP::WSDL_XS can be obtained from the project's subversion repository at
+
+https://soap-wsdl.svn.sourceforge.net/svnroot/SOAP-WSDL/SOAP-WSDL_XS/trunk
+
+Some benchmarks expect to find the SOAP servers "cgi-bin/person.pl" and
+"cgi-bin/hello.pl" from the examples directory at
+http://localhost:81/soap-wsdl-test/person.pl and
+http://localhost:81/soap-wsdl-test/hello.pl
+
+If the web services are not set up properly, you're benchmarking error
+creation times.
+
+To set up a SOAP server using apache, add the following to your apache config:
+
+ # usually in main config
+ Listen 127.0.0.1:81
+
+ # maybe in a
+ #<VirtualHost 127.0.0.1:81> container
+ #
+ ScriptAlias /soap-wsdl-test/ /PATH_TO/SOAP-WSDL/example/cgi-bin/
+ <Directory "/PATH_TO/SOAP-WSDL/example/cgi-bin">
+    AllowOverride None
+    Order allow,deny
+    Allow from all
+ </Directory>
+
+Using mod_perl is highly recommended to cut down benchmarking time.
+
+COMPARISON BENCHMARKS
+=====================
+
+01_expat.t
+----------
+Benchmarks XML parsing speed between XML::Simple with XML::Parser as backend,
+SOAP::Lite, SOAP::WSDL outputting objects, SOAP::WSDL outputting hash refs,
+XML::LibXML with a simple DOM walker outputting hash refs, XML::LibXML
+outputting the DOM and SOAP::WSDL_XS.
+
+No web server required.
+
+This benchmark sheds light on how much performance is - in theory - reachable
+by each approach: The XML::LibXML (Hash) benchmark converts the DOM into
+a nested hash using a recursive function. This is - basically - how
+XML::Compile works. XML::Simple uses XML::Parser's streaming
+API. SOAP::WSDL uses XML::Parser::Expat, XML::Parser's low-level backend,
+to create objects or - in the (Hash) variant - nested hashes similar to
+those created by XML::Simple.
+SOAP::WSDL_XS uses a libexpat-based XS parser to create perl objects, and
+XML::LibXML (DOM) creates a C level libxml2 DOM accessible from perl.
+
+person.pl:
+----------
+Sends a empty requests and receives a response of ca. 10kB.
+Modeled after a common enterprise setup: "Give me a list of person data sets".
+
+For this benchmark, XML parsing speed is important. XML generation speed is
+only weighted in the last two runs, and weights around 1/10 of parsing speed.
+
+hello.pl:
+---------
+Sends a request containing name and given name and politely replies
+"Hello <given name> <name>".
+An example for very short requests and responses.
+
+For this example, handling and generating small requests/responses, and
+transport speed is important. As the XML transmitted is relatively small, the
+transport layer's overhead is important.

benchmark/XSD/02_anySimpleType.t

@@ -11,7 +11,7 @@ my $obj = SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType->new();
 timethese 10000, {
     'new' => sub { SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType->new() },
     'new + params' => sub { SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType->new({
-        value => 'Teststring'
+        value => 'Teststring',
     }) },
     'set_FOO' => sub { $obj->set_value('Test') },
 };

benchmark/XSD/03_string.t

@@ -11,8 +11,9 @@ my $obj = SOAP::WSDL::XSD::Typelib::Builtin::string->new();
 timethese 20000, {
     'new' => sub { SOAP::WSDL::XSD::Typelib::Builtin::string->new() },
     'new + params' => sub { SOAP::WSDL::XSD::Typelib::Builtin::string->new({
-        value => 'Teststring'
-    }) },
+            value => 'Teststring',
+        })
+    },
 };
 
 $obj->set_value('Foobar');
@@ -36,7 +37,7 @@ new + params:  1 wallclock secs ( 0.53 usr +  0.01 sys =  0.54 CPU) @ 37037.04/s
 Benchmark: timing 1000000 iterations of get_FOO, set_FOO...
    get_FOO:  2 wallclock secs ( 1.43 usr +  0.01 sys =  1.44 CPU) @ 694444.44/s (n=1000000)
    set_FOO:  0 wallclock secs ( 1.43 usr +  0.01 sys =  1.44 CPU) @ 694444.44/s (n=1000000)
-   
+
 
 ::Fast
 ---
@@ -47,7 +48,7 @@ Benchmark: timing 1000000 iterations of get_FOO, set_FOO...
    get_FOO:  0 wallclock secs ( 0.81 usr +  0.00 sys =  0.81 CPU) @ 1234567.90/s (n=1000000)
    set_FOO:  2 wallclock secs ( 0.87 usr +  0.01 sys =  0.88 CPU) @ 1136363.64/s (n=1000000)
 
-::Fast with inlined ID 
+::Fast with inlined ID
 Benchmark: timing 20000 iterations of new, new + params...
        new:  0 wallclock secs ( 0.41 usr +  0.00 sys =  0.41 CPU) @ 48780.49/s (n=20000)
 new + params:  1 wallclock secs ( 0.52 usr +  0.00 sys =  0.52 CPU) @ 38461.54/s (n=20000)

benchmark/XSD/strftime.pl

@@ -0,0 +1,35 @@
+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";
+
+
+cmpthese 100000, {
+    POSIX => sub { POSIX::strftime('%Y-%m-%dT%H:%M:%S%z', @time_from) },
+    'Date::Format' => sub { Date::Format::strftime('%Y-%m-%dT%H:%M:%S%z', @time_from) },
+};
+
+__END__
+
+results with perl-5.8.8 on Ubuntu 8.04 on a Thinkpad T42 (1.7GHz Dothan):
+
+                 Rate Date::Format        POSIX
+Date::Format  10684/s           --         -93%
+POSIX        153846/s        1340%           --
+

benchmark/hello.pl

@@ -1,29 +1,44 @@
 #!/usr/bin/perl -w
 use strict;
 use warnings;
+use diagnostics;
 use lib '../example/lib';
-use lib '/home/martin/workspace/SOAP-WSDL-Fast_XS/blib/lib';
-use lib '/home/martin/workspace/SOAP-WSDL-Fast_XS/blib/arch';
+use lib '../../SOAP-Lite-0.71/lib';
+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 Benchmark qw(cmpthese);
+#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';
 
 my $lite = SOAP::Lite->new(
-    proxy => 'http://localhost:81/soap-wsdl-test/helloworld.pl'
+    proxy => $proxy
 );
 
 $lite->on_action( sub { "urn:HelloWorld#sayHello" });
 $lite->autotype(0);
 
-my $soap = MyInterfaces::HelloWorld::HelloWorldSoap->new();
+my $soap = MyInterfaces::HelloWorld::HelloWorldSoap->new({
+	proxy => $proxy,
+});
 
-my $soap_xs = MyInterfaces::HelloWorld::HelloWorldSoap->new();
-$soap_xs->set_deserializer( SOAP::WSDL::Deserializer::XSD_XS->new() );
+my $soap_xs = MyInterfaces::HelloWorld::HelloWorldSoap->new({
+	proxy => $proxy,
+});
+#$soap_xs->set_deserializer( SOAP::WSDL::Deserializer::XSD_XS->new() );
 
-my @result;
+my @result = ();;
 
 sub wsdl_bench {
     push @result, $soap->sayHello({
@@ -40,7 +55,12 @@ sub wsdl_xs_bench {
 }
 
 my $wsdl = XML::Compile::WSDL11->new('../example/wsdl/11_helloworld.wsdl');
-my $call = $wsdl->compileClient('sayHello');
+my $call = $wsdl->compileClient('sayHello',
+    sloppy_integers => 1,
+    check_values    => 0,
+    check_values    => 0,
+    validation      => 0,
+);
 
 sub compile_bench {
     push @result, $call->(
@@ -58,12 +78,16 @@ sub lite_bench {
     );
 }
 
+# give all a chance to perform first-run initializations
+compile_bench();
+lite_bench();
 wsdl_bench();
-wsdl_xs_bench();
+#wsdl_xs_bench();
 
-cmpthese 150, {
+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,
-}
+    'SOAP::Lite' => \&lite_bench,
+};
+

benchmark/person.pl

@@ -1,102 +1,183 @@
 use lib '../lib';
 use lib '../example/lib';
+use lib '../../Class-Std-Fast/lib';
+use lib '../../SOAP-Lite-0.71/lib';
+use lib '../../SOAP-WSDL_XS/blib/lib';
+use lib '../../SOAP-WSDL_XS/blib/arch';
 use strict;
 
-package MyData;
-my $XML;
-sub xml {
-    return $XML if ($XML);
-    
-    open my $fh, 'person.xml' or die 'cannot open data file';
-    $XML = join '', <$fh>;
-    close $fh;
-    return $XML;
-}
-
-package MyTransport;
-use SOAP::WSDL::Factory::Transport;
-SOAP::WSDL::Factory::Transport->register( http => __PACKAGE__ );
-sub send_receive {
-    # warn MyData::xml;
-    return MyData::xml();
-}
-sub new { return bless {}, 'MyTransport' };
-
-
-package main;
-
 use Benchmark qw(cmpthese);
 
-# Do this BEFORE the client SOAP handlers are compiled!
+use XML::Compile::SOAP11;
 use XML::Compile::Transport::SOAPHTTP();
-use XML::Compile::SOAP::Tester ();
-use XML::Compile::Util;#use Data::Dumper;
-#print Dumper $result;
+use XML::Compile::Util;
 use XML::Compile::WSDL11;
 use XML::Simple;
-$XML::Simple::PREFERRED_PARSER = 'XML::Parser';
-use SOAP::Lite;
 
+use SOAP::Lite;
 use MyInterfaces::TestService::TestPort;
 
-my $tester = XML::Compile::SOAP::Tester->new();
+#use SOAP::WSDL::Deserializer::XSD_XS;
+use SOAP::WSDL::Factory::Deserializer;
 
-my $action = pack_type 'http://example.org', 'ListPerson';
-sub ListPerson(@) { MyData::xml };
-my $compile = XML::Compile::WSDL11->new('../example/wsdl/Person.wsdl');
-# $tester->fromWSDL($wsdl);
-$tester->actionCallback($action, \&ListPerson);
+#
+# register SOAP::WSDL's transport as default for SOAP::WSDL and SOAP::WSDL_XS
+# - they use SOAP::Lite's SOAP::Transport::* if available
+#
+use SOAP::WSDL::Transport::HTTP;
+use SOAP::WSDL::Factory::Transport;
+SOAP::WSDL::Factory::Transport->register('http', 'SOAP::WSDL::Transport::HTTP');
+
+$XML::Simple::PREFERRED_PARSER = 'XML::Parser';
+
+my $person = {
+    PersonID =>         { # MyTypes::PersonID
+          ID =>  1, # int
+        },
+        Salutation => 'Salutation0', # string
+        Name =>  'Name0', # string
+        GivenName =>  'Martin', # string
+        DateOfBirth =>  '1970-01-01', # date
+        HomeAddress =>         { # MyTypes::Address
+          Street => 'Street 0', # string
+          ZIP =>  '00000', # string
+          City =>  'City0', # string
+          Country =>  'Country0', # string
+          PhoneNumber => '++499131123456', # PhoneNumber
+          MobilePhoneNumber => '++49150123456', # PhoneNumber
+        },
+        WorkAddress =>         { # MyTypes::Address
+          Street => 'Somestreet 23', # string
+          ZIP =>  '12345', # string
+          City =>  'SomeCity', # string
+          Country =>  'Germany', # string
+          PhoneNumber => '++499131123456', # PhoneNumber
+          MobilePhoneNumber => '++49150123456', # PhoneNumber
+        },
+        Contracts =>         { # MyTypes::ArrayOfContract
+          Contract => [
+          { # MyTypes::Contract
+            ContractID =>  100000, # long
+            ContractName =>  'SomeContract0', # string
+          },
+          { # MyTypes::Contract
+            ContractID =>  100001, # long
+            ContractName =>  'SomeContract1', # string
+          },
+          { # MyTypes::Contract
+            ContractID =>  100002, # long
+            ContractName =>  'SomeContract2', # string
+          },
+          { # MyTypes::Contract
+            ContractID =>  100003, # long
+            ContractName =>  'SomeContract3', # string
+          },
+          ],
+        },
+}
+;
+#
+# compile XML::Compile client with the options suggested by Mark Overmeer
+# for maximum speedup
+#
+my $compile = XML::Compile::WSDL11->new('../example/wsdl/Person.wsdl',
+    sloppy_integers => 1,
+    check_values    => 0,
+    validation      => 0,
+    ignore_facets   => 1,
+);
+
+#
+# Call all variants once to allow their first-time tasks to be done
+#
 
-# I have to lookup the methods from the WSDL
 my $call = $compile->compileClient('ListPerson');
+$call->({ in => undef});
 
-# I have to lookup the parameters from the WSDL
-my $result = $call->({ in => undef});
-#use Data::Dumper;
-#print Dumper $result;
-
-my $deserializer = SOAP::Deserializer->new();
-
+# Initialize SOAP::WSDL interface
 my $soap = MyInterfaces::TestService::TestPort->new();
+# Load all classes - XML::Compile has created everything before, too
+$soap->ListPerson({});
 
-$result = $soap->ListPerson({});
-#print $result;
-#exit;
+my $lite = SOAP::Lite->new()->default_ns('http://www.example.org/benchmark/')
+	->proxy('http://localhost:81/soap-wsdl-test/person.pl');
+$lite->on_action( sub { 'http://www.example.org/benchmark/ListPerson' } );
 
+$lite->ListPerson();
+
+my $lite_xml = SOAP::Lite->new()->default_ns('http://www.example.org/benchmark/')
+    ->proxy('http://localhost:81/soap-wsdl-test/person.pl');
+$lite_xml->on_action( sub { 'http://www.example.org/benchmark/ListPerson' } );
+$lite_xml->outputxml(1);
+
+$lite_xml->ListPerson();
+
+# # register for SOAP 1.1
+#SOAP::WSDL::Factory::Deserializer->register('1.1' => 'SOAP::WSDL::Deserializer::XSD_XS' );
+#my $wsdl_xs = MyInterfaces::TestService::TestPort->new();
+
+my $count = 70;
 my @data = ();
 my $n = 0;
 print "Benchmark conducted with
 SOAP::Lite - $SOAP::Lite::VERSION
 SOAP::WSDL - $SOAP::WSDL::Client::VERSION
+SOAP::WSDL_XS - $SOAP::WSDL::Deserializer::XSD_XS::VERSION;
 XML::Compile::SOAP - $XML::Compile::SOAP::VERSION
 XML::Simple - $XML::Simple::VERSION
 
-Benchmark $n: Push result on list
+XML::Simple uses XML::Parser as backend and SOAP::Lite with 
+outputxml(1) set as SOAP client.
+XML::Parser - $XML::Parser::VERSION
+
+XML::Simple is not benchmarked in run 3ff, as it is expected
+do deliver the same result.
+
+Benchmark $n: Store result in private variable and destroy it
 ";
 $n++;
-print "Benchmark $n: Store result in private variable and destroy it\n";
-cmpthese 100, {
-    'XML::Simple' => sub { my $result = XMLin( MyData::xml() )},
+cmpthese $count, {
+	'SOAP::Lite'	=> sub { my $som = $lite->call('ListPerson') },
     'SOAP::WSDL' => sub { my $result = $soap->ListPerson({}) },
-    'XML::Compile::SOAP' => sub { my $result = $call->() },
-    'SOAP::Lite' => sub { my $result = $deserializer->deserialize( MyData::xml() )}
+#    'SOAP::WSDL_XS' => sub { my $result = $wsdl_xs->ListPerson({}) },
+    'XML::Compile' => sub { my $result = $call->() },
+	'XML::Simple'   => sub { my $result = XMLin( $lite_xml->call('ListPerson')) },
 };
 
+print "\nBenchmark $n: Push result on list\n";
 $n++;
-cmpthese 100, {
-    'XML::Simple' => sub { push @data, XMLin( MyData::xml() )},
-    'SOAP::WSDL' => sub { push @data, $soap->ListPerson({}) },
-    'XML::Compile::SOAP' => sub { push @data, $call->() },
-    'SOAP::Lite' => sub { push @data, $deserializer->deserialize( MyData::xml() )}
+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({}) },
+    'XML::Compile'  => sub { push @data, $call->() },
+	'XML::Simple'   => sub { push @data, XMLin( $lite_xml->call('ListPerson')) },
 };
 
 @data = ();
-print "Benchmark $n: Play it again, Sam\n";
+print "\nBenchmark $n: Play it, please play it again, Sam\n";
+$n++;
+cmpthese $count, {
 
-cmpthese 100, {
-    'XML::Simple' => sub { push @data, XMLin( MyData::xml() )},
-    'SOAP::WSDL' => sub { push @data, $soap->ListPerson({}) },
-    'XML::Compile::SOAP' => sub { push @data, $call->() },
-    'SOAP::Lite' => sub { push @data, $deserializer->deserialize( MyData::xml() )}
+    'SOAP::WSDL'    => sub { push @data, $soap->ListPerson({}) },
+#    'SOAP::WSDL_XS' => sub { push @data, $wsdl_xs->ListPerson({}) },
+#    'XML::Compile'  => sub { push @data, $call->() },
+#    '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 }) },
+    'XML::Compile'  => sub { my $result = $call->({ in => $person }) },
+};
+
+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 }) },
+    'XML::Compile'  => sub { push @data, $call->({ in => $person }) },
 };
 

benchmark/person.xml

@@ -46,388 +46,388 @@
 			</NewElement>
 			<NewElement>
 				<PersonID>
-					<ID>1</ID>
+					<ID>2</ID>
 				</PersonID>
-				<Salutation>Salutation0</Salutation>
-				<Name>Name0</Name>
-				<GivenName>Martin</GivenName>
-				<DateOfBirth>1970-01-01</DateOfBirth>
+				<Salutation>Salutation2</Salutation>
+				<Name>Name2</Name>
+				<GivenName>Martin2</GivenName>
+				<DateOfBirth>1970-01-02</DateOfBirth>
 				<HomeAddress>
-					<Street>Street 0</Street>
-					<ZIP>00000</ZIP>
-					<City>City0</City>
-					<Country>Country0</Country>
-					<PhoneNumber>++499131123456</PhoneNumber>
-					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+					<Street>Street 2</Street>
+					<ZIP>00002</ZIP>
+					<City>City2</City>
+					<Country>Country2</Country>
+					<PhoneNumber>++4900000002</PhoneNumber>
+					<MobilePhoneNumber>++491700000002</MobilePhoneNumber>
 				</HomeAddress>
 				<WorkAddress>
-					<Street>Somestreet 23</Street>
-					<ZIP>12345</ZIP>
-					<City>SomeCity</City>
+					<Street>Somestreet 2</Street>
+					<ZIP>222222</ZIP>
+					<City>SomeCity2</City>
 					<Country>Germany</Country>
-					<PhoneNumber>++499131123456</PhoneNumber>
-					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+					<PhoneNumber>++4920000002</PhoneNumber>
+					<MobilePhoneNumber>++4920000002</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>
+						<ContractID>100021</ContractID>
+						<ContractName>SomeContract21</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100022</ContractID>
+						<ContractName>SomeContract22</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>1000023</ContractID>
+						<ContractName>SomeContract23</ContractName>
 					</Contract>
 				</Contracts>
 			</NewElement>
 			<NewElement>
 				<PersonID>
-					<ID>1</ID>
+					<ID>3</ID>
 				</PersonID>
-				<Salutation>Salutation0</Salutation>
-				<Name>Name0</Name>
-				<GivenName>Martin</GivenName>
-				<DateOfBirth>1970-01-01</DateOfBirth>
+				<Salutation>Salutation3</Salutation>
+				<Name>Name3</Name>
+				<GivenName>Martin3</GivenName>
+				<DateOfBirth>1970-01-03</DateOfBirth>
 				<HomeAddress>
-					<Street>Street 0</Street>
-					<ZIP>00000</ZIP>
-					<City>City0</City>
-					<Country>Country0</Country>
-					<PhoneNumber>++499131123456</PhoneNumber>
-					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+					<Street>Street 3</Street>
+					<ZIP>00003</ZIP>
+					<City>City3</City>
+					<Country>Country3</Country>
+					<PhoneNumber>++4900000003</PhoneNumber>
+					<MobilePhoneNumber>++491700000003</MobilePhoneNumber>
 				</HomeAddress>
 				<WorkAddress>
-					<Street>Somestreet 23</Street>
-					<ZIP>12345</ZIP>
-					<City>SomeCity</City>
+					<Street>Somestreet 3</Street>
+					<ZIP>333333</ZIP>
+					<City>SomeCity3</City>
 					<Country>Germany</Country>
-					<PhoneNumber>++499131123456</PhoneNumber>
-					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+					<PhoneNumber>++4930000003</PhoneNumber>
+					<MobilePhoneNumber>++4930000003</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>
+					<Contract>
+						<ContractID>100031</ContractID>
+						<ContractName>SomeContract31</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100033</ContractID>
+						<ContractName>SomeContract33</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>1000033</ContractID>
+						<ContractName>SomeContract33</ContractName>
+					</Contract>
 				</Contracts>
 			</NewElement>
 			<NewElement>
 				<PersonID>
-					<ID>1</ID>
+					<ID>4</ID>
 				</PersonID>
-				<Salutation>Salutation0</Salutation>
-				<Name>Name0</Name>
-				<GivenName>Martin</GivenName>
-				<DateOfBirth>1970-01-01</DateOfBirth>
+				<Salutation>Salutation4</Salutation>
+				<Name>Name4</Name>
+				<GivenName>Martin4</GivenName>
+				<DateOfBirth>1970-01-04</DateOfBirth>
 				<HomeAddress>
-					<Street>Street 0</Street>
-					<ZIP>00000</ZIP>
-					<City>City0</City>
-					<Country>Country0</Country>
-					<PhoneNumber>++499131123456</PhoneNumber>
-					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+					<Street>Street 4</Street>
+					<ZIP>00004</ZIP>
+					<City>City4</City>
+					<Country>Country4</Country>
+					<PhoneNumber>++4900000004</PhoneNumber>
+					<MobilePhoneNumber>++491700000004</MobilePhoneNumber>
 				</HomeAddress>
 				<WorkAddress>
-					<Street>Somestreet 23</Street>
-					<ZIP>12345</ZIP>
-					<City>SomeCity</City>
+					<Street>Somestreet 4</Street>
+					<ZIP>444444</ZIP>
+					<City>SomeCity4</City>
 					<Country>Germany</Country>
-					<PhoneNumber>++499131123456</PhoneNumber>
-					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+					<PhoneNumber>++4940000004</PhoneNumber>
+					<MobilePhoneNumber>++4940000004</MobilePhoneNumber>
 				</WorkAddress>
 				<Contracts>
 					<Contract>
-						<ContractID>100000</ContractID>
-						<ContractName>SomeContract0</ContractName>
+						<ContractID>100004</ContractID>
+						<ContractName>SomeContract4</ContractName>
 					</Contract>
 					<Contract>
-						<ContractID>100001</ContractID>
-						<ContractName>SomeContract1</ContractName>
+						<ContractID>100041</ContractID>
+						<ContractName>SomeContract41</ContractName>
 					</Contract>
 					<Contract>
-						<ContractID>100002</ContractID>
-						<ContractName>SomeContract2</ContractName>
+						<ContractID>100044</ContractID>
+						<ContractName>SomeContract44</ContractName>
 					</Contract>
 					<Contract>
-						<ContractID>100003</ContractID>
-						<ContractName>SomeContract3</ContractName>
+						<ContractID>1000044</ContractID>
+						<ContractName>SomeContract44</ContractName>
 					</Contract>
 				</Contracts>
 			</NewElement>
 			<NewElement>
 				<PersonID>
-					<ID>1</ID>
+					<ID>5</ID>
 				</PersonID>
-				<Salutation>Salutation0</Salutation>
-				<Name>Name0</Name>
-				<GivenName>Martin</GivenName>
-				<DateOfBirth>1970-01-01</DateOfBirth>
+				<Salutation>Salutation5</Salutation>
+				<Name>Name5</Name>
+				<GivenName>Martin5</GivenName>
+				<DateOfBirth>1970-01-05</DateOfBirth>
 				<HomeAddress>
-					<Street>Street 0</Street>
-					<ZIP>00000</ZIP>
-					<City>City0</City>
-					<Country>Country0</Country>
-					<PhoneNumber>++499131123456</PhoneNumber>
-					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+					<Street>Street 5</Street>
+					<ZIP>00005</ZIP>
+					<City>City5</City>
+					<Country>Country5</Country>
+					<PhoneNumber>++4900000005</PhoneNumber>
+					<MobilePhoneNumber>++491700000005</MobilePhoneNumber>
 				</HomeAddress>
 				<WorkAddress>
-					<Street>Somestreet 23</Street>
-					<ZIP>12345</ZIP>
-					<City>SomeCity</City>
+					<Street>Somestreet 5</Street>
+					<ZIP>555555</ZIP>
+					<City>SomeCity5</City>
 					<Country>Germany</Country>
-					<PhoneNumber>++499131123456</PhoneNumber>
-					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+					<PhoneNumber>++4950000005</PhoneNumber>
+					<MobilePhoneNumber>++4950000005</MobilePhoneNumber>
 				</WorkAddress>
 				<Contracts>
 					<Contract>
-						<ContractID>100000</ContractID>
-						<ContractName>SomeContract0</ContractName>
+						<ContractID>100005</ContractID>
+						<ContractName>SomeContract5</ContractName>
 					</Contract>
 					<Contract>
-						<ContractID>100001</ContractID>
-						<ContractName>SomeContract1</ContractName>
+						<ContractID>100051</ContractID>
+						<ContractName>SomeContract51</ContractName>
 					</Contract>
 					<Contract>
-						<ContractID>100002</ContractID>
-						<ContractName>SomeContract2</ContractName>
+						<ContractID>100055</ContractID>
+						<ContractName>SomeContract55</ContractName>
 					</Contract>
 					<Contract>
-						<ContractID>100003</ContractID>
-						<ContractName>SomeContract3</ContractName>
+						<ContractID>1000053</ContractID>
+						<ContractName>SomeContract53</ContractName>
 					</Contract>
 				</Contracts>
 			</NewElement>
 			<NewElement>
 				<PersonID>
-					<ID>1</ID>
+					<ID>6</ID>
 				</PersonID>
-				<Salutation>Salutation0</Salutation>
-				<Name>Name0</Name>
-				<GivenName>Martin</GivenName>
-				<DateOfBirth>1970-01-01</DateOfBirth>
+				<Salutation>Salutation6</Salutation>
+				<Name>Name6</Name>
+				<GivenName>Martin6</GivenName>
+				<DateOfBirth>1970-01-06</DateOfBirth>
 				<HomeAddress>
-					<Street>Street 0</Street>
-					<ZIP>00000</ZIP>
-					<City>City0</City>
-					<Country>Country0</Country>
-					<PhoneNumber>++499131123456</PhoneNumber>
-					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+					<Street>Street 6</Street>
+					<ZIP>00006</ZIP>
+					<City>City6</City>
+					<Country>Country6</Country>
+					<PhoneNumber>++4900000006</PhoneNumber>
+					<MobilePhoneNumber>++491700000006</MobilePhoneNumber>
 				</HomeAddress>
 				<WorkAddress>
-					<Street>Somestreet 23</Street>
-					<ZIP>12345</ZIP>
-					<City>SomeCity</City>
+					<Street>Somestreet 6</Street>
+					<ZIP>666666</ZIP>
+					<City>SomeCity6</City>
 					<Country>Germany</Country>
-					<PhoneNumber>++499131123456</PhoneNumber>
-					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+					<PhoneNumber>++4960000006</PhoneNumber>
+					<MobilePhoneNumber>++4960000006</MobilePhoneNumber>
 				</WorkAddress>
 				<Contracts>
 					<Contract>
-						<ContractID>100000</ContractID>
-						<ContractName>SomeContract0</ContractName>
+						<ContractID>100006</ContractID>
+						<ContractName>SomeContract6</ContractName>
 					</Contract>
 					<Contract>
-						<ContractID>100001</ContractID>
-						<ContractName>SomeContract1</ContractName>
+						<ContractID>100061</ContractID>
+						<ContractName>SomeContract61</ContractName>
 					</Contract>
 					<Contract>
-						<ContractID>100002</ContractID>
-						<ContractName>SomeContract2</ContractName>
+						<ContractID>100066</ContractID>
+						<ContractName>SomeContract66</ContractName>
 					</Contract>
 					<Contract>
-						<ContractID>100003</ContractID>
-						<ContractName>SomeContract3</ContractName>
+						<ContractID>1000063</ContractID>
+						<ContractName>SomeContract63</ContractName>
 					</Contract>
 				</Contracts>
 			</NewElement>
 			<NewElement>
 				<PersonID>
-					<ID>1</ID>
+					<ID>7</ID>
 				</PersonID>
-				<Salutation>Salutation0</Salutation>
-				<Name>Name0</Name>
-				<GivenName>Martin</GivenName>
-				<DateOfBirth>1970-01-01</DateOfBirth>
+				<Salutation>Salutation7</Salutation>
+				<Name>Name7</Name>
+				<GivenName>Martin7</GivenName>
+				<DateOfBirth>1970-01-07</DateOfBirth>
 				<HomeAddress>
-					<Street>Street 0</Street>
-					<ZIP>00000</ZIP>
-					<City>City0</City>
-					<Country>Country0</Country>
-					<PhoneNumber>++499131123456</PhoneNumber>
-					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+					<Street>Street 7</Street>
+					<ZIP>00007</ZIP>
+					<City>City7</City>
+					<Country>Country7</Country>
+					<PhoneNumber>++4900000007</PhoneNumber>
+					<MobilePhoneNumber>++491700000007</MobilePhoneNumber>
 				</HomeAddress>
 				<WorkAddress>
-					<Street>Somestreet 23</Street>
-					<ZIP>12345</ZIP>
-					<City>SomeCity</City>
+					<Street>Somestreet 7</Street>
+					<ZIP>777777</ZIP>
+					<City>SomeCity7</City>
 					<Country>Germany</Country>
-					<PhoneNumber>++499131123456</PhoneNumber>
-					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+					<PhoneNumber>++4970000007</PhoneNumber>
+					<MobilePhoneNumber>++4970000007</MobilePhoneNumber>
 				</WorkAddress>
 				<Contracts>
 					<Contract>
-						<ContractID>100000</ContractID>
-						<ContractName>SomeContract0</ContractName>
+						<ContractID>100007</ContractID>
+						<ContractName>SomeContract7</ContractName>
 					</Contract>
 					<Contract>
-						<ContractID>100001</ContractID>
-						<ContractName>SomeContract1</ContractName>
+						<ContractID>100071</ContractID>
+						<ContractName>SomeContract71</ContractName>
 					</Contract>
 					<Contract>
-						<ContractID>100002</ContractID>
-						<ContractName>SomeContract2</ContractName>
+						<ContractID>100077</ContractID>
+						<ContractName>SomeContract77</ContractName>
 					</Contract>
 					<Contract>
-						<ContractID>100003</ContractID>
-						<ContractName>SomeContract3</ContractName>
+						<ContractID>1000073</ContractID>
+						<ContractName>SomeContract73</ContractName>
 					</Contract>
 				</Contracts>
 			</NewElement>
 			<NewElement>
 				<PersonID>
-					<ID>1</ID>
+					<ID>8</ID>
 				</PersonID>
-				<Salutation>Salutation0</Salutation>
-				<Name>Name0</Name>
-				<GivenName>Martin</GivenName>
-				<DateOfBirth>1970-01-01</DateOfBirth>
+				<Salutation>Salutation8</Salutation>
+				<Name>Name8</Name>
+				<GivenName>Martin8</GivenName>
+				<DateOfBirth>1970-01-08</DateOfBirth>
 				<HomeAddress>
-					<Street>Street 0</Street>
-					<ZIP>00000</ZIP>
-					<City>City0</City>
-					<Country>Country0</Country>
-					<PhoneNumber>++499131123456</PhoneNumber>
-					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+					<Street>Street 8</Street>
+					<ZIP>00008</ZIP>
+					<City>City8</City>
+					<Country>Country8</Country>
+					<PhoneNumber>++4900000008</PhoneNumber>
+					<MobilePhoneNumber>++491700000008</MobilePhoneNumber>
 				</HomeAddress>
 				<WorkAddress>
-					<Street>Somestreet 23</Street>
-					<ZIP>12345</ZIP>
-					<City>SomeCity</City>
+					<Street>Somestreet 8</Street>
+					<ZIP>888888</ZIP>
+					<City>SomeCity8</City>
 					<Country>Germany</Country>
-					<PhoneNumber>++499131123456</PhoneNumber>
-					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+					<PhoneNumber>++4980000008</PhoneNumber>
+					<MobilePhoneNumber>++4980000008</MobilePhoneNumber>
 				</WorkAddress>
 				<Contracts>
 					<Contract>
-						<ContractID>100000</ContractID>
-						<ContractName>SomeContract0</ContractName>
+						<ContractID>100008</ContractID>
+						<ContractName>SomeContract8</ContractName>
 					</Contract>
 					<Contract>
-						<ContractID>100001</ContractID>
-						<ContractName>SomeContract1</ContractName>
+						<ContractID>100081</ContractID>
+						<ContractName>SomeContract81</ContractName>
 					</Contract>
 					<Contract>
-						<ContractID>100002</ContractID>
-						<ContractName>SomeContract2</ContractName>
+						<ContractID>100088</ContractID>
+						<ContractName>SomeContract88</ContractName>
 					</Contract>
 					<Contract>
-						<ContractID>100003</ContractID>
-						<ContractName>SomeContract3</ContractName>
+						<ContractID>1000083</ContractID>
+						<ContractName>SomeContract83</ContractName>
 					</Contract>
 				</Contracts>
 			</NewElement>
 			<NewElement>
 				<PersonID>
-					<ID>1</ID>
+					<ID>9</ID>
 				</PersonID>
-				<Salutation>Salutation0</Salutation>
-				<Name>Name0</Name>
-				<GivenName>Martin</GivenName>
-				<DateOfBirth>1970-01-01</DateOfBirth>
+				<Salutation>Salutation9</Salutation>
+				<Name>Name9</Name>
+				<GivenName>Martin9</GivenName>
+				<DateOfBirth>1970-01-09</DateOfBirth>
 				<HomeAddress>
-					<Street>Street 0</Street>
-					<ZIP>00000</ZIP>
-					<City>City0</City>
-					<Country>Country0</Country>
-					<PhoneNumber>++499131123456</PhoneNumber>
-					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+					<Street>Street 9</Street>
+					<ZIP>00009</ZIP>
+					<City>City9</City>
+					<Country>Country9</Country>
+					<PhoneNumber>++4900000009</PhoneNumber>
+					<MobilePhoneNumber>++491700000009</MobilePhoneNumber>
 				</HomeAddress>
 				<WorkAddress>
-					<Street>Somestreet 23</Street>
-					<ZIP>12345</ZIP>
-					<City>SomeCity</City>
+					<Street>Somestreet 9</Street>
+					<ZIP>999999</ZIP>
+					<City>SomeCity9</City>
 					<Country>Germany</Country>
-					<PhoneNumber>++499131123456</PhoneNumber>
-					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+					<PhoneNumber>++4990000009</PhoneNumber>
+					<MobilePhoneNumber>++4990000009</MobilePhoneNumber>
 				</WorkAddress>
 				<Contracts>
 					<Contract>
-						<ContractID>100000</ContractID>
-						<ContractName>SomeContract0</ContractName>
+						<ContractID>100009</ContractID>
+						<ContractName>SomeContract9</ContractName>
 					</Contract>
 					<Contract>
-						<ContractID>100001</ContractID>
-						<ContractName>SomeContract1</ContractName>
+						<ContractID>100091</ContractID>
+						<ContractName>SomeContract91</ContractName>
 					</Contract>
 					<Contract>
-						<ContractID>100002</ContractID>
-						<ContractName>SomeContract2</ContractName>
+						<ContractID>100099</ContractID>
+						<ContractName>SomeContract99</ContractName>
 					</Contract>
 					<Contract>
-						<ContractID>100003</ContractID>
-						<ContractName>SomeContract3</ContractName>
+						<ContractID>1000093</ContractID>
+						<ContractName>SomeContract93</ContractName>
 					</Contract>
 				</Contracts>
 			</NewElement>
 			<NewElement>
 				<PersonID>
-					<ID>1</ID>
+					<ID>10</ID>
 				</PersonID>
-				<Salutation>Salutation0</Salutation>
-				<Name>Name0</Name>
-				<GivenName>Martin</GivenName>
-				<DateOfBirth>1970-01-01</DateOfBirth>
+				<Salutation>Salutation10</Salutation>
+				<Name>Name10</Name>
+				<GivenName>Martin10</GivenName>
+				<DateOfBirth>1970-01-010</DateOfBirth>
 				<HomeAddress>
-					<Street>Street 0</Street>
-					<ZIP>00000</ZIP>
-					<City>City0</City>
-					<Country>Country0</Country>
-					<PhoneNumber>++499131123456</PhoneNumber>
-					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+					<Street>Street 10</Street>
+					<ZIP>000010</ZIP>
+					<City>City10</City>
+					<Country>Country10</Country>
+					<PhoneNumber>++49000000010</PhoneNumber>
+					<MobilePhoneNumber>++4917000000010</MobilePhoneNumber>
 				</HomeAddress>
 				<WorkAddress>
-					<Street>Somestreet 23</Street>
-					<ZIP>12345</ZIP>
-					<City>SomeCity</City>
+					<Street>Somestreet 10</Street>
+					<ZIP>101010101010</ZIP>
+					<City>SomeCity10</City>
 					<Country>Germany</Country>
-					<PhoneNumber>++499131123456</PhoneNumber>
-					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+					<PhoneNumber>++491000000010</PhoneNumber>
+					<MobilePhoneNumber>++491000000010</MobilePhoneNumber>
 				</WorkAddress>
 				<Contracts>
 					<Contract>
-						<ContractID>100000</ContractID>
-						<ContractName>SomeContract0</ContractName>
+						<ContractID>1000010</ContractID>
+						<ContractName>SomeContract10</ContractName>
 					</Contract>
 					<Contract>
-						<ContractID>100001</ContractID>
-						<ContractName>SomeContract1</ContractName>
+						<ContractID>1000101</ContractID>
+						<ContractName>SomeContract101</ContractName>
 					</Contract>
 					<Contract>
-						<ContractID>100002</ContractID>
-						<ContractName>SomeContract2</ContractName>
+						<ContractID>10001010</ContractID>
+						<ContractName>SomeContract1010</ContractName>
 					</Contract>
 					<Contract>
-						<ContractID>100003</ContractID>
-						<ContractName>SomeContract3</ContractName>
+						<ContractID>10000103</ContractID>
+						<ContractName>SomeContract103</ContractName>
 					</Contract>
 				</Contracts>
 			</NewElement>

benchmark/person_profile.pl

@@ -0,0 +1,19 @@
+use lib '../lib';
+use lib '../example/lib';
+use lib '../../SOAP-WSDL_XS/blib/lib';
+use lib '../../SOAP-WSDL_XS/blib/arch';
+use strict;
+# use Benchmark;
+use SOAP::WSDL::Deserializer::XSD_XS;
+use SOAP::WSDL::Factory::Deserializer;
+# # register for SOAP 1.1
+SOAP::WSDL::Factory::Deserializer->register('1.1' => 'SOAP::WSDL::Deserializer::XSD_XS' );
+
+use MyInterfaces::TestService::TestPort;
+
+my $soap = MyInterfaces::TestService::TestPort->new();
+# Load all classes - XML::Compile has created everything before, too
+if (@ARGV) { print $soap->ListPerson({}) }
+else {
+	 $soap->ListPerson({})
+}

bin/wsdl2perl.pl

@@ -10,23 +10,26 @@ use Term::ReadKey;
 
 my %opt = (
   url => '',
-  prefix => undef,
-  type_prefix => 'MyTypes',
-  element_prefix => 'MyElements',
-  typemap_prefix => 'MyTypemaps',
-  interface_prefix => 'MyInterfaces',
+  prefix            => 'My',
+  attribute_prefix  => undef,
+  type_prefix       => undef,
+  element_prefix    => undef,
+  typemap_prefix    => undef,
+  interface_prefix  => undef,
+  server_prefix     => undef,
   base_path => 'lib/',
   proxy => undef,
   generator => 'XSD',
   server => 0,
+  namespace => 0,
 );
 
 {   # a block just to scope "no warnings"
     no warnings qw(redefine);
-    
+
     *LWP::UserAgent::get_basic_credentials = sub {
         my ($user, $password);
-        # remove user from option if called, to force prompting for a user 
+        # remove user from option if called, to force prompting for a user
         # name the next time
         print "URL requires authorization.\n";
         if (not $user = delete $opt{user}) {
@@ -34,24 +37,28 @@ my %opt = (
             ReadMode 1;
             $user =  ReadLine();
             ReadMode 0;
+            chomp $user;
         };
         if (not $password = delete $opt{password}) {
             print 'Password:';
             ReadMode 2;
-            $user = ReadLine;
-            ReadMode 0;       
+            $password = ReadLine;
+            ReadMode 0;
+            chomp $password;
         };
         return ($user, $password);
-    };   
+    };
 }
 
 GetOptions(\%opt,
-  qw( 
+  qw(
     prefix|p=s
+    attribute_prefix|a=s
     type_prefix|t=s
     element_prefix|e=s
     typemap_prefix|m=s
     interface_prefix|i=s
+    server_prefix|sp=s
     base_path|b=s
     typemap_include|mi=s
     help|h
@@ -60,7 +67,8 @@ GetOptions(\%opt,
     user=s
     password=s
     generator=s
-    server
+    server|s
+    namespaces|n
   )
 );
 
@@ -69,24 +77,36 @@ my $url = $ARGV[0];
 pod2usage( -exit => 1 , verbose => 2 ) if ($opt{help});
 pod2usage( -exit => 1 , verbose => 1 ) if not ($url);
 
-my $parser = SOAP::WSDL::Expat::WSDLParser->new();
-
 local $ENV{HTTP_PROXY} = $opt{proxy} if $opt{proxy};
 local $ENV{HTTPS_PROXY} = $opt{proxy} if $opt{proxy};
 
-my $lwp = LWP::UserAgent->new( 
-    $opt{keep_alive} 
-        ? ( keep_alive => 1 ) 
+my $lwp = LWP::UserAgent->new(
+    $opt{keep_alive}
+        ? ( keep_alive => 1 )
         : ()
     );
 $lwp->env_proxy();  # get proxy from environment. Works for both http & https.
+$lwp->agent(qq[SOAP::WSDL $SOAP::WSDL::Expat::WSDLParser::VERSION]);
 
-my $response = $lwp->get($url);
-die $response->message(), "\n" if $response->code != 200;
+my $parser = SOAP::WSDL::Expat::WSDLParser->new({
+    user_agent => $lwp,
+});
 
-my $xml = $response->content();
+# 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_string( $xml );
+my $definitions = $parser->parse_uri( $url );
 
 my %typemap = ();
 
@@ -106,13 +126,23 @@ if (%typemap) {
     }
 };
 
-$generator->set_type_prefix( $opt{ type_prefix }) if $generator->can('set_type_prefix');
-$generator->set_typemap_prefix( $opt{ typemap_prefix }) if $generator->can('set_typemap_prefix');
-$generator->set_element_prefix($opt{ element_prefix }) if $generator->can('set_element_prefix');
-$generator->set_interface_prefix($opt{ interface_prefix }) if $generator->can('set_interface_prefix');
-$generator->set_OUTPUT_PATH($opt{ base_path }) if $generator->can('set_OUTPUT_PATH');
-$generator->set_definitions($definitions) if $generator->can('set_definitions');
-$generator->set_wsdl($xml) if $generator->can('set_wsdl');
+$generator->set_attribute_prefix( $opt{ attribute_prefix })
+    if $generator->can('set_attribute_prefix');
+$generator->set_type_prefix( $opt{ type_prefix })
+    if $generator->can('set_type_prefix');
+$generator->set_typemap_prefix( $opt{ typemap_prefix })
+    if $generator->can('set_typemap_prefix');
+$generator->set_element_prefix($opt{ element_prefix })
+    if $generator->can('set_element_prefix');
+$generator->set_interface_prefix($opt{ interface_prefix })
+    if $generator->can('set_interface_prefix');
+$generator->set_server_prefix($opt{ server_prefix })
+    if $generator->can('set_server_prefix');
+$generator->set_OUTPUT_PATH($opt{ base_path })
+    if $generator->can('set_OUTPUT_PATH');
+$generator->set_definitions($definitions)
+    if $generator->can('set_definitions');
+# $generator->set_wsdl($xml) if $generator->can('set_wsdl');
 
 # start with typelib, as errors will most likely occur here...
 $generator->generate();
@@ -135,34 +165,40 @@ wsdl2perl.pl - create perl bindings for SOAP webservices.
 
  NAME            SHORT  DESCRITPION
  ----------------------------------------------------------------------------
- prefix            p   Prefix for both type and element classes.
- type_prefix       t   Prefix for type 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.
                        Default: MyTypes
- element_prefix    e   Prefix for element classes. 
+ element_prefix    e   Prefix for element classes.
                        Default: MyElements
- typemap_prefix    m   Prefix for typemap classes. 
+ typemap_prefix    m   Prefix for typemap classes.
                        Default: MyTypemaps
  interface_prefix  i   Prefix for interface classes.
                        Default: MyInterfaces
+ server_prefix     sp  Prefix for server classes.
+                       Default: MyServer
  base_path         b   Path to create classes in.
                        Default: .
- typemap_include   mi  File to include in typemap. Must eval() to a valid 
+ typemap_include   mi  File to include in typemap. Must eval() to a valid
                        perl hash (not a hash ref !).
- proxy             x   HTTP(S) proxy to use (if any). wsdl2perl will also 
+ proxy             x   HTTP(S) proxy to use (if any). wsdl2perl will also
                        use the proxy settings specified via the HTTP_PROXY
                        and HTTPS_PROXY environment variables.
  keep_alive            Use http keep_alive.
  user                  Username for HTTP authentication
  password              Password. wsdl2perl will prompt if not given.
- generator         g   Generator to use. 
-                       Default: XSD 
+ generator         g   Generator to use.
+                       Default: XSD
  server            s   Generate a server interface (currently only CGI
                        supported)
  help              h   Show help content
 
 =head1 DESCRIPTION
 
-Generates a interface class for a SOAP web service described by a WSDL 
+Generates a interface class for a SOAP web service described by a WSDL
 definition.
 
 The following classes are created:
@@ -171,7 +207,7 @@ The following classes are created:
 
 =item * A interface class for every SOAP port in service
 
-Interface classes are what you will mainly deal with: They provide a method 
+Interface classes are what you will mainly deal with: They provide a method
 for accessing every web service method.
 
 If you chose to generate Server interfaces, a class for every SOAP port in
@@ -183,13 +219,13 @@ to dispatch calls to.
 
 =item * A typemap for every service
 
-Typemaps are used internally by SOAP::WSDL for parsing the SOAP message into 
-object trees. 
+Typemaps are used internally by SOAP::WSDL for parsing the SOAP message into
+object trees.
 
-If the WSDL definition is incomplete, you may need to add some lines to 
+If the WSDL definition is incomplete, you may need to add some lines to
 your typemap. Especially definitions for faults are sometimes left out.
 
-Additional typemap content may be included by passing a file name as 
+Additional typemap content may be included by passing a file name as
 typemap_include (mi) option.
 
 =item * A type class for every element, complexType or simpleType definition
@@ -197,7 +233,7 @@ typemap_include (mi) option.
 You may need to write additional type classes if your WSDL is incomplete.
 
 For writing your own lib classes, see L<SOAP::WSDL::XSD::Typelib::Element>,
-L<SOAP::WSDL::XSD::Typelib::ComplexType> 
+L<SOAP::WSDL::XSD::Typelib::ComplexType>
 and L<SOAP::WSDL::XSD::Typelib::SimpleType>.
 
 =back
@@ -210,26 +246,26 @@ You need Crypt::SSLeay installed for accessing HTTPS URLs.
 
 =head2 Accessing protected documents
 
-Use the -u option for specifying the user name. You will be prompted for a 
-password. 
+Use the -u option for specifying the user name. You will be prompted for a
+password.
 
-Alternatively, you may specify a passowrd with --password on the command 
+Alternatively, you may specify a passowrd with --password on the command
 line.
 
 =head2 Accessing documents protected by NTLM authentication
 
 Set the --keep_alive option.
 
-Note that accessing documents protected by NTLM authentication is currently 
+Note that accessing documents protected by NTLM authentication is currently
 untested, because I have no access to a system using NTLM authentication.
-If you try it, I would be glad if you could just drop me a note about 
-success or failure. 
+If you try it, I would be glad if you could just drop me a note about
+success or failure.
 
 =head1 LICENSE
 
 Copyright 2007 Martin Kutter.
 
-This file is part of SOAP-WSDL. You may distribute/modify it under 
+This file is part of SOAP-WSDL. You may distribute/modify it under
 the same terms as perl itself
 
 =head1 AUTHOR

example/cgi-bin/helloworld.pl

@@ -1,4 +1,5 @@
 #!/usr/bin/perl -w
+package main;
 use strict;
 use warnings;
 use lib '../../lib';
@@ -33,7 +34,7 @@ in examples/wsdl/helloworld.wsdl
 Before using this script, you should secure your webserver. The easiest way
 to do so is to let it listen to 127.0.0.1 only.
 
-Then make a ScriptAlias named /soap-wsdl-test/ pointing at the directory 
+Then make a ScriptAlias named /soap-wsdl-test/ pointing at the directory
 this file lies in.
 
 For my apache, it looks like this:
@@ -52,4 +53,5 @@ Then run the helloworld.pl from the examples directory. It should print
 
 =head1 DESCRIPTION
 
-=cut
+=cut
+

example/cgi-bin/person.pl

@@ -1,4 +1,5 @@
 #!/usr/bin/perl -w
+package main;
 use strict;
 use warnings;
 use lib qw(../lib ../../lib);

example/hello.pl

@@ -1,12 +1,15 @@
 #!/usr/bin/perl -w
 use strict;
 use warnings;
-use lib 'lib';
+use lib 'lib';  # just needed because interface lies here
 
 # I have to generate the interface using wsdl2perl.pl before
 use MyInterfaces::HelloWorld::HelloWorldSoap;
 
-my $soap = MyInterfaces::HelloWorld::HelloWorldSoap->new();
+# I instantiate a interface class.
+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({
@@ -14,8 +17,10 @@ my $result = $soap->sayHello({
     givenName => $ARGV[0] || '"Your given name"',
 });
 
+# SOAP::WSDL::SOAP::Typelib::Fault11 objects are false, but serialize to XML
 die $result if not $result;
 
 # I have to lookup the output parameter from the interface's POD - or try:
-# Bad method names will die with a list of available methods
-print $result->get_sayHelloResult(), "\n";
+# Will die on bad method names with a list of available methods
+print $result->get_sayHelloResult(), "\n";
+

example/hello_compile.pl

@@ -1,21 +1,29 @@
 #!/usr/bin/perl -w
 use strict;
 use warnings;
+use XML::Compile::SOAP11;
 use XML::Compile::WSDL11;
 use XML::Compile::Transport::SOAPHTTP;
 
+# I need access to the WSDL around - or use Data::Dumper::Streamer
+# for serializing the generated closures into (big) perl files
 my $wsdl = XML::Compile::WSDL11->new('wsdl/11_helloworld.wsdl');
 
-# I have to lookup the methods from the 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
+# 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"',
 );
 
+# XML::Compile::SOAP's client just returns undef in case of failure
 die "Error calling soap method" if not defined $result;
 
-# I have to lookup the output parameters from the WSDL - or try Dumper
-print $result->{ parameters }->{ sayHelloResult }, "\n";
+# 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 strict;
 use warnings;
-use SOAP::Lite;
+use SOAP::Lite; # +trace;
 
 # I have to lookup the URL from the WSDL
 my $soap = SOAP::Lite->new(
@@ -13,15 +13,17 @@ $soap->on_action( sub { "urn:HelloWorld#sayHello" });
 $soap->autotype(0);
 
 # I have to lookup the top level element's namespace from the WSDL
+$soap->default_ns('urn:HelloWorld');
+
 # I have to encode all parameters as SOAP::Data objects
 # I have to know the order of parameters
 my $som = $soap->call(
-    SOAP::Data->name("sayHello")
-        ->attr({ xmlns => 'urn:HelloWorld' }),
+    "sayHello",
     SOAP::Data->name('name')->value( $ARGV[1] || '"Your name"'),
     SOAP::Data->name('givenName')->value( $ARGV[0] || '"Your given name"'),
 );
 
 die $som->fault->{ faultstring } if ($som->fault);
 
-print $som->result, "\n";
+print $som->result, "\n";
+

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,38 @@
+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;
+
+// Spring JUnit Test runner
+@RunWith(SpringJUnit4ClassRunner.class)
+
+// load spring context from here
+@ContextConfiguration(locations = { "classpath:test-context.xml"})
+
+/** Test class for the HelloWorld service
+ *
+ * It's more of a integration test, not a Unit test (though using
+ * JUnit4).
+ *
+ * Fire up the SOAP server in example/server/hello_simple.pl before
+ * running - the test will fail if it can't find the appropriate SOAP server
+ * at http://localhost:8081/
+ *
+ */
+public class HelloWorldTest {
+
+	// soapClient bean automatically provided by spring
+	@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/lib/MyElements/CountCookies.pm

@@ -1,3 +1,4 @@
+
 package MyElements::CountCookies;
 use strict;
 use warnings;
@@ -13,17 +14,34 @@ __PACKAGE__->__set_maxOccurs();
 __PACKAGE__->__set_ref();
 
 use base qw(
-	SOAP::WSDL::XSD::Typelib::Element
-	SOAP::WSDL::XSD::Typelib::ComplexType
+    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;
+}
+
+
+
+# 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
@@ -44,7 +77,7 @@ CountCookies from the namespace http://www.fullerdata.com/FortuneCookie/FortuneC
 
 Constructor. The following data structure may be passed to new():
 
-
+,
 
 =head1 AUTHOR
 

example/lib/MyElements/CountCookiesResponse.pm

@@ -1,3 +1,4 @@
+
 package MyElements::CountCookiesResponse;
 use strict;
 use warnings;
@@ -13,25 +14,39 @@ __PACKAGE__->__set_maxOccurs();
 __PACKAGE__->__set_ref();
 
 use base qw(
-	SOAP::WSDL::XSD::Typelib::Element
-	SOAP::WSDL::XSD::Typelib::ComplexType
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
 );
-use Class::Std::Storable;
+
+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);
 
+Class::Std::initialize();
+
 { # BLOCK to scope variables
 
 my %CountCookiesResult_of :ATTR(:get<CountCookiesResult>);
 
 __PACKAGE__->_factory(
-    [ qw(
-        CountCookiesResult
+    [ qw(        CountCookiesResult
+
     ) ],
-    { 
-		CountCookiesResult => \%CountCookiesResult_of, 
+    {
+        'CountCookiesResult' => \%CountCookiesResult_of,
     },
     {
-        CountCookiesResult => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+        'CountCookiesResult' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+    },
+    {
+
+        'CountCookiesResult' => 'CountCookiesResult',
     }
 );
 
@@ -42,11 +57,12 @@ __PACKAGE__->_factory(
 
 
 
-
 } # end of BLOCK
+
+
+
 1;
 
-# __END__
 
 =pod
 
@@ -59,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
@@ -69,7 +109,7 @@ Constructor. The following data structure may be passed to new():
 
  {
    CountCookiesResult =>  $some_value, # int
- }
+ },
 
 =head1 AUTHOR
 

example/lib/MyElements/GenerateBarCode.pm

@@ -13,12 +13,14 @@ __PACKAGE__->__set_maxOccurs();
 __PACKAGE__->__set_ref();
 
 use base qw(
-	SOAP::WSDL::XSD::Typelib::Element
-	SOAP::WSDL::XSD::Typelib::ComplexType
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
 );
-use Class::Std::Storable;
+use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
 
+Class::Std::initialize();
+
 { # BLOCK to scope variables
 
 my %BarCodeParam_of :ATTR(:get<BarCodeParam>);
@@ -29,9 +31,9 @@ __PACKAGE__->_factory(
         BarCodeParam
         BarCodeText
     ) ],
-    { 
-		BarCodeParam => \%BarCodeParam_of, 
-		BarCodeText => \%BarCodeText_of, 
+    {
+        BarCodeParam => \%BarCodeParam_of,
+        BarCodeText => \%BarCodeText_of,
     },
     {
         BarCodeParam => 'MyTypes::BarCodeData',
@@ -41,12 +43,6 @@ __PACKAGE__->_factory(
 
 } # end BLOCK
 
-
-
-
-
-
-
 } # end of BLOCK
 1;
 

example/lib/MyElements/GenerateBarCodeResponse.pm

@@ -13,12 +13,14 @@ __PACKAGE__->__set_maxOccurs();
 __PACKAGE__->__set_ref();
 
 use base qw(
-	SOAP::WSDL::XSD::Typelib::Element
-	SOAP::WSDL::XSD::Typelib::ComplexType
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
 );
-use Class::Std::Storable;
+use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
 
+Class::Std::initialize();
+
 { # BLOCK to scope variables
 
 my %GenerateBarCodeResult_of :ATTR(:get<GenerateBarCodeResult>);
@@ -27,8 +29,8 @@ __PACKAGE__->_factory(
     [ qw(
         GenerateBarCodeResult
     ) ],
-    { 
-		GenerateBarCodeResult => \%GenerateBarCodeResult_of, 
+    {
+        GenerateBarCodeResult => \%GenerateBarCodeResult_of,
     },
     {
         GenerateBarCodeResult => 'SOAP::WSDL::XSD::Typelib::Builtin::base64Binary',

example/lib/MyElements/GetCitiesByCountry.pm

@@ -13,12 +13,14 @@ __PACKAGE__->__set_maxOccurs();
 __PACKAGE__->__set_ref();
 
 use base qw(
-	SOAP::WSDL::XSD::Typelib::Element
-	SOAP::WSDL::XSD::Typelib::ComplexType
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
 );
-use Class::Std::Storable;
+use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
 
+Class::Std::initialize();
+
 { # BLOCK to scope variables
 
 my %CountryName_of :ATTR(:get<CountryName>);
@@ -27,8 +29,8 @@ __PACKAGE__->_factory(
     [ qw(
         CountryName
     ) ],
-    { 
-		CountryName => \%CountryName_of, 
+    {
+        CountryName => \%CountryName_of,
     },
     {
         CountryName => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
@@ -69,7 +71,7 @@ Constructor. The following data structure may be passed to new():
 
  {
    CountryName =>  $some_value, # string
- }
+ },
 
 =head1 AUTHOR
 

example/lib/MyElements/GetCitiesByCountryResponse.pm

@@ -13,12 +13,14 @@ __PACKAGE__->__set_maxOccurs();
 __PACKAGE__->__set_ref();
 
 use base qw(
-	SOAP::WSDL::XSD::Typelib::Element
-	SOAP::WSDL::XSD::Typelib::ComplexType
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
 );
-use Class::Std::Storable;
+use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
 
+Class::Std::initialize();
+
 { # BLOCK to scope variables
 
 my %GetCitiesByCountryResult_of :ATTR(:get<GetCitiesByCountryResult>);
@@ -27,8 +29,8 @@ __PACKAGE__->_factory(
     [ qw(
         GetCitiesByCountryResult
     ) ],
-    { 
-		GetCitiesByCountryResult => \%GetCitiesByCountryResult_of, 
+    {
+        GetCitiesByCountryResult => \%GetCitiesByCountryResult_of,
     },
     {
         GetCitiesByCountryResult => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
@@ -69,7 +71,7 @@ Constructor. The following data structure may be passed to new():
 
  {
    GetCitiesByCountryResult =>  $some_value, # string
- }
+ },
 
 =head1 AUTHOR
 

example/lib/MyElements/GetFortuneCookie.pm

@@ -1,3 +1,4 @@
+
 package MyElements::GetFortuneCookie;
 use strict;
 use warnings;
@@ -13,17 +14,34 @@ __PACKAGE__->__set_maxOccurs();
 __PACKAGE__->__set_ref();
 
 use base qw(
-	SOAP::WSDL::XSD::Typelib::Element
-	SOAP::WSDL::XSD::Typelib::ComplexType
+    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;
+}
+
+
+
+# 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
@@ -44,7 +77,7 @@ GetFortuneCookie from the namespace http://www.fullerdata.com/FortuneCookie/Fort
 
 Constructor. The following data structure may be passed to new():
 
-
+,
 
 =head1 AUTHOR
 

example/lib/MyElements/GetFortuneCookieResponse.pm

@@ -1,3 +1,4 @@
+
 package MyElements::GetFortuneCookieResponse;
 use strict;
 use warnings;
@@ -13,25 +14,39 @@ __PACKAGE__->__set_maxOccurs();
 __PACKAGE__->__set_ref();
 
 use base qw(
-	SOAP::WSDL::XSD::Typelib::Element
-	SOAP::WSDL::XSD::Typelib::ComplexType
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
 );
-use Class::Std::Storable;
+
+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);
 
+Class::Std::initialize();
+
 { # BLOCK to scope variables
 
 my %GetFortuneCookieResult_of :ATTR(:get<GetFortuneCookieResult>);
 
 __PACKAGE__->_factory(
-    [ qw(
-        GetFortuneCookieResult
+    [ qw(        GetFortuneCookieResult
+
     ) ],
-    { 
-		GetFortuneCookieResult => \%GetFortuneCookieResult_of, 
+    {
+        'GetFortuneCookieResult' => \%GetFortuneCookieResult_of,
     },
     {
-        GetFortuneCookieResult => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        'GetFortuneCookieResult' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+    },
+    {
+
+        'GetFortuneCookieResult' => 'GetFortuneCookieResult',
     }
 );
 
@@ -42,11 +57,12 @@ __PACKAGE__->_factory(
 
 
 
-
 } # end of BLOCK
+
+
+
 1;
 
-# __END__
 
 =pod
 
@@ -59,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
@@ -69,7 +109,7 @@ Constructor. The following data structure may be passed to new():
 
  {
    GetFortuneCookieResult =>  $some_value, # string
- }
+ },
 
 =head1 AUTHOR
 

example/lib/MyElements/GetSpecificCookie.pm

@@ -1,3 +1,4 @@
+
 package MyElements::GetSpecificCookie;
 use strict;
 use warnings;
@@ -13,25 +14,39 @@ __PACKAGE__->__set_maxOccurs();
 __PACKAGE__->__set_ref();
 
 use base qw(
-	SOAP::WSDL::XSD::Typelib::Element
-	SOAP::WSDL::XSD::Typelib::ComplexType
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
 );
-use Class::Std::Storable;
+
+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);
 
+Class::Std::initialize();
+
 { # BLOCK to scope variables
 
 my %index_of :ATTR(:get<index>);
 
 __PACKAGE__->_factory(
-    [ qw(
-        index
+    [ qw(        index
+
     ) ],
-    { 
-		index => \%index_of, 
+    {
+        'index' => \%index_of,
     },
     {
-        index => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+        'index' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+    },
+    {
+
+        'index' => 'index',
     }
 );
 
@@ -42,11 +57,12 @@ __PACKAGE__->_factory(
 
 
 
-
 } # end of BLOCK
+
+
+
 1;
 
-# __END__
 
 =pod
 
@@ -59,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
@@ -69,7 +109,7 @@ Constructor. The following data structure may be passed to new():
 
  {
    index =>  $some_value, # int
- }
+ },
 
 =head1 AUTHOR
 

example/lib/MyElements/GetSpecificCookieResponse.pm

@@ -1,3 +1,4 @@
+
 package MyElements::GetSpecificCookieResponse;
 use strict;
 use warnings;
@@ -13,25 +14,39 @@ __PACKAGE__->__set_maxOccurs();
 __PACKAGE__->__set_ref();
 
 use base qw(
-	SOAP::WSDL::XSD::Typelib::Element
-	SOAP::WSDL::XSD::Typelib::ComplexType
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
 );
-use Class::Std::Storable;
+
+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);
 
+Class::Std::initialize();
+
 { # BLOCK to scope variables
 
 my %GetSpecificCookieResult_of :ATTR(:get<GetSpecificCookieResult>);
 
 __PACKAGE__->_factory(
-    [ qw(
-        GetSpecificCookieResult
+    [ qw(        GetSpecificCookieResult
+
     ) ],
-    { 
-		GetSpecificCookieResult => \%GetSpecificCookieResult_of, 
+    {
+        'GetSpecificCookieResult' => \%GetSpecificCookieResult_of,
     },
     {
-        GetSpecificCookieResult => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        'GetSpecificCookieResult' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+    },
+    {
+
+        'GetSpecificCookieResult' => 'GetSpecificCookieResult',
     }
 );
 
@@ -42,11 +57,12 @@ __PACKAGE__->_factory(
 
 
 
-
 } # end of BLOCK
+
+
+
 1;
 
-# __END__
 
 =pod
 
@@ -59,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
@@ -69,7 +109,7 @@ Constructor. The following data structure may be passed to new():
 
  {
    GetSpecificCookieResult =>  $some_value, # string
- }
+ },
 
 =head1 AUTHOR
 

example/lib/MyElements/GetWeather.pm

@@ -13,12 +13,14 @@ __PACKAGE__->__set_maxOccurs();
 __PACKAGE__->__set_ref();
 
 use base qw(
-	SOAP::WSDL::XSD::Typelib::Element
-	SOAP::WSDL::XSD::Typelib::ComplexType
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
 );
-use Class::Std::Storable;
+use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
 
+Class::Std::initialize();
+
 { # BLOCK to scope variables
 
 my %CityName_of :ATTR(:get<CityName>);
@@ -29,9 +31,9 @@ __PACKAGE__->_factory(
         CityName
         CountryName
     ) ],
-    { 
-		CityName => \%CityName_of, 
-		CountryName => \%CountryName_of, 
+    {
+        CityName => \%CityName_of,
+        CountryName => \%CountryName_of,
     },
     {
         CityName => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
@@ -74,7 +76,7 @@ Constructor. The following data structure may be passed to new():
  {
    CityName =>  $some_value, # string
    CountryName =>  $some_value, # string
- }
+ },
 
 =head1 AUTHOR
 

example/lib/MyElements/GetWeatherResponse.pm

@@ -13,12 +13,14 @@ __PACKAGE__->__set_maxOccurs();
 __PACKAGE__->__set_ref();
 
 use base qw(
-	SOAP::WSDL::XSD::Typelib::Element
-	SOAP::WSDL::XSD::Typelib::ComplexType
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
 );
-use Class::Std::Storable;
+use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
 
+Class::Std::initialize();
+
 { # BLOCK to scope variables
 
 my %GetWeatherResult_of :ATTR(:get<GetWeatherResult>);
@@ -27,8 +29,8 @@ __PACKAGE__->_factory(
     [ qw(
         GetWeatherResult
     ) ],
-    { 
-		GetWeatherResult => \%GetWeatherResult_of, 
+    {
+        GetWeatherResult => \%GetWeatherResult_of,
     },
     {
         GetWeatherResult => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
@@ -69,7 +71,7 @@ Constructor. The following data structure may be passed to new():
 
  {
    GetWeatherResult =>  $some_value, # string
- }
+ },
 
 =head1 AUTHOR
 

example/lib/MyElements/int.pm

@@ -1,3 +1,4 @@
+
 package MyElements::int;
 use strict;
 use warnings;
@@ -12,16 +13,14 @@ __PACKAGE__->__set_minOccurs();
 __PACKAGE__->__set_maxOccurs();
 __PACKAGE__->__set_ref();
 use base qw(
-	SOAP::WSDL::XSD::Typelib::Element
-	SOAP::WSDL::XSD::Typelib::Builtin::int
-
+    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;
@@ -13,17 +14,34 @@ __PACKAGE__->__set_maxOccurs();
 __PACKAGE__->__set_ref();
 
 use base qw(
-	SOAP::WSDL::XSD::Typelib::Element
-	SOAP::WSDL::XSD::Typelib::ComplexType
+    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;
+}
+
+
+
+# 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
@@ -44,7 +77,7 @@ readNodeCount from the namespace http://www.fullerdata.com/FortuneCookie/Fortune
 
 Constructor. The following data structure may be passed to new():
 
-
+,
 
 =head1 AUTHOR
 

example/lib/MyElements/readNodeCountResponse.pm

@@ -1,3 +1,4 @@
+
 package MyElements::readNodeCountResponse;
 use strict;
 use warnings;
@@ -13,25 +14,39 @@ __PACKAGE__->__set_maxOccurs();
 __PACKAGE__->__set_ref();
 
 use base qw(
-	SOAP::WSDL::XSD::Typelib::Element
-	SOAP::WSDL::XSD::Typelib::ComplexType
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
 );
-use Class::Std::Storable;
+
+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);
 
+Class::Std::initialize();
+
 { # BLOCK to scope variables
 
 my %readNodeCountResult_of :ATTR(:get<readNodeCountResult>);
 
 __PACKAGE__->_factory(
-    [ qw(
-        readNodeCountResult
+    [ qw(        readNodeCountResult
+
     ) ],
-    { 
-		readNodeCountResult => \%readNodeCountResult_of, 
+    {
+        'readNodeCountResult' => \%readNodeCountResult_of,
     },
     {
-        readNodeCountResult => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+        'readNodeCountResult' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+    },
+    {
+
+        'readNodeCountResult' => 'readNodeCountResult',
     }
 );
 
@@ -42,11 +57,12 @@ __PACKAGE__->_factory(
 
 
 
-
 } # end of BLOCK
+
+
+
 1;
 
-# __END__
 
 =pod
 
@@ -59,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
@@ -69,7 +109,7 @@ Constructor. The following data structure may be passed to new():
 
  {
    readNodeCountResult =>  $some_value, # int
- }
+ },
 
 =head1 AUTHOR
 

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
-
+    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/BarCode/BarCodeSoap.pm

@@ -1,12 +1,13 @@
 package MyInterfaces::BarCode::BarCodeSoap;
 use strict;
 use warnings;
-use Class::Std::Storable;
+use Class::Std::Fast::Storable;
+use Scalar::Util qw(blessed);
 use base qw(SOAP::WSDL::Client::Base);
 
 # only load if it hasn't been loaded before
 require MyTypemaps::BarCode
-	if not MyTypemaps::BarCode->can('get_class');
+    if not MyTypemaps::BarCode->can('get_class');
 
 sub START {
     $_[0]->set_proxy('http://www.webservicex.net/genericbarcode.asmx') if not $_[2]->{proxy};
@@ -16,11 +17,12 @@ sub START {
 
 sub GenerateBarCode {
     my ($self, $body, $header) = @_;
+    die "GenerateBarCode must be called as object method (\$self is <$self>)" if not blessed($self);
     return $self->SUPER::call({
-    	operation => 'GenerateBarCode',
+        operation => 'GenerateBarCode',
         soap_action => 'http://www.webservicex.net/GenerateBarCode',
         style => 'document',
-        body => { 
+        body => {
             
            'use' => 'literal',
             namespace => '',
@@ -58,12 +60,12 @@ MyInterfaces::BarCode::BarCodeSoap - SOAP Interface for the BarCode Web Service
  
  my $response;
  $response = $interface->GenerateBarCode();
-	
+
  
 
 =head1 DESCRIPTION
 
-SOAP Interface for the BarCode web service 
+SOAP Interface for the BarCode web service
 located at http://www.webservicex.net/genericbarcode.asmx.
 
 =head1 SERVICE BarCode
@@ -86,12 +88,12 @@ All arguments are forwarded to L<SOAP::WSDL::Client|SOAP::WSDL::Client>.
 
 =head2 SOAP Service methods
 
-Method synopsis is displayed with hash refs as parameters. 
+Method synopsis is displayed with hash refs as parameters.
 
-The commented class names in the method's parameters denote that objects 
+The commented class names in the method's parameters denote that objects
 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 
+You may pass any combination of objects, hash and list refs to these
 methods, as long as you meet the structure.
 
 
@@ -124,10 +126,10 @@ WebserviceX.NET barcode library that provides the means to create barcodes for p
   },,
  );
  
-	
+
 
 =head1 AUTHOR
 
-Generated by SOAP::WSDL on Fri Nov  9 00:18:35 2007
+Generated by SOAP::WSDL on Sun Dec 16 20:10:20 2007
 
 =pod

example/lib/MyInterfaces/FullerData_x0020_Fortune_x0020_Cookie/FullerData_x0020_Fortune_x0020_CookieSoap.pm

@@ -1,31 +1,36 @@
 package MyInterfaces::FullerData_x0020_Fortune_x0020_Cookie::FullerData_x0020_Fortune_x0020_CookieSoap;
 use strict;
 use warnings;
-use Class::Std::Storable;
+use Class::Std::Fast::Storable;
+use Scalar::Util qw(blessed);
 use base qw(SOAP::WSDL::Client::Base);
 
 # only load if it hasn't been loaded before
 require MyTypemaps::FullerData_x0020_Fortune_x0020_Cookie
-	if not MyTypemaps::FullerData_x0020_Fortune_x0020_Cookie->can('get_class');
+    if not MyTypemaps::FullerData_x0020_Fortune_x0020_Cookie->can('get_class');
 
 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 {
     my ($self, $body, $header) = @_;
+    die "readNodeCount must be called as object method (\$self is <$self>)" if not blessed($self);
     return $self->SUPER::call({
-    	operation => 'readNodeCount',
+        operation => 'readNodeCount',
         soap_action => 'http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx/readNodeCount',
         style => 'document',
-        body => { 
+        body => {
             
-           'use' => 'literal',
-            namespace => '',
-            encodingStyle => '',
-            parts => [qw( MyElements::readNodeCount )],
+
+           'use'            => 'literal',
+            namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
+            encodingStyle   => '',
+            parts           =>  [qw( MyElements::readNodeCount )],
         },
         header => {
             
@@ -36,18 +41,21 @@ 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);
     return $self->SUPER::call({
-    	operation => 'GetFortuneCookie',
+        operation => 'GetFortuneCookie',
         soap_action => 'http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx/GetFortuneCookie',
         style => 'document',
-        body => { 
+        body => {
             
-           'use' => 'literal',
-            namespace => '',
-            encodingStyle => '',
-            parts => [qw( MyElements::GetFortuneCookie )],
+
+           'use'            => 'literal',
+            namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
+            encodingStyle   => '',
+            parts           =>  [qw( MyElements::GetFortuneCookie )],
         },
         header => {
             
@@ -58,18 +66,21 @@ 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);
     return $self->SUPER::call({
-    	operation => 'CountCookies',
+        operation => 'CountCookies',
         soap_action => 'http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx/CountCookies',
         style => 'document',
-        body => { 
+        body => {
             
-           'use' => 'literal',
-            namespace => '',
-            encodingStyle => '',
-            parts => [qw( MyElements::CountCookies )],
+
+           'use'            => 'literal',
+            namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
+            encodingStyle   => '',
+            parts           =>  [qw( MyElements::CountCookies )],
         },
         header => {
             
@@ -80,18 +91,21 @@ 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);
     return $self->SUPER::call({
-    	operation => 'GetSpecificCookie',
+        operation => 'GetSpecificCookie',
         soap_action => 'http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx/GetSpecificCookie',
         style => 'document',
-        body => { 
+        body => {
             
-           'use' => 'literal',
-            namespace => '',
-            encodingStyle => '',
-            parts => [qw( MyElements::GetSpecificCookie )],
+
+           'use'            => 'literal',
+            namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
+            encodingStyle   => '',
+            parts           =>  [qw( MyElements::GetSpecificCookie )],
         },
         header => {
             
@@ -104,6 +118,7 @@ sub GetSpecificCookie {
 
 
 
+
 1;
 
 
@@ -114,12 +129,24 @@ __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
+
+ use MyInterfaces::FullerData_x0020_Fortune_x0020_Cookie::FullerData_x0020_Fortune_x0020_CookieSoap;
+ my $interface = MyInterfaces::FullerData_x0020_Fortune_x0020_Cookie::FullerData_x0020_Fortune_x0020_CookieSoap->new();
+
+ my $response;
+ $response = $interface->readNodeCount();
+ $response = $interface->GetFortuneCookie();
+ $response = $interface->CountCookies();
+ $response = $interface->GetSpecificCookie();
+
+
+
 =head1 DESCRIPTION
 
-SOAP Interface for the FullerData_x0020_Fortune_x0020_Cookie web service 
+SOAP Interface for the FullerData_x0020_Fortune_x0020_Cookie web service
 located at http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.
 
 =head1 SERVICE FullerData_x0020_Fortune_x0020_Cookie
@@ -142,50 +169,66 @@ All arguments are forwarded to L<SOAP::WSDL::Client|SOAP::WSDL::Client>.
 
 =head2 SOAP Service methods
 
-Method synopsis is displayed with hash refs as parameters. 
+Method synopsis is displayed with hash refs as parameters.
 
-The commented class names in the method's parameters denote that objects 
+The commented class names in the method's parameters denote that objects
 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 
+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
-  },
+  },,
  );
- 
-	
+
+
 
 =head1 AUTHOR
 
-Generated by SOAP::WSDL on Tue Nov  6 20:56:46 2007
+Generated by SOAP::WSDL on Wed Dec  3 22:05:20 2008
 
-=pod
+=cut

example/lib/MyInterfaces/GlobalWeather/GlobalWeatherSoap.pm

@@ -1,12 +1,13 @@
 package MyInterfaces::GlobalWeather::GlobalWeatherSoap;
 use strict;
 use warnings;
-use Class::Std::Storable;
+use Class::Std::Fast::Storable;
+use Scalar::Util qw(blessed);
 use base qw(SOAP::WSDL::Client::Base);
 
 # only load if it hasn't been loaded before
 require MyTypemaps::GlobalWeather
-	if not MyTypemaps::GlobalWeather->can('get_class');
+    if not MyTypemaps::GlobalWeather->can('get_class');
 
 sub START {
     $_[0]->set_proxy('http://www.webservicex.net/globalweather.asmx') if not $_[2]->{proxy};
@@ -16,11 +17,12 @@ sub START {
 
 sub GetWeather {
     my ($self, $body, $header) = @_;
+    die "GetWeather must be called as object method (\$self is <$self>)" if not blessed($self);
     return $self->SUPER::call({
-    	operation => 'GetWeather',
+        operation => 'GetWeather',
         soap_action => 'http://www.webserviceX.NET/GetWeather',
         style => 'document',
-        body => { 
+        body => {
             
            'use' => 'literal',
             namespace => '',
@@ -38,11 +40,12 @@ sub GetWeather {
 
 sub GetCitiesByCountry {
     my ($self, $body, $header) = @_;
+    die "GetCitiesByCountry must be called as object method (\$self is <$self>)" if not blessed($self);
     return $self->SUPER::call({
-    	operation => 'GetCitiesByCountry',
+        operation => 'GetCitiesByCountry',
         soap_action => 'http://www.webserviceX.NET/GetCitiesByCountry',
         style => 'document',
-        body => { 
+        body => {
             
            'use' => 'literal',
             namespace => '',
@@ -73,9 +76,20 @@ __END__
 
 MyInterfaces::GlobalWeather::GlobalWeatherSoap - SOAP Interface for the GlobalWeather Web Service
 
+=head1 SYNOPSIS
+
+ use MyInterfaces::GlobalWeather::GlobalWeatherSoap;
+ my $interface = MyInterfaces::GlobalWeather::GlobalWeatherSoap->new();
+ 
+ my $response;
+ $response = $interface->GetWeather();
+ $response = $interface->GetCitiesByCountry();
+
+ 
+
 =head1 DESCRIPTION
 
-SOAP Interface for the GlobalWeather web service 
+SOAP Interface for the GlobalWeather web service
 located at http://www.webservicex.net/globalweather.asmx.
 
 =head1 SERVICE GlobalWeather
@@ -98,12 +112,12 @@ All arguments are forwarded to L<SOAP::WSDL::Client|SOAP::WSDL::Client>.
 
 =head2 SOAP Service methods
 
-Method synopsis is displayed with hash refs as parameters. 
+Method synopsis is displayed with hash refs as parameters.
 
-The commented class names in the method's parameters denote that objects 
+The commented class names in the method's parameters denote that objects
 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 
+You may pass any combination of objects, hash and list refs to these
 methods, as long as you meet the structure.
 
 
@@ -115,7 +129,7 @@ Get weather report for all major cities around the world.
  $interface->GetWeather(  {
     CityName =>  $some_value, # string
     CountryName =>  $some_value, # string
-  },
+  },,
  );
  
 =head3 GetCitiesByCountry
@@ -124,13 +138,13 @@ Get all major cities by country name(full / part).
 
  $interface->GetCitiesByCountry(  {
     CountryName =>  $some_value, # string
-  },
+  },,
  );
  
-	
+
 
 =head1 AUTHOR
 
-Generated by SOAP::WSDL on Tue Nov  6 21:00:30 2007
+Generated by SOAP::WSDL on Sun Dec 16 20:05:01 2007
 
 =pod

example/lib/MyInterfaces/HelloWorld/HelloWorldSoap.pm

@@ -38,12 +38,8 @@ sub sayHello {
     }, $body, $header);
 }
 
-
-
 1;
 
-
-
 __END__
 
 =pod

example/lib/MyServer/HelloWorld/HelloWorldSoap.pm

@@ -15,12 +15,11 @@ my %dispatch_to :ATTR(:name<dispatch_to>);
 
 my $action_map_ref = {
     'urn:HelloWorld#sayHello' => 'sayHello',
-
 };
 
 sub START {
     my ($self, $ident, $arg_ref) = @_;
-    eval "require $transport_class_of{ $ident }" 
+    eval "require $transport_class_of{ $ident }"
         or die "Cannot load transport class $transport_class_of{ $ident }: $@";
     $transport_of{ $ident } = $transport_class_of{ $ident }->new({
         action_map_ref => $action_map_ref,
@@ -30,7 +29,7 @@ sub START {
 }
 
 sub handle {
-    $transport_of{ ${ $_[0] } }->handle();
+    $transport_of{ ${ $_[0] } }->handle(@_[1..$#_]);
 }
 
 1;
@@ -76,7 +75,7 @@ located at http://localhost:81/soap-wsdl-test/helloworld.pl.
 
 Constructor.
 
-The C<dispatch_to> argument is mandatory. It must be a class or object 
+The C<dispatch_to> argument is mandatory. It must be a class or object
 implementing the SOAP Service methods listed below.
 
 =head2 SOAP Service methods
@@ -94,9 +93,9 @@ class.
     my ($self, $body, $header) = @_;
     # body is a ??? object - sorry, POD not implemented yet
     # header is a ??? object - sorry, POD not implemented yet
-    
+
     # do something with body and header...
-    
+
     return  MyElements::sayHelloResponse->new(  {
     sayHelloResult =>  $some_value, # string
   },

example/lib/MyTypemaps/BarCode.pm

@@ -10,13 +10,13 @@ our $typemap_1 = {
                'Fault/faultcode' => 'SOAP::WSDL::XSD::Typelib::Builtin::anyURI',
                'GenerateBarCode' => 'MyElements::GenerateBarCode',
                'Fault/faultstring' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
-               'GenerateBarCode/BarCodeParam/Width' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
                'GenerateBarCode/BarCodeParam/Angle' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+               'GenerateBarCode/BarCodeParam/Width' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
                'Fault' => 'SOAP::WSDL::SOAP::Typelib::Fault11',
                'GenerateBarCode/BarCodeParam/BarCodeImageFormat' => 'MyTypes::ImageFormats',
                'GenerateBarCode/BarCodeParam/BGColor' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
                'GenerateBarCode/BarCodeParam/Ratio' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
-               'Fault/faultactor' => 'SOAP::WSDL::XSD::Typelib::Builtin::TOKEN',
+               'Fault/faultactor' => 'SOAP::WSDL::XSD::Typelib::Builtin::token',
                'GenerateBarCode/BarCodeParam/Height' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
                'GenerateBarCode/BarCodeParam/CheckSum' => 'SOAP::WSDL::XSD::Typelib::Builtin::boolean',
                'GenerateBarCode/BarCodeParam/checkSumMethod' => 'MyTypes::CheckSumMethod',
@@ -27,18 +27,22 @@ our $typemap_1 = {
                'GenerateBarCodeResponse/GenerateBarCodeResult' => 'SOAP::WSDL::XSD::Typelib::Builtin::base64Binary',
                'GenerateBarCodeResponse' => 'MyElements::GenerateBarCodeResponse',
                'GenerateBarCode/BarCodeParam/Module' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
-               'GenerateBarCode/BarCodeParam' => 'MyTypes::BarCodeData',
                'GenerateBarCode/BarCodeParam/showTextPosition' => 'MyTypes::ShowTextPosition',
+               'GenerateBarCode/BarCodeParam' => 'MyTypes::BarCodeData',
                'GenerateBarCode/BarCodeParam/FontName' => 'SOAP::WSDL::XSD::Typelib::Builtin::string'
              };
 ;
 
-sub get_class { 
+sub get_class {
   my $name = join '/', @{ $_[1] };
   exists $typemap_1->{ $name } or die "Cannot resolve $name via " . __PACKAGE__;
   return $typemap_1->{ $name };
 }
 
+sub get_typemap {
+    return $typemap_1;
+}
+
 1;
 
 __END__

example/lib/MyTypemaps/FullerData_x0020_Fortune_x0020_Cookie.pm

@@ -1,3 +1,4 @@
+
 package MyTypemaps::FullerData_x0020_Fortune_x0020_Cookie;
 use strict;
 use warnings;
@@ -13,7 +14,7 @@ our $typemap_1 = {
                'GetFortuneCookieResponse' => 'MyElements::GetFortuneCookieResponse',
                'Fault' => 'SOAP::WSDL::SOAP::Typelib::Fault11',
                'GetSpecificCookie' => 'MyElements::GetSpecificCookie',
-               'Fault/faultactor' => 'SOAP::WSDL::XSD::Typelib::Builtin::TOKEN',
+               'Fault/faultactor' => 'SOAP::WSDL::XSD::Typelib::Builtin::token',
                'CountCookies' => 'MyElements::CountCookies',
                'GetSpecificCookie/index' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
                'Fault/detail' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
@@ -24,21 +25,27 @@ our $typemap_1 = {
              };
 ;
 
-sub get_class { 
+sub get_class {
   my $name = join '/', @{ $_[1] };
   exists $typemap_1->{ $name } or die "Cannot resolve $name via " . __PACKAGE__;
   return $typemap_1->{ $name };
 }
 
+sub get_typemap {
+    return $typemap_1;
+}
+
 1;
 
 __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/lib/MyTypemaps/GlobalWeather.pm

@@ -6,7 +6,7 @@ our $typemap_1 = {
                'GetWeatherResponse/GetWeatherResult' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
                'GetWeather' => 'MyElements::GetWeather',
                'GetCitiesByCountryResponse/GetCitiesByCountryResult' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
-               'Fault/faultactor' => 'SOAP::WSDL::XSD::Typelib::Builtin::TOKEN',
+               'Fault/faultactor' => 'SOAP::WSDL::XSD::Typelib::Builtin::token',
                'GetWeatherResponse' => 'MyElements::GetWeatherResponse',
                'Fault/detail' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
                'Fault/faultcode' => 'SOAP::WSDL::XSD::Typelib::Builtin::anyURI',
@@ -20,12 +20,16 @@ our $typemap_1 = {
              };
 ;
 
-sub get_class { 
+sub get_class {
   my $name = join '/', @{ $_[1] };
   exists $typemap_1->{ $name } or die "Cannot resolve $name via " . __PACKAGE__;
   return $typemap_1->{ $name };
 }
 
+sub get_typemap {
+    return $typemap_1;
+}
+
 1;
 
 __END__

example/lib/MyTypes/BarCodeData.pm

@@ -0,0 +1,164 @@
+package MyTypes::BarCodeData;
+use strict;
+use warnings;
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %Height_of :ATTR(:get<Height>);
+my %Width_of :ATTR(:get<Width>);
+my %Angle_of :ATTR(:get<Angle>);
+my %Ratio_of :ATTR(:get<Ratio>);
+my %Module_of :ATTR(:get<Module>);
+my %Left_of :ATTR(:get<Left>);
+my %Top_of :ATTR(:get<Top>);
+my %CheckSum_of :ATTR(:get<CheckSum>);
+my %FontName_of :ATTR(:get<FontName>);
+my %BarColor_of :ATTR(:get<BarColor>);
+my %BGColor_of :ATTR(:get<BGColor>);
+my %FontSize_of :ATTR(:get<FontSize>);
+my %barcodeOption_of :ATTR(:get<barcodeOption>);
+my %barcodeType_of :ATTR(:get<barcodeType>);
+my %checkSumMethod_of :ATTR(:get<checkSumMethod>);
+my %showTextPosition_of :ATTR(:get<showTextPosition>);
+my %BarCodeImageFormat_of :ATTR(:get<BarCodeImageFormat>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        Height
+        Width
+        Angle
+        Ratio
+        Module
+        Left
+        Top
+        CheckSum
+        FontName
+        BarColor
+        BGColor
+        FontSize
+        barcodeOption
+        barcodeType
+        checkSumMethod
+        showTextPosition
+        BarCodeImageFormat
+    ) ],
+    {
+        Height => \%Height_of,
+        Width => \%Width_of,
+        Angle => \%Angle_of,
+        Ratio => \%Ratio_of,
+        Module => \%Module_of,
+        Left => \%Left_of,
+        Top => \%Top_of,
+        CheckSum => \%CheckSum_of,
+        FontName => \%FontName_of,
+        BarColor => \%BarColor_of,
+        BGColor => \%BGColor_of,
+        FontSize => \%FontSize_of,
+        barcodeOption => \%barcodeOption_of,
+        barcodeType => \%barcodeType_of,
+        checkSumMethod => \%checkSumMethod_of,
+        showTextPosition => \%showTextPosition_of,
+        BarCodeImageFormat => \%BarCodeImageFormat_of,
+    },
+    {
+        Height => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+        Width => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+        Angle => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+        Ratio => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+        Module => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+        Left => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+        Top => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+        CheckSum => 'SOAP::WSDL::XSD::Typelib::Builtin::boolean',
+        FontName => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        BarColor => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        BGColor => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        FontSize => 'SOAP::WSDL::XSD::Typelib::Builtin::float',
+        barcodeOption => 'MyTypes::BarcodeOption',
+        barcodeType => 'MyTypes::BarcodeType',
+        checkSumMethod => 'MyTypes::CheckSumMethod',
+        showTextPosition => 'MyTypes::ShowTextPosition',
+        BarCodeImageFormat => 'MyTypes::ImageFormats',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+1;
+
+=pod
+
+=head1 NAME
+
+MyTypes::BarCodeData
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined complextype
+BarCodeData from the namespace http://www.webservicex.net/.
+
+=head2 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+ Height
+ Width
+ Angle
+ Ratio
+ Module
+ Left
+ Top
+ CheckSum
+ FontName
+ BarColor
+ BGColor
+ FontSize
+ barcodeOption
+ barcodeType
+ checkSumMethod
+ showTextPosition
+ BarCodeImageFormat
+
+
+=head1 METHODS
+
+=head2 new
+
+Constructor. The following data structure may be passed to new():
+
+ { # MyTypes::BarCodeData
+   Height =>  $some_value, # int
+   Width =>  $some_value, # int
+   Angle =>  $some_value, # int
+   Ratio =>  $some_value, # int
+   Module =>  $some_value, # int
+   Left =>  $some_value, # int
+   Top =>  $some_value, # int
+   CheckSum =>  $some_value, # boolean
+   FontName =>  $some_value, # string
+   BarColor =>  $some_value, # string
+   BGColor =>  $some_value, # string
+   FontSize =>  $some_value, # float
+   barcodeOption => $some_value, # BarcodeOption
+   barcodeType => $some_value, # BarcodeType
+   checkSumMethod => $some_value, # CheckSumMethod
+   showTextPosition => $some_value, # ShowTextPosition
+   BarCodeImageFormat => $some_value, # ImageFormats
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

example/lib/MyTypes/BarcodeOption.pm

@@ -0,0 +1,56 @@
+package MyTypes::BarcodeOption;
+use strict;
+use warnings;
+
+sub get_xmlns { 'http://www.webservicex.net/'};
+
+# derivation by restriction
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Builtin::string
+);
+
+
+
+1;
+
+=pod
+
+=head1 MyTypes::BarcodeOption
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined simpleType
+BarcodeOption from the namespace http://www.webservicex.net/.
+
+This clase is derived from SOAP::WSDL::XSD::Typelib::Builtin::string
+. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
+like it's base type.
+
+# Description of restrictions not implemented yet.
+
+=head1 METHODS
+
+=head2 new
+
+Constructor.
+
+=head2 get_value / set_value
+
+Getter and setter for the simpleType's value.
+
+=head1 OVERLOADING
+
+Depending on the simple type's base type, the following operations are overloaded
+
+ Stringification
+ Numerification
+ Boolification
+
+Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

example/lib/MyTypes/BarcodeType.pm

@@ -0,0 +1,56 @@
+package MyTypes::BarcodeType;
+use strict;
+use warnings;
+
+sub get_xmlns { 'http://www.webservicex.net/'};
+
+# derivation by restriction
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Builtin::string
+);
+
+
+
+1;
+
+=pod
+
+=head1 MyTypes::BarcodeType
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined simpleType
+BarcodeType from the namespace http://www.webservicex.net/.
+
+This clase is derived from SOAP::WSDL::XSD::Typelib::Builtin::string
+. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
+like it's base type.
+
+# Description of restrictions not implemented yet.
+
+=head1 METHODS
+
+=head2 new
+
+Constructor.
+
+=head2 get_value / set_value
+
+Getter and setter for the simpleType's value.
+
+=head1 OVERLOADING
+
+Depending on the simple type's base type, the following operations are overloaded
+
+ Stringification
+ Numerification
+ Boolification
+
+Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

example/lib/MyTypes/CheckSumMethod.pm

@@ -0,0 +1,56 @@
+package MyTypes::CheckSumMethod;
+use strict;
+use warnings;
+
+sub get_xmlns { 'http://www.webservicex.net/'};
+
+# derivation by restriction
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Builtin::string
+);
+
+
+
+1;
+
+=pod
+
+=head1 MyTypes::CheckSumMethod
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined simpleType
+CheckSumMethod from the namespace http://www.webservicex.net/.
+
+This clase is derived from SOAP::WSDL::XSD::Typelib::Builtin::string
+. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
+like it's base type.
+
+# Description of restrictions not implemented yet.
+
+=head1 METHODS
+
+=head2 new
+
+Constructor.
+
+=head2 get_value / set_value
+
+Getter and setter for the simpleType's value.
+
+=head1 OVERLOADING
+
+Depending on the simple type's base type, the following operations are overloaded
+
+ Stringification
+ Numerification
+ Boolification
+
+Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

example/lib/MyTypes/ImageFormats.pm

@@ -0,0 +1,56 @@
+package MyTypes::ImageFormats;
+use strict;
+use warnings;
+
+sub get_xmlns { 'http://www.webservicex.net/'};
+
+# derivation by restriction
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Builtin::string
+);
+
+
+
+1;
+
+=pod
+
+=head1 MyTypes::ImageFormats
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined simpleType
+ImageFormats from the namespace http://www.webservicex.net/.
+
+This clase is derived from SOAP::WSDL::XSD::Typelib::Builtin::string
+. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
+like it's base type.
+
+# Description of restrictions not implemented yet.
+
+=head1 METHODS
+
+=head2 new
+
+Constructor.
+
+=head2 get_value / set_value
+
+Getter and setter for the simpleType's value.
+
+=head1 OVERLOADING
+
+Depending on the simple type's base type, the following operations are overloaded
+
+ Stringification
+ Numerification
+ Boolification
+
+Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

example/lib/MyTypes/ShowTextPosition.pm

@@ -0,0 +1,56 @@
+package MyTypes::ShowTextPosition;
+use strict;
+use warnings;
+
+sub get_xmlns { 'http://www.webservicex.net/'};
+
+# derivation by restriction
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Builtin::string
+);
+
+
+
+1;
+
+=pod
+
+=head1 MyTypes::ShowTextPosition
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined simpleType
+ShowTextPosition from the namespace http://www.webservicex.net/.
+
+This clase is derived from SOAP::WSDL::XSD::Typelib::Builtin::string
+. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
+like it's base type.
+
+# Description of restrictions not implemented yet.
+
+=head1 METHODS
+
+=head2 new
+
+Constructor.
+
+=head2 get_value / set_value
+
+Getter and setter for the simpleType's value.
+
+=head1 OVERLOADING
+
+Depending on the simple type's base type, the following operations are overloaded
+
+ Stringification
+ Numerification
+ Boolification
+
+Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

example/person.pl

@@ -1,10 +1,12 @@
+use strict;
+use warnings;
 use lib 'lib';
 use MyInterfaces::TestService::TestPort;
 
 my $soap = MyInterfaces::TestService::TestPort->new();
-$soap->outputxml(1);
-my $result = $soap->ListPerson({});
 
-# print "Found " . scalar @{ $result->get_out->get_NewElement } . " persons\n";
+my $result = $soap->ListPerson({})
+    or die "error calling SOAP method";
+
+print "Found " . @{ $result->get_out()->get_NewElement } . " persons\n";
 
-print $result;

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

@@ -1,107 +1,122 @@
-<?xml version="1.0" encoding="UTF-8"?><wsdl:definitions name="benchmark" targetNamespace="http://www.example.org/benchmark/" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" xmlns:tns="http://www.example.org/benchmark/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" 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/">
-	<xsd:element name="ListPerson">
-		<xsd:complexType>
-			<xsd:sequence>
-				<xsd:element name="in" type="tns:Person" maxOccurs="1" minOccurs="0"></xsd:element>
-			</xsd:sequence>
-		</xsd:complexType>
-	</xsd:element>
-	<xsd:element name="ListPersonResponse">
-		<xsd:complexType>
-			<xsd:sequence>
-				<xsd:element name="out" type="tns:ArrayOfPerson"></xsd:element>
-			</xsd:sequence>
-		</xsd:complexType>
-	</xsd:element>
-	<xsd:complexType name="Person">
+<?xml version="1.0" encoding="UTF-8"?>
+<wsdl:definitions name="benchmark"
+    targetNamespace="http://www.example.org/benchmark/"
+    xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
+    xmlns:tns="http://www.example.org/benchmark/"
+    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+    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/"
+            elementFormDefault="qualified">
 
-		<xsd:sequence>
-			<xsd:element name="PersonID" type="tns:PersonID"></xsd:element>
-			<xsd:element name="Salutation" type="xsd:string"></xsd:element>
-			<xsd:element name="Name" type="xsd:string"></xsd:element>
-			<xsd:element name="GivenName" type="xsd:string"></xsd:element>
-			<xsd:element name="DateOfBirth" type="xsd:date"></xsd:element>
-			<xsd:element name="HomeAddress" type="tns:Address"
-				maxOccurs="1" minOccurs="1">
-			</xsd:element>
-			<xsd:element name="WorkAddress" type="tns:Address"
-				maxOccurs="1" minOccurs="0">
-			</xsd:element>
-			<xsd:element name="Contracts" type="tns:ArrayOfContract"></xsd:element>
-		</xsd:sequence>
-	</xsd:complexType>
+            <xsd:element name="ListPerson">
+                <xsd:complexType>
+                    <xsd:sequence>
+                        <xsd:element name="in" type="tns:Person"
+                            maxOccurs="1" minOccurs="0" />
+                    </xsd:sequence>
+                </xsd:complexType>
+            </xsd:element>
 
-	<xsd:simpleType name="PhoneNumber">
-        <xsd:restriction base="xsd:string">
-        </xsd:restriction>
-	</xsd:simpleType>
+            <xsd:element name="ListPersonResponse">
+                <xsd:complexType>
+                    <xsd:sequence>
+                        <xsd:element name="out" type="tns:ArrayOfPerson" />
+                    </xsd:sequence>
+                </xsd:complexType>
+            </xsd:element>
+            <xsd:complexType name="Person">
 
-	<xsd:complexType name="ArrayOfPerson">
-		<xsd:sequence minOccurs="0" maxOccurs="unbounded">
-			<xsd:element name="NewElement" type="tns:Person" maxOccurs="unbounded" minOccurs="0"></xsd:element>
-		</xsd:sequence>
-	</xsd:complexType>
+                <xsd:sequence>
+                    <xsd:element name="PersonID" type="tns:PersonID" />
+                    <xsd:element name="Salutation" type="xsd:string" />
+                    <xsd:element name="Name" type="xsd:string" />
+                    <xsd:element name="GivenName" type="xsd:string" />
+                    <xsd:element name="DateOfBirth" type="xsd:date" />
+                    <xsd:element name="HomeAddress" type="tns:Address"
+                        maxOccurs="1" minOccurs="1" />
+                    <xsd:element name="WorkAddress" type="tns:Address"
+                        maxOccurs="1" minOccurs="0" />
+                    <xsd:element name="Contracts"
+                        type="tns:ArrayOfContract" />
+                </xsd:sequence>
+            </xsd:complexType>
 
-	<xsd:complexType name="PersonID">
-		<xsd:sequence>
-			<xsd:element name="ID" type="xsd:int"></xsd:element>
-		</xsd:sequence>
-	</xsd:complexType>
+            <xsd:simpleType name="PhoneNumber">
+                <xsd:restriction base="xsd:string"></xsd:restriction>
+            </xsd:simpleType>
 
-	<xsd:complexType name="Address">
-		<xsd:sequence>
-			<xsd:element name="Street" type="xsd:string"></xsd:element>
-			<xsd:element name="ZIP" type="xsd:string"></xsd:element>
-			<xsd:element name="City" type="xsd:string"></xsd:element>
-			<xsd:element name="Country" type="xsd:string"></xsd:element>
-			<xsd:element name="PhoneNumber" type="tns:PhoneNumber"></xsd:element>
-			<xsd:element name="MobilePhoneNumber" type="tns:PhoneNumber"></xsd:element>
-		</xsd:sequence>
-	</xsd:complexType>
+            <xsd:complexType name="ArrayOfPerson">
+                <xsd:sequence minOccurs="0" maxOccurs="unbounded">
+                    <xsd:element name="NewElement" type="tns:Person"
+                        maxOccurs="unbounded" minOccurs="0" />
+                </xsd:sequence>
+            </xsd:complexType>
 
-	<xsd:complexType name="ArrayOfContract">
-		<xsd:sequence>
-			<xsd:element name="Contract" type="tns:Contract" maxOccurs="unbounded" minOccurs="0"></xsd:element>
-		</xsd:sequence>
-	</xsd:complexType>
+            <xsd:complexType name="PersonID">
+                <xsd:sequence>
+                    <xsd:element name="ID" type="xsd:int"></xsd:element>
+                </xsd:sequence>
+            </xsd:complexType>
 
-	<xsd:complexType name="Contract">
+            <xsd:complexType name="Address">
+                <xsd:sequence>
+                    <xsd:element name="Street" type="xsd:string" />
+                    <xsd:element name="ZIP" type="xsd:string" />
+                    <xsd:element name="City" type="xsd:string" />
+                    <xsd:element name="Country" type="xsd:string" />
+                    <xsd:element name="PhoneNumber" type="tns:PhoneNumber" />
+                    <xsd:element name="MobilePhoneNumber" type="tns:PhoneNumber" />
+                </xsd:sequence>
+            </xsd:complexType>
 
-		<xsd:sequence>
-			<xsd:element name="ContractID" type="xsd:long"></xsd:element>
-			<xsd:element name="ContractName" type="xsd:string"></xsd:element>
-		</xsd:sequence>
-	</xsd:complexType>
-</xsd:schema></wsdl:types>
+            <xsd:complexType name="ArrayOfContract">
+                <xsd:sequence>
+                    <xsd:element name="Contract" type="tns:Contract"
+                        maxOccurs="unbounded" minOccurs="0">
+                    </xsd:element>
+                </xsd:sequence>
+            </xsd:complexType>
+
+            <xsd:complexType name="Contract">
+                <xsd:sequence>
+                    <xsd:element name="ContractID" type="xsd:long" />
+                    <xsd:element name="ContractName" type="xsd:string" />
+                </xsd:sequence>
+            </xsd:complexType>
+        </xsd:schema>
+    </wsdl:types>
     <wsdl:message name="ListPersonRequest">
-    	<wsdl:part name="parameters" element="tns:ListPerson"></wsdl:part>
+        <wsdl:part name="parameters" element="tns:ListPerson" />
     </wsdl:message>
     <wsdl:message name="ListPersonResponse">
-    	<wsdl:part name="parameters" element="tns:ListPersonResponse"></wsdl:part>
+        <wsdl:part name="parameters" element="tns:ListPersonResponse" />
     </wsdl:message>
     <wsdl:portType name="NewPortType">
-    	<wsdl:operation name="ListPerson">
-    		<wsdl:input message="tns:ListPersonRequest"></wsdl:input>
-    		<wsdl:output message="tns:ListPersonResponse"></wsdl:output>
-    	</wsdl:operation>
+        <wsdl:operation name="ListPerson">
+            <wsdl:input message="tns:ListPersonRequest"></wsdl:input>
+            <wsdl:output message="tns:ListPersonResponse"></wsdl:output>
+        </wsdl:operation>
     </wsdl:portType>
     <wsdl:binding name="NewBinding" type="tns:NewPortType">
-    	<soap:binding style="document"
-    		transport="http://schemas.xmlsoap.org/soap/http" />
-    	<wsdl:operation name="ListPerson">
-    		<soap:operation
-    			soapAction="http://www.example.org/benchmark/ListPerson" />
-    		<wsdl:input>
-    			<soap:body use="literal" />
-    		</wsdl:input>
-    		<wsdl:output>
-    			<soap:body use="literal" />
-    		</wsdl:output>
-    	</wsdl:operation>
+        <soap:binding style="document"
+            transport="http://schemas.xmlsoap.org/soap/http" />
+        <wsdl:operation name="ListPerson">
+            <soap:operation
+                soapAction="http://www.example.org/benchmark/ListPerson" />
+            <wsdl:input>
+                <soap:body use="literal" />
+            </wsdl:input>
+            <wsdl:output>
+                <soap:body use="literal" />
+            </wsdl:output>
+        </wsdl:operation>
     </wsdl:binding>
     <wsdl:service name="TestService">
-		<wsdl:port name="TestPort" binding="tns:NewBinding">
-			<soap:address location="http://localhost:81/soap-wsdl-test/person.pl"></soap:address>
-		</wsdl:port>
-	</wsdl:service></wsdl:definitions>
+        <wsdl:port name="TestPort" binding="tns:NewBinding">
+            <soap:address
+                location="http://localhost:81/soap-wsdl-test/person.pl"></soap:address>
+        </wsdl:port>
+    </wsdl:service>
+</wsdl:definitions>

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

@@ -10,15 +10,14 @@ use Carp;
 use Scalar::Util qw(blessed);
 use SOAP::WSDL::Client;
 use SOAP::WSDL::Expat::WSDLParser;
-use Class::Std::Fast;
+use Class::Std::Fast constructor => 'none';
 use SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;
 use LWP::UserAgent;
 
-our $VERSION= '2.00_25';
+use version; our $VERSION = qv('3.003');
 
 my %no_dispatch_of      :ATTR(:name<no_dispatch>);
 my %wsdl_of             :ATTR(:name<wsdl>);
-my %proxy_of            :ATTR(:name<proxy>);
 my %autotype_of         :ATTR(:name<autotype>);
 my %outputxml_of        :ATTR(:name<outputxml> :default<0>);
 my %outputtree_of       :ATTR(:name<outputtree>);
@@ -42,7 +41,6 @@ my %LOOKUP = (
   no_dispatch           => \%no_dispatch_of,
   class_resolver        => \%class_resolver_of,
   wsdl                  => \%wsdl_of,
-  proxy                 => \%proxy_of,
   autotype              => \%autotype_of,
   outputxml             => \%outputxml_of,
   outputtree            => \%outputtree_of,
@@ -94,12 +92,30 @@ for my $method (keys %LOOKUP ) {
         }
 
         my $ident = ident $self;
-        $self->wsdlinit() if ($wsdl_of{ $ident });
         $client_of{ $ident } = SOAP::WSDL::Client->new();
+        $self->wsdlinit() if ($wsdl_of{ $ident });
         return $self;
     }
 }
 
+sub set_proxy {
+    my $self = shift;
+    return $self->get_client()->set_proxy(@_);
+}
+
+sub get_proxy {
+    my $self = shift;
+    return $self->get_client()->get_proxy();
+}
+
+sub proxy {
+    my $self = shift;
+    if (@_) {
+        return $self->set_proxy(@_);
+    }
+    return $self->get_proxy();
+}
+
 sub wsdlinit {
     my ($self, %opt) = @_;
     my $ident = ident $self;
@@ -109,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);
 
@@ -132,6 +149,15 @@ sub wsdlinit {
 
     $servicename_of{ $ident } = $opt{servicename} if $opt{servicename};
     $portname_of{ $ident } = $opt{portname} if $opt{portname};
+
+    $self->_wsdl_init_methods();
+
+    # pass-through keep_alive if we need it...
+    $self->get_client()->set_proxy(
+        $port_of{ $ident }->first_address()->get_location(),
+        $keep_alive_of{ $ident } ? (keep_alive => 1) : (),
+    );
+
     return $self;
 } ## end sub wsdlinit
 
@@ -139,8 +165,8 @@ sub _wsdl_get_service :PRIVATE {
     my $ident = ident shift;
     my $wsdl = $definitions_of{ $ident };
     return $service_of{ $ident } = $servicename_of{ $ident }
-        ? $wsdl->find_service( $wsdl->get_targetNamespace() , $servicename_of{ $ident } )
-        : $service_of{ $ident } = $wsdl->get_service()->[ 0 ];
+        ? $wsdl->find_service( $wsdl->get_targetNamespace() , $servicename_of{ $ident } ) 
+        : ( $service_of{ $ident } = $wsdl->get_service()->[ 0 ] );
 } ## end sub _wsdl_get_service
 
 sub _wsdl_get_port :PRIVATE  {
@@ -148,9 +174,10 @@ sub _wsdl_get_port :PRIVATE  {
     my $wsdl = $definitions_of{ $ident };
     my $ns   = $wsdl->get_targetNamespace();
     return $port_of{ $ident } = $portname_of{ $ident }
-        ? $service_of{ $ident }->get_port( $ns, $portname_of{ $ident } )
-        : $port_of{ $ident } = $service_of{ $ident }->get_port()->[ 0 ];
+        ? $service_of{ $ident }->get_port( $ns, $portname_of{ $ident } )->[ 0 ]
+        : ( $port_of{ $ident } = $service_of{ $ident }->get_port()->[ 0 ] );
 }
+
 sub _wsdl_get_binding :PRIVATE {
     my $self = shift;
     my $ident = ident $self;
@@ -160,6 +187,7 @@ sub _wsdl_get_binding :PRIVATE {
         or croak "no binding found for ", $port->get_binding();
     return $binding_of{ $ident };
 }
+
 sub _wsdl_get_portType :PRIVATE {
     my $self    = shift;
     my $ident   = ident $self;
@@ -169,6 +197,7 @@ sub _wsdl_get_portType :PRIVATE {
         or croak "cannot find portType for " . $binding->get_type();
     return $porttype_of{ $ident };
 }
+
 sub _wsdl_init_methods :PRIVATE {
     my $self = shift;
     my $ident = ident $self;
@@ -176,7 +205,7 @@ sub _wsdl_init_methods :PRIVATE {
     my $ns   = $wsdl->get_targetNamespace();
 
     # get bindings, portType, message, part(s) - use private methods for clear separation...
-    $self->_wsdl_get_service if not ($service_of{ $ident });
+    $self->_wsdl_get_service();
     $self->_wsdl_get_portType();
 
     $method_info_of{ $ident } = {};
@@ -187,9 +216,10 @@ sub _wsdl_init_methods :PRIVATE {
 
         # get SOAP Action
         # SOAP-Action is a required HTTP Header, so we need to look it up...
+        # There must be a soapAction uri - or the WSDL is invalid (and
+        # it's not us to prove that...)
         my $soap_binding_operation = $binding_operation->get_operation()->[0];
-        $method->{ soap_action } = $soap_binding_operation ?
-            $soap_binding_operation->get_soapAction() : $method;
+        $method->{ soap_action } = $soap_binding_operation->get_soapAction();
 
         # get parts
         # 1. get operation from port
@@ -204,7 +234,10 @@ sub _wsdl_init_methods :PRIVATE {
         my $message = $wsdl->find_message( $ns, $localname )
           or croak "Message {$ns}$localname not found in WSDL definition";
 
-        if (my $body=$binding_operation->first_input()->first_body()) {
+        # Is body not required? So there must be one? Do we need the "if"?
+        # if (
+        my $body=$binding_operation->first_input()->first_body();
+        # {
             if ($body->get_parts()) {
                 $method->{ parts } = [];        # make sure it's empty
                 my $message_part_ref = $message->get_part();
@@ -216,7 +249,9 @@ sub _wsdl_init_methods :PRIVATE {
                         grep { $_->get_name() eq $name } @{ $message_part_ref };
                 }
             }
-        }
+        # }
+        # A body does not need to specify the parts of a messages.
+        # Use all of the message's parts if it does not.
         $method->{ parts } ||= $message->get_part();
 
         # rpc / encoded methods may have a namespace specified.
@@ -234,6 +269,10 @@ sub _wsdl_init_methods :PRIVATE {
     return $method_info_of{ $ident };
 }
 
+# on_action is a no-op and just here for compatibility reasons.
+# It returns the first parameter to allow method chaining.
+sub on_action { return shift }
+
 sub call {
     my ($self, $method, @data_from) = @_;
     my $ident = ${ $self };
@@ -249,12 +288,6 @@ sub call {
 
     my $client = $client_of{ $ident };
 
-    # pass-through keep_alive if we need it...
-    $client->set_proxy( $proxy_of{ $ident }
-        || $port_of{ $ident }->first_address()->get_location(),
-        $keep_alive_of{ $ident } ? (keep_alive => 1) : (),
-    );
-
     $client->set_no_dispatch( $no_dispatch_of{ $ident } );
     $client->set_outputxml( $outputxml_of{ $ident } ? 1 : 0 );
 
@@ -267,7 +300,7 @@ sub call {
       && ( ! $no_dispatch_of{ $ident } ) ) {
         require SOAP::WSDL::Deserializer::SOM;
         $client->set_deserializer( SOAP::WSDL::Deserializer::SOM->new() );
-    };
+    }
 
     my $method_info = $method_info_of{ $ident }->{ $method };
 
@@ -316,7 +349,24 @@ __END__
 
 SOAP::WSDL - SOAP with WSDL support
 
-=head1 Overview
+=head1 NOTICE
+
+This module is B<not> recommended for new application development.
+Please use L<XML::Compile::SOAP> or L<SOAP::Lite> instead if possible.
+
+This module has a large number of known bugs and is not being actively developed.
+This 3.0 release is intended to update the module to pass tests on newer Perls.
+This is a service to existing applications already dependent on this module.
+
+=head1 SYNOPSIS
+
+ my $soap = SOAP::WSDL->new(
+    wsdl => 'file://bla.wsdl',
+ );
+
+ my $result = $soap->call('MyMethod', %data);
+
+=head1 DESCRIPTION
 
 For creating Perl classes instrumenting a web service with a WSDL definition,
 read L<SOAP::WSDL::Manual>.
@@ -324,15 +374,16 @@ read L<SOAP::WSDL::Manual>.
 For using an interpreting (thus slow and somewhat troublesome) WSDL based
 SOAP client, which mimics L<SOAP::Lite|SOAP::Lite>'s API, read on.
 
-=head1 SYNOPSIS
+Creating Interface classes is the recommended usage.
 
- my $soap = SOAP::WSDL->new(
-    wsdl => 'file://bla.wsdl',
- );
- 
- my $result = $soap->call('MyMethod', %data);
+Did I say you should create interface classes following the steps in
+L<SOAP::WSDL::Manual>?
 
-=head1 DESCRIPTION
+If you're migrating from earlier versions of SOAP::WSDL, you should read the
+MIGRATING documentation.
+
+The stuff below is for users of the 1.2x SOAP::WSDL series. All others,
+please refer to L<SOAP::WSDL::Manual>
 
 SOAP::WSDL provides easy access to Web Services with WSDL descriptions.
 
@@ -436,7 +487,7 @@ Class resolver
     'Person/Name' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
     'Person/FirstName' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
  );
- 
+
  sub get_class { return $typemap{ $_[1] } };
  1;
 
@@ -495,7 +546,7 @@ it's content.
 The object tree has two main functions: It knows how to serialize data passed
 as hash ref, and how to render the WSDL elements found into perl classes.
 
-Yup your're right, there's a builting code generation facility. Read
+Yup you're right; there's a builtin code generation facility. Read
 L<SOAP::WSDL::Manual> for using it.
 
 =item * no_dispatch
@@ -516,6 +567,34 @@ You may pass the servicename and portname as attributes to wsdlinit, though.
 
 =back
 
+=head1 Differences to previous versions
+
+The following functionality is no longer supported:
+
+=head2 Operation overloading
+
+The SOAP standard allows operation overloading - that is, you may specify
+SOAP operations with more than one message. The client/server than can
+choose which message to send. This SOAP feature is usually used similar
+to the use of methods with different argument lists in C++.
+
+Operation overloading is no longer supported. The WS-I Basic profile does
+not operation overloading. The same functionality as operation overloading
+can be obtained by using a choice declaration in the XML Schema.
+
+=head2 readable
+
+Readable has no effect any more. If you need readable debug output, copy the
+SOAP message to your favorite XML editor and run the source format command.
+Outputting readable XML requires lots of programming for little use: The
+resulting XMl is still quite unreadable.
+
+=head2 on_action
+
+Setting on_action is not required any more, the appropriate value is
+automatically taken from the WSDL. on_action is a no-op, and is just here
+for compatibility issues.
+
 =head1 Differences to SOAP::Lite
 
 =head2 readable
@@ -556,7 +635,7 @@ See L<class_resolver|class_resolver> above.
 
 =item * Hash refs
 
-This is for convnience: A single hash ref containing the content of the
+This is for convenience: A single hash ref containing the content of the
 SOAP body.
 
 =item * xml
@@ -596,8 +675,35 @@ details.
 
 =head1 BUGS AND LIMITATIONS
 
+The bug tracker is at L<< https://rt.cpan.org/Dist/Display.html?Queue=SOAP-WSDL >>.
+
+This module is in legacy maintenance mode.
+Only show stopper bugs are being fixed, until/unless someone wishes to resume active development on it.
+Scott Walters, C<scott@slowass.net> has obtained co-mainter from the CPAN admins for the purpose of applying existing fixes people have submit to 
+the RT tracker, and to apply other fixes as needed to get the module to install and run on newer Perls.
+Non show-stopper bugs reports without fixes will be added to this list of limitations.
+Of course, fixes for these and other bugs are welcome.
+Scott does not get email from L<< rt.cpan.org >>, so please drop an email to him at C<< scott@slowass.net >> if you open a ticket there.
+
 =over
 
+=item * Breaks the idiom C<< $package->can("SUPER::method") >> in your code
+
+If you redefine C<< UNIVERSAL::can() >>, and someone tries to do C<< $package->can("SUPER::method") >>, it'll look at your packages C<@ISA>, not theirs.
+This module does precicely that, by way of its dependency on C<Class::Std::Fast>.
+
+=item * $obj == undef does not work in perl 5.8.6 and perl 5.8.7
+
+Due to some strange behaviour in perl 5.8.6 and perl 5.8.7, stringification
+overloading is not triggered during comparison with undef.
+
+While this is probably harmless in most cases, it's important to know that
+you need to do
+
+ defined( $obj->get_value() )
+
+to check for undef values in simpleType objects.
+
 =item * perl 5.8.0 or higher required
 
 SOAP::WSDL needs perl 5.8.0 or higher. This is due to a bug in perls
@@ -605,30 +711,30 @@ before - see http://aspn.activestate.com/ASPN/Mail/Message/perl5-porters/929746
 
 =item * Apache SOAP datatypes are not supported
 
-You currently can't use SOAP::WSDL with Apache SOAP datatypes like map.
-
-If you want this changed, email me a copy of the specs, please.
+You can't use SOAP::WSDL with Apache SOAP datatypes like map.
 
 =item * Incomplete XML Schema definitions support
 
-XML Schema attribute definitions are not supported yet.
+This section describes the limitations of SOAP::WSDL, that is the interpreting
+SOAP client. For limitations of L<wsdl2perl.pl|wsdl2perl.pl> generated
+SOAP clients, see L<SOAP::WSDL::Manual::XSD>.
 
-Importing external definitions is not supported yet.
+XML Schema attribute definitions are not supported in interpreting mode.
 
-The following XML Schema definitions varieties are not supported:
+The following XML Schema definitions varieties are not supported in
+interpreting mod:
 
  group
- union
  simpleContent
 
 The following XML Schema definition content model is only partially
-supported:
+supported in interpreting mode:
 
  complexContent - only restriction variety supported
 
 See L<SOAP::WSDL::Manual::XSD> for details.
 
-=item * Serialization of hash refs dos not work for ambiguos values
+=item * Serialization of hash refs does not work for ambiguous values
 
 If you have list elements with multiple occurences allowed, SOAP::WSDL
 has no means of finding out which variant you meant.
@@ -638,17 +744,17 @@ Passing in item => [1,2,3] could serialize to
  <item>1 2</item><item>3</item>
  <item>1</item><item>2 3</item>
 
-Ambiguos data can be avoided by providing data as objects.
+Ambiguous data can be avoided by providing data as objects.
 
 =item * XML Schema facets
 
-Almost no XML schema facets are implemented yet. The only facets
+Almost no XML schema facets are implemented. The only facets
 currently implemented are:
 
  fixed
  default
 
-The following facets have no influence yet:
+The following facets have no influence:
 
  minLength
  maxLength
@@ -669,16 +775,16 @@ The following facets have no influence yet:
 
 =item * L<SOAP::Lite|SOAP::Lite>
 
-Full featured SOAP-library, little WSDL support. Supports rpc-encoded style only. Many protocols supported.
+Full featured SOAP-library, little WSDL support. Supports rpc-encoded style
+only. Many protocols supported.
 
-=item * L<XML::Compile::WSDL|XML::Compile::WSDL> / L<XML::Compile::SOAP|XML::Compile::SOAP>
+=item * L<XML::Compile::SOAP|XML::Compile::SOAP>
 
-A promising-looking approach derived from a cool functional DOM-based XML schema parser.
+Creates parser/generator functions for SOAP messages. Includes SOAP Client
+and Server implementations. Can validate XML messages.
 
-Will support encoding/decoding of SOAP messages based on WSDL definitions.
-
-Not yet finished at the time of writing - but you may wish to give it a try, especially
-if you need to adhere very closely to the XML Schema / WSDL specs.
+You might want to give it a try, especially if you need to adhere very
+closely to the XML Schema / WSDL specs.
 
 =back
 
@@ -698,6 +804,12 @@ L<http://www.cpanforum.com/dist/SOAP-WSDL>
 
 =head1 ACKNOWLEDGMENTS
 
+Scott Walters wrote:
+
+This code incorporates fixes contributed by C<< NORDIC@cpan.org >>, C<< dam@cpan.org >>, C<< sven.schober@uni-ulm.de >>, myself, and others.
+
+Martin Kutter wrote:
+
 There are many people out there who fostered SOAP::WSDL's developement.
 I would like to thank them all (and apologize to all those I have forgotten).
 
@@ -706,34 +818,47 @@ became v1.23)
 
 David Bussenschutt, Damian A. Martinez Gelabert, Dennis S. Hennen, Dan Horne,
 Peter Orvos, Mark Overmeer, Jon Robens, Isidro Vila Verde and Glenn Wood
-spotted bugs and/or suggested improvements in the 1.2x releases.
+(in alphabetical order) spotted bugs and/or suggested improvements in
+the 1.2x releases.
+
+JT Justman and Noah Robin provided early feedback and bug reports for
+the 2.xx pre-releases.
+
+Adam Kennedy checked and suggested improvements on metadata and dependencies
+in the 2.xx pre-releases.
 
 Andreas 'ac0v' Specht constantly asked for better performance.
 
-JT Justman provided early feedback for the 2.xx pre-releases.
+Matt S. Trout encouraged me "to get a non-dev-release out."
 
-Numerous people sent me their real-world WSDL files for testing. Thank you.
+CPAN Testers provided most valuable (automated) feedback. Thanks a lot.
+
+Numerous people sent me their real-world WSDL files and error reports for
+testing. Thank you.
+
+Noah Robin contributed lots of documentation fixes, and the mod_perl server,
+and eventually joined SOAP::WSDL's developement. Thanks.
+
+Mark Overmeer wrote XML::Compile::SOAP - competition is good for business.
 
 Paul Kulchenko and Byrne Reese wrote and maintained SOAP::Lite and
 thus provided a base (and counterpart) for SOAP::WSDL.
 
 =head1 LICENSE AND COPYRIGHT
 
-Copyright 2004-2007 Martin Kutter.
+Copyright 2004-2008 Martin Kutter.
 
 This file is part of SOAP-WSDL. You may distribute/modify it under
 the same terms as perl itself
 
 =head1 AUTHOR
 
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
+Scott Walters E<lt>scott@slowass.net<gt> 2014
+
+Martin Kutter E<lt>martin.kutter fen-net.deE<gt> 2004-2008
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 427 $
- $LastChangedBy: kutterma $
- $Id: WSDL.pm 427 2007-12-02 22:20:24Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL.pm $
+    https://github.com/scrottie/SOAP-WSDL
 
 =cut
-

lib/SOAP/WSDL/Base.pm

@@ -1,38 +1,64 @@
 package SOAP::WSDL::Base;
-use strict;
-use warnings;
+use strict; use warnings;
 use Class::Std::Fast::Storable;
-use List::Util qw(first);
+use List::Util;
+use Scalar::Util;
 use Carp qw(croak carp confess);
 
-our $VERSION='2.00_25';
+our $VERSION = $SOAP::WSDL::VERSION;
 
-my %id_of :ATTR(:name<id> :default<()>);
-my %name_of :ATTR(:name<name> :default<()>);
-my %documentation_of :ATTR(:name<documentation> :default<()>);
-my %targetNamespace_of :ATTR(:name<targetNamespace> :default<()>);
-my %xmlns_of :ATTR(:name<xmlns> :default<{}>);
-my %parent_of :ATTR(:name<parent> :default<()>);
+my %id_of               :ATTR(:name<id> :default<()>);
+my %lang_of             :ATTR(:name<lang> :default<()>);
+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 %xmlns_of            :ATTR(:name<xmlns> :default<{}>);
+my %parent_of           :ATTR(:get<parent> :default<()>);
 
-sub DEMOLISH {
-  my $self = shift;
-  # delete upward references
-  delete $parent_of{ ident $self };
-  return;
+my %namespaces_of       :ATTR(:default<{}>);
+
+sub namespaces {
+    return shift->get_xmlns();
 }
 
-sub STORABLE_freeze_pre :CUMULATIVE {};
-sub STORABLE_freeze_post :CUMULATIVE {};
-sub STORABLE_thaw_pre :CUMULATIVE {};
-sub STORABLE_thaw_post :CUMULATIVE { return $_[0] };
+sub BUILD {
+    my ($self, $ident, $arg_ref) = @_;
+    if (defined $arg_ref->{ parent }) {
+        $parent_of{ $ident } = delete $arg_ref->{ parent },
+        Scalar::Util::weaken($parent_of{ $ident });
+    }
+}
 
+sub START {
+    my ($self, $ident, $arg_ref) = @_;
+    $xmlns_of{ $ident }->{ 'xml' } = 'http://www.w3.org/XML/1998/namespace';
+    $namespaces_of{ $ident }->{ '#default' } = $self->get_xmlns()->{ '#default' };
+    $namespaces_of{ $ident }->{ 'xml' } = 'http://www.w3.org/XML/1998/namespace';
+}
+
+#
+# set_parent is hand-implemented to break up (weaken) the circular reference
+# between an object and it's parent
+#
+sub set_parent {
+    $parent_of{ ${ $_[0]} } = $_[1];
+    Scalar::Util::weaken($parent_of{ ${ $_[0]} });
+}
+
+# _accept is here to be called by visitor.
+# The visitor pattern is a level of indirection - here the visitor calls
+# $object->_accept($visitor) on each object, which in turn calls
+# $visitor->visit_$class( $object ) where $class is the object's class.
+#
 sub _accept {
     my $self = shift;
     my $class = ref $self;
     $class =~ s{ \A SOAP::WSDL:: }{}xms;
     $class =~ s{ (:? :: ) }{_}gxms;
     my $method = "visit_$class";
-    no strict qw(refs); ## no critic ProhibitNoStrict
+    no strict qw(refs);
     return shift->$method( $self );
 }
 
@@ -47,13 +73,12 @@ sub AUTOMETHOD {
     if ($subname =~s{^push_}{}xms) {
         my $getter = "get_$subname";
         my $setter = "set_$subname";
-        ## Checking here is paranoid - will fail fatally if
-        ## there is no setter...
-        ## And we would have to check getters, too.
-        ## Maybe do it the Conway way via the Symbol table...
-        ## ... can is way slow...
+        # Checking here is paranoid - will fail fatally if there is no setter.
+        # And we would have to check getters, too.
+        # Maybe do it the Conway way via the Symbol table...
+        # ... can is way slow...
         return sub {
-            no strict qw(refs);                 ## no critic ProhibitNoStrict
+            no strict qw(refs);
             my $old_value = $self->$getter();
             # Listify if not a list ref
             $old_value = $old_value ? [ $old_value ] : [] if not ref $old_value;
@@ -67,7 +92,7 @@ sub AUTOMETHOD {
     elsif ($subname =~s {^find_}{get_}xms) {
         @values = @{ $values[0] } if ref $values[0] eq 'ARRAY';
         return sub {
-            return first {
+            return List::Util::first {
                 $_->get_targetNamespace() eq $values[0] &&
                 $_->get_name() eq $values[1]
             }
@@ -82,22 +107,27 @@ sub AUTOMETHOD {
             return $result_ref->[0];
         };
     }
-    confess "$subname not found in class " . (ref $self || $self) ;
+
+    return;
 }
 
 sub init {
     my ($self, @args) = @_;
-    foreach my $value (@args)
-    {
+    foreach my $value (@args) {
         croak @args if (not defined ($value->{ Name }));
+
         if ($value->{ Name } =~m{^xmlns\:}xms) {
             # add namespaces
             $xmlns_of{ ident $self }->{ $value->{ LocalName } } = $value->{ Value };
             next;
         }
-        elsif ($value->{ Name } =~m{^xmlns$}xms) {
-            # just ignore xmlns = for now
-            # TODO handle xmlns correctly - maybe via setting a prefix ?
+
+        # check for namespae-qualified attributes.
+        # neither XML Schema, nor WSDL1.1, nor the SOAP binding allow
+        # namespace-qualified attribute names
+        my ($ns, $localname) = split /\|/, $value->{ Name };
+        if ($ns) {
+            warn "found unrecognised attribute \{$ns}$localname (ignored)";
             next;
         }
 
@@ -109,21 +139,41 @@ sub init {
 }
 
 sub expand {
-    my ($self, , $qname) = @_;
-    my ($prefix, $localname) = split /:/x, $qname;
-    # my %ns_map = reverse %{ $self->get_xmlns() };
-    my %ns_map = %{ $self->get_xmlns() };
-    return ($ns_map{ $prefix }, $localname) if ($ns_map{ $prefix });
+    my ($self, $qname) = @_;
+    my $ns_of = $self->namespaces();
+    my $parent;
+    if (not $qname=~m{:}xm) {
+        if (defined $ns_of->{ '#default' }) {
+            # TODO check. Returning the targetNamespace for the default ns
+            # is probably wrong
+            #return $self->get_targetNamespace(), $qname;
+            return $ns_of->{ '#default' }, $qname;
+        }
+        if ($parent = $self->get_parent()) {
+            return $parent->expand($qname);
+        }
+        die "un-prefixed element name <$qname> found, but no default namespace set\n"
+    }
 
-    if (my $parent = $self->get_parent()) {
+    my ($prefix, $localname) = split /:/x, $qname;
+
+    return ($ns_of->{ $prefix }, $localname) if ($ns_of->{ $prefix });
+    if ($parent = $self->get_parent()) {
         return $parent->expand($qname);
     }
-    confess "unbound prefix $prefix found for $prefix:$localname. Bound prefixes are"
-        . join(', ', keys %ns_map);
+    croak "unbound prefix $prefix found for $prefix:$localname. Bound prefixes are "
+        . join(', ', keys %{ $ns_of });
 }
 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

@@ -2,9 +2,11 @@ package SOAP::WSDL::Binding;
 use strict;
 use warnings;
 use Class::Std::Fast::Storable;
-use List::Util qw(first);
+
 use base qw(SOAP::WSDL::Base);
 
+our $VERSION = $SOAP::WSDL::VERSION;
+
 my %operation_of    :ATTR(:name<operation> :default<()>);
 my %type_of         :ATTR(:name<type> :default<()>);
 my %transport_of    :ATTR(:name<transport> :default<()>);

lib/SOAP/WSDL/Client.pm

@@ -11,20 +11,23 @@ use SOAP::WSDL::Factory::Serializer;
 use SOAP::WSDL::Factory::Transport;
 use SOAP::WSDL::Expat::MessageParser;
 
-our $VERSION = '2.00_25';
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %class_resolver_of   :ATTR(:name<class_resolver> :default<()>);
 my %no_dispatch_of      :ATTR(:name<no_dispatch>    :default<()>);
+my %prefix_of           :ATTR(:name<prefix>         :default<()>);
 my %outputxml_of        :ATTR(:name<outputxml>      :default<()>);
 my %transport_of        :ATTR(:name<transport>      :default<()>);
 my %endpoint_of         :ATTR(:name<endpoint>       :default<()>);
 
-my %soap_version_of     :ATTR(:get<soap_version>    :init_attr<soap_version> :default<'1.1'>);
+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) = @_;
@@ -61,7 +64,7 @@ sub set_proxy {
 }
 
 sub set_soap_version {
-    my $ident = ident shift;
+    my $ident = ${ $_[0] };
 
     # remember old value to return it later - Class::Std does so, too
     my $soap_version = $soap_version_of{ $ident };
@@ -71,14 +74,14 @@ sub set_soap_version {
     delete $serializer_of{ $ident };
     delete $deserializer_of{ $ident };
 
-    $soap_version_of{ $ident } = shift;
+    $soap_version_of{ $ident } = $_[1];
 
     return $soap_version;
 }
 
 # Mimic SOAP::Lite's behaviour for getter/setter routines
 SUBFACTORY: {
-    for (qw(class_resolver no_dispatch outputxml proxy)) {
+    for (qw(class_resolver no_dispatch outputxml proxy prefix)) {
         my $setter = "set_$_";
         my $getter = "get_$_";
         no strict qw(refs);     ## no critic ProhibitNoStrict
@@ -94,7 +97,7 @@ SUBFACTORY: {
 
 sub call {
     my ($self, $method, @data_from) = @_;
-    my $ident = ident $self;
+    my $ident = ${ $self };
 
     # the only valid idiom for calling a method with both a header and a body
     # is
@@ -124,6 +127,7 @@ sub call {
         method => $operation,
         body => $data,
         header => $header,
+        options => {prefix => $prefix_of{ $ident }},
     });
 
     return $envelope if $self->no_dispatch();
@@ -145,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.
@@ -153,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
@@ -164,20 +171,29 @@ sub call {
     # Try deserializing response - there may be some,
     # even if transport did not succeed (got a 500 response)
     if ( $response ) {
-        my ($result_body, $result_header) = eval {
-            $deserializer_of{ $ident }->deserialize( $response );
+        # as our faults are false, returning a success marker is the only
+        # reliable way of determining whether the deserializer succeeded.
+        # Custom deserializers may return an empty list, or undef,
+        # and $@ is not guaranteed to be undefined.
+        my ($success, $result_body, $result_header) = eval {
+            (1, $deserializer_of{ $ident }->deserialize( $response ));
         };
-        if (not $@) {
+        if (defined $success) {
             return wantarray
                 ? ($result_body, $result_header)
                 : $result_body;
         }
-        return $deserializer_of{ $ident }->generate_fault({
-            code => 'soap:Server',
-            role => 'urn:localhost',
-            message => "Error deserializing message: $@. \n"
-                . "Message was: \n$response"
-        });
+        elsif (blessed $@) { #}&& $@->isa('SOAP::WSDL::SOAP::Typelib::Fault11')) {
+            return $@;
+        }
+        else {
+            return $deserializer_of{ $ident }->generate_fault({
+                code => 'soap:Server',
+                role => 'urn:localhost',
+                message => "Error deserializing message: $@. \n"
+                    . "Message was: \n$response"
+            });
+        }
     };
 
     # if we had no success (Transport layer error status code)
@@ -259,30 +275,52 @@ You probably should not use a character encoding different from utf8:
 SOAP::WSDL::Client will not convert the request into a different encoding
 (yet).
 
-To leave out the encoding, just set the content type without appendet charset
-like in
+To leave out the encoding, just set the content type without appending charset
+like this:
 
- text/xml
+  $soap->set_content_type('text/xml');
 
 Default:
 
  text/xml; charset: utf8
 
-=head3 set_trace
+=head3 set_prefix
 
- $soap->set_trace(1);
- $soap->set_trace( sub { Log::Log4perl::get_logger()->debug( @_ ) } );
+ $soap->set_prefix('ns2');
 
-When set to a true value, tracing (via warn) is enabled.
+If set, alters the serialization of the request XML such that the supplied value is used as a namespace prefix for SOAP method calls. By way of example, the default XML serialization returns something like this:
 
-When set to a code reference, this function will be called on every
-trace call, making it really easy for you to set up log4perl logging
-or whatever you need.
+    <?xml version="1.0"?>
+    <SOAP-ENV:Envelope
+        xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+        xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/">
+      <SOAP-ENV:Body>
+        <getElementId xmlns="http://services.exmaple.org/">
+          <elementId>12345</elementId>
+        </getElementId>
+      </SOAP-ENV:Body>
+    </SOAP-ENV:Envelope>
+
+If the sample set_prefix() call above is used prior to calling your SOAP method, the XML serialization returns this instead:
+
+    <?xml version="1.0"?>
+    <SOAP-ENV:Envelope
+        xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+        xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"
+        xmlns:ns2="http://services.example.org/">
+      <SOAP-ENV:Body>
+        <ns2:getElementId>
+          <elementId>12345</elementId>
+        </ns2:getElementId>
+      </SOAP-ENV:Body>
+    </SOAP-ENV:Envelope>
+
+This is useful in cases where, for instance, one is communicating with a JAX L<https://jax-ws.dev.java.net/> webservice, which tends to understand the latter but not the former. Note that this implementation is currently limited to a single additional namespace; if you require multiple custom namespaces, you should probably look into creating your own serializer.
 
 =head2 Features different from SOAP::Lite
 
 SOAP::WSDL does not aim to be a complete replacement for SOAP::Lite - the
-SOAP::Lite module has it's strengths and weaknesses and SOAP::WSDL is
+SOAP::Lite module has its strengths and weaknesses and SOAP::WSDL is
 designed as a cure for the weakness of little WSDL support - nothing more,
 nothing less.
 
@@ -294,7 +332,7 @@ A few things are quite different from SOAP::Lite, though:
 
 =head3 SOAP request data
 
-SOAP request data may either be given as message object, or as hash ref (in
+SOAP request data may either be given as message object, or as a hash ref (in
 which case it will automatically be encoded into a message object).
 
 =head3 Return values
@@ -314,7 +352,7 @@ The fault object is a SOAP1.1 fault object of the following
 C<SOAP::WSDL::SOAP::Typelib::Fault11>.
 
 SOAP::WSDL::SOAP::Typelib::Fault11 objects are false in boolean context, so
-you can just do something like
+you can just do something like:
 
  my $result = $soap->call($method, $data);
 
@@ -332,7 +370,7 @@ to true. SOAP::WSDL::Client returns the complete XML response.
 
 =head3 Auto-Dispatching
 
-SOAP::WSDL::Client does B<does not> support auto-dispatching.
+SOAP::WSDL::Client B<does not> support auto-dispatching.
 
 This is on purpose: You may easily create interface classes by using
 SOAP::WSDL::Client and implementing something like
@@ -371,10 +409,10 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 427 $
+ $Rev: 851 $
  $LastChangedBy: kutterma $
- $Id: Client.pm 427 2007-12-02 22:20:24Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client.pm $
+ $Id: Client.pm 851 2009-05-15 22:45:18Z kutterma $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client.pm $
 
 =cut
 

lib/SOAP/WSDL/Client/Base.pm

@@ -4,61 +4,45 @@ use warnings;
 use base 'SOAP::WSDL::Client';
 use Scalar::Util qw(blessed);
 
-our $VERSION = '2.00_25';
+our $VERSION = $SOAP::WSDL::VERSION;
 
 sub call {
     my ($self, $method, $body, $header) = @_;
+
+    # Treat non-objects special
     if (not blessed $body) {
+
+        # make sure there's something sensible in our body data
         $body = {} if not defined $body;
-        my $class = $method->{ body }->{ parts }->[0];
-        eval "require $class" || die $@;
-        $body = $class->new($body);
+        $body = ref $body eq 'ARRAY' ? $body : [ $body ];
+
+        my @body_from = @{ $body }; # make a copy
+
+        # build list of parts as objects initialized with
+        # parameters given
+        my @part_from = ();
+        foreach my $class (@{ $method->{ body }->{ parts } }) {
+            eval "require $class" || die $@;    ## no critic (ProhibitStringyEval)
+            push @part_from, $class->new(shift(@body_from) || {});
+        }
+
+        # it's either the first part or a list ref with all parts...
+        $body = $#part_from ? \@part_from : $part_from[0];
     }
 
     # if we have a header
     if (%{ $method->{ header } }) {
+
+        # treat non object special - as above, but only for one
         if (not blessed $header) {
             my $class = $method->{ header }->{ parts }->[0];
-            eval "require $class" || die $@;
+            eval "require $class" || die $@;    ## no critic (ProhibitStringyEval)
             $header = $class->new($header);
         }
     }
     return $self->SUPER::call($method, $body, $header);
 }
 
-#sub __create_methods {
-#    my ($package, %info_of) = @_;
-#
-#    no strict qw(refs);
-#    no warnings qw(redefine);
-#    for my $method (keys %info_of){
-#    my ($soap_action, @parts);
-#
-#    # up to 2.00_10 we had list refs...
-#    if (ref $info_of{ $method }eq 'HASH') {
-#        @parts = @{ $info_of{ $method }->{ parts } };
-#        $soap_action = $info_of{ $method }->{ soap_action };
-#    }
-#    else {
-#        die "Pre-v2.00_10 Interfaces are no longer supported. Please re-generate your interface.";
-#    }
-#
-#    *{ "$package\::$method" } = sub {
-#        my $self = shift;
-#        my @param = map {
-#            my $data = shift || {};
-#            eval "require $_";
-#            $_->new( $data );
-#        } @parts;
-#
-#        return $self->SUPER::call( {
-#            operation => $method,
-#            soap_action => $soap_action,
-#        }, @param );
-#      }
-#  }
-#}
-
 1;
 
 __END__
@@ -81,6 +65,13 @@ SOAP::WSDL::Client::Base - Factory class for WSDL-based SOAP access
 Factory class for creating interface classes. Should probably be renamed to
 SOAP::WSDL::Factory::Interface...
 
+=head1 METHODS
+
+=head2 call
+
+Abstraction layer method between the generated interfaces and
+L<SOAP::WSDL::Client|SOAP::WSDL::Client>.
+
 =head1 LICENSE AND COPYRIGHT
 
 Copyright 2004-2007 Martin Kutter.
@@ -94,9 +85,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 427 $
+ $Rev: 851 $
  $LastChangedBy: kutterma $
- $Id: Base.pm 427 2007-12-02 22:20:24Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client/Base.pm $
+ $Id: Base.pm 851 2009-05-15 22:45:18Z kutterma $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client/Base.pm $
 
 =cut

lib/SOAP/WSDL/Definitions.pm

@@ -1,30 +1,26 @@
 package SOAP::WSDL::Definitions;
-use utf8;
 use strict;
 use warnings;
-use Carp;
-use File::Basename;
-use File::Path;
 use List::Util qw(first);
 use Class::Std::Fast::Storable;
 use base qw(SOAP::WSDL::Base);
 
-our $VERSION='2.00_25';
+our $VERSION = $SOAP::WSDL::VERSION;
 
-my %types_of    :ATTR(:name<types>      :default<[]>);
-my %message_of  :ATTR(:name<message>    :default<()>);
-my %portType_of :ATTR(:name<portType>   :default<()>);
-my %binding_of  :ATTR(:name<binding>    :default<()>);
-my %service_of  :ATTR(:name<service>    :default<()>);
-my %namespace_of  :ATTR(:name<namespace> :default<()>);
+my %types_of        :ATTR(:name<types>      :default<[]>);
+my %message_of      :ATTR(:name<message>    :default<[]>);
+my %portType_of     :ATTR(:name<portType>   :default<[]>);
+my %binding_of      :ATTR(:name<binding>    :default<[]>);
+my %service_of      :ATTR(:name<service>    :default<[]>);
+my %namespace_of    :ATTR(:name<namespace>  :default<()>);
 
 # must be attr for Class::Std::Fast::Storable
-my %attributes_of :ATTR();
-%attributes_of = (
-    binding => \%binding_of,
-    message => \%message_of,
-    portType => \%portType_of,
-    service => \%service_of,
+#my %attributes_of :ATTR();
+my %attributes_of = (
+    binding     => \%binding_of,
+    message     => \%message_of,
+    portType    => \%portType_of,
+    service     => \%service_of,
 );
 
 # Function factory - we could be writing this method for all %attribute
@@ -44,6 +40,7 @@ BLOCK: {
   }
 }
 
+
 1;
 
 =pod
@@ -72,7 +69,7 @@ Returns the service matching the namespace/localname pair passed as arguments.
 Accessors/Mutators for accessing / setting the E<gt>bindingE<lt> child
 element(s).
 
-=head2 find_service
+=head2 find_binding
 
 Returns the binding matching the namespace/localname pair passed as arguments.
 
@@ -94,7 +91,7 @@ Returns the portType matching the namespace/localname pair passed as arguments.
 Accessors/Mutators for accessing / setting the E<gt>messageE<lt> child
 element(s).
 
-=head2 find_service
+=head2 find_message
 
 Returns the message matching the namespace/localname pair passed as arguments.
 
@@ -105,7 +102,7 @@ Returns the message matching the namespace/localname pair passed as arguments.
 Accessors/Mutators for accessing / setting the E<gt>typesE<lt> child
 element(s).
 
-=head1 LICENSE and COPYRIGHT
+=head1 LICENSE AND COPYRIGHT
 
 Copyright 2004-2007 Martin Kutter.
 
@@ -118,10 +115,10 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 431 $
+ $Rev: 851 $
  $LastChangedBy: kutterma $
- $Id: Definitions.pm 431 2007-12-03 19:39:11Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Definitions.pm $
+ $Id: Definitions.pm 851 2009-05-15 22:45:18Z kutterma $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Definitions.pm $
 
 =cut
 

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__ );
 
-our $VERSION='2.00_25';
+our $VERSION = $SOAP::WSDL::VERSION;
 
 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"
     });
@@ -54,7 +54,7 @@ SOAP::WSDL::Deserializer::Hash - Deserializer SOAP messages into perl hash refs
 
  use SOAP::WSDL;
  use SOAP::WSDL::Deserializer::Hash;
- 
+
 =head1 DESCRIPTION
 
 Deserializer for creating perl hash refs as result of a SOAP call.
@@ -139,9 +139,20 @@ a parse error appears
 
 =back
 
+=head1 METHODS
+
+=head2 deserialize
+
+Deserializes the message.
+
+=head2 generate_fault
+
+Generates a L<SOAP::WSDL::SOAP::Typelib::Fault11|SOAP::WSDL::SOAP::Typelib::Fault11>
+object and returns it.
+
 =head1 LICENSE AND COPYRIGHT
 
-Copyright 2004-2007 Martin Kutter.
+Copyright 2004-2008 Martin Kutter.
 
 This file is part of SOAP-WSDL. You may distribute/modify it under
 the same terms as perl itself.
@@ -152,9 +163,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 427 $
+ $Rev: 851 $
  $LastChangedBy: kutterma $
- $Id: Hash.pm 427 2007-12-02 22:20:24Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/Hash.pm $
+ $Id: Hash.pm 851 2009-05-15 22:45:18Z kutterma $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/Hash.pm $
 
 =cut

lib/SOAP/WSDL/Deserializer/SOM.pm

@@ -2,7 +2,7 @@ package SOAP::WSDL::Deserializer::SOM;
 use strict;
 use warnings;
 
-our $VERSION = '2.00_24';
+our $VERSION = $SOAP::WSDL::VERSION;
 our @ISA;
 
 eval {
@@ -13,6 +13,18 @@ or die "Cannot load SOAP::Lite.
 Cannot deserialize to SOM object without SOAP::Lite.
 Please install SOAP::Lite.";
 
+sub deserialize {
+    my $self = shift;
+    my $result = eval { $self->SUPER::deserialize(@_) };
+    if ($@) {
+        return SOAP::Fault->new(
+            faultactor => 'SOAP-ENV:Server',
+            faultstring => $@,
+        );
+    }
+    return $result;
+}
+
 sub generate_fault {
     my ($self, $args_from_ref) = @_;
     # code, message, detail, actor
@@ -37,7 +49,7 @@ SOAP::WSDL::Deserializer::SOM - Deserializer SOAP messages into SOM objects
  use SOAP::WSDL::Deserializer::SOM;
  use SOAP::WSDL::Factory::Deserializer;
  SOAP::WSDL::Factory::Deserializer->register( '1.1', __PACKAGE__ );
- 
+
 =head1 DESCRIPTION
 
 Deserializer for creating SOAP::Lite's SOM object as result of a SOAP call.
@@ -66,13 +78,24 @@ This may be XML including mixed content, attachements and other XML data not
 SOAP::WSDL::Deserializer::SOM is a subclass of L<SOAP::Deserializer|SOAP::Deserializer>
 from the L<SOAP::Lite|SOAP::Lite> package.
 
+=head1 METHODS
+
+=head2 deserialize
+
+Deserializes a XML sting into a SOAP::SOM object. Returns a SOAP::Fault object
+on deserialization errors.
+
+=head2 generate_fault
+
+Dies with a SOAP::Fault object.
+
 =head1 USAGE
 
-SOAP::WSDL::Deserializer will not auroregister itself - to use it for a particular
+SOAP::WSDL::Deserializer will not autoregister itself - to use it for a particular
 SOAP version just use the following lines:
 
  my $soap_version = '1.1'; # or '1.2', further versions may appear.
- 
+
  use SOAP::WSDL::Deserializer::SOM;
  use SOAP::WSDL::Factory::Deserializer;
  SOAP::WSDL::Factory::Deserializer->register( $soap_version, __PACKAGE__ );
@@ -85,8 +108,8 @@ SOAP version just use the following lines:
 
 =item * No on_fault handler
 
-You cannot specify what to do when an error occurs - SOAP::WSDL will die
-with a SOAP::Fault object on transport errors.
+You cannot specify what to do when an error occurs - SOAP::WSDL will return
+a SOAP::Fault object on transport errors.
 
 =back
 
@@ -99,6 +122,9 @@ with a SOAP::Fault object on transport errors.
 SOAP::WSDL::Deserializer::SOM will die with a SOAP::Fault object on calls
 to generate_fault.
 
+This also means that a SOAP::Fault may be thrown as exception when using
+
+
 =back
 
 =head1 LICENSE AND COPYRIGHT
@@ -114,9 +140,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 391 $
+ $Rev: 851 $
  $LastChangedBy: kutterma $
- $Id: SOM.pm 391 2007-11-17 21:56:13Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/SOM.pm $
+ $Id: SOM.pm 851 2009-05-15 22:45:18Z kutterma $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/SOM.pm $
 
 =cut

lib/SOAP/WSDL/Deserializer/XSD.pm

@@ -5,30 +5,41 @@ use Class::Std::Fast::Storable;
 use SOAP::WSDL::SOAP::Typelib::Fault11;
 use SOAP::WSDL::Expat::MessageParser;
 
-our $VERSION='2.00_25';
+our $VERSION = $SOAP::WSDL::VERSION;
 
-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 } }->class_resolver( $class_resolver_of{ ident $self } );
+    $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 } } );
+    $content =~ s{^<\?xml version="1.0" *\?>}{};  # XML::Parser::Expat apparently doesn't like this.
     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"
@@ -40,7 +51,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"
     });
@@ -71,9 +82,23 @@ Usually you don't need to do anything to use this package - it's the default
 deserializer for SOAP::WSDL::Client and interface classes generated by
 SOAP::WSDL.
 
-Is you want to use the XSD serializer from SOAP::WSDL, set the outputtree()
+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
@@ -85,6 +110,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.
@@ -98,9 +127,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 427 $
+ $Rev: 851 $
  $LastChangedBy: kutterma $
- $Id: XSD.pm 427 2007-12-02 22:20:24Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/XSD.pm $
+ $Id: XSD.pm 851 2009-05-15 22:45:18Z kutterma $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/XSD.pm $
 
 =cut

lib/SOAP/WSDL/Expat/Base.pm

@@ -1,23 +1,86 @@
 package SOAP::WSDL::Expat::Base;
 use strict;
 use warnings;
+use URI;
 use XML::Parser::Expat;
 
-our $VERSION = '2.00_24';
+# TODO: convert to Class::Std::Fast based class - hash based classes suck.
+
+our $VERSION = $SOAP::WSDL::VERSION;
 
 sub new {
-    my ($class, $args) = @_;
-    my $self = {};
+    my ($class, $arg_ref) = @_;
+    my $self = {
+        data => undef,
+    };
     bless $self, $class;
+
+    $self->set_user_agent($arg_ref->{ user_agent })
+        if $arg_ref->{ user_agent };
+    $self->{ parsed } = $arg_ref->{ parsed } if $arg_ref->{ parsed };
+
     return $self;
 }
 
+sub clone {
+    my $self = shift;
+    my $class = ref $self;
+    my $clone = $class->new($self);
+    return $clone;
+}
+
+sub set_uri { $_[0]->{ uri } = $_[1]; }
+sub get_uri { return $_[0]->{ uri }; }
+
+sub set_user_agent { $_[0]->{ user_agent } = $_[1]; }
+sub get_user_agent { return $_[0]->{ user_agent }; }
+
+# Mark a URI as "already parsed"
+sub set_parsed {
+    my ($self, $uri) = @_;
+    $self->{ parsed }->{ $uri } = 1;
+    return;
+}
+
+
+# returns true if a specific URI has already been parsed
+sub is_parsed {
+    my ($self, $uri) = @_;
+    return exists $self->{ parsed }->{ $uri };
+}
+
+
+# parse a URI. This is the preferred parsing method for WSDL files, as it's
+# the only one allowing automatic import resolution
+sub parse_uri {
+    my $self = shift;
+    my $uri = shift;
+
+    if ($self->is_parsed($uri)){
+        warn "$uri already imported; ignoring it.\n";
+        return;
+    }
+    $self->set_parsed($uri);
+
+    $self->set_uri( $uri );
+
+    if (not $self->{ user_agent }) {
+        require LWP::UserAgent;
+        $self->{ user_agent } = LWP::UserAgent->new();
+    }
+
+    my $response = $self->{ user_agent }->get($uri);
+    die $response->message() if $response->code() ne '200';
+    return $self->parse( $response->content() );
+}
+
 sub parse {
     eval {
         $_[0]->_initialize( XML::Parser::Expat->new( Namespaces => 1 )  )->parse( $_[1] );
         $_[0]->{ parser }->release();
     };
     $_[0]->{ parser }->xpcroak( $@ ) if $@;
+    delete $_[0]->{ parser };
     return $_[0]->{ data };
 }
 
@@ -27,6 +90,7 @@ sub parsefile {
         $_[0]->{ parser }->release();
     };
     $_[0]->{ parser }->xpcroak( $@ ) if $@;
+    delete $_[0]->{ parser };
     return $_[0]->{ data };
 }
 
@@ -41,4 +105,38 @@ sub get_data {
     return $_[0]->{ data };
 }
 
-1;
+1;
+
+=pod
+
+=head1 NAME
+
+SOAP::WSDL::Expat::Base - Base class for XML::Parser::Expat based XML parsers
+
+=head1 DESCRIPTION
+
+Base class for XML::Parser::Expat based XML parsers. All XML::SAX::Expat based
+parsers in SOAP::WSDL inherit from this 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 2004-2007 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: $
+
+ $LastChangedDate: 2007-09-10 18:19:23 +0200 (Mo, 10 Sep 2007) $
+ $LastChangedRevision: 218 $
+ $LastChangedBy: kutterma $
+
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageParser.pm $

lib/SOAP/WSDL/Expat/Message2Hash.pm

@@ -4,7 +4,7 @@ use strict;
 use warnings;
 use base qw(SOAP::WSDL::Expat::Base);
 
-our $VERSION = '2.00_24';
+our $VERSION = $SOAP::WSDL::VERSION;
 
 sub _initialize {
     my ($self, $parser) = @_;
@@ -21,7 +21,7 @@ sub _initialize {
     my ($_element, $_method,
         $_class, $_parser, %_attrs) = ();
 
-    no strict qw(refs);
+    # no strict qw(refs);
     $parser->setHandlers(
         Start => sub {
             push @$list, $current;
@@ -113,13 +113,16 @@ Replace the whitespace by @ for E-Mail Address.
 
  Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
-=head1 COPYING
+=head1 LICENSE AND COPYRIGHT
 
-This module may be used under the same terms as perl itself.
+Copyright 2004-2007 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: $
+ $Id: $
 
  $LastChangedDate: 2007-09-10 18:19:23 +0200 (Mo, 10 Sep 2007) $
  $LastChangedRevision: 218 $

lib/SOAP/WSDL/Expat/MessageParser.pm

@@ -1,19 +1,20 @@
 #!/usr/bin/perl
 package SOAP::WSDL::Expat::MessageParser;
-use strict;
-use warnings;
-use Carp qw(croak confess);
-
-our $VERSION = q{2.00_25};
+use strict; use warnings;
 
 use SOAP::WSDL::XSD::Typelib::Builtin;
 use SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;
 
 use base qw(SOAP::WSDL::Expat::Base);
 
-require Class::Std::Fast;
+BEGIN { require Class::Std::Fast };
+
+our $VERSION = $SOAP::WSDL::VERSION;
+
+# GLOBALS
 my $OBJECT_CACHE_REF = Class::Std::Fast::OBJECT_CACHE_REF();
 
+# keep track of classes loaded
 my %LOADED_OF = ();
 
 sub new {
@@ -24,7 +25,12 @@ sub new {
     };
 
     bless $self, $class;
-    $self->load_classes() if ($args->{ class_resolver });
+
+    # could be written as && - but Devel::Cover doesn't like that
+    if ($args->{ class_resolver }) {
+        $self->load_classes()
+            if ! exists $LOADED_OF{ $self->{ class_resolver } };
+    }
     return $self;
 }
 
@@ -32,7 +38,8 @@ sub class_resolver {
     my $self = shift;
     if (@_) {
         $self->{ class_resolver } = shift;
-        $self->load_classes();
+        $self->load_classes()
+            if ! exists $LOADED_OF{ $self->{ class_resolver } };
     }
     return $self->{ class_resolver };
 }
@@ -42,17 +49,19 @@ sub load_classes {
 
     return if $LOADED_OF{ $self->{ class_resolver } };
 
-    for (values %{ $self->{ class_resolver }->get_typemap }) {
+    # requires sorting to make sub-packages load after their parent
+    for (sort values %{ $self->{ class_resolver }->get_typemap }) {
         no strict qw(refs);
         my $class = $_;
 
         # a bad test - do you know a better one?
         next if $class eq '__SKIP__';
-        next if defined @{ "$class\::ISA"}; # check if namespace exists
+        next if defined *{ "$class\::" }; # check if namespace exists
 
+        # Require takes a bareword or a file name - we have to take
+        # the filname road here...
         $class =~s{ :: }{/}xmsg;
-        $class .= '.pm';
-        require $class;
+        require "$class.pm";    ## no critic (RequireBarewordIncludes)
     }
     $LOADED_OF{ $self->{ class_resolver } } = 1;
 }
@@ -99,25 +108,24 @@ sub _initialize {
                     return;
             }
         )
-        : ();
+        : (
+            0 => sub { $depth++ },
+            1 => sub { $depth++ },
+        );
 
     # use "globals" for speed
-    my ($_prefix, $_method,
-        $_class, $_leaf) = ();
+    my ($_prefix, $_method, $_class, $_leaf) = ();
 
     my $char_handler = sub {
-            return if (!$_leaf);    # we only want characters in leaf nodes
-
-            $characters .= $_[1];
-#                if $_[1] =~m{ [^\s] }xms;
-
-            return;
+        return if (!$_leaf);    # we only want characters in leaf nodes
+        $characters .= $_[1];   # add to characters
+        return;                 # return void
     };
 
     no strict qw(refs);
     $parser->setHandlers(
         Start => sub {
-            # my ($parser, $element, %_attrs) = @_;
+            # my ($parser, $element, %attrs) = @_;
 
             $_leaf = 1;  # believe we're a leaf node until we see an end
 
@@ -128,15 +136,18 @@ sub _initialize {
             return &{$content_check{ $depth }}
                 if exists $content_check{ $depth };
 
-            push @{ $path }, $_[1];       # step down in path
+            push @{ $path }, $_[1];        # step down in path
             return if $skip;               # skip inside __SKIP__
 
             # resolve class of this element
-            $_class = $self->{ class_resolver }->get_class( $path )
-                or die "Cannot resolve class for "
-                    . join('/', @{ $path }) . " via " . $self->{ class_resolver };
+            $_class = $self->{ class_resolver }->get_class( $path );
 
-            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;
@@ -162,6 +173,9 @@ sub _initialize {
             # (circumventing constructor) here.
             # That's dirty, but fast.
             #
+            # TODO: check whether this is faster under all perls - there's
+            # strange benchmark results...
+            #
             # The alternative would read:
             # $current = $_class->new({ @_[2..$#_] });
             #
@@ -171,7 +185,25 @@ sub _initialize {
                 $current = bless \$o, $_class;
             }
 
+            # set attributes if there are any
+            ATTR: {
+                if (@_ > 2) {
+                    # die Data::Dumper::Dumper(@_[2..$#_]);
+                    my %attr = @_[2..$#_];
+                    if (my $nil = delete $attr{nil}) {
+                        # TODO: check namespace
+                        if ($nil && $nil ne 'false') {
+                            undef $characters;
+                            last ATTR if not (%attr);
+                        }
+                    }
+                    $current->attr(\%attr);
+                }
+            }
             $depth++;
+
+            # TODO: Skip content of anyType / any stuff
+
             return;
         },
 
@@ -191,13 +223,6 @@ sub _initialize {
 
             $depth--;
 
-            # 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]) {
-                $self->{ data } = $current if (not exists $self->{ data });
-                return;
-            };
-
             # we only set character values in leaf nodes
             if ($_leaf) {
                 # Use dirty but fast access via global variables.
@@ -207,22 +232,37 @@ sub _initialize {
                 # $current->set_value( $characters ) if (length($characters));
                 #
                 $SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType::___value
-                    ->{ $$current } = $characters if $characters =~m{ [^\s] }xms;
+                    ->{ $$current } = $characters
+                        if defined $characters && defined $current; # =~m{ [^\s] }xms;
             }
 
             # 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]) {
+                $self->{ data } = $current if (not exists $self->{ data });
+                return;
+            };
+
             # set appropriate attribute in last element
             # multiple values must be implemented in base class
+            # TODO check if hash access is faster
             # $_method = "add_$_localname";
             $_method = "add_$_[1]";
+            #
+            # fixup XML names for perl names
+            #
+            $_method =~s{\.}{__}xg;
+            $_method =~s{\-}{_}xg;
             $list->[-1]->$_method( $current );
 
             $current = pop @$list;          # step up in object hierarchy
 
-            $_leaf = 0;                     # stop believing we're a leaf node
-
             return;
         }
     );
@@ -260,7 +300,7 @@ See L<SOAP::WSDL::Manual::Parser> for details.
 Sometimes there's unneccessary information transported in SOAP messages.
 
 To skip XML nodes (including all child nodes), just edit the type map for
-the message, set the type map entry to '__SKIP__', and comment out all 
+the message, set the type map entry to '__SKIP__', and comment out all
 child elements you want to skip.
 
 =head1 Bugs and Limitations
@@ -281,17 +321,20 @@ Replace the whitespace by @ for E-Mail Address.
 
  Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
-=head1 COPYING
+=head1 LICENSE AND COPYRIGHT
 
-This module may be used under the same terms as perl itself.
+Copyright 2004-2007 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: $
+ $Id: MessageParser.pm 851 2009-05-15 22:45:18Z kutterma $
 
- $LastChangedDate: 2007-12-02 23:20:24 +0100 (So, 02 Dez 2007) $
- $LastChangedRevision: 427 $
+ $LastChangedDate: 2009-05-16 00:45:18 +0200 (Sa, 16. Mai 2009) $
+ $LastChangedRevision: 851 $
  $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);
 
-our $VERSION = '2.00_24';
+our $VERSION = $SOAP::WSDL::VERSION;
 
 sub parse_start {
     my $self = shift;
@@ -43,7 +43,7 @@ SOAP::WSDL::Expat::MessageStreamParser - Convert SOAP messages to custom object
  # process response while it comes in, trying to read 32k chunks.
  $lwp->request( $request, sub { $chunk_parser->parse_more($_[0]) } , 32468 );
  $chunk_parser->parse_done();
- 
+
  my $obj = $parser->get_data();
 
 =head1 DESCRIPTION
@@ -56,22 +56,22 @@ See L<SOAP::WSDL::Manual::Parser> for details.
 
 See SOAP::WSDL::Expat::MessageParser
 
-=head1 LICENSE AND COPYRIGHT
-
-Copyright 2007 Martin Kutter. All rights reserved.
-
-This file is part of SOAP-WSDL. You may distribte/modify it under
-the same terms as perl itself
-
 =head1 AUTHOR
 
 Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
+=head1 LICENSE AND COPYRIGHT
+
+Copyright 2007 Martin Kutter.
+
+This file is part of SOAP-WSDL. You may distribute/modify it under
+the same terms as perl itself
+
 =head1 REPOSITORY INFORMATION
 
- $Rev: 391 $
+ $Rev: 851 $
  $LastChangedBy: kutterma $
- $Id: MessageStreamParser.pm 391 2007-11-17 21:56:13Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageStreamParser.pm $
- 
+ $Id: MessageStreamParser.pm 851 2009-05-15 22:45:18Z kutterma $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageStreamParser.pm $
+
 =cut

lib/SOAP/WSDL/Expat/WSDLParser.pm

@@ -1,145 +1,377 @@
-package SOAP::WSDL::Expat::WSDLParser;
+package SOAP::WSDL::Expat::WSDLParser;
 use strict;
 use warnings;
 use Carp;
 use SOAP::WSDL::TypeLookup;
 use base qw(SOAP::WSDL::Expat::Base);
 
-our $VERSION = q{2.00_25};
+our $VERSION = $SOAP::WSDL::VERSION;
+
+#
+# Import child elements of a WSDL / XML Schema tree into the current tree
+#
+# Set the targetNamespace of the imported nodes to $import_namespace
+#
+# SYNOPSIS
+#
+# $self->_import_children($name, $imported, $imported, $import_namespace)
+#
+
+sub _import_children {
+    my ( $self, $name, $imported, $importer, $import_namespace ) = @_;
+
+    my $targetNamespace   = $importer->get_targetNamespace();
+    my $push_method       = "push_$name";
+    my $get_method        = "get_$name";
+    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' );
+
+        for ( @{$value_ref} ) {
+
+            # fixup namespace - new parent may be from different namespace
+            if ( defined($default_namespace) ) {
+                my $xmlns = $_->get_xmlns();
+
+                # it's a hash ref, so we can just update values
+                if ( !defined $xmlns->{'#default'} ) {
+                    $xmlns->{'#default'} = $default_namespace;
+                }
+            }
+
+            # fixup targetNamespace, but don't override
+            $_->set_targetNamespace($import_namespace)
+              if ( ( $import_namespace ne $targetNamespace )
+                && !$_->get_targetNamespace );
+
+            # update parent...
+            $_->set_parent($importer);
+
+            # push elements into importing WSDL
+            $importer->$push_method($_);
+        }
+    }
+}
+
+sub _import_namespace_definitions {
+    my $self     = shift;
+    my $arg_ref  = shift;
+    my $importer = $arg_ref->{importer};
+    my $imported = $arg_ref->{imported};
+
+    # import namespace definitions, too
+    my $importer_ns_of = $importer->get_xmlns();
+    my %xmlns_of       = %{$imported->get_xmlns()};
+
+    # it's a hash ref, we can just add to.
+    # TODO: check whether URI is the better key.
+    while ( my ( $prefix, $url ) = each %xmlns_of ) {
+        if ( exists( $importer_ns_of->{$prefix} ) ) {
+
+            # warn "$prefix already exists";
+            next;
+        }
+        $importer_ns_of->{$prefix} = $url;
+    }
+}
+
+sub xml_schema_import {
+    my $self             = shift;
+    my $schema           = shift;
+    my $parser           = $self->clone();
+    my %attr_of          = @_;
+    my $import_namespace = $attr_of{namespace};
+
+    if ( not $attr_of{schemaLocation} ) {
+        warn
+"cannot import document for namespace >$import_namespace< without location";
+        return;
+    }
+
+    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.";
+    }
+
+    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( {
+            importer => $schema,
+            imported => $imported,
+    } );
+
+    for my $name (qw(type element group attribute attributeGroup)) {
+        $self->_import_children( $name, $imported, $schema,
+            $import_namespace );
+    }
+}
+
+sub wsdl_import {
+    my $self             = shift;
+    my $definitions      = shift;
+    my $parser           = $self->clone();
+    my %attr_of          = @_;
+    my $import_namespace = $attr_of{namespace};
+
+    if ( not $attr_of{location} ) {
+        warn
+"cannot import document for namespace >$import_namespace< without location";
+        return;
+    }
+
+    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.";
+    }
+
+    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( {
+            importer => $definitions,
+            imported => $imported,
+    } );
+
+    for my $name (qw(types message binding portType service)) {
+        $self->_import_children( $name, $imported, $definitions,
+            $import_namespace );
+    }
+}
 
 sub _initialize {
-    my ($self, $parser) = @_;
+    my ( $self, $parser ) = @_;
 
     # init object data
-    $self->{ parser } = $parser;
-    delete $self->{ data };
+    $self->{parser} = $parser;
+    delete $self->{data};
 
     # setup local variables for keeping temp data
-    my $characters = undef;
-    my $current = undef;
-    my $list = [];        # node list
+    my $characters           = undef;
+    my $current              = undef;
+    my $list                 = [];    # node list
+    my $elementFormQualified = 1;     # default for WSDLs, schema may override
 
     # TODO skip non-XML Schema namespace tags
     $parser->setHandlers(
         Start => sub {
-            my ($parser, $localname, %attrs) = @_;
+
+            # 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 ) = @_;
             $characters = q{};
 
-            my $action = SOAP::WSDL::TypeLookup->lookup(
-                $parser->namespace($localname),
-                $localname
-            );
+            my $action =
+              SOAP::WSDL::TypeLookup->lookup( $parser->namespace($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({ parent => $current })
-                  ->init( _fixup_attrs( $parser, %attrs ) );
+                my $obj = $action->{class}->new( {
+                        parent    => $current,
+                        namespace => $parser->namespace($localname),
+                        defined($current)
+                        ? ( 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 not $obj->get_targetNamespace();
+                    if ($elementFormQualified) {
+                        $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;
-                }
-                else {
-                    $self->{ data } = $obj;
+                    push @{$list}, $current;
                 }
+
                 # set new element (step down)
                 $current = $obj;
             }
-            elsif ($action->{ type } eq 'PARENT') {
-                $current->init( _fixup_attrs($parser, %attrs) );
+            elsif ( $action->{type} eq 'PARENT' ) {
+                $current->init( _fixup_attrs( $parser, @attrs ) );
             }
-            elsif ($action->{ type } eq 'METHOD') {
-                my $method = $action->{ method } || $localname;
+            elsif ( $action->{type} eq '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 }
-                    ? ref $action->{ value }
-                        ? @{ $action->{ value } }
-                        : ($action->{ value })
-                    : _fixup_attrs($parser, %attrs)
-                );
+                $current->$method(
+                      defined $action->{value}
+                    ? ref $action->{value}
+                          ? @{$action->{value}}
+                          : ( $action->{value} )
+                    : _fixup_attrs( $parser, @attrs ) );
+            }
+            elsif ( $action->{type} eq 'HANDLER' ) {
+                my $method = $self->can( $action->{method} );
+                $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/'
+                  ? 'WSDL 1.1'
+                  : 'XML Schema';
+
+                warn "$part element <$localname> is not implemented yet"
+                  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(
-                $parser->namespace( $localname ),
-                $localname
-            ) || {};
+            my $action =
+              SOAP::WSDL::TypeLookup->lookup( $parser->namespace($localname),
+                $localname )
+              || {};
 
-            return if not ($action->{ type });
-            if ( $action->{ type } eq 'CLASS' ) {
-               $current = pop @{ $list };
+            if ( !defined $list->[-1] ) {
+                $self->{data} = $current;
+                return;
             }
-            elsif ($action->{ type } eq 'CONTENT' ) {
-                my $method = $action->{ method };
+
+
+            return if not( $action->{type} );
+            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' ) {
+                my $method = $action->{method};
 
                 # normalize whitespace
-                $characters =~s{ ^ \s+ (.+) \s+ $ }{$1}xms;
-                $characters =~s{ \s+ }{ }xmsg;
+                $characters =~ s{ ^ \s+ (.+) \s+ $ }{$1}xms;
+                $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_of) = @_;
+    my ( $parser, @attrs ) = @_;
 
-    my @attrs_from = map { $_ =
-        {
-            Name => $_,
-            Value => $attrs_of{ $_ },
-            LocalName => $_
-        }
-    } keys %attrs_of;
+    my @attr_key_from   = ();
+    my @attr_value_from = ();
+
+    while (@attrs) {
+        push @attr_key_from,   shift @attrs;
+        push @attr_value_from, shift @attrs;
+    }
+
+    my @attrs_from;
 
     # add xmlns: attrs. expat eats them.
-    push @attrs_from, map {
-        # ignore xmlns=FOO namespaces - must be XML schema
-        # Other nodes should be ignored somewhere else
-        ($_ eq '#default')
-        ? ()
-        :
-        {
-            Name => "xmlns:$_",
-            Value => $parser->expand_ns_prefix( $_ ),
+    #
+    # add namespaces before attributes: Attributes may be namespace-qualified
+    #
+    push @attrs_from, map { {
+            Name      => "xmlns:$_",
+            Value     => $parser->expand_ns_prefix($_),
             LocalName => $_
         }
     } $parser->new_ns_prefixes();
+
+    push @attrs_from, map { {
+            Name => defined $parser->namespace($_)
+            ? $parser->namespace($_) . '|' . $_
+            : '|' . $_,
+            Value     => shift @attr_value_from,    # $attrs_of{ $_ },
+            LocalName => $_
+        }
+    } @attr_key_from;
+
     return @attrs_from;
 }
 
 1;
 
+=pod
+
+=head1 NAME
+
+SOAP::WSDL::Expat::WSDLParser - Parse WSDL files into object trees
+
+=head1 SYNOPSIS
+
+ my $parser = SOAP::WSDL::Expat::WSDLParser->new();
+ $parser->parse( $xml );
+ my $obj = $parser->get_data();
+
+=head1 DESCRIPTION
+
+WSDL parser used by SOAP::WSDL.
+
+=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 2004-2007 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 851 2009-05-15 22:45:18Z kutterma $
+
+ $LastChangedDate: 2009-05-16 00:45:18 +0200 (Sa, 16. Mai 2009) $
+ $LastChangedRevision: 851 $
+ $LastChangedBy: kutterma $
+
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/WSDLParser.pm $
+

lib/SOAP/WSDL/Factory/Deserializer.pm

@@ -2,7 +2,7 @@ package SOAP::WSDL::Factory::Deserializer;
 use strict;
 use warnings;
 
-our $VERSION = '2.00_24';
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %DESERIALIZER = (
     '1.1' => 'SOAP::WSDL::Deserializer::XSD',
@@ -16,7 +16,7 @@ sub register {
 
 sub get_deserializer {
     my ($self, $args_of_ref) = @_;
-
+    $args_of_ref->{ soap_version } ||= '1.1';
     # sanity check
     die "no deserializer registered for SOAP version $args_of_ref->{ soap_version }"
         if not exists ($DESERIALIZER{ $args_of_ref->{ soap_version } });
@@ -47,10 +47,10 @@ SOAP::WSDL::Factory::Deserializer - Factory for retrieving Deserializer objects
  # in deserializer class:
  package MyWickedDeserializer;
  use SOAP::WSDL::Factory::Deserializer;
- 
+
  # register class as deserializer for SOAP1.2 messages
  SOAP::WSDL::Factory::Deserializer->register( '1.2' , __PACKAGE__ );
- 
+
 =head1 DESCRIPTION
 
 SOAP::WSDL::Factory::Deserializer serves as factory for retrieving
@@ -137,7 +137,7 @@ passed as a single hash ref:
 
 Copyright 2007 Martin Kutter. All rights reserved.
 
-This file is part of SOAP-WSDL. You may distribte/modify it under
+This file is part of SOAP-WSDL. You may distribute/modify it under
 the same terms as perl itself
 
 =head1 AUTHOR
@@ -150,5 +150,5 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
  $LastChangedBy: kutterma $
  $Id: Serializer.pm 176 2007-08-31 15:28:29Z kutterma $
  $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Serializer.pm $
- 
+
 =cut

lib/SOAP/WSDL/Factory/Generator.pm

@@ -2,7 +2,7 @@ package SOAP::WSDL::Factory::Generator;
 use strict;
 use warnings;
 
-our $VERSION='2.00_24';
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %GENERATOR = (
     'XSD' => 'SOAP::WSDL::Generator::Template::XSD',
@@ -49,10 +49,10 @@ SOAP::WSDL::Factory:Generator - Factory for retrieving generator objects
  # in generator class:
  package MyWickedGenerator;
  use SOAP::WSDL::Factory::Generator;
- 
+
  # register as generator for SOAP1.2 messages
  SOAP::WSDL::Factory::Generator->register( '1.2' , __PACKAGE__ );
- 
+
 =head1 DESCRIPTION
 
 SOAP::WSDL::Factory::Generator serves as factory for retrieving
@@ -155,7 +155,7 @@ Set user-defined typemap snippet
 
 Copyright 2007 Martin Kutter. All rights reserved.
 
-This file is part of SOAP-WSDL. You may distribte/modify it under
+This file is part of SOAP-WSDL. You may distribute/modify it under
 the same terms as perl itself
 
 =head1 AUTHOR
@@ -168,5 +168,5 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
  $LastChangedBy: kutterma $
  $Id: Serializer.pm 176 2007-08-31 15:28:29Z kutterma $
  $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Serializer.pm $
- 
+
 =cut

lib/SOAP/WSDL/Factory/Serializer.pm

@@ -2,7 +2,7 @@ package SOAP::WSDL::Factory::Serializer;
 use strict;
 use warnings;
 
-our $VERSION='2.00_24';
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %SERIALIZER = (
     '1.1' => 'SOAP::WSDL::Serializer::XSD',
@@ -16,7 +16,7 @@ sub register {
 
 sub get_serializer {
     my ($self, $args_of_ref) = @_;
-
+    $args_of_ref->{ soap_version } ||= '1.1';
     # sanity check
     die "no serializer registered for SOAP version $args_of_ref->{ soap_version }"
         if not exists ($SERIALIZER{ $args_of_ref->{ soap_version } });
@@ -46,10 +46,10 @@ SOAP::WSDL::Factory::Serializer - Factory for retrieving serializer objects
  # in serializer class:
  package MyWickedSerializer;
  use SOAP::WSDL::Factory::Serializer;
- 
+
  # register as serializer for SOAP1.2 messages
  SOAP::WSDL::Factory::Serializer->register( '1.2' , __PACKAGE__ );
- 
+
 =head1 DESCRIPTION
 
 SOAP::WSDL::Factory::Serializer serves as factory for retrieving
@@ -138,9 +138,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 391 $
+ $Rev: 851 $
  $LastChangedBy: kutterma $
- $Id: Serializer.pm 391 2007-11-17 21:56:13Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Serializer.pm $
- 
+ $Id: Serializer.pm 851 2009-05-15 22:45:18Z kutterma $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Serializer.pm $
+
 =cut

lib/SOAP/WSDL/Factory/Transport.pm

@@ -1,10 +1,8 @@
 package SOAP::WSDL::Factory::Transport;
 use strict;
 use warnings;
+our $VERSION = $SOAP::WSDL::VERSION;
 
-our $VERSION='2.00_25';
-
-# class data
 my %registered_transport_of = ();
 
 # Local constants
@@ -12,7 +10,7 @@ my %registered_transport_of = ();
 my %SOAP_LITE_TRANSPORT_OF = (
     ftp => 'SOAP::Transport::FTP',
     http => 'SOAP::Transport::HTTP',
-    https => 'SOAP::Transport::HTTPS',
+    https => 'SOAP::Transport::HTTP',
     mailto => 'SOAP::Transport::MAILTO',
     'local' => 'SOAP::Transport::LOCAL',
     jabber => 'SOAP::Transport::JABBER',
@@ -32,14 +30,17 @@ sub register {
 }
 
 sub get_transport {
-    my ($class, $scheme, %attrs) = @_;
+    my ($class, $url, %attrs) = @_;
 
-    $scheme =~s{ \A ([^\:]+) \: .+ }{$1}smx;
 
-    if ($registered_transport_of{ $scheme }) {
+    my $scheme = $url;
+    $scheme =~s{ \:.+$ }{}xm;
+
+
+    if (defined $registered_transport_of{ $scheme }) {
         no strict qw(refs);
-        *{ $registered_transport_of{ $scheme } . '::' }{ CODE }
-            or eval "require $registered_transport_of{ $scheme }"
+        $registered_transport_of{ $scheme }->can('new') or
+            eval "require $registered_transport_of{ $scheme }"
                 or die "Cannot load transport class $registered_transport_of{ $scheme } : $@";
 
         # try "foo::Client" class first - SOAP::Tranport always requires
@@ -50,28 +51,30 @@ sub get_transport {
         # sparse resource ...
         # ... but we've decided to mimic SOAP::Lite...
 
-#        my $protocol_class = $SOAP_LITE_TRANSPORT_OF{ $scheme } . '::Client';
-#        my $transport;
-#        eval {
-#            $transport = $protocol_class->new( %attrs );
-#        };
-#        return $transport if not $@;
         return $registered_transport_of{ $scheme }->new( %attrs );
     }
 
     # try SOAP::Lite's Transport module - just skip if not require'able
     SOAP_Lite: {
-      if (exists $SOAP_LITE_TRANSPORT_OF{ $scheme }) {
-          eval "require $SOAP_LITE_TRANSPORT_OF{ $scheme }"
-            or last SOAP_Lite;
-          my $protocol_class = $SOAP_LITE_TRANSPORT_OF{ $scheme } . '::Client';
-          return $protocol_class->new( %attrs );
-      }
+        if (exists $SOAP_LITE_TRANSPORT_OF{ $scheme }) {
+            no strict qw(refs);
+            # behaves interestingly different under different versions of perl
+            # maybe true even if it's not available
+            my $protocol_class = $SOAP_LITE_TRANSPORT_OF{ $scheme } . '::Client';
+            $protocol_class->can('new')
+                or eval "require $SOAP_LITE_TRANSPORT_OF{ $scheme }"
+                    or last SOAP_Lite;
+
+            # may fail if it's not available
+            my $transport = eval { $protocol_class->new( %attrs ) }
+                or last SOAP_Lite;
+            return $transport;
+        }
     }
 
     if (exists $SOAP_WSDL_TRANSPORT_OF{ $scheme }) {
         no strict qw(refs);
-        *{ $SOAP_WSDL_TRANSPORT_OF{ $scheme } . '::' }{ CODE } 
+        $SOAP_WSDL_TRANSPORT_OF{ $scheme }->can('new')
             or eval "require $SOAP_WSDL_TRANSPORT_OF{ $scheme }"
                 or die "Cannot load transport class $SOAP_WSDL_TRANSPORT_OF{ $scheme } : $@";
         return $SOAP_WSDL_TRANSPORT_OF{ $scheme }->new( %attrs );
@@ -96,12 +99,12 @@ SOAP::WSDL::Factory::Transport - Factory for retrieving transport objects
  # in transport class:
  package MyWickedTransport;
  use SOAP::WSDL::Factory::Transport;
- 
+
  # register class as transport module for httpr and https
  # (httpr is "reliable http", a protocol developed by IBM).
  SOAP::WSDL::Factory::Transport->register( 'httpr' , __PACKAGE__ );
  SOAP::WSDL::Factory::Transport->register( 'https' , __PACKAGE__ );
- 
+
 =head1 DESCRIPTION
 
 SOAP::WSDL::Transport serves as factory for retrieving transport objects for
@@ -159,7 +162,7 @@ the class should be used for, and $module is the class' module name.
 To auto-register your transport class on loading, execute register() in your
 tranport class (see L<SYNOPSIS|SYNOPSIS> above).
 
-Multiple protocols ore multiple classes are registered by multiple calls to
+Multiple protocols or multiple classes are registered by multiple calls to
 register().
 
 =head2 Transport plugin package layout
@@ -207,10 +210,10 @@ classes in one file, and to follow this naming scheme:
 
  Module name:
    "SOAP::Transport::" . uc($scheme)
- 
+
  Client class (additional package in module):
    "SOAP::Transport::" . uc($scheme) . "::Client"
- 
+
  Server class (additional package in module):
    "SOAP::Transport::" . uc($scheme) . "::Client"
 
@@ -240,9 +243,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 435 $
+ $Rev: 851 $
  $LastChangedBy: kutterma $
- $Id: Transport.pm 435 2007-12-03 22:31:00Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Transport.pm $
- 
+ $Id: Transport.pm 851 2009-05-15 22:45:18Z kutterma $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Transport.pm $
+
 =cut

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

@@ -0,0 +1,272 @@
+package SOAP::WSDL::Generator::Iterator::WSDL11;
+use strict; use warnings;
+use Class::Std::Fast;
+
+our $VERSION = $SOAP::WSDL::VERSION;
+
+my %definitions_of  :ATTR(:name<definitions>    :default<[]>);
+my %nodes_of        :ATTR(:name<nodes>          :default<[]>);
+
+# memoization attributes
+my %portType_of     :ATTR();
+my %types_of        :ATTR();
+
+my %METHOD_OF = (
+    'SOAP::WSDL::Definitions'   => 'get_service',
+    'SOAP::WSDL::Service'       => 'get_port',
+    'SOAP::WSDL::Port'          => sub {
+        my ($self, $node) = @_;
+        return if ! $node->first_address()
+            or ! $node->first_address()->isa('SOAP::WSDL::SOAP::Address');
+
+        return [ $self->get_definitions()
+            ->find_binding( $node->expand( $node->get_binding() ) ) || () ];
+    },
+
+    'SOAP::WSDL::Binding'       => sub {
+        my ($self, $node) = @_;
+
+        # remember referenced portType
+        $portType_of{ ident $self } = $self->get_definitions()
+            ->find_portType( $node->expand( $node->get_type ) )
+            or return [];
+
+        return $node->get_operation();
+    },
+
+    'SOAP::WSDL::Operation'     => sub {
+        my ($self, $node) = @_;
+
+        my $name = $node->get_name();
+
+        # get the equally named operation from the portType
+        my ($op) = grep { $_->get_name() eq $name }
+            @{ $portType_of{ ident $self }->get_operation() }
+            or return [];
+
+        return [ @{ $op->get_input }, @{ $op->get_output }, @{ $op->get_fault } ]
+    },
+
+    'SOAP::WSDL::OpMessage' => sub {
+        my ($self, $node) = @_;
+        return if ( ref $node->get_parent() eq 'SOAP::WSDL::Binding' );    # we're in binding
+
+        # TODO maybe allow more messages && overloading by specifying name
+
+        return [ $self->get_definitions()->find_message(
+            $node->expand( $node->get_message() )
+        ) || () ];
+    },
+
+    'SOAP::WSDL::Message'       => 'get_part',
+
+    'SOAP::WSDL::Part'          => sub {
+        my ($self, $node) = @_;
+        my $ident = ident $self;
+        my $types = $types_of{ $ident } = $definitions_of{ $ident }->get_types()->[0]
+            or return [];
+        return [
+            # If we have a type, this type is to be used in document/literal
+            # as global type. However this is forbidden, at least by WS-I.
+            # We should store the style/encoding somewhere, and regard it.
+            # TODO: auto-generate element for RPC bindings
+            $node->get_type()
+                ? do {
+                    die "unsupported global type <"
+                        . $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) )
+                }
+                : (),
+            $node->get_element()
+                ? $types->find_element( $node->expand($node->get_element) )
+                : (),
+        ];
+    },
+);
+
+sub init {
+    my ($self, $arg_of) = @_;
+    my $ident = ident $self;
+    undef $portType_of{ $ident };
+    undef $types_of{ $ident };
+    $nodes_of{ $ident } = [
+        exists($arg_of->{ node })
+            ? $arg_of->{ node }
+            : $definitions_of{ ident $self }
+        ];
+}
+
+sub get_next {
+    my $self = shift;
+    my $ident = ident $self;
+
+    my $node = shift @{ $nodes_of{ $ident }};
+    return if ! defined $node;
+
+    unshift @{ $nodes_of{ $ident }}, @{ $self->get_nextNodes( $node ) || [] };
+
+    return $node;
+}
+
+sub get_nextNodes {
+    my ($self, $node) = @_;
+
+    my $method = $METHOD_OF{ ref $node }
+        or return [];
+
+    return (ref($method) eq 'CODE')
+        ? $method->( $self, $node )
+        : $node->can($method)->( $node );
+}
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+SOAP::WSDL::Generator::Iterator::WSDL11 - WSDL 1.1 Iterator
+
+=head1 SYNOPSIS
+
+ my $iter = SOAP::WSDL::Generator::Iterator::WSDL11->new({
+     definitions => $wsdl
+ });
+ $iter->init();
+ while (my $node = $iter->get_next()) {
+     # do something with node - possibly call _accept with a visitor on it...
+ }
+
+=head1 DESCRIPTION
+
+Iterator for walking a WSDL 1.1 definition.
+
+The iterator performs a depth-first search along the following path:
+
+ service
+ port
+ binding
+ operation
+ input/output/fault of operation in portType
+ message
+ part
+ type/element in XML schema
+
+If you wonder about this path: This is how to look up which XML Schema element
+is associated with a operation from a service/port.
+
+=head2 Example
+
+The nodes are returned in the order denoted in the following example:
+
+ <?xml version="1.0" encoding="UTF-8"?>
+ <!-- 1 -->
+ <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"
+   targetNamespace="urn:HelloWorld"
+   xmlns="http://schemas.xmlsoap.org/wsdl/">
+   <types>
+     <s:schema elementFormDefault="qualified" targetNamespace="urn:HelloWorld">
+       <!-- 9 -->
+       <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:attribute name="testAttr" type="s:string" use="optional"></s:attribute>
+          </s:complexType>
+        </s:element>
+
+        <!-- 13 -->
+        <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:schema>
+   </types>
+
+   <!-- 7 -->
+   <message name="sayHelloSoapIn">
+     <!-- 8 -->
+     <part name="parameters" element="s0:sayHello" />
+   </message>
+
+   <!-- 11 -->
+   <message name="sayHelloSoapOut">
+     <!-- 12 -->
+     <part name="parameters" element="s0:sayHelloResponse" />
+   </message>
+
+   <portType name="Service1Soap">
+     <operation name="sayHello">
+     <!-- 6 -->
+     <input message="s0:sayHelloSoapIn" />
+     <!-- 10 -->
+     <output message="s0:sayHelloSoapOut" />
+   </operation>
+  </portType>
+
+    <!-- 4 -->
+    <binding name="Service1Soap" type="s0:Service1Soap">
+        <soap:binding transport="http://schemas.xmlsoap.org/soap/http"
+            style="document" />
+
+        <!-- 5 -->
+        <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>
+
+    <!-- 2 -->
+    <service name="Service1">
+        <!-- 3 -->
+        <port name="Service1Soap" binding="s0:Service1Soap">
+            <soap:address
+                location="http://localhost:81/soap-wsdl-test/helloworld.pl" />
+        </port>
+    </service>
+ </definitions>
+
+You should not rely too much on this order - it may change. Even though the
+current order will probably remain, the nodes currently skipped might
+be returned somewhere along the path.
+
+
+=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: 239 $
+ $LastChangedBy: kutterma $
+ $Id: Client.pm 239 2007-09-11 09:45:42Z kutterma $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client.pm $
+
+=cut

lib/SOAP/WSDL/Generator/PrefixResolver.pm

@@ -0,0 +1,145 @@
+package SOAP::WSDL::Generator::PrefixResolver;
+use strict; use warnings;
+
+use Class::Std::Fast::Storable;
+
+our $VERSION = $SOAP::WSDL::VERSION;
+
+my %namespace_prefix_map_of :ATTR(:name<namespace_prefix_map>   :default<{}>);
+my %namespace_map_of        :ATTR(:name<namespace_map>          :default<{}>);
+my %prefix_of               :ATTR(:name<prefix> :default<{}>);
+
+sub resolve_prefix {
+    my ($self, $type, $namespace, $element) = @_;
+    my $prefix;
+    if (not defined($namespace)) {
+        $prefix = $prefix_of{ $$self }->{ $type }
+    }
+    else {
+        $prefix = $namespace_prefix_map_of{ $$self }->{ $namespace }
+            || ( ($namespace_map_of{ $$self }->{ $namespace })
+                ? join ('::', $prefix_of{ $$self }->{ $type }, $namespace_map_of{ $$self }->{ $namespace })
+                : $prefix_of{ $$self }->{ $type }
+            );
+    }
+    return "${prefix}::";
+}
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+SOAP::WSDL::Generator::PrefixResolver - prefixes for different classes
+
+=head1 SYNOPSIS
+
+If you want to create your custom prefix resolver:
+
+ package MyPrefixResolver;
+ use strict; use warnings;
+ use base qw(SOAP::WSDL::Generator::PrefixResolver);
+
+ sub resolve_prefix {
+     my ($self, $type, $namespace, $node) = @_;
+     # return something special
+     return $self->SUPER::resolve_prefix($type, $namespace, $node);
+ }
+
+When generating code:
+
+ use MyPrefixResolver;
+ use SOAP::WSDL::Generator::XSD;
+ my $generator = SOAP::WSDL::Generator::Template::XSD->new({
+    prefix_resolver_class => 'MyPrefixResolver',
+ });
+
+=head1 DESCRIPTION
+
+Prefix resolver class for SOAP::WSDL's code generator. You may subclass it to
+apply some custom prefix resolving logic.
+
+Subclasses must implement the following methods:
+
+=over
+
+=item * resolve_prefix
+
+ sub resolve_prefix {
+    my ($self, $namespace, $node) = @_;
+    # ...
+ }
+
+resolve_prefix is expected to return a (perl class) prefix. It is called with
+the following parameters:
+
+ NAME       DESCRIPTION
+ -----------------------------------------------------------------------------
+ type       One of (server|interface|typemap|type|element|attribute)
+ namespace  The targetNamespace of the node to generate a prefix for.
+ node       The node to generate a prefix for
+
+You usually just need type and namespace for prefix resolving. node is
+provided for rather funky setups, where you have to choose different prefixes
+based on type names or whatever.
+
+Node may be of any of the following classes:
+
+ SOAP::WSDL::Service
+ SOAP::WSDL::XSD::Attribute
+ SOAP::WSDL::XSD::Element
+ SOAP::WSDL::XSD::Type
+
+Note that both namespace and node may be undef - you should test for
+definedness before doing anything fancy with them.
+
+If you want your prefixes to represent perl class hierarchies, they should
+end with '::'.
+
+Example:
+
+Imagine you're generating interfaces for the Acme Pet Shop. Acme Corp. has
+set up their datatypes to be global across all interfaces (and products), while
+elements are local to the product (the Pet Shop in the example).
+All elements are in the urn:Acme namespace.
+
+In addition, there are types in the namespace urn:Acme:Goods, which should go
+into the same namespace as types, but be prefixed with 'Goods_'
+
+You may want prefixes (roughly) like this:
+
+ Interfaces:        Acme::Client::PetShop::
+ Server:            Acme::Server::PetShop::
+ Types:             Acme::Types::
+ Types (Goods):     Acme::Types::Goods_
+ Elements:          Acme::Elements::PetShop::
+ Typemaps:          Acme::Typemaps::PetShop::
+
+=back
+
+=head1 BUGS AND LIMITATIONS
+
+You cannot suffix your types by some rule yet...
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright 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: 583 $
+ $LastChangedBy: kutterma $
+ $Id: $
+ $HeadURL: $
+
+=cut

lib/SOAP/WSDL/Generator/Template.pm

@@ -1,21 +1,26 @@
 package SOAP::WSDL::Generator::Template;
-use strict;
-use Template;
+use strict; use warnings;
+use Template 2.18;
 use Class::Std::Fast::Storable;
+use Carp;
+use SOAP::WSDL::Generator::PrefixResolver;
 
-our $VERSION=q{2.00_25};
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %tt_of               :ATTR(:get<tt>);
-my %definitions_of      :ATTR(:name<definitions>    :default<()>);
-my %server_prefix_of    :ATTR(:name<server_prefix> :default<MyServer>);
-my %interface_prefix_of :ATTR(:name<interface_prefix> :default<MyInterfaces>);
-my %typemap_prefix_of   :ATTR(:name<typemap_prefix> :default<MyTypemaps>);
-my %type_prefix_of      :ATTR(:name<type_prefix>    :default<MyTypes>);
-my %element_prefix_of   :ATTR(:name<element_prefix> :default<MyElements>);
-my %INCLUDE_PATH_of     :ATTR(:name<INCLUDE_PATH>   :default<()>);
-my %EVAL_PERL_of        :ATTR(:name<EVAL_PERL>      :default<0>);
-my %RECURSION_of        :ATTR(:name<RECURSION>      :default<0>);
-my %OUTPUT_PATH_of      :ATTR(:name<OUTPUT_PATH>    :default<.>);
+my %definitions_of      :ATTR(:name<definitions>        :default<()>);
+my %server_prefix_of    :ATTR(:name<server_prefix>      :default<MyServer>);
+my %interface_prefix_of :ATTR(:name<interface_prefix>   :default<MyInterfaces>);
+my %typemap_prefix_of   :ATTR(:name<typemap_prefix>     :default<MyTypemaps>);
+my %type_prefix_of      :ATTR(:name<type_prefix>        :default<MyTypes>);
+my %element_prefix_of   :ATTR(:name<element_prefix>     :default<MyElements>);
+my %attribute_prefix_of :ATTR(:name<attribute_prefix>   :default<MyAttributes>);
+my %INCLUDE_PATH_of     :ATTR(:name<INCLUDE_PATH>       :default<()>);
+my %EVAL_PERL_of        :ATTR(:name<EVAL_PERL>          :default<0>);
+my %RECURSION_of        :ATTR(:name<RECURSION>          :default<0>);
+my %OUTPUT_PATH_of      :ATTR(:name<OUTPUT_PATH>        :default<.>);
+
+my %prefix_resolver_class_of    :ATTR(:name<prefix_resolver_class> :default<SOAP::WSDL::Generator::PrefixResolver>);
 
 sub START {
     my ($self, $ident, $arg_ref) = @_;
@@ -25,29 +30,79 @@ sub _process :PROTECTED {
     my ($self, $template, $arg_ref, $output) = @_;
     my $ident = ident $self;
 
-    $tt_of{$ident} = Template->new(
+    # always create a new Template object to
+    # force re-loading of plugins.
+    my $tt = Template->new(
         DEBUG => 1,
         EVAL_PERL => $EVAL_PERL_of{ $ident },
         RECURSION => $RECURSION_of{ $ident },
         INCLUDE_PATH => $INCLUDE_PATH_of{ $ident },
         OUTPUT_PATH => $OUTPUT_PATH_of{ $ident },
+        PLUGIN_BASE => 'SOAP::WSDL::Generator::Template::Plugin',
     )
-        if (not $tt_of{ $ident });
+        or die Template->error();
 
-    $tt_of{ $ident }->process( $template,
+    $tt->process( $template,
     {
+        context => {
+            prefix_resolver => $prefix_resolver_class_of{ $$self }->new({
+                namespace_prefix_map => {
+                    'http://www.w3.org/2001/XMLSchema' => 'SOAP::WSDL::XSD::Typelib::Builtin',
+                },
+                namespace_map => {
+                },
+                prefix => {
+                    interface => $self->get_interface_prefix,
+                    element => $self->get_element_prefix,
+                    attribute => $self->get_attribute_prefix,
+                    server => $self->get_server_prefix,
+                    type => $self->get_type_prefix,
+                    typemap => $self->get_typemap_prefix,
+                }
+            }),
+        },
         definitions => $self->get_definitions,
-        interface_prefix => $self->get_interface_prefix,
-        server_prefix => $self->get_server_prefix,
-        type_prefix => $self->get_type_prefix,
-        typemap_prefix => $self->get_typemap_prefix,
-        TYPE_PREFIX => $self->get_type_prefix,
-        element_prefix => $self->get_element_prefix,
         NO_POD => delete $arg_ref->{ NO_POD } ? 1 : 0 ,
         %{ $arg_ref }
     },
     $output)
-        or die $INCLUDE_PATH_of{ $ident }, '\\', $template, ' ', $tt_of{ $ident }->error();
+        or croak $INCLUDE_PATH_of{ $ident }, '\\', $template, ' ', $tt->error();
 }
 
-1;
+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

@@ -0,0 +1,218 @@
+package SOAP::WSDL::Generator::Template::Plugin::XSD;
+use strict;
+use warnings;
+use Carp qw(confess);
+use Class::Std::Fast::Storable constructor => 'none';
+use Scalar::Util qw(blessed);
+our $VERSION = $SOAP::WSDL::VERSION;
+
+my %namespace_prefix_map_of :ATTR(:name<namespace_prefix_map>   :default<{}>);
+my %namespace_map_of        :ATTR(:name<namespace_map>          :default<{}>);
+my %prefix_of               :ATTR(:name<prefix>                 :default<()>);
+my %prefix_resolver_of      :ATTR(:name<prefix_resolver>        :default<()>);
+my %definitions_of          :ATTR(:name<definitions>            :default<()>);
+
+
+# create a singleton
+sub load {              # called as MyPlugin->load($context)
+    my ($class, $context, @arg_from) = @_;
+    my $stash = $context->stash();
+    my $self = bless \do { my $o = Class::Std::Fast::ID() }, $class;
+    $self->set_prefix_resolver( $stash->{ context }->{ prefix_resolver });
+    $self->set_definitions( $stash->{ definitions });
+    return $self;       # returns 'MyPlugin'
+}
+
+sub new {
+    return shift if ref $_[0];
+
+    my ($class, $arg_ref) = @_;
+
+    my $self = bless \do { my $o = Class::Std::Fast::ID() }, $class;
+    $self->set_prefix_resolver( $arg_ref->{ prefix_resolver });
+    $self->set_definitions( $arg_ref->{ definitions });
+    return $self;       # returns 'MyPlugin'
+}
+
+sub _get_prefix {
+    my ($self, $type, $node) = @_;
+    my $namespace = defined ($node)
+        ? ref($node)
+            ? $node->get_targetNamespace()
+            : $node
+        : undef;
+    return $self->get_prefix_resolver()->resolve_prefix(
+        $type,
+        $namespace,
+        ref($node)
+            ? $node
+            : undef
+     );
+}
+
+sub create_xsd_name {
+    my ($self, $node) = @_;
+    confess "no node $node" if not defined($node)
+        or $node eq "";
+    my $name = $self->_resolve_prefix($node) #. '::'
+        . $node->get_name();
+    return $self->perl_name( $name );
+}
+
+sub create_typemap_name {
+    my ($self, $node) = @_;
+    my $name = $self->_get_prefix('typemap') #. '::'
+        . $node->get_name();
+    return $self->perl_name( $name );
+}
+
+sub create_server_name {
+    my ($self, $server, $port) = @_;
+    my $port_name = $port->get_name();
+    $port_name =~s{\A (?:.+)\. ([^\.]+) \z}{$1}x;
+    my $name = join( q{},
+        $self->_get_prefix('server', $server),
+         join( '::', $server->get_name(), $port_name)
+    );
+    return $self->perl_name( $name );
+}
+
+sub create_interface_name {
+    my ($self, $server, $port) = @_;
+    my $port_name = $port->get_name();
+    $port_name =~s{\A (?:.+)\. ([^\.]+) \z}{$1}x;
+    my $name = join( q{},
+        $self->_get_prefix('interface', $server),
+        join( '::', $server->get_name(), $port_name )
+    );
+    return $self->perl_name( $name );
+}
+
+sub _resolve_prefix {
+    my ($self, $node) = @_;
+
+    if ($node->isa('SOAP::WSDL::XSD::Builtin')) {
+        return $self->_get_prefix('type', $node)
+    }
+    if ( $node->isa('SOAP::WSDL::XSD::SimpleType')
+        or $node->isa('SOAP::WSDL::XSD::ComplexType')
+    ) {
+        return $self->_get_prefix('type', $node);
+    }
+    if ( $node->isa('SOAP::WSDL::XSD::Element') ) {
+        return $self->_get_prefix('element', $node);
+    }
+    if ( $node->isa('SOAP::WSDL::XSD::Attribute') ) {
+        return $self->_get_prefix('attribute', $node);
+    }
+}
+
+sub perl_name {
+    my $self = shift;
+    my $name = shift;
+    $name =~s{\-}{_}xmsg;
+    $name =~s{\.}{::}xmsg;
+    return $name;
+}
+
+sub perl_var_name {
+    my $self = shift;
+    my $name = shift;
+    $name =~s{\-}{_}xmsg;
+    $name =~s{\.}{__}xmsg;
+    return $name;
+}
+
+sub create_subpackage_name {
+    my $self        = shift;
+    my $arg_ref     = shift;
+    my $type        = ref $arg_ref eq 'HASH' ? $arg_ref->{ value } : $arg_ref;
+
+    my @name_from = $type->get_name() || (); ;
+
+    # search for top node in tree (the one directly below the Schema)
+	my $parent = $type;
+	my $top_node = $parent;
+    if (! $parent->get_parent()->isa('SOAP::WSDL::XSD::Schema') ) {
+        NAMES: while ($parent = $parent->get_parent()) {
+            $top_node = $parent;
+            last NAMES if $parent->get_parent()->isa('SOAP::WSDL::XSD::Schema');
+            # skip empty names - atomic types have no name...
+            unshift @name_from, $parent->get_name()
+                if $parent->get_name();
+        }
+    }
+    # create name for top node
+    die "No top node found" if not defined $top_node;
+    my $top_node_name = $self->create_xsd_name($top_node);
+    my $package_name = join('::_', $top_node_name , (@name_from) ? join('::', @name_from) : () );
+
+    # replace dots by :: in name - subpackage names may include dots, too
+    $package_name =~s{\.}{::}xg;
+
+    return $package_name;
+}
+
+sub create_xmlattr_name {
+    return join '::', shift->create_subpackage_name(shift), 'XmlAttr';
+}
+
+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()) {
+            $element = $self->get_definitions()->first_types()
+                ->find_element($element->expand( $ref ) );
+            $name = $element->get_name();
+            last if ($name);
+        }
+    }
+    return $name;
+}
+
+1;
+
+=pod
+
+=head1 NAME
+
+SOAP::WSDL::Generator::Template::Plugin::XSD - Template plugin for the XSD generator
+
+=head1 METHODS
+
+=head2 perl_name
+
+ XSD.perl_name(element.get_name);
+
+Converts a XML name into a valid perl name (valid for subroutines, variables
+or the like).
+
+perl_name takes a crude approach by just replacing . and - (dot and dash)
+with a underscore. This may or may not be sufficient, and may or may not
+provoke collisions in your XML names.
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright 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: 564 $
+ $LastChangedBy: kutterma $
+ $Id: ComplexType.pm 564 2008-02-23 13:31:39Z kutterma $
+ $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm $
+
+=cut
+

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

@@ -1,18 +1,19 @@
 package SOAP::WSDL::Generator::Template::XSD;
-use strict;
-use Template;
+use strict; use warnings;
+use Template 2.18;
 use Class::Std::Fast::Storable;
 use File::Basename;
 use File::Spec;
 
-our $VERSION = q{2.00_25};
+our $VERSION = $SOAP::WSDL::VERSION;
 
 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 %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) = @_;
@@ -46,91 +47,105 @@ sub BUILD {
     );
 }
 
+# construct object on call to allow late binding of prefix_resolver class
+# and namespace maps (not used yet)
+sub get_name_resolver {
+    my $self = shift;
+    return SOAP::WSDL::Generator::Template::Plugin::XSD->new({
+        prefix_resolver => $self->get_prefix_resolver_class()->new({
+            namespace_prefix_map => {
+                'http://www.w3.org/2001/XMLSchema' => 'SOAP::WSDL::XSD::Typelib::Builtin',
+            },
+            namespace_map => {
+            },
+            prefix => {
+                attribute   =>  $self->get_attribute_prefix,
+                interface   =>  $self->get_interface_prefix,
+                element     =>  $self->get_element_prefix,
+                server      =>  $self->get_server_prefix,
+                type        =>  $self->get_type_prefix,
+                typemap     =>  $self->get_typemap_prefix,
+            }
+        })
+    });
+}
+
 sub generate {
     my $self = shift;
     my $opt = shift;
     $self->generate_typelib( $opt );
-#    $self->generate_interface( $opt );
     $self->generate_typemap( $opt );
 }
 
 sub generate_typelib {
-    my ($self) = @_;
-    # $output_of{ ident $self } = "";
-    my @schema = @{ $self->get_definitions()->first_types()->get_schema() };
-    for my $type (map { @{ $_->get_type() } , @{ $_->get_element() } } @schema[1..$#schema] ) {
+    my ($self, $arg_ref) = @_;
+    my @schema = exists $arg_ref->{ schema }
+        ? @{ $arg_ref->{schema} }
+        : @{ $self->get_definitions()->first_types()->get_schema() };
+    for my $type (map {
+            @{ $_->get_type() } ,
+            @{ $_->get_element() },
+            @{ $_->get_attribute() }
+        } @schema[1..$#schema] ) {
         $type->_accept( $self );
     }
-    # return $output_of{ ident $self };
     return;
 }
 
+sub _generate_interface {
+    my $self = shift;
+    my $arg_ref = shift;
+    my $template_name = delete $arg_ref->{ template_name };
+    my $name_method = delete $arg_ref->{ name_method };
+    for my $service (@{ $self->get_definitions->get_service }) {
+        for my $port (@{ $service->get_port() }) {
+            # Skip ports without (known) address
+            next if not $port->first_address;
+            next if not $port->first_address->isa('SOAP::WSDL::SOAP::Address');
+
+            my $port_name = $port->get_name;
+            $port_name =~s{ \A .+\. }{}xms;
+            my $output = $arg_ref->{ output }
+                ? $arg_ref->{ output }
+                : $self->_generate_filename(
+                    $self->get_name_resolver()->can($name_method)->(
+                        $self->get_name_resolver(),
+                        $service,
+                        $port,
+                ));
+            print "Creating interface class $output\n"
+                if not $silent_of{ident $self};
+
+            $self->_process($template_name,
+            {
+                service => $service,
+                port => $port,
+                NO_POD => $arg_ref->{ NO_POD } ? 1 : 0 ,
+             },
+            $output, binmode => ':utf8');
+        }
+    }
+}
+
 sub generate_server {
-    my $self = shift;
-    my $ident = ident $self;
-    my $arg_ref = shift;
-    for my $service (@{ $self->get_definitions->get_service }) {
-        for my $port (@{ $service->get_port() }) {
-            # Skip ports without (known) address
-            next if not $port->first_address;
-            next if not $port->first_address->isa('SOAP::WSDL::SOAP::Address');
-
-            my $port_name = $port->get_name;
-            $port_name =~s{ \A .+\. }{}xms;
-            my $output = $arg_ref->{ output }
-                ? $arg_ref->{ output }
-                : $self->_generate_filename(
-                    $self->get_server_prefix(),
-                    $service->get_name(),
-                    $port_name,
-            );
-            print "Creating interface class $output\n";
-
-            $self->_process('Server.tt',
-            {
-                service => $service,
-                port => $port,
-                NO_POD => $arg_ref->{ NO_POD } ? 1 : 0 ,
-             },
-            $output, binmode => ':utf8');
-        }
-    }
+    my ($self, $arg_ref) = @_;
+    $arg_ref->{ template_name } = 'Server.tt';
+    $arg_ref->{ name_method } = 'create_server_name';
+    $self->_generate_interface($arg_ref);
 }
 
-sub generate_interface {
-    my $self = shift;
-    my $ident = ident $self;
-    my $arg_ref = shift;
-    for my $service (@{ $self->get_definitions->get_service }) {
-        for my $port (@{ $service->get_port() }) {
-            # Skip ports without (known) address
-            next if not $port->first_address;
-            next if not $port->first_address->isa('SOAP::WSDL::SOAP::Address');
-
-            my $port_name = $port->get_name;
-            $port_name =~s{ \A .+\. }{}xms;
-            my $output = $arg_ref->{ output }
-                ? $arg_ref->{ output }
-                : $self->_generate_filename(
-                    $self->get_interface_prefix(),
-                    $service->get_name(),
-                    $port_name,
-            );
-            print "Creating interface class $output\n";
-
-            $self->_process('Interface.tt',
-            {
-                service => $service,
-                port => $port,
-                NO_POD => $arg_ref->{ NO_POD } ? 1 : 0 ,
-             },
-            $output, binmode => ':utf8');
-        }
-    }
+sub generate_client {
+    my ($self, $arg_ref) = @_;
+    $arg_ref->{ template_name } = 'Interface.tt';
+    $arg_ref->{ name_method } = 'create_interface_name';
+    $self->_generate_interface($arg_ref);
 }
+sub generate_interface;
+*generate_interface = \&generate_client;
 
 sub generate_typemap {
     my ($self, $arg_ref) = @_;
+
     my $visitor = SOAP::WSDL::Generator::Visitor::Typemap->new({
         type_prefix => $self->get_type_prefix(),
         element_prefix => $self->get_element_prefix(),
@@ -142,14 +157,25 @@ sub generate_typemap {
             'Fault/faultstring' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
             'Fault/detail' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
             %{ $typemap_of{ident $self }},
-        }
+        },
+        resolver => $self->get_name_resolver(),
     });
+
+    use SOAP::WSDL::Generator::Iterator::WSDL11;
+    my $iterator  = SOAP::WSDL::Generator::Iterator::WSDL11->new({
+        definitions => $self->get_definitions });
+
     for my $service (@{ $self->get_definitions->get_service }) {
-            $visitor->visit_Service( $service );
+            $iterator->init({ node => $service });
+            while (my $node = $iterator->get_next()) {
+                $node->_accept( $visitor );
+            }
+
             my $output = $arg_ref->{ output }
                 ? $arg_ref->{ output }
-                : $self->_generate_filename( $self->get_typemap_prefix(), $service->get_name() );
-            print "Creating typemap class $output\n";
+                : $self->_generate_filename( $self->get_name_resolver()->create_typemap_name($service) );
+            print "Creating typemap class $output\n"
+                if not $silent_of{ident $self};
             $self->_process('Typemap.tt',
             {
                 service => $service,
@@ -161,18 +187,28 @@ sub generate_typemap {
 }
 
 sub _generate_filename :PRIVATE {
-    my ($self, @parts) = @_;
-    my $name = join '::', @parts;
+    my ($self, $name) = @_;
     $name =~s{ \. }{::}xmsg;
+    $name =~s{ \- }{_}xmsg;
     $name =~s{ :: }{/}xmsg;
     return "$name.pm";
 }
 
+sub visit_XSD_Attribute {
+    my ($self, $attribute) = @_;
+    my $output = defined $output_of{ ident $self }
+        ? $output_of{ ident $self }
+        : $self->_generate_filename( $self->get_name_resolver()->create_xsd_name($attribute) );
+    $self->_process('attribute.tt', { attribute => $attribute } , $output);
+}
+
 sub visit_XSD_Element {
     my ($self, $element) = @_;
     my $output = defined $output_of{ ident $self }
         ? $output_of{ ident $self }
-        : $self->_generate_filename( $self->get_element_prefix(), $element->get_name() );
+        : $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);
 }
 
@@ -180,7 +216,9 @@ sub visit_XSD_SimpleType {
     my ($self, $type) = @_;
     my $output = defined $output_of{ ident $self }
         ? $output_of{ ident $self }
-        : $self->_generate_filename( $self->get_type_prefix(), $type->get_name() );
+        : $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);
 }
 
@@ -188,8 +226,112 @@ sub visit_XSD_ComplexType {
     my ($self, $type) = @_;
     my $output = defined $output_of{ ident $self }
         ? $output_of{ ident $self }
-        : $self->_generate_filename( $self->get_type_prefix(), $type->get_name() );
+        : $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;
+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.tt

@@ -1,4 +1,6 @@
-package [% interface_prefix %]::[% service.get_name.replace('\.', '::') %]::[% port.get_name.replace('^.+\.','') %];
+[% USE XSD -%]
+[% interface_name = XSD.create_interface_name(service, port) -%]
+package [% interface_name %];
 use strict;
 use warnings;
 use Class::Std::Fast::Storable;
@@ -6,20 +8,22 @@ use Scalar::Util qw(blessed);
 use base qw(SOAP::WSDL::Client::Base);
 
 # only load if it hasn't been loaded before
-require [% typemap_prefix %]::[% service.get_name.replace('\.', '::') %]
-    if not [% typemap_prefix %]::[% service.get_name.replace('\.', '::') %]->can('get_class');
+require [% XSD.create_typemap_name(service) %]
+    if not [% XSD.create_typemap_name(service) %]->can('get_class');
 
 sub START {
     $_[0]->set_proxy('[% port.first_address.get_location %]') if not $_[2]->{proxy};
-    $_[0]->set_class_resolver('[% typemap_prefix %]::[% service.get_name.replace('\.', '::') %]')
+    $_[0]->set_class_resolver('[% XSD.create_typemap_name(service) %]')
         if not $_[2]->{class_resolver};
+
+    $_[0]->set_prefix($_[2]->{use_prefix}) if exists $_[2]->{use_prefix};
 }
 
 [%      binding = definitions.find_binding( port.expand( port.get_binding ) );
         FOREACH operation = binding.get_operation;
 %][% INCLUDE Interface/Operation.tt %]
-[%
 
+[%
         END;
 %]
 
@@ -28,59 +32,62 @@ sub START {
 [% IF NO_POD; STOP; END %]
 
 __END__
+[%# work around for CPAN's indexer, which gets disturbed by pod in templates -%]
+[% pod = BLOCK %]=pod[% END -%]
+[% head1 = BLOCK %]=head1[% END -%]
+[% head2 = BLOCK %]=head2[% END -%]
+[% head3 = BLOCK %]=head3[% END -%]
 
-=pod
+[% pod %]
 
-=head1 NAME
+[% head1 %] NAME
 
+[% interface_name %] - SOAP Interface for the [% service.get_name %] Web Service
 
-[% interface_prefix %]::[% service.get_name.replace('\.', '::') %]::[% port.get_name.replace('\.', '::') %] - SOAP Interface for the [% service.get_name %] Web Service
+[% head1 %] SYNOPSIS
 
-=head1 SYNOPSIS
+ use [% interface_name %];
+ my $interface = [% interface_name %]->new();
 
- use [% interface_prefix %]::[% service.get_name.replace('\.', '::') %]::[% port.get_name.replace('\.', '::') %];
- my $interface = [% interface_prefix %]::[% service.get_name.replace('\.', '::') %]::[% port.get_name.replace('\.', '::') %]->new();
- 
  my $response;
 [%      FOREACH operation = binding.get_operation;
 %] $response = $interface->[% operation.get_name %]();
 [%      END %]
- 
 
-=head1 DESCRIPTION
+
+[% head1 %] DESCRIPTION
 
 SOAP Interface for the [% service.get_name %] web service
 located at [% port.first_address.get_location %].
 
-=head1 SERVICE [% service.get_name %]
+[% head1 %] SERVICE [% service.get_name %]
 
 [% service.get_documentation %]
 
-=head2 Port [% port.get_name %]
+[% head2 %] Port [% port.get_name %]
 
 [% port.get_documentation %]
 
-=head1 METHODS
+[% head1 %] METHODS
 
-=head2 General methods
+[% head2 %] General methods
 
-=head3 new
+[% head3 %] new
 
 Constructor.
 
 All arguments are forwarded to L<SOAP::WSDL::Client|SOAP::WSDL::Client>.
 
-=head2 SOAP Service methods
+[% head2 %] SOAP Service methods
 
 [% INCLUDE Interface/POD/method_info.tt %]
 
-
 [%      FOREACH operation = binding.get_operation;
 %][% INCLUDE Interface/POD/Operation.tt %]
 [%      END %]
 
-=head1 AUTHOR
+[% head1 %] AUTHOR
 
 Generated by SOAP::WSDL on [% PERL %]print scalar localtime() [% END %]
 
-=pod
+=cut

lib/SOAP/WSDL/Generator/Template/XSD/Interface/Body.tt

@@ -1,14 +1,12 @@
 [%  RETURN IF NOT item;
     type = definitions.find_portType( binding.expand( binding.get_type ) );
-    port_op = type.find_operation( definitions.get_targetNamespace, operation.get_name );
+    port_op = type.find_operation( type.get_targetNamespace, operation.get_name );
     message = definitions.find_message( port_op.first_input.expand( port_op.first_input.get_message ) );
     part_from = message.get_part;
     PERL %]
     my $item = $stash->{ item };
     my $def = $stash->{ definitions };
-    my $part_from = $stash->{ part_from };
-    my $type_prefix = $stash->{ type_prefix };
-    my $element_prefix = $stash->{ element_prefix };
+    my $part_from = $stash->{ message }->get_part();
 
     my @body_part_from = split m{\s}, $item->get_parts;
 
@@ -17,22 +15,25 @@
         @parts = map {
             my $part = $_;
             (grep {
-                my ($ns, $lname) = $def->expand( $_ );
-                ($lname eq $part->get_name)
+                # my ($ns, $lname) = $def->expand( $_ );
+                ($_ eq $part->get_name)
                 } @body_part_from
             )
             ? do {
                 my $name;
                 ($name = $part->get_element)
                     ? do {
-                        $name =~s{ ^[^:]+: }{}xms;
-                        $element_prefix . '::' . $name;
-                        }
+                        my $element = $def->first_types->find_element($part->expand($name));
+                        my $resolver = $context->plugin('XSD');
+                        $resolver->create_xsd_name($element);
+
+                    }
                     : ($name = $part->get_type)
                         ? do {
-                            $name =~s{ ^[^:]+: }{}xms;
-                            $type_prefix . '::' . $name;
-                            }
+                            my $element = $def->first_types->find_type($part->expand($name));
+                            my $resolver = $context->plugin('XSD');
+                            $resolver->create_xsd_name($element);
+                        }
                     : die "input must have either type or element"
                 }
             : ()
@@ -44,21 +45,31 @@
             my $name;
             ($name = $part->get_element)
                ? do {
-                    $name =~s{ ^[^:]+: }{}xms;
-                    "$element_prefix\::$name"
-                    }
+                    my $element = $def->first_types->find_element($part->expand($name));
+                    my $resolver = $context->plugin('XSD');
+                    $resolver->create_xsd_name($element);
+               }
                : ($name = $part->get_type)
                     ? do {
-                        $name =~s{ ^[^:]+: }{}xms;
-                        "$type_prefix\::$name"
+                            my $element = $def->first_types->find_type($part->expand($name));
+                            my $resolver = $context->plugin('XSD');
+                            $resolver->create_xsd_name($element);
                     }
                     : die "input must have either type or element";
         } @{ $part_from };
     }
+
+    warn "Multiple parts detected in message " . $stash->{ message }->get_name() . ".\n",
+        "WS-I BP demands 0 to 1 parts in message body\n"
+        if (@parts > 1);
+
     $stash->{ parts } = \@parts;
 
 [% END %]
-           'use' => '[% item.get_use %]',
-            namespace => '[% item.get_namespace %]',
-            encodingStyle => '[% item.get_encodingStyle %]',
-            parts => [qw( [% parts.join(' ') %] )],
+[% IF item.get_use != 'literal';
+    THROW NOT_SUPPORTED "Body: SOAP::WSDL supports literal encoding only - ${ item.get_use } found";
+END %]
+           'use'            => '[% item.get_use %]',
+            namespace       => '[% item.get_namespace %]',
+            encodingStyle   => '[% item.get_encodingStyle %]',
+            parts           =>  [qw( [% parts.join(' ') %] )],

lib/SOAP/WSDL/Generator/Template/XSD/Interface/Header.tt

@@ -11,27 +11,34 @@
     my $def = $stash->{ definitions };
     my $type_prefix = $stash->{ type_prefix };
     my $element_prefix = $stash->{ element_prefix };
-    my ($ns, $lname) = $def->expand( $item->get_part() );
+    #my ($ns, $lname) = $def->expand( $item->get_part() );
+    my $part_name = $item->get_part();
     my ($part) = grep {
-        $_->get_name eq $lname
-        && $_->get_targetNamespace eq $ns } @{ $message->get_part( ) };
+        $_->get_name eq $part_name
+        } @{ $message->get_part( ) };
     my $part_class = do {
         my $name;
         ($name = $part->get_element)
             ? do {
-                $name =~s{ ^[^:]+: }{}xms;
-                $element_prefix . '::' . $name;
+                    my $element = $def->first_types->find_element($part->expand($name));
+                    my $resolver = $context->plugin('XSD');
+                    $resolver->create_xsd_name($element);
                 }
             : ($name = $part->get_type)
                 ? do {
-                    $name =~s{ ^[^:]+: }{}xms;
-                    $type_prefix . '::' . $name;
-                    }
+                        my $element = $def->first_types->find_type($part->expand($name));
+                        my $resolver = $context->plugin('XSD');
+                        $resolver->create_xsd_name($element);
+                }
                 : die "input must have either type or element"
             };
     $stash->{ part_class } = $part_class;
     [% END;
- %]
+%]
+[% IF item.get_use != 'literal';
+    THROW NOT_SUPPORTED "Header: SOAP::WSDL supports literal encoding only - ${ item.get_use } found";
+END %]
+
            'use' => '[% item.get_use %]',
             namespace => '[% item.get_namespace %]',
             encodingStyle => '[% item.get_encodingStyle %]',

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

@@ -4,7 +4,12 @@ sub [% operation.get_name %] {
     return $self->SUPER::call({
         operation => '[% operation.get_name %]',
         soap_action => '[% operation.first_operation.get_soapAction %]',
-        style => '[% operation.get_style || binding.get_style %]',
+        style => [% style = operation.first_operation.get_style || binding.get_style;
+    IF style != "document";
+        THROW NOT_SUPPORTED "SOAP::WSDL supports document encoding only - $style found";
+    END;
+-%]
+'[% style %]',
         body => {
             [% INCLUDE Interface/Body.tt( item = operation.first_input.first_body ); %]
         },

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

@@ -1,8 +1,19 @@
-=head3 [% operation.get_name %]
+[%# work around for CPAN's indexer, which gets disturbed by pod in templates -%]
+[% head3 = BLOCK %]=head3[% END -%]
+[% head3 %] [% operation.get_name %]
 
 [%     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 %] );