Merge pull request #2 from rejitnatarajan/pod-fix

missing asterisk fixes pod error
2015-02-11 22:46:16 -06:00 · 2015-02-12 09:55:29 +05:30 · 2014-09-16 17:49:01 -04:00 · 2014-09-16 17:40:18 -04:00 · 2014-09-16 03:30:20 -04:00 · 2014-09-16 03:30:20 -04:00
435 changed files with 20169 additions and 7741 deletions
--- a/Build.PL
+++ b/Build.PL
@@ -1,55 +0,0 @@
-use Module::Build;
-
-$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_24',
-	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'                    => '5.8.0',
-        'Class::Std'              => q/v0.0.8/,
-		'Class::Std::Storable'    => 0,
-        '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'              => q/v0.0.8/,
-		'Class::Std::Storable'    => 0,
-		'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;
--- a/739
+++ b/739
--- a/10
+++ b/10
@@ -61,7 +61,7 @@ The following guidelines apply:
 - Testing
    * SOAP::WSDL has a test coverage of >95% and aims at 100%. Please write
    a test first.
-    * Use uthor tests are for testing guidelines. Disable author tests for
+    * Use author tests for testing guidelines. Disable author tests for
    users - it's time consuming and of no use to have users run author tests.

 - Indentation and formatting
@@ -69,9 +69,9 @@ The following guidelines apply:
    * indent 4 characters per level
    * use \n (LF) for newlines, not CRLF
    * use blank lines to separate paragraphs
-    * Coding style is similar to K&R (opening brace on last line, closing 
+    * Coding style is similar to K&R (opening brace on last line, closing
    brace on new line. No cuddled else)
-    * No trailing spaces allowed (except to indicate a blank line in a POD 
+    * No trailing spaces allowed (except to indicate a blank line in a POD
    source block)

 - Flow control
@@ -88,7 +88,7 @@ The following guidelines apply:
    perlcritic fool you: no strict qw(refs); is often required.

 - Naming
-    * variable names are lower case with _ separating words, except when 
+    * variable names are lower case with _ separating words, except when
    a XML Schema, SOAP, or WSDL name is name-giving (don't force portType to
    become port_type)
    * hashes should be named FOO_of, lists FOO_from, references FOO_ref.
@@ -121,7 +121,7 @@ The following guidelines apply:
        $_[0]->foo($_[2..$#]);  # read as $self->foo(%args_of);
        return;
    }
-    * POD is located at end of file, preferably after 
+    * POD is located at end of file, preferably after __END__
    * Complete POD coverage is essential. However, if the package in question
    is used internally only, it's better to omit the POD completely - too many
    PODs to look at confuse the average CPAN user.
--- a/141
+++ b/141
@@ -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
+
--- a/1
+++ b/1
@@ -1 +0,0 @@
-
--- a/209
+++ b/209
@@ -1,11 +1,35 @@
 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
+example/cgi-bin/helloworld.pl
+example/cgi-bin/person.pl
 example/fortune.pl
+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
@@ -19,18 +43,52 @@ example/lib/MyElements/GetSpecificCookieResponse.pm
 example/lib/MyElements/GetWeather.pm
 example/lib/MyElements/GetWeatherResponse.pm
 example/lib/MyElements/int.pm
+example/lib/MyElements/ListPerson.pm
+example/lib/MyElements/ListPersonResponse.pm
 example/lib/MyElements/readNodeCount.pm
 example/lib/MyElements/readNodeCountResponse.pm
+example/lib/MyElements/sayHello.pm
+example/lib/MyElements/sayHelloResponse.pm
 example/lib/MyElements/string.pm
+example/lib/MyInterfaces/BarCode/BarCodeSoap.pm
 example/lib/MyInterfaces/FullerData_x0020_Fortune_x0020_Cookie/FullerData_x0020_Fortune_x0020_CookieSoap.pm
 example/lib/MyInterfaces/GlobalWeather/GlobalWeatherSoap.pm
+example/lib/MyInterfaces/HelloWorld/HelloWorldSoap.pm
+example/lib/MyInterfaces/TestService/TestPort.pm
+example/lib/MyServer/HelloWorld/HelloWorldSoap.pm
+example/lib/MyServer/TestService/TestPort.pm
+example/lib/MyTypemaps/BarCode.pm
 example/lib/MyTypemaps/FullerData_x0020_Fortune_x0020_Cookie.pm
 example/lib/MyTypemaps/GlobalWeather.pm
+example/lib/MyTypemaps/HelloWorld.pm
+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
+example/wsdl/11_helloworld.wsdl
 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
@@ -50,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
@@ -78,20 +150,31 @@ 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
+lib/SOAP/WSDL/Generator/Template/XSD/Server/POD/Operation.tt
+lib/SOAP/WSDL/Generator/Template/XSD/Server/POD/OutPart.tt
 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
@@ -104,24 +187,46 @@ lib/SOAP/WSDL/Part.pm
 lib/SOAP/WSDL/Port.pm
 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
@@ -172,28 +277,25 @@ 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
-MAINFEST
 Makefile.PL
-MANIFEST
+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/005_parse_contributed.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/018_compat_2_00_15-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
 t/099_pod_coverage.t
@@ -218,30 +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/MyElements/GetWeather.pm
-t/lib/MyElements/GetWeatherResponse.pm
-t/lib/MyInterfaces/GlobalWeather.pm
+t/lib/MySimpleElement.pm
 t/lib/MySimpleType.pm
-t/lib/MyTypemaps/GlobalWeather.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/01_use.t
+t/SOAP/WSDL.t
 t/SOAP/WSDL/02_port.t
 t/SOAP/WSDL/03_complexType-all.t
 t/SOAP/WSDL/03_complexType-choice.t
@@ -259,24 +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
@@ -287,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
@@ -296,6 +445,7 @@ t/SOAP/WSDL/XSD/Typelib/Builtin/IDREFS.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/int.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/integer.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/language.t
+t/SOAP/WSDL/XSD/Typelib/Builtin/list.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/long.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/Name.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/NCName.t
@@ -307,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
@@ -317,6 +468,12 @@ t/SOAP/WSDL/XSD/Typelib/Builtin/unsignedLong.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/unsignedShort.t
 t/SOAP/WSDL/XSD/Typelib/ComplexType.t
 t/SOAP/WSDL/XSD/Typelib/Element.t
+t/SOAP/WSDL_1.wsdl
+t/SOAP/WSDL_EMPTY_DEFINITIONS.wsdl
+t/SOAP/WSDL_NO_BINDING.wsdl
+t/SOAP/WSDL_NO_MESSAGE.wsdl
+t/SOAP/WSDL_NO_PORTTYPE.wsdl
 t/test.wsdl
 TEST_COVERAGE
+test_html.pl
 TODO
--- a/META.yml
+++ b/META.yml
@@ -1,258 +0,0 @@
---
-name: SOAP-WSDL
-version: 2.00_24
-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: v0.0.8
-  Class::Std::Storable: 0
-  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_17
-  SOAP::WSDL::Base:
-    file: lib/SOAP/WSDL/Base.pm
-    version: 2.00_17
-  SOAP::WSDL::Binding:
-    file: lib/SOAP/WSDL/Binding.pm
-  SOAP::WSDL::Client:
-    file: lib/SOAP/WSDL/Client.pm
-    version: 2.00_17
-  SOAP::WSDL::Client::Base:
-    file: lib/SOAP/WSDL/Client/Base.pm
-    version: 2.00_24
-  SOAP::WSDL::Definitions:
-    file: lib/SOAP/WSDL/Definitions.pm
-    version: 2.00_17
-  SOAP::WSDL::Deserializer::Hash:
-    file: lib/SOAP/WSDL/Deserializer/Hash.pm
-    version: 2.00_24
-  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_24
-  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_24
-  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_17
-  SOAP::WSDL::Generator::Template:
-    file: lib/SOAP/WSDL/Generator/Template.pm
-    version: 2.00_17
-  SOAP::WSDL::Generator::Template::XSD:
-    file: lib/SOAP/WSDL/Generator/Template/XSD.pm
-  SOAP::WSDL::Generator::Visitor:
-    file: lib/SOAP/WSDL/Generator/Visitor.pm
-    version: 2.00_17
-  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
-  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_17
-  SOAP::WSDL::SOAP::Typelib::Fault11:
-    file: lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm
-    version: 2.00_17
-  SOAP::WSDL::Serializer::XSD:
-    file: lib/SOAP/WSDL/Serializer/XSD.pm
-    version: 2.00_24
-  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_17
-  SOAP::WSDL::Transport::Test:
-    file: lib/SOAP/WSDL/Transport/Test.pm
-    version: 2.00_14
-  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_17
-  SOAP::WSDL::XSD::Element:
-    file: lib/SOAP/WSDL/XSD/Element.pm
-    version: 2.00_22
-  SOAP::WSDL::XSD::Schema:
-    file: lib/SOAP/WSDL/XSD/Schema.pm
-  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_17
-  SOAP::WSDL::XSD::Typelib::Builtin:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin.pm
-    version: 2.00_17
-  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_17
-  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_18
-  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_24
-  SOAP::WSDL::XSD::Typelib::Element:
-    file: lib/SOAP/WSDL/XSD/Typelib/Element.pm
-    version: 2.00_24
-  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/
--- a/79
+++ b/79
@@ -0,0 +1,79 @@
+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.
+
+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
+----------------------
+
+Background
+
+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
+no need to change anything in your (handwritten) code.
+
+Generated interfaces
+
+SOAP::WSDL's internal structure has changed, and this change needs to
+be reflected in all generated classes.
+
+This means you have to re-generate your interfaces (in case you use generated
+interfaces)
+
+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
+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
+-------------------
+
+Background
+
+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 existing code under most circumstances.
+SOAP::WSDL is the compatibility module for old interfaces.
+
+Overloading
+
+Message overloading (as introduced in 1.23) is not supported any more.
+
+Message overloading is prohibited by the WS-I basic profile, therefore
+SOAP::WSDL does not implement it any more.
--- a/Makefile.PL
+++ b/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',
+         },
+     }})
+     : ()
+   ),
+);
+
--- a/37
+++ b/37
@@ -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.
--- a/22
+++ b/22
@@ -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"

--- a/13
+++ b/13
@@ -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.
--- a/benchmark/01_expat.t
+++ b/benchmark/01_expat.t
@@ -1,40 +1,68 @@
 #!/usr/bin/perl -w
-%DB::packages=(SOAP::WSDL::Expat::MessageParser => 1);
-%DB::packages=(SOAP::WSDL::Expat::MessageParser => 1);
 use strict;
 use warnings;
 use lib '../lib';
-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;
 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>};
@@ -55,13 +83,19 @@ my $libxml = XML::LibXML->new();
 $libxml->keep_blanks(0);
 my @data;

-sub libxml_test { 
+my $deserializer = SOAP::Deserializer->new();
+
+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') {
@@ -76,7 +110,7 @@ sub dom2hash {
                    $_[1] = [ $_[1], $_->textContent() ];
                }
                else {
-                    $_[1]->{ $_->nodeName } = [ $_[1]->{ $_->nodeName } , 
+                    $_[1]->{ $_->nodeName } = [ $_[1]->{ $_->nodeName } ,
                        dom2hash( $_, {} ) ];
                }
            }
@@ -92,19 +126,17 @@ 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,
+  'SOAP::Lite' => sub { push @data, $deserializer->deserialize( $xml ) },
 };

-
-# for (1..10000) { push @data, $parser->parse( $xml ) };
-
 # data classes reside in t/lib/Typelib/
 BEGIN {
    package FakeResolver;
@@ -115,6 +147,8 @@ BEGIN {
            'MyAtomicComplexTypeElement/test/test2' => 'MyTestElement2',
        );

+        sub get_typemap { return \%class_list; };
+
        sub get_map { return \%class_list };

        sub new { return bless {}, 'FakeResolver' };
@@ -126,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%                --
--- a/benchmark/MEMORY_FOOTPRINT
+++ b/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
+    .
--- a/benchmark/README
+++ b/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.
--- a/benchmark/XSD/02_anySimpleType.t
+++ b/benchmark/XSD/02_anySimpleType.t
@@ -2,6 +2,8 @@ use strict;
 use warnings;
 use Benchmark;
 use lib '../../lib';
+use lib '../../../Class-Std-Fast/lib';
+
 use SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;

 my $obj = SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType->new();
@@ -9,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') },
 };
@@ -19,3 +21,37 @@ timethese 1000000, {
    'set_FOO' => sub { $obj->set_value('Test') },
    'get_FOO' => sub { $data = $obj->get_value() },
 };
+
+__END__
+
+Benchmark: timing 10000 iterations of new, new + params, set_FOO...
+       new:  0 wallclock secs ( 0.83 usr +  0.00 sys =  0.83 CPU) @ 12048.19/s (n=10000)
+new + params:  1 wallclock secs ( 0.58 usr +  0.00 sys =  0.58 CPU) @ 17241.38/s (n=10000)
+   set_FOO:  0 wallclock secs ( 0.01 usr +  0.00 sys =  0.01 CPU) @ 1000000.00/s (n=10000)
+            (warning: too few iterations for a reliable count)
+Benchmark: timing 1000000 iterations of get_FOO, set_FOO...
+   get_FOO:  1 wallclock secs ( 1.79 usr +  0.01 sys =  1.80 CPU) @ 555555.56/s (n=1000000)
+   set_FOO:  2 wallclock secs ( 1.44 usr +  0.03 sys =  1.47 CPU) @ 680272.11/s (n=1000000)
+
+## Fast:
+Benchmark: timing 10000 iterations of new, new + params, set_FOO...
+       new:  1 wallclock secs ( 0.67 usr +  0.01 sys =  0.68 CPU) @ 14705.88/s (n=10000)
+new + params:  1 wallclock secs ( 0.54 usr +  0.00 sys =  0.54 CPU) @ 18518.52/s (n=10000)
+   set_FOO:  0 wallclock secs ( 0.01 usr +  0.00 sys =  0.01 CPU) @ 1000000.00/s (n=10000)
+            (warning: too few iterations for a reliable count)
+Benchmark: timing 1000000 iterations of get_FOO, set_FOO...
+   get_FOO:  2 wallclock secs ( 1.11 usr +  0.00 sys =  1.11 CPU) @ 900900.90/s (n=1000000)
+   set_FOO:  2 wallclock secs ( 0.80 usr +  0.00 sys =  0.80 CPU) @ 1250000.00/s (n=1000000)
+
+## Fast qw(2);
+Benchmark: timing 10000 iterations of new, new + params, set_FOO...
+       new:  1 wallclock secs ( 0.17 usr +  0.00 sys =  0.17 CPU) @ 58823.53/s (n=10000)
+            (warning: too few iterations for a reliable count)
+new + params:  0 wallclock secs ( 0.19 usr +  0.00 sys =  0.19 CPU) @ 52631.58/s (n=10000)
+            (warning: too few iterations for a reliable count)
+   set_FOO:  0 wallclock secs ( 0.01 usr +  0.00 sys =  0.01 CPU) @ 1000000.00/s (n=10000)
+            (warning: too few iterations for a reliable count)
+Benchmark: timing 1000000 iterations of get_FOO, set_FOO...
+   get_FOO:  1 wallclock secs ( 1.12 usr +  0.00 sys =  1.12 CPU) @ 892857.14/s (n=1000000)
+   set_FOO:  0 wallclock secs ( 0.80 usr +  0.01 sys =  0.81 CPU) @ 1234567.90/s (n=1000000)
+
--- a/benchmark/XSD/03_string.t
+++ b/benchmark/XSD/03_string.t
@@ -2,6 +2,8 @@ use strict;
 use warnings;
 use Benchmark;
 use lib '../../lib';
+use lib '../../../Class-Std-Fast/lib';
+
 use SOAP::WSDL::XSD::Typelib::Builtin::string;

 my $obj = SOAP::WSDL::XSD::Typelib::Builtin::string->new();
@@ -9,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');
@@ -23,3 +26,32 @@ timethese 1000000, {
    'set_FOO' => sub { $obj->set_value('Test') },
    'get_FOO' => sub { $data = $obj->get_value() },
 };
+
+
+
+__END__
+
+Benchmark: timing 20000 iterations of new, new + params...
+       new:  1 wallclock secs ( 0.41 usr +  0.00 sys =  0.41 CPU) @ 48780.49/s (n=20000)
+new + params:  1 wallclock secs ( 0.53 usr +  0.01 sys =  0.54 CPU) @ 37037.04/s (n=20000)
+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
+---
+Benchmark: timing 20000 iterations of new, new + params...
+       new:  0 wallclock secs ( 0.44 usr +  0.01 sys =  0.45 CPU) @ 44444.44/s (n=20000)
+new + params:  1 wallclock secs ( 0.55 usr +  0.00 sys =  0.55 CPU) @ 36363.64/s (n=20000)
+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
+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: timing 1000000 iterations of get_FOO, set_FOO...
+   get_FOO:  2 wallclock secs ( 0.80 usr +  0.00 sys =  0.80 CPU) @ 1250000.00/s (n=1000000)
+   set_FOO:  2 wallclock secs ( 0.89 usr + -0.01 sys =  0.88 CPU) @ 1136363.64/s (n=1000000)
--- a/benchmark/XSD/strftime.pl
+++ b/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%           --
+
--- a/benchmark/hello.pl
+++ b/benchmark/hello.pl
@@ -0,0 +1,93 @@
+#!/usr/bin/perl -w
+use strict;
+use warnings;
+use diagnostics;
+use lib '../example/lib';
+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 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 => $proxy
+);
+
+$lite->on_action( sub { "urn:HelloWorld#sayHello" });
+$lite->autotype(0);
+
+my $soap = MyInterfaces::HelloWorld::HelloWorldSoap->new({
+	proxy => $proxy,
+});
+
+my $soap_xs = MyInterfaces::HelloWorld::HelloWorldSoap->new({
+	proxy => $proxy,
+});
+#$soap_xs->set_deserializer( SOAP::WSDL::Deserializer::XSD_XS->new() );
+
+my @result = ();;
+
+sub wsdl_bench {
+    push @result, $soap->sayHello({
+        name => $ARGV[1] || '"Your name"',
+        givenName => $ARGV[0] || '"Your given name"',
+    });
+}
+
+sub wsdl_xs_bench {
+    push @result, $soap_xs->sayHello({
+        name => $ARGV[1] || '"Your name"',
+        givenName => $ARGV[0] || '"Your given name"',
+    });
+}
+
+my $wsdl = XML::Compile::WSDL11->new('../example/wsdl/11_helloworld.wsdl');
+my $call = $wsdl->compileClient('sayHello',
+    sloppy_integers => 1,
+    check_values    => 0,
+    check_values    => 0,
+    validation      => 0,
+);
+
+sub compile_bench {
+    push @result, $call->(
+        name => $ARGV[1] || '"Your name"',
+        givenName => $ARGV[0] || '"Your given name"',
+    );
+}
+
+sub lite_bench {
+    push @result, $lite->call(
+        SOAP::Data->name("sayHello")
+            ->attr({ xmlns => 'urn:HelloWorld' }),
+        SOAP::Data->name('name')->value( $ARGV[1] || '"Your name"'),
+        SOAP::Data->name('givenName')->value( $ARGV[0] || '"Your given name"'),
+    );
+}
+
+# give all a chance to perform first-run initializations
+compile_bench();
+lite_bench();
+wsdl_bench();
+#wsdl_xs_bench();
+
+timethese 150, {
+    'SOAP::WSDL' => \&wsdl_bench,
+#    'SOAP::WSDL_XS' => \&wsdl_xs_bench,
+    'XML::Compile' => \&compile_bench,
+    'SOAP::Lite' => \&lite_bench,
+};
+
--- a/benchmark/person.pl
+++ b/benchmark/person.pl
@@ -0,0 +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;
+
+use Benchmark qw(cmpthese);
+
+use XML::Compile::SOAP11;
+use XML::Compile::Transport::SOAPHTTP();
+use XML::Compile::Util;
+use XML::Compile::WSDL11;
+use XML::Simple;
+
+use SOAP::Lite;
+use MyInterfaces::TestService::TestPort;
+
+#use SOAP::WSDL::Deserializer::XSD_XS;
+use SOAP::WSDL::Factory::Deserializer;
+
+#
+# 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
+#
+
+my $call = $compile->compileClient('ListPerson');
+$call->({ in => undef});
+
+# Initialize SOAP::WSDL interface
+my $soap = MyInterfaces::TestService::TestPort->new();
+# Load all classes - XML::Compile has created everything before, too
+$soap->ListPerson({});
+
+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
+
+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++;
+cmpthese $count, {
+	'SOAP::Lite'	=> sub { my $som = $lite->call('ListPerson') },
+    'SOAP::WSDL' => sub { my $result = $soap->ListPerson({}) },
+#    'SOAP::WSDL_XS' => sub { my $result = $wsdl_xs->ListPerson({}) },
+    '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 $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 "\nBenchmark $n: Play it, please play it again, Sam\n";
+$n++;
+cmpthese $count, {
+
+    'SOAP::WSDL'    => sub { push @data, $soap->ListPerson({}) },
+#    'SOAP::WSDL_XS' => sub { push @data, $wsdl_xs->ListPerson({}) },
+#    '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 }) },
+};
+
--- a/benchmark/person.xml
+++ b/benchmark/person.xml
@@ -0,0 +1,437 @@
+<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>2</ID>
+				</PersonID>
+				<Salutation>Salutation2</Salutation>
+				<Name>Name2</Name>
+				<GivenName>Martin2</GivenName>
+				<DateOfBirth>1970-01-02</DateOfBirth>
+				<HomeAddress>
+					<Street>Street 2</Street>
+					<ZIP>00002</ZIP>
+					<City>City2</City>
+					<Country>Country2</Country>
+					<PhoneNumber>++4900000002</PhoneNumber>
+					<MobilePhoneNumber>++491700000002</MobilePhoneNumber>
+				</HomeAddress>
+				<WorkAddress>
+					<Street>Somestreet 2</Street>
+					<ZIP>222222</ZIP>
+					<City>SomeCity2</City>
+					<Country>Germany</Country>
+					<PhoneNumber>++4920000002</PhoneNumber>
+					<MobilePhoneNumber>++4920000002</MobilePhoneNumber>
+				</WorkAddress>
+				<Contracts>
+					<Contract>
+						<ContractID>100002</ContractID>
+						<ContractName>SomeContract2</ContractName>
+					</Contract>
+					<Contract>
+						<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>3</ID>
+				</PersonID>
+				<Salutation>Salutation3</Salutation>
+				<Name>Name3</Name>
+				<GivenName>Martin3</GivenName>
+				<DateOfBirth>1970-01-03</DateOfBirth>
+				<HomeAddress>
+					<Street>Street 3</Street>
+					<ZIP>00003</ZIP>
+					<City>City3</City>
+					<Country>Country3</Country>
+					<PhoneNumber>++4900000003</PhoneNumber>
+					<MobilePhoneNumber>++491700000003</MobilePhoneNumber>
+				</HomeAddress>
+				<WorkAddress>
+					<Street>Somestreet 3</Street>
+					<ZIP>333333</ZIP>
+					<City>SomeCity3</City>
+					<Country>Germany</Country>
+					<PhoneNumber>++4930000003</PhoneNumber>
+					<MobilePhoneNumber>++4930000003</MobilePhoneNumber>
+				</WorkAddress>
+				<Contracts>
+					<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>4</ID>
+				</PersonID>
+				<Salutation>Salutation4</Salutation>
+				<Name>Name4</Name>
+				<GivenName>Martin4</GivenName>
+				<DateOfBirth>1970-01-04</DateOfBirth>
+				<HomeAddress>
+					<Street>Street 4</Street>
+					<ZIP>00004</ZIP>
+					<City>City4</City>
+					<Country>Country4</Country>
+					<PhoneNumber>++4900000004</PhoneNumber>
+					<MobilePhoneNumber>++491700000004</MobilePhoneNumber>
+				</HomeAddress>
+				<WorkAddress>
+					<Street>Somestreet 4</Street>
+					<ZIP>444444</ZIP>
+					<City>SomeCity4</City>
+					<Country>Germany</Country>
+					<PhoneNumber>++4940000004</PhoneNumber>
+					<MobilePhoneNumber>++4940000004</MobilePhoneNumber>
+				</WorkAddress>
+				<Contracts>
+					<Contract>
+						<ContractID>100004</ContractID>
+						<ContractName>SomeContract4</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100041</ContractID>
+						<ContractName>SomeContract41</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100044</ContractID>
+						<ContractName>SomeContract44</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>1000044</ContractID>
+						<ContractName>SomeContract44</ContractName>
+					</Contract>
+				</Contracts>
+			</NewElement>
+			<NewElement>
+				<PersonID>
+					<ID>5</ID>
+				</PersonID>
+				<Salutation>Salutation5</Salutation>
+				<Name>Name5</Name>
+				<GivenName>Martin5</GivenName>
+				<DateOfBirth>1970-01-05</DateOfBirth>
+				<HomeAddress>
+					<Street>Street 5</Street>
+					<ZIP>00005</ZIP>
+					<City>City5</City>
+					<Country>Country5</Country>
+					<PhoneNumber>++4900000005</PhoneNumber>
+					<MobilePhoneNumber>++491700000005</MobilePhoneNumber>
+				</HomeAddress>
+				<WorkAddress>
+					<Street>Somestreet 5</Street>
+					<ZIP>555555</ZIP>
+					<City>SomeCity5</City>
+					<Country>Germany</Country>
+					<PhoneNumber>++4950000005</PhoneNumber>
+					<MobilePhoneNumber>++4950000005</MobilePhoneNumber>
+				</WorkAddress>
+				<Contracts>
+					<Contract>
+						<ContractID>100005</ContractID>
+						<ContractName>SomeContract5</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100051</ContractID>
+						<ContractName>SomeContract51</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100055</ContractID>
+						<ContractName>SomeContract55</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>1000053</ContractID>
+						<ContractName>SomeContract53</ContractName>
+					</Contract>
+				</Contracts>
+			</NewElement>
+			<NewElement>
+				<PersonID>
+					<ID>6</ID>
+				</PersonID>
+				<Salutation>Salutation6</Salutation>
+				<Name>Name6</Name>
+				<GivenName>Martin6</GivenName>
+				<DateOfBirth>1970-01-06</DateOfBirth>
+				<HomeAddress>
+					<Street>Street 6</Street>
+					<ZIP>00006</ZIP>
+					<City>City6</City>
+					<Country>Country6</Country>
+					<PhoneNumber>++4900000006</PhoneNumber>
+					<MobilePhoneNumber>++491700000006</MobilePhoneNumber>
+				</HomeAddress>
+				<WorkAddress>
+					<Street>Somestreet 6</Street>
+					<ZIP>666666</ZIP>
+					<City>SomeCity6</City>
+					<Country>Germany</Country>
+					<PhoneNumber>++4960000006</PhoneNumber>
+					<MobilePhoneNumber>++4960000006</MobilePhoneNumber>
+				</WorkAddress>
+				<Contracts>
+					<Contract>
+						<ContractID>100006</ContractID>
+						<ContractName>SomeContract6</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100061</ContractID>
+						<ContractName>SomeContract61</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100066</ContractID>
+						<ContractName>SomeContract66</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>1000063</ContractID>
+						<ContractName>SomeContract63</ContractName>
+					</Contract>
+				</Contracts>
+			</NewElement>
+			<NewElement>
+				<PersonID>
+					<ID>7</ID>
+				</PersonID>
+				<Salutation>Salutation7</Salutation>
+				<Name>Name7</Name>
+				<GivenName>Martin7</GivenName>
+				<DateOfBirth>1970-01-07</DateOfBirth>
+				<HomeAddress>
+					<Street>Street 7</Street>
+					<ZIP>00007</ZIP>
+					<City>City7</City>
+					<Country>Country7</Country>
+					<PhoneNumber>++4900000007</PhoneNumber>
+					<MobilePhoneNumber>++491700000007</MobilePhoneNumber>
+				</HomeAddress>
+				<WorkAddress>
+					<Street>Somestreet 7</Street>
+					<ZIP>777777</ZIP>
+					<City>SomeCity7</City>
+					<Country>Germany</Country>
+					<PhoneNumber>++4970000007</PhoneNumber>
+					<MobilePhoneNumber>++4970000007</MobilePhoneNumber>
+				</WorkAddress>
+				<Contracts>
+					<Contract>
+						<ContractID>100007</ContractID>
+						<ContractName>SomeContract7</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100071</ContractID>
+						<ContractName>SomeContract71</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100077</ContractID>
+						<ContractName>SomeContract77</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>1000073</ContractID>
+						<ContractName>SomeContract73</ContractName>
+					</Contract>
+				</Contracts>
+			</NewElement>
+			<NewElement>
+				<PersonID>
+					<ID>8</ID>
+				</PersonID>
+				<Salutation>Salutation8</Salutation>
+				<Name>Name8</Name>
+				<GivenName>Martin8</GivenName>
+				<DateOfBirth>1970-01-08</DateOfBirth>
+				<HomeAddress>
+					<Street>Street 8</Street>
+					<ZIP>00008</ZIP>
+					<City>City8</City>
+					<Country>Country8</Country>
+					<PhoneNumber>++4900000008</PhoneNumber>
+					<MobilePhoneNumber>++491700000008</MobilePhoneNumber>
+				</HomeAddress>
+				<WorkAddress>
+					<Street>Somestreet 8</Street>
+					<ZIP>888888</ZIP>
+					<City>SomeCity8</City>
+					<Country>Germany</Country>
+					<PhoneNumber>++4980000008</PhoneNumber>
+					<MobilePhoneNumber>++4980000008</MobilePhoneNumber>
+				</WorkAddress>
+				<Contracts>
+					<Contract>
+						<ContractID>100008</ContractID>
+						<ContractName>SomeContract8</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100081</ContractID>
+						<ContractName>SomeContract81</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100088</ContractID>
+						<ContractName>SomeContract88</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>1000083</ContractID>
+						<ContractName>SomeContract83</ContractName>
+					</Contract>
+				</Contracts>
+			</NewElement>
+			<NewElement>
+				<PersonID>
+					<ID>9</ID>
+				</PersonID>
+				<Salutation>Salutation9</Salutation>
+				<Name>Name9</Name>
+				<GivenName>Martin9</GivenName>
+				<DateOfBirth>1970-01-09</DateOfBirth>
+				<HomeAddress>
+					<Street>Street 9</Street>
+					<ZIP>00009</ZIP>
+					<City>City9</City>
+					<Country>Country9</Country>
+					<PhoneNumber>++4900000009</PhoneNumber>
+					<MobilePhoneNumber>++491700000009</MobilePhoneNumber>
+				</HomeAddress>
+				<WorkAddress>
+					<Street>Somestreet 9</Street>
+					<ZIP>999999</ZIP>
+					<City>SomeCity9</City>
+					<Country>Germany</Country>
+					<PhoneNumber>++4990000009</PhoneNumber>
+					<MobilePhoneNumber>++4990000009</MobilePhoneNumber>
+				</WorkAddress>
+				<Contracts>
+					<Contract>
+						<ContractID>100009</ContractID>
+						<ContractName>SomeContract9</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100091</ContractID>
+						<ContractName>SomeContract91</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100099</ContractID>
+						<ContractName>SomeContract99</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>1000093</ContractID>
+						<ContractName>SomeContract93</ContractName>
+					</Contract>
+				</Contracts>
+			</NewElement>
+			<NewElement>
+				<PersonID>
+					<ID>10</ID>
+				</PersonID>
+				<Salutation>Salutation10</Salutation>
+				<Name>Name10</Name>
+				<GivenName>Martin10</GivenName>
+				<DateOfBirth>1970-01-010</DateOfBirth>
+				<HomeAddress>
+					<Street>Street 10</Street>
+					<ZIP>000010</ZIP>
+					<City>City10</City>
+					<Country>Country10</Country>
+					<PhoneNumber>++49000000010</PhoneNumber>
+					<MobilePhoneNumber>++4917000000010</MobilePhoneNumber>
+				</HomeAddress>
+				<WorkAddress>
+					<Street>Somestreet 10</Street>
+					<ZIP>101010101010</ZIP>
+					<City>SomeCity10</City>
+					<Country>Germany</Country>
+					<PhoneNumber>++491000000010</PhoneNumber>
+					<MobilePhoneNumber>++491000000010</MobilePhoneNumber>
+				</WorkAddress>
+				<Contracts>
+					<Contract>
+						<ContractID>1000010</ContractID>
+						<ContractName>SomeContract10</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>1000101</ContractID>
+						<ContractName>SomeContract101</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>10001010</ContractID>
+						<ContractName>SomeContract1010</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>10000103</ContractID>
+						<ContractName>SomeContract103</ContractName>
+					</Contract>
+				</Contracts>
+			</NewElement>
+		</out>
+	</ListPersonResponse>
+</SOAP-ENV:Body>
+</SOAP-ENV:Envelope>
--- a/benchmark/person_profile.pl
+++ b/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({})
+}
--- a/benchmark/person_single.pl
+++ b/benchmark/person_single.pl
--- a/bin/wsdl2perl.pl
+++ b/bin/wsdl2perl.pl
@@ -10,22 +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}) {
@@ -33,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
@@ -59,6 +67,8 @@ GetOptions(\%opt,
    user=s
    password=s
    generator=s
+    server|s
+    namespaces|n
  )
 );

@@ -67,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 = ();

@@ -104,17 +126,28 @@ 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();
-
+$generator->generate_interface() if ! $opt{server};
+$generator->generate_server() if $opt{server};
 __END__

 =pod
@@ -132,32 +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:
@@ -166,18 +207,25 @@ 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
+every Web service.
+
+You'll have to implement a method for each of the implemented methods. You
+may implement these methods in the CGI script / handler, or in any class
+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
@@ -185,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
@@ -198,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
--- a/example/cgi-bin/helloworld.pl
+++ b/example/cgi-bin/helloworld.pl
@@ -0,0 +1,57 @@
+#!/usr/bin/perl -w
+package main;
+use strict;
+use warnings;
+use lib '../../lib';
+use lib '../lib';
+use MyServer::HelloWorld::HelloWorldSoap;
+
+my $soap = MyServer::HelloWorld::HelloWorldSoap->new({
+    dispatch_to => 'main',
+});
+
+$soap->handle();
+
+sub sayHello {
+    my ($self, $body, $header) = @_;
+    my $name = $body->get_name();
+    my $givenName = $body->get_givenName();
+
+    return MyElements::sayHelloResponse->new({
+        sayHelloResult => "Hello $givenName $name"
+    })
+}
+
+=pod
+
+=head1 NAME
+
+helloworld.pl - a simple CGI-based SOAP server implementing the service from
+in examples/wsdl/helloworld.wsdl
+
+=head1 USAGE
+
+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
+this file lies in.
+
+For my apache, it looks like this:
+
+ ScriptAlias /soap-wsdl-test/ /home/martin/workspace/SOAP-WSDL/example/cgi-bin/
+ <Directory "/home/martin/workspace/SOAP-WSDL/example/cgi-bin">
+    AllowOverride None
+    Options +ExecCGI -MultiViews
+    Order allow,deny
+    Allow from all
+ </Directory>
+
+Then run the helloworld.pl from the examples directory. It should print
+
+ Hello World
+
+=head1 DESCRIPTION
+
+=cut
+
--- a/example/cgi-bin/person.pl
+++ b/example/cgi-bin/person.pl
@@ -0,0 +1,84 @@
+#!/usr/bin/perl -w
+package main;
+use strict;
+use warnings;
+use lib qw(../lib ../../lib);
+use MyElements::ListPersonResponse;
+use MyServer::TestService::TestPort;
+my $server = MyServer::TestService::TestPort->new({
+   dispatch_to => 'main',
+   transport_class => 'SOAP::WSDL::Server::CGI',   # optional, default
+});
+$server->handle();
+
+sub ListPerson {
+    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...
+
+    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
+          },
+          ],
+        },
+    );
+
+    return  MyElements::ListPersonResponse->new(  {
+    out => { # MyTypes::ArrayOfPerson
+            NewElement => [
+                { %person },
+                { %person },
+                { %person },
+                { %person },
+                { %person },
+                { %person },
+                { %person },
+                { %person },
+                { %person },
+                { %person },
+            ],
+        },
+    }
+ );
+ }
--- a/example/genericbarcode.pl
+++ b/example/genericbarcode.pl
@@ -0,0 +1,29 @@
+use lib 'lib';
+use lib '../lib';
+use MyInterfaces::BarCode::BarCodeSoap;
+my $interface = MyInterfaces::BarCode::BarCodeSoap->new();
+my $barcode = $interface->GenerateBarCode(  {
+           BarCodeParam =>     { # MyTypes::BarCodeData
+             Height =>  42, # int
+             Width =>  120, # int
+             Angle =>  90, # int
+             Ratio =>  1, # int
+             Module =>  1, # int
+             Left =>  10, # int
+             Top =>  10, # int
+             CheckSum =>  0, # boolean
+             FontName =>  'Arial', # string
+             BarColor =>  'black', # string
+             BGColor =>  'white', # string
+             FontSize =>  6.25, # float
+             barcodeOption => 'Both', # BarcodeOption
+             barcodeType => 'CodeMSI', # BarcodeType
+             checkSumMethod => 'None', # CheckSumMethod
+             showTextPosition => 'TopLeft', # ShowTextPosition
+             BarCodeImageFormat => 'PNG', # ImageFormats
+           },
+           BarCodeText =>  'JustSomeText', # string
+         },
+        );
+die $barcode if not ($barcode);
+print $barcode;
--- a/example/hello.pl
+++ b/example/hello.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/perl -w
+use strict;
+use warnings;
+use lib 'lib';  # just needed because interface lies here
+
+# I have to generate the interface using wsdl2perl.pl before
+use MyInterfaces::HelloWorld::HelloWorldSoap;
+
+# 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({
+    name => $ARGV[1] || '"Your name"',
+    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:
+# Will die on bad method names with a list of available methods
+print $result->get_sayHelloResult(), "\n";
+
--- a/example/hello_compile.pl
+++ b/example/hello_compile.pl
@@ -0,0 +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 compile a interface method for a single SOAP method from the WSDL
+# I have to lookup the method names from the WSDL
+# or use the provided script examining the WSDL
+my $call = $wsdl->compileClient('sayHello');
+
+# I have to lookup the parameters from the WSDL - can be quite tricky
+# XML::Compile provides a script creating examples, so I can use that, too.
+my $result = $call->(
+    name => $ARGV[1] || '"Your name"',
+    givenName => $ARGV[0] || '"Your given name"',
+);
+
+# 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 Data::Dumper
+# XML::Compile provides a script creating examples, so I can use that, too.
+print $result->{ parameters }->{ sayHelloResult }, "\n";
--- a/example/hello_lite.pl
+++ b/example/hello_lite.pl
@@ -0,0 +1,29 @@
+#!/usr/bin/perl -w
+#use strict;
+use warnings;
+use SOAP::Lite; # +trace;
+
+# I have to lookup the URL from the WSDL
+my $soap = SOAP::Lite->new(
+    proxy => 'http://localhost:81/soap-wsdl-test/helloworld.pl'
+);
+
+# I have to lookup the SOAPAction from the WSDL
+$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(
+    "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";
+
--- a/example/java/cxf/.classpath
+++ b/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>
--- a/example/java/cxf/.settings/org.eclipse.jdt.core.prefs
+++ b/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
--- a/example/java/cxf/.settings/org.maven.ide.eclipse.prefs
+++ b/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
--- a/example/java/cxf/11_helloworld.wsdl
+++ b/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>
+
--- a/example/java/cxf/README
+++ b/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.
--- a/example/java/cxf/jax-binding.xml
+++ b/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>
--- a/example/java/cxf/pom.xml
+++ b/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>
--- a/example/java/cxf/src/main/resources/cxf.xml
+++ b/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>
--- a/example/java/cxf/src/test/java/helloworld/HelloWorldTest.java
+++ b/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);
+	}
+}
--- a/example/java/cxf/src/test/resources/test-context.xml
+++ b/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>
--- a/example/lib/MyElements/CountCookies.pm
+++ b/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

--- a/example/lib/MyElements/CountCookiesResponse.pm
+++ b/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

--- a/example/lib/MyElements/GenerateBarCode.pm
+++ b/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;

--- a/example/lib/MyElements/GenerateBarCodeResponse.pm
+++ b/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',
--- a/example/lib/MyElements/GetCitiesByCountry.pm
+++ b/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

--- a/example/lib/MyElements/GetCitiesByCountryResponse.pm
+++ b/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

--- a/example/lib/MyElements/GetFortuneCookie.pm
+++ b/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

--- a/example/lib/MyElements/GetFortuneCookieResponse.pm
+++ b/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

--- a/example/lib/MyElements/GetSpecificCookie.pm
+++ b/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

--- a/example/lib/MyElements/GetSpecificCookieResponse.pm
+++ b/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

--- a/example/lib/MyElements/GetWeather.pm
+++ b/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

--- a/example/lib/MyElements/GetWeatherResponse.pm
+++ b/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

--- a/example/lib/MyElements/ListPerson.pm
+++ b/example/lib/MyElements/ListPerson.pm
@@ -0,0 +1,111 @@
+package MyElements::ListPerson;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.example.org/benchmark/' }
+
+__PACKAGE__->__set_name('ListPerson');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %in_of :ATTR(:get<in>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        in
+    ) ],
+    {
+        in => \%in_of,
+    },
+    {
+        in => 'MyTypes::Person',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+1;
+
+# __END__
+
+=pod
+
+=head1 NAME
+
+MyElements::ListPerson
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+ListPerson from the namespace http://www.example.org/benchmark/.
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = MyElements::ListPerson->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   in =>    { # MyTypes::Person
+     PersonID =>      { # MyTypes::PersonID
+       ID =>  $some_value, # int
+     },
+     Salutation =>  $some_value, # string
+     Name =>  $some_value, # string
+     GivenName =>  $some_value, # string
+     DateOfBirth =>  $some_value, # date
+     HomeAddress =>      { # MyTypes::Address
+       Street =>  $some_value, # string
+       ZIP =>  $some_value, # string
+       City =>  $some_value, # string
+       Country =>  $some_value, # string
+       PhoneNumber => $some_value, # PhoneNumber
+       MobilePhoneNumber => $some_value, # PhoneNumber
+     },
+     WorkAddress =>      { # MyTypes::Address
+       Street =>  $some_value, # string
+       ZIP =>  $some_value, # string
+       City =>  $some_value, # string
+       Country =>  $some_value, # string
+       PhoneNumber => $some_value, # PhoneNumber
+       MobilePhoneNumber => $some_value, # PhoneNumber
+     },
+     Contracts =>      { # MyTypes::ArrayOfContract
+       Contract =>        { # MyTypes::Contract
+         ContractID =>  $some_value, # long
+         ContractName =>  $some_value, # string
+       },
+     },
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+
--- a/example/lib/MyElements/ListPersonResponse.pm
+++ b/example/lib/MyElements/ListPersonResponse.pm
@@ -0,0 +1,113 @@
+package MyElements::ListPersonResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.example.org/benchmark/' }
+
+__PACKAGE__->__set_name('ListPersonResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %out_of :ATTR(:get<out>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        out
+    ) ],
+    {
+        out => \%out_of,
+    },
+    {
+        out => 'MyTypes::ArrayOfPerson',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+1;
+
+# __END__
+
+=pod
+
+=head1 NAME
+
+MyElements::ListPersonResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+ListPersonResponse from the namespace http://www.example.org/benchmark/.
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = MyElements::ListPersonResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   out =>    { # MyTypes::ArrayOfPerson
+     NewElement =>      { # MyTypes::Person
+       PersonID =>        { # MyTypes::PersonID
+         ID =>  $some_value, # int
+       },
+       Salutation =>  $some_value, # string
+       Name =>  $some_value, # string
+       GivenName =>  $some_value, # string
+       DateOfBirth =>  $some_value, # date
+       HomeAddress =>        { # MyTypes::Address
+         Street =>  $some_value, # string
+         ZIP =>  $some_value, # string
+         City =>  $some_value, # string
+         Country =>  $some_value, # string
+         PhoneNumber => $some_value, # PhoneNumber
+         MobilePhoneNumber => $some_value, # PhoneNumber
+       },
+       WorkAddress =>        { # MyTypes::Address
+         Street =>  $some_value, # string
+         ZIP =>  $some_value, # string
+         City =>  $some_value, # string
+         Country =>  $some_value, # string
+         PhoneNumber => $some_value, # PhoneNumber
+         MobilePhoneNumber => $some_value, # PhoneNumber
+       },
+       Contracts =>        { # MyTypes::ArrayOfContract
+         Contract =>          { # MyTypes::Contract
+           ContractID =>  $some_value, # long
+           ContractName =>  $some_value, # string
+         },
+       },
+     },
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+
--- a/example/lib/MyElements/int.pm
+++ b/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
--- a/example/lib/MyElements/readNodeCount.pm
+++ b/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

--- a/example/lib/MyElements/readNodeCountResponse.pm
+++ b/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

--- a/example/lib/MyElements/sayHello.pm
+++ b/example/lib/MyElements/sayHello.pm
@@ -0,0 +1,86 @@
+package MyElements::sayHello;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'urn:HelloWorld' }
+
+__PACKAGE__->__set_name('sayHello');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %name_of :ATTR(:get<name>);
+my %givenName_of :ATTR(:get<givenName>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        name
+        givenName
+    ) ],
+    {
+        name => \%name_of,
+        givenName => \%givenName_of,
+    },
+    {
+        name => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        givenName => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+1;
+
+# __END__
+
+=pod
+
+=head1 NAME
+
+MyElements::sayHello
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+sayHello from the namespace urn:HelloWorld.
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = MyElements::sayHello->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   name =>  $some_value, # string
+   givenName =>  $some_value, # string
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+
--- a/example/lib/MyElements/sayHelloResponse.pm
+++ b/example/lib/MyElements/sayHelloResponse.pm
@@ -0,0 +1,81 @@
+package MyElements::sayHelloResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'urn:HelloWorld' }
+
+__PACKAGE__->__set_name('sayHelloResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %sayHelloResult_of :ATTR(:get<sayHelloResult>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        sayHelloResult
+    ) ],
+    {
+        sayHelloResult => \%sayHelloResult_of,
+    },
+    {
+        sayHelloResult => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+1;
+
+# __END__
+
+=pod
+
+=head1 NAME
+
+MyElements::sayHelloResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+sayHelloResponse from the namespace urn:HelloWorld.
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = MyElements::sayHelloResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   sayHelloResult =>  $some_value, # string
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+
--- a/example/lib/MyElements/string.pm
+++ b/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

--- a/example/lib/MyInterfaces/BarCode/BarCodeSoap.pm
+++ b/example/lib/MyInterfaces/BarCode/BarCodeSoap.pm
@@ -0,0 +1,135 @@
+package MyInterfaces::BarCode::BarCodeSoap;
+use strict;
+use warnings;
+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');
+
+sub START {
+    $_[0]->set_proxy('http://www.webservicex.net/genericbarcode.asmx') if not $_[2]->{proxy};
+    $_[0]->set_class_resolver('MyTypemaps::BarCode')
+        if not $_[2]->{class_resolver};
+}
+
+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',
+        soap_action => 'http://www.webservicex.net/GenerateBarCode',
+        style => 'document',
+        body => {
+            
+           'use' => 'literal',
+            namespace => '',
+            encodingStyle => '',
+            parts => [qw( MyElements::GenerateBarCode )],
+        },
+        header => {
+            
+        },
+        headerfault => {
+            
+        }
+    }, $body, $header);
+}
+
+
+
+1;
+
+
+
+__END__
+
+=pod
+
+=head1 NAME
+
+
+MyInterfaces::BarCode::BarCodeSoap - SOAP Interface for the BarCode Web Service
+
+=head1 SYNOPSIS
+
+ use MyInterfaces::BarCode::BarCodeSoap;
+ my $interface = MyInterfaces::BarCode::BarCodeSoap->new();
+ 
+ my $response;
+ $response = $interface->GenerateBarCode();
+
+ 
+
+=head1 DESCRIPTION
+
+SOAP Interface for the BarCode web service
+located at http://www.webservicex.net/genericbarcode.asmx.
+
+=head1 SERVICE BarCode
+
+Barcode generator
+
+=head2 Port BarCodeSoap
+
+
+
+=head1 METHODS
+
+=head2 General methods
+
+=head3 new
+
+Constructor.
+
+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.
+
+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
+methods, as long as you meet the structure.
+
+
+
+=head3 GenerateBarCode
+
+WebserviceX.NET barcode library that provides the means to create barcodes for printing and display in any internet enabled applications. This web service supports Code 128, Industrial 2 of 5, Interleaved 2 of 5, Code 2 5 Matrix, Code 39, Code 39 Extended, Code 93, Code 93 Extended, Codabar, EAN13, EAN8, MSI, Postnet, Supp2, Supp5, UPC A, UPC E0 and UPC E1 barcode formats. This Barcodes returns byte image. It supports following image format JPEG, GIF, PNG, BMP, EMF, EXIF, ICON, MEMORY BMP, TIFF and WMF.
+
+ $interface->GenerateBarCode(  {
+    BarCodeParam =>     { # 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
+    },
+    BarCodeText =>  $some_value, # string
+  },,
+ );
+ 
+
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL on Sun Dec 16 20:10:20 2007
+
+=pod
--- a/example/lib/MyInterfaces/FullerData_x0020_Fortune_x0020_Cookie/FullerData_x0020_Fortune_x0020_CookieSoap.pm
+++ b/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
--- a/example/lib/MyInterfaces/GlobalWeather/GlobalWeatherSoap.pm
+++ b/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
--- a/example/lib/MyInterfaces/HelloWorld/HelloWorldSoap.pm
+++ b/example/lib/MyInterfaces/HelloWorld/HelloWorldSoap.pm
@@ -0,0 +1,113 @@
+package MyInterfaces::HelloWorld::HelloWorldSoap;
+use strict;
+use warnings;
+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::HelloWorld
+    if not MyTypemaps::HelloWorld->can('get_class');
+
+sub START {
+    $_[0]->set_proxy('http://localhost:81/soap-wsdl-test/helloworld.pl') if not $_[2]->{proxy};
+    $_[0]->set_class_resolver('MyTypemaps::HelloWorld')
+        if not $_[2]->{class_resolver};
+}
+
+sub sayHello {
+    my ($self, $body, $header) = @_;
+    die "sayHello must be called as object method (\$self is <$self>)" if not blessed($self);
+    return $self->SUPER::call({
+        operation => 'sayHello',
+        soap_action => 'urn:HelloWorld#sayHello',
+        style => 'document',
+        body => {
+            
+           'use' => 'literal',
+            namespace => '',
+            encodingStyle => '',
+            parts => [qw( MyElements::sayHello )],
+        },
+        header => {
+            
+        },
+        headerfault => {
+            
+        }
+    }, $body, $header);
+}
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+
+MyInterfaces::HelloWorld::HelloWorldSoap - SOAP Interface for the HelloWorld Web Service
+
+=head1 SYNOPSIS
+
+ use MyInterfaces::HelloWorld::HelloWorldSoap;
+ my $interface = MyInterfaces::HelloWorld::HelloWorldSoap->new();
+ 
+ my $response;
+ $response = $interface->sayHello();
+
+ 
+
+=head1 DESCRIPTION
+
+SOAP Interface for the HelloWorld web service
+located at http://localhost:81/soap-wsdl-test/helloworld.pl.
+
+=head1 SERVICE HelloWorld
+
+
+
+=head2 Port HelloWorldSoap
+
+
+
+=head1 METHODS
+
+=head2 General methods
+
+=head3 new
+
+Constructor.
+
+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.
+
+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
+methods, as long as you meet the structure.
+
+
+
+=head3 sayHello
+
+
+
+ $interface->sayHello(  {
+    name =>  $some_value, # string
+    givenName =>  $some_value, # string
+  },,
+ );
+ 
+
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL on Sat Dec  1 19:51:31 2007
+
+=pod
--- a/example/lib/MyInterfaces/TestService/TestPort.pm
+++ b/example/lib/MyInterfaces/TestService/TestPort.pm
@@ -0,0 +1,146 @@
+package MyInterfaces::TestService::TestPort;
+use strict;
+use warnings;
+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::TestService
+    if not MyTypemaps::TestService->can('get_class');
+
+sub START {
+    $_[0]->set_proxy('http://localhost:81/soap-wsdl-test/person.pl') if not $_[2]->{proxy};
+    $_[0]->set_class_resolver('MyTypemaps::TestService')
+        if not $_[2]->{class_resolver};
+}
+
+sub ListPerson {
+    my ($self, $body, $header) = @_;
+    die "ListPerson must be called as object method (\$self is <$self>)" if not blessed($self);
+    return $self->SUPER::call({
+        operation => 'ListPerson',
+        soap_action => 'http://www.example.org/benchmark/ListPerson',
+        style => 'document',
+        body => {
+            
+           'use' => 'literal',
+            namespace => '',
+            encodingStyle => '',
+            parts => [qw( MyElements::ListPerson )],
+        },
+        header => {
+            
+        },
+        headerfault => {
+            
+        }
+    }, $body, $header);
+}
+
+
+
+1;
+
+
+
+__END__
+
+=pod
+
+=head1 NAME
+
+
+MyInterfaces::TestService::TestPort - SOAP Interface for the TestService Web Service
+
+=head1 SYNOPSIS
+
+ use MyInterfaces::TestService::TestPort;
+ my $interface = MyInterfaces::TestService::TestPort->new();
+ 
+ my $response;
+ $response = $interface->ListPerson();
+
+ 
+
+=head1 DESCRIPTION
+
+SOAP Interface for the TestService web service
+located at http://localhost:81/soap-wsdl-test/person.pl.
+
+=head1 SERVICE TestService
+
+
+
+=head2 Port TestPort
+
+
+
+=head1 METHODS
+
+=head2 General methods
+
+=head3 new
+
+Constructor.
+
+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.
+
+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
+methods, as long as you meet the structure.
+
+
+
+=head3 ListPerson
+
+
+
+ $interface->ListPerson(  {
+    in =>     { # MyTypes::Person
+      PersonID =>       { # MyTypes::PersonID
+        ID =>  $some_value, # int
+      },
+      Salutation =>  $some_value, # string
+      Name =>  $some_value, # string
+      GivenName =>  $some_value, # string
+      DateOfBirth =>  $some_value, # date
+      HomeAddress =>       { # MyTypes::Address
+        Street =>  $some_value, # string
+        ZIP =>  $some_value, # string
+        City =>  $some_value, # string
+        Country =>  $some_value, # string
+        PhoneNumber => $some_value, # PhoneNumber
+        MobilePhoneNumber => $some_value, # PhoneNumber
+      },
+      WorkAddress =>       { # MyTypes::Address
+        Street =>  $some_value, # string
+        ZIP =>  $some_value, # string
+        City =>  $some_value, # string
+        Country =>  $some_value, # string
+        PhoneNumber => $some_value, # PhoneNumber
+        MobilePhoneNumber => $some_value, # PhoneNumber
+      },
+      Contracts =>       { # MyTypes::ArrayOfContract
+        Contract =>         { # MyTypes::Contract
+          ContractID =>  $some_value, # long
+          ContractName =>  $some_value, # string
+        },
+      },
+    },
+  },,
+ );
+ 
+
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL on Mon Dec  3 22:20:49 2007
+
+=pod
--- a/example/lib/MyServer/HelloWorld/HelloWorldSoap.pm
+++ b/example/lib/MyServer/HelloWorld/HelloWorldSoap.pm
@@ -0,0 +1,112 @@
+package MyServer::HelloWorld::HelloWorldSoap;
+use strict;
+use warnings;
+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::HelloWorld
+    if not MyTypemaps::HelloWorld->can('get_class');
+
+my %transport_class_of :ATTR(:name<transport_class> :default<SOAP::WSDL::Server::CGI>);
+my %transport_of :ATTR(:name<transport> :default<()>);
+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 }"
+        or die "Cannot load transport class $transport_class_of{ $ident }: $@";
+    $transport_of{ $ident } = $transport_class_of{ $ident }->new({
+        action_map_ref => $action_map_ref,
+        class_resolver => 'MyTypemaps::HelloWorld',
+        dispatch_to => $dispatch_to{ $ident },
+    });
+}
+
+sub handle {
+    $transport_of{ ${ $_[0] } }->handle(@_[1..$#_]);
+}
+
+1;
+
+
+
+__END__
+
+=pod
+
+=head1 NAME
+
+MyInterfaces::HelloWorld::HelloWorldSoap - SOAP Server Class for the HelloWorld Web Service
+
+=head1 SYNOPSIS
+
+ use MyServer::HelloWorld::HelloWorldSoap;
+ my $server = MyServer::HelloWorld::HelloWorldSoap->new({
+    dispatch_to => 'My::Handler::Class',
+    transport_class => 'SOAP::WSDL::Server::CGI',   # optional, default
+ });
+ $server->handle();
+
+
+=head1 DESCRIPTION
+
+SOAP Server handler for the HelloWorld web service
+located at http://localhost:81/soap-wsdl-test/helloworld.pl.
+
+=head1 SERVICE HelloWorld
+
+
+
+=head2 Port HelloWorldSoap
+
+
+
+=head1 METHODS
+
+=head2 General methods
+
+=head3 new
+
+Constructor.
+
+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
+
+Your dispatch_to class has to implement the following methods:
+
+The examples below serve as copy-and-paste prototypes to use in your
+class.
+
+=head3 sayHello
+
+
+
+ sub sayHello(
+    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
+  },
+ );
+
+ }
+
+
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL on Sun Dec  2 01:20:36 2007
+
+=pod
--- a/example/lib/MyServer/TestService/TestPort.pm
+++ b/example/lib/MyServer/TestService/TestPort.pm
@@ -0,0 +1,145 @@
+package MyServer::TestService::TestPort;
+use strict;
+use warnings;
+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::TestService
+    if not MyTypemaps::TestService->can('get_class');
+
+my %transport_class_of :ATTR(:name<transport_class> :default<SOAP::WSDL::Server::CGI>);
+my %transport_of :ATTR(:name<transport> :default<()>);
+my %dispatch_to :ATTR(:name<dispatch_to>);
+
+my $action_map_ref = {
+    'http://www.example.org/benchmark/ListPerson' => 'ListPerson',
+
+};
+
+sub START {
+    my ($self, $ident, $arg_ref) = @_;
+    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,
+        class_resolver => 'MyTypemaps::TestService',
+        dispatch_to => $dispatch_to{ $ident },
+    });
+}
+
+sub handle {
+    $transport_of{ ${ $_[0] } }->handle();
+}
+
+1;
+
+
+
+__END__
+
+=pod
+
+=head1 NAME
+
+MyInterfaces::TestService::TestPort - SOAP Server Class for the TestService Web Service
+
+=head1 SYNOPSIS
+
+ use MyServer::TestService::TestPort;
+ my $server = MyServer::TestService::TestPort->new({
+    dispatch_to => 'My::Handler::Class',
+    transport_class => 'SOAP::WSDL::Server::CGI',   # optional, default
+ });
+ $server->handle();
+
+
+=head1 DESCRIPTION
+
+SOAP Server handler for the TestService web service
+located at http://localhost:81/soap-wsdl-test/person.pl.
+
+=head1 SERVICE TestService
+
+
+
+=head2 Port TestPort
+
+
+
+=head1 METHODS
+
+=head2 General methods
+
+=head3 new
+
+Constructor.
+
+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
+
+Your dispatch_to class has to implement the following methods:
+
+The examples below serve as copy-and-paste prototypes to use in your
+class.
+
+=head3 ListPerson
+
+
+
+ sub ListPerson {
+    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::ListPersonResponse->new(  {
+    out =>     { # MyTypes::ArrayOfPerson
+      NewElement =>       { # MyTypes::Person
+        PersonID =>         { # MyTypes::PersonID
+          ID =>  $some_value, # int
+        },
+        Salutation =>  $some_value, # string
+        Name =>  $some_value, # string
+        GivenName =>  $some_value, # string
+        DateOfBirth =>  $some_value, # date
+        HomeAddress =>         { # MyTypes::Address
+          Street =>  $some_value, # string
+          ZIP =>  $some_value, # string
+          City =>  $some_value, # string
+          Country =>  $some_value, # string
+          PhoneNumber => $some_value, # PhoneNumber
+          MobilePhoneNumber => $some_value, # PhoneNumber
+        },
+        WorkAddress =>         { # MyTypes::Address
+          Street =>  $some_value, # string
+          ZIP =>  $some_value, # string
+          City =>  $some_value, # string
+          Country =>  $some_value, # string
+          PhoneNumber => $some_value, # PhoneNumber
+          MobilePhoneNumber => $some_value, # PhoneNumber
+        },
+        Contracts =>         { # MyTypes::ArrayOfContract
+          Contract =>           { # MyTypes::Contract
+            ContractID =>  $some_value, # long
+            ContractName =>  $some_value, # string
+          },
+        },
+      },
+    },
+  },
+ );
+
+ }
+
+
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL on Mon Dec  3 22:20:32 2007
+
+=pod
--- a/example/lib/MyTypemaps/BarCode.pm
+++ b/example/lib/MyTypemaps/BarCode.pm
@@ -0,0 +1,61 @@
+package MyTypemaps::BarCode;
+use strict;
+use warnings;
+
+our $typemap_1 = {
+               'GenerateBarCode/BarCodeText' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'GenerateBarCode/BarCodeParam/BarColor' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'GenerateBarCode/BarCodeParam/barcodeOption' => 'MyTypes::BarcodeOption',
+               'GenerateBarCode/BarCodeParam/Left' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+               'Fault/faultcode' => 'SOAP::WSDL::XSD::Typelib::Builtin::anyURI',
+               'GenerateBarCode' => 'MyElements::GenerateBarCode',
+               'Fault/faultstring' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               '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',
+               'GenerateBarCode/BarCodeParam/Height' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+               'GenerateBarCode/BarCodeParam/CheckSum' => 'SOAP::WSDL::XSD::Typelib::Builtin::boolean',
+               'GenerateBarCode/BarCodeParam/checkSumMethod' => 'MyTypes::CheckSumMethod',
+               'Fault/detail' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'GenerateBarCode/BarCodeParam/barcodeType' => 'MyTypes::BarcodeType',
+               'GenerateBarCode/BarCodeParam/FontSize' => 'SOAP::WSDL::XSD::Typelib::Builtin::float',
+               'GenerateBarCode/BarCodeParam/Top' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+               'GenerateBarCodeResponse/GenerateBarCodeResult' => 'SOAP::WSDL::XSD::Typelib::Builtin::base64Binary',
+               'GenerateBarCodeResponse' => 'MyElements::GenerateBarCodeResponse',
+               'GenerateBarCode/BarCodeParam/Module' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+               'GenerateBarCode/BarCodeParam/showTextPosition' => 'MyTypes::ShowTextPosition',
+               'GenerateBarCode/BarCodeParam' => 'MyTypes::BarCodeData',
+               'GenerateBarCode/BarCodeParam/FontName' => 'SOAP::WSDL::XSD::Typelib::Builtin::string'
+             };
+;
+
+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__
+
+=pod
+
+=head1 NAME
+
+MyTypemaps::BarCode; - typemap for ::BarCode;
+
+=head1 DESCRIPTION
+
+Typemap created by SOAP::WSDL for map-based SOAP message parsers.
+
+=cut
+
--- a/example/lib/MyTypemaps/FullerData_x0020_Fortune_x0020_Cookie.pm
+++ b/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

--- a/example/lib/MyTypemaps/GlobalWeather.pm
+++ b/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__
--- a/example/lib/MyTypemaps/HelloWorld.pm
+++ b/example/lib/MyTypemaps/HelloWorld.pm
@@ -0,0 +1,44 @@
+package MyTypemaps::HelloWorld;
+use strict;
+use warnings;
+
+our $typemap_1 = {
+               'sayHello/givenName' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'sayHelloResponse' => 'MyElements::sayHelloResponse',
+               'Fault/faultactor' => 'SOAP::WSDL::XSD::Typelib::Builtin::token',
+               'Fault/detail' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'sayHelloResponse/sayHelloResult' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'Fault/faultcode' => 'SOAP::WSDL::XSD::Typelib::Builtin::anyURI',
+               'sayHello' => 'MyElements::sayHello',
+               'sayHello/name' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'Fault/faultstring' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'Fault' => 'SOAP::WSDL::SOAP::Typelib::Fault11'
+             };
+;
+
+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__
+
+=pod
+
+=head1 NAME
+
+MyTypemaps::HelloWorld; - typemap for ::HelloWorld;
+
+=head1 DESCRIPTION
+
+Typemap created by SOAP::WSDL for map-based SOAP message parsers.
+
+=cut
+
--- a/example/lib/MyTypemaps/TestService.pm
+++ b/example/lib/MyTypemaps/TestService.pm
@@ -0,0 +1,92 @@
+package MyTypemaps::TestService;
+use strict;
+use warnings;
+
+our $typemap_1 = {
+               'ListPersonResponse/out/NewElement/WorkAddress/Street' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPerson/in/Contracts' => 'MyTypes::ArrayOfContract',
+               'ListPerson/in/HomeAddress/PhoneNumber' => 'MyTypes::PhoneNumber',
+               'ListPersonResponse/out/NewElement/HomeAddress' => 'MyTypes::Address',
+               'ListPersonResponse/out/NewElement/Contracts/Contract' => 'MyTypes::Contract',
+               'ListPersonResponse/out/NewElement/HomeAddress/ZIP' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPerson/in/WorkAddress/City' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPerson/in/HomeAddress' => 'MyTypes::Address',
+               'Fault/faultcode' => 'SOAP::WSDL::XSD::Typelib::Builtin::anyURI',
+               'ListPerson/in/HomeAddress/City' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPersonResponse/out/NewElement/WorkAddress/PhoneNumber' => 'MyTypes::PhoneNumber',
+               'ListPerson/in/WorkAddress/ZIP' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPersonResponse/out/NewElement/Contracts' => 'MyTypes::ArrayOfContract',
+               'ListPerson/in/WorkAddress/Street' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPerson/in' => 'MyTypes::Person',
+               'ListPersonResponse/out/NewElement/GivenName' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPersonResponse/out/NewElement/HomeAddress/PhoneNumber' => 'MyTypes::PhoneNumber',
+               'ListPersonResponse/out/NewElement/HomeAddress/City' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPersonResponse/out/NewElement' => 'MyTypes::Person',
+               'ListPerson/in/PersonID/ID' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+               'ListPerson/in/HomeAddress/Street' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPersonResponse/out/NewElement/PersonID/ID' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+               'ListPerson/in/HomeAddress/Country' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPerson/in/GivenName' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPerson/in/HomeAddress/MobilePhoneNumber' => 'MyTypes::PhoneNumber',
+               'ListPerson/in/Name' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPersonResponse/out/NewElement/PersonID' => 'MyTypes::PersonID',
+               'ListPersonResponse/out/NewElement/WorkAddress/MobilePhoneNumber' => 'MyTypes::PhoneNumber',
+               'ListPersonResponse/out' => 'MyTypes::ArrayOfPerson',
+               'ListPerson/in/Contracts/Contract' => 'MyTypes::Contract',
+               'ListPersonResponse/out/NewElement/Name' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPersonResponse/out/NewElement/WorkAddress/ZIP' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPerson/in/DateOfBirth' => 'SOAP::WSDL::XSD::Typelib::Builtin::date',
+               'ListPersonResponse/out/NewElement/HomeAddress/MobilePhoneNumber' => 'MyTypes::PhoneNumber',
+               'ListPersonResponse/out/NewElement/HomeAddress/Country' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'Fault/faultstring' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPersonResponse/out/NewElement/HomeAddress/Street' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPersonResponse/out/NewElement/Contracts/Contract/ContractName' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'Fault' => 'SOAP::WSDL::SOAP::Typelib::Fault11',
+               'ListPerson/in/Contracts/Contract/ContractName' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPersonResponse' => 'MyElements::ListPersonResponse',
+               'ListPersonResponse/out/NewElement/Salutation' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPersonResponse/out/NewElement/WorkAddress/City' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'Fault/faultactor' => 'SOAP::WSDL::XSD::Typelib::Builtin::token',
+               'ListPerson' => 'MyElements::ListPerson',
+               'ListPerson/in/Salutation' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPerson/in/WorkAddress/MobilePhoneNumber' => 'MyTypes::PhoneNumber',
+               'Fault/detail' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPerson/in/WorkAddress/Country' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPerson/in/PersonID' => 'MyTypes::PersonID',
+               'ListPerson/in/HomeAddress/ZIP' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPersonResponse/out/NewElement/WorkAddress' => 'MyTypes::Address',
+               'ListPersonResponse/out/NewElement/DateOfBirth' => 'SOAP::WSDL::XSD::Typelib::Builtin::date',
+               'ListPerson/in/WorkAddress/PhoneNumber' => 'MyTypes::PhoneNumber',
+               'ListPersonResponse/out/NewElement/WorkAddress/Country' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPersonResponse/out/NewElement/Contracts/Contract/ContractID' => 'SOAP::WSDL::XSD::Typelib::Builtin::long',
+               'ListPerson/in/Contracts/Contract/ContractID' => 'SOAP::WSDL::XSD::Typelib::Builtin::long',
+               'ListPerson/in/WorkAddress' => 'MyTypes::Address'
+             };
+;
+
+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__
+
+=pod
+
+=head1 NAME
+
+MyTypemaps::TestService; - typemap for ::TestService;
+
+=head1 DESCRIPTION
+
+Typemap created by SOAP::WSDL for map-based SOAP message parsers.
+
+=cut
+
--- a/example/lib/MyTypes/Address.pm
+++ b/example/lib/MyTypes/Address.pm
@@ -0,0 +1,98 @@
+package MyTypes::Address;
+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 %Street_of :ATTR(:get<Street>);
+my %ZIP_of :ATTR(:get<ZIP>);
+my %City_of :ATTR(:get<City>);
+my %Country_of :ATTR(:get<Country>);
+my %PhoneNumber_of :ATTR(:get<PhoneNumber>);
+my %MobilePhoneNumber_of :ATTR(:get<MobilePhoneNumber>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        Street
+        ZIP
+        City
+        Country
+        PhoneNumber
+        MobilePhoneNumber
+    ) ],
+    {
+        Street => \%Street_of,
+        ZIP => \%ZIP_of,
+        City => \%City_of,
+        Country => \%Country_of,
+        PhoneNumber => \%PhoneNumber_of,
+        MobilePhoneNumber => \%MobilePhoneNumber_of,
+    },
+    {
+        Street => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        ZIP => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        City => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        Country => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        PhoneNumber => 'MyTypes::PhoneNumber',
+        MobilePhoneNumber => 'MyTypes::PhoneNumber',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+1;
+
+=pod
+
+=head1 NAME
+
+MyTypes::Address
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined complextype
+Address from the namespace http://www.example.org/benchmark/.
+
+=head2 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+ Street
+ ZIP
+ City
+ Country
+ PhoneNumber
+ MobilePhoneNumber
+
+
+=head1 METHODS
+
+=head2 new
+
+Constructor. The following data structure may be passed to new():
+
+ { # MyTypes::Address
+   Street =>  $some_value, # string
+   ZIP =>  $some_value, # string
+   City =>  $some_value, # string
+   Country =>  $some_value, # string
+   PhoneNumber => $some_value, # PhoneNumber
+   MobilePhoneNumber => $some_value, # PhoneNumber
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+
--- a/example/lib/MyTypes/ArrayOfContract.pm
+++ b/example/lib/MyTypes/ArrayOfContract.pm
@@ -0,0 +1,71 @@
+package MyTypes::ArrayOfContract;
+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 %Contract_of :ATTR(:get<Contract>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        Contract
+    ) ],
+    {
+        Contract => \%Contract_of,
+    },
+    {
+        Contract => 'MyTypes::Contract',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+1;
+
+=pod
+
+=head1 NAME
+
+MyTypes::ArrayOfContract
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined complextype
+ArrayOfContract from the namespace http://www.example.org/benchmark/.
+
+=head2 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+ Contract
+
+
+=head1 METHODS
+
+=head2 new
+
+Constructor. The following data structure may be passed to new():
+
+ { # MyTypes::ArrayOfContract
+   Contract =>    { # MyTypes::Contract
+     ContractID =>  $some_value, # long
+     ContractName =>  $some_value, # string
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+
--- a/example/lib/MyTypes/ArrayOfPerson.pm
+++ b/example/lib/MyTypes/ArrayOfPerson.pm
@@ -0,0 +1,98 @@
+package MyTypes::ArrayOfPerson;
+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 %NewElement_of :ATTR(:get<NewElement>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        NewElement
+    ) ],
+    {
+        NewElement => \%NewElement_of,
+    },
+    {
+        NewElement => 'MyTypes::Person',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+1;
+
+=pod
+
+=head1 NAME
+
+MyTypes::ArrayOfPerson
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined complextype
+ArrayOfPerson from the namespace http://www.example.org/benchmark/.
+
+=head2 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+ NewElement
+
+
+=head1 METHODS
+
+=head2 new
+
+Constructor. The following data structure may be passed to new():
+
+ { # MyTypes::ArrayOfPerson
+   NewElement =>    { # MyTypes::Person
+     PersonID =>      { # MyTypes::PersonID
+       ID =>  $some_value, # int
+     },
+     Salutation =>  $some_value, # string
+     Name =>  $some_value, # string
+     GivenName =>  $some_value, # string
+     DateOfBirth =>  $some_value, # date
+     HomeAddress =>      { # MyTypes::Address
+       Street =>  $some_value, # string
+       ZIP =>  $some_value, # string
+       City =>  $some_value, # string
+       Country =>  $some_value, # string
+       PhoneNumber => $some_value, # PhoneNumber
+       MobilePhoneNumber => $some_value, # PhoneNumber
+     },
+     WorkAddress =>      { # MyTypes::Address
+       Street =>  $some_value, # string
+       ZIP =>  $some_value, # string
+       City =>  $some_value, # string
+       Country =>  $some_value, # string
+       PhoneNumber => $some_value, # PhoneNumber
+       MobilePhoneNumber => $some_value, # PhoneNumber
+     },
+     Contracts =>      { # MyTypes::ArrayOfContract
+       Contract =>        { # MyTypes::Contract
+         ContractID =>  $some_value, # long
+         ContractName =>  $some_value, # string
+       },
+     },
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+
--- a/example/lib/MyTypes/BarCodeData.pm
+++ b/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
+
--- a/example/lib/MyTypes/BarcodeOption.pm
+++ b/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
+
--- a/example/lib/MyTypes/BarcodeType.pm
+++ b/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
+
--- a/example/lib/MyTypes/CheckSumMethod.pm
+++ b/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
+
--- a/example/lib/MyTypes/Contract.pm
+++ b/example/lib/MyTypes/Contract.pm
@@ -0,0 +1,74 @@
+package MyTypes::Contract;
+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 %ContractID_of :ATTR(:get<ContractID>);
+my %ContractName_of :ATTR(:get<ContractName>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        ContractID
+        ContractName
+    ) ],
+    {
+        ContractID => \%ContractID_of,
+        ContractName => \%ContractName_of,
+    },
+    {
+        ContractID => 'SOAP::WSDL::XSD::Typelib::Builtin::long',
+        ContractName => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+1;
+
+=pod
+
+=head1 NAME
+
+MyTypes::Contract
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined complextype
+Contract from the namespace http://www.example.org/benchmark/.
+
+=head2 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+ ContractID
+ ContractName
+
+
+=head1 METHODS
+
+=head2 new
+
+Constructor. The following data structure may be passed to new():
+
+ { # MyTypes::Contract
+   ContractID =>  $some_value, # long
+   ContractName =>  $some_value, # string
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+
--- a/example/lib/MyTypes/ImageFormats.pm
+++ b/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
+
--- a/example/lib/MyTypes/Person.pm
+++ b/example/lib/MyTypes/Person.pm
@@ -0,0 +1,131 @@
+package MyTypes::Person;
+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 %PersonID_of :ATTR(:get<PersonID>);
+my %Salutation_of :ATTR(:get<Salutation>);
+my %Name_of :ATTR(:get<Name>);
+my %GivenName_of :ATTR(:get<GivenName>);
+my %DateOfBirth_of :ATTR(:get<DateOfBirth>);
+my %HomeAddress_of :ATTR(:get<HomeAddress>);
+my %WorkAddress_of :ATTR(:get<WorkAddress>);
+my %Contracts_of :ATTR(:get<Contracts>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        PersonID
+        Salutation
+        Name
+        GivenName
+        DateOfBirth
+        HomeAddress
+        WorkAddress
+        Contracts
+    ) ],
+    {
+        PersonID => \%PersonID_of,
+        Salutation => \%Salutation_of,
+        Name => \%Name_of,
+        GivenName => \%GivenName_of,
+        DateOfBirth => \%DateOfBirth_of,
+        HomeAddress => \%HomeAddress_of,
+        WorkAddress => \%WorkAddress_of,
+        Contracts => \%Contracts_of,
+    },
+    {
+        PersonID => 'MyTypes::PersonID',
+        Salutation => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        Name => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        GivenName => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        DateOfBirth => 'SOAP::WSDL::XSD::Typelib::Builtin::date',
+        HomeAddress => 'MyTypes::Address',
+        WorkAddress => 'MyTypes::Address',
+        Contracts => 'MyTypes::ArrayOfContract',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+1;
+
+=pod
+
+=head1 NAME
+
+MyTypes::Person
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined complextype
+Person from the namespace http://www.example.org/benchmark/.
+
+=head2 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+ PersonID
+ Salutation
+ Name
+ GivenName
+ DateOfBirth
+ HomeAddress
+ WorkAddress
+ Contracts
+
+
+=head1 METHODS
+
+=head2 new
+
+Constructor. The following data structure may be passed to new():
+
+ { # MyTypes::Person
+   PersonID =>    { # MyTypes::PersonID
+     ID =>  $some_value, # int
+   },
+   Salutation =>  $some_value, # string
+   Name =>  $some_value, # string
+   GivenName =>  $some_value, # string
+   DateOfBirth =>  $some_value, # date
+   HomeAddress =>    { # MyTypes::Address
+     Street =>  $some_value, # string
+     ZIP =>  $some_value, # string
+     City =>  $some_value, # string
+     Country =>  $some_value, # string
+     PhoneNumber => $some_value, # PhoneNumber
+     MobilePhoneNumber => $some_value, # PhoneNumber
+   },
+   WorkAddress =>    { # MyTypes::Address
+     Street =>  $some_value, # string
+     ZIP =>  $some_value, # string
+     City =>  $some_value, # string
+     Country =>  $some_value, # string
+     PhoneNumber => $some_value, # PhoneNumber
+     MobilePhoneNumber => $some_value, # PhoneNumber
+   },
+   Contracts =>    { # MyTypes::ArrayOfContract
+     Contract =>      { # MyTypes::Contract
+       ContractID =>  $some_value, # long
+       ContractName =>  $some_value, # string
+     },
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+
--- a/example/lib/MyTypes/PersonID.pm
+++ b/example/lib/MyTypes/PersonID.pm
@@ -0,0 +1,68 @@
+package MyTypes::PersonID;
+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 %ID_of :ATTR(:get<ID>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        ID
+    ) ],
+    {
+        ID => \%ID_of,
+    },
+    {
+        ID => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+1;
+
+=pod
+
+=head1 NAME
+
+MyTypes::PersonID
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined complextype
+PersonID from the namespace http://www.example.org/benchmark/.
+
+=head2 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+ ID
+
+
+=head1 METHODS
+
+=head2 new
+
+Constructor. The following data structure may be passed to new():
+
+ { # MyTypes::PersonID
+   ID =>  $some_value, # int
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+
--- a/example/lib/MyTypes/PhoneNumber.pm
+++ b/example/lib/MyTypes/PhoneNumber.pm
@@ -0,0 +1,56 @@
+package MyTypes::PhoneNumber;
+use strict;
+use warnings;
+
+sub get_xmlns { 'http://www.example.org/benchmark/'};
+
+# derivation by restriction
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Builtin::string
+);
+
+
+
+1;
+
+=pod
+
+=head1 MyTypes::PhoneNumber
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined simpleType
+PhoneNumber from the namespace http://www.example.org/benchmark/.
+
+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
+
--- a/example/lib/MyTypes/ShowTextPosition.pm
+++ b/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
+
--- a/example/lib/MyTypes/test2.pm
+++ b/example/lib/MyTypes/test2.pm
@@ -0,0 +1,74 @@
+package MyTypes::test2;
+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 %name_of :ATTR(:get<name>);
+my %givenName_of :ATTR(:get<givenName>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        name
+        givenName
+    ) ],
+    {
+        name => \%name_of,
+        givenName => \%givenName_of,
+    },
+    {
+        name => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        givenName => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+1;
+
+=pod
+
+=head1 NAME
+
+MyTypes::test2
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined complextype
+test2 from the namespace urn:HelloWorld.
+
+=head2 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+ name
+ givenName
+
+
+=head1 METHODS
+
+=head2 new
+
+Constructor. The following data structure may be passed to new():
+
+ { # MyTypes::test2
+   name =>  $some_value, # string
+   givenName =>  $some_value, # string
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+
--- a/example/lib/MyTypes/testExtended.pm
+++ b/example/lib/MyTypes/testExtended.pm
@@ -0,0 +1,68 @@
+package MyTypes::testExtended;
+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 %extend_of :ATTR(:get<extend>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        extend
+    ) ],
+    {
+        extend => \%extend_of,
+    },
+    {
+        extend => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+1;
+
+=pod
+
+=head1 NAME
+
+MyTypes::testExtended
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined complextype
+testExtended from the namespace urn:HelloWorld.
+
+=head2 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+ extend
+
+
+=head1 METHODS
+
+=head2 new
+
+Constructor. The following data structure may be passed to new():
+
+ { # MyTypes::testExtended
+   extend =>  $some_value, # string
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+
--- a/example/person.pl
+++ b/example/person.pl
@@ -0,0 +1,12 @@
+use strict;
+use warnings;
+use lib 'lib';
+use MyInterfaces::TestService::TestPort;
+
+my $soap = MyInterfaces::TestService::TestPort->new();
+
+my $result = $soap->ListPerson({})
+    or die "error calling SOAP method";
+
+print "Found " . @{ $result->get_out()->get_NewElement } . " persons\n";
+
--- a/example/person_compile.pl
+++ b/example/person_compile.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl -w
+use strict;
+use warnings;
+use XML::Compile::SOAP11;
+use XML::Compile::WSDL11;
+use XML::Compile::Transport::SOAPHTTP;
+
+my $wsdl = XML::Compile::WSDL11->new('wsdl/Person.wsdl');
+
+# I have to lookup the methods from the WSDL
+my $call = $wsdl->compileClient('ListPerson');
+
+# I have to lookup the parameters from the WSDL
+my $result = $call->({ in => undef});
+
+die "Error calling soap method" if not defined $result;
+
+# I have to lookup the output parameters from the WSDL - or try Dumper
+#use Data::Dumper;
+#print Dumper $result;
+
+print "Found ", scalar @{ $result->{ parameters }->{ out }->{ seq_NewElement }->[0]->{ NewElement } } , " persons\n";
--- a/example/server/hello_simple.pl
+++ b/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"
+    })
+}
--- a/example/wsdl/11_helloworld.wsdl
+++ b/example/wsdl/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>
+
--- a/example/wsdl/Person.wsdl
+++ b/example/wsdl/Person.wsdl
@@ -0,0 +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/"
+            elementFormDefault="qualified">
+
+            <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: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: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:simpleType name="PhoneNumber">
+                <xsd:restriction base="xsd:string"></xsd:restriction>
+            </xsd:simpleType>
+
+            <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="PersonID">
+                <xsd:sequence>
+                    <xsd:element name="ID" type="xsd:int"></xsd:element>
+                </xsd:sequence>
+            </xsd:complexType>
+
+            <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: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:message>
+    <wsdl:message name="ListPersonResponse">
+        <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: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>
+    </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>
--- a/example/wsdl/genericbarcode.xml
+++ b/example/wsdl/genericbarcode.xml
@@ -0,0 +1,153 @@
+<?xml version="1.0" encoding="utf-8"?>
+<wsdl: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:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:tns="http://www.webservicex.net/" xmlns:tm="http://microsoft.com/wsdl/mime/textMatching/" xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/" targetNamespace="http://www.webservicex.net/" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
+  <wsdl:types>
+    <s:schema elementFormDefault="qualified" targetNamespace="http://www.webservicex.net/">
+      <s:element name="GenerateBarCode">
+        <s:complexType>
+          <s:sequence>
+            <s:element minOccurs="1" maxOccurs="1" name="BarCodeParam" type="tns:BarCodeData" />
+            <s:element minOccurs="0" maxOccurs="1" name="BarCodeText" type="s:string" />
+          </s:sequence>
+        </s:complexType>
+      </s:element>
+      <s:complexType name="BarCodeData">
+        <s:sequence>
+          <s:element minOccurs="1" maxOccurs="1" name="Height" type="s:int" />
+          <s:element minOccurs="1" maxOccurs="1" name="Width" type="s:int" />
+          <s:element minOccurs="1" maxOccurs="1" name="Angle" type="s:int" />
+          <s:element minOccurs="1" maxOccurs="1" name="Ratio" type="s:int" />
+          <s:element minOccurs="1" maxOccurs="1" name="Module" type="s:int" />
+          <s:element minOccurs="1" maxOccurs="1" name="Left" type="s:int" />
+          <s:element minOccurs="1" maxOccurs="1" name="Top" type="s:int" />
+          <s:element minOccurs="1" maxOccurs="1" name="CheckSum" type="s:boolean" />
+          <s:element minOccurs="0" maxOccurs="1" name="FontName" type="s:string" />
+          <s:element minOccurs="0" maxOccurs="1" name="BarColor" type="s:string" />
+          <s:element minOccurs="0" maxOccurs="1" name="BGColor" type="s:string" />
+          <s:element minOccurs="1" maxOccurs="1" name="FontSize" type="s:float" />
+          <s:element minOccurs="1" maxOccurs="1" name="barcodeOption" type="tns:BarcodeOption" />
+          <s:element minOccurs="1" maxOccurs="1" name="barcodeType" type="tns:BarcodeType" />
+          <s:element minOccurs="1" maxOccurs="1" name="checkSumMethod" type="tns:CheckSumMethod" />
+          <s:element minOccurs="1" maxOccurs="1" name="showTextPosition" type="tns:ShowTextPosition" />
+          <s:element minOccurs="1" maxOccurs="1" name="BarCodeImageFormat" type="tns:ImageFormats" />
+        </s:sequence>
+      </s:complexType>
+      <s:simpleType name="BarcodeOption">
+        <s:restriction base="s:string">
+          <s:enumeration value="None" />
+          <s:enumeration value="Code" />
+          <s:enumeration value="Typ" />
+          <s:enumeration value="Both" />
+        </s:restriction>
+      </s:simpleType>
+      <s:simpleType name="BarcodeType">
+        <s:restriction base="s:string">
+          <s:enumeration value="Code_2_5_interleaved" />
+          <s:enumeration value="Code_2_5_industrial" />
+          <s:enumeration value="Code_2_5_matrix" />
+          <s:enumeration value="Code39" />
+          <s:enumeration value="Code39Extended" />
+          <s:enumeration value="Code128A" />
+          <s:enumeration value="Code128B" />
+          <s:enumeration value="Code128C" />
+          <s:enumeration value="Code93" />
+          <s:enumeration value="Code93Extended" />
+          <s:enumeration value="CodeMSI" />
+          <s:enumeration value="CodePostNet" />
+          <s:enumeration value="CodeCodabar" />
+          <s:enumeration value="CodeEAN8" />
+          <s:enumeration value="CodeEAN13" />
+          <s:enumeration value="CodeUPC_A" />
+          <s:enumeration value="CodeUPC_E0" />
+          <s:enumeration value="CodeUPC_E1" />
+          <s:enumeration value="CodeUPC_Supp2" />
+          <s:enumeration value="CodeUPC_Supp5" />
+          <s:enumeration value="CodeEAN128A" />
+          <s:enumeration value="CodeEAN128B" />
+          <s:enumeration value="CodeEAN128C" />
+        </s:restriction>
+      </s:simpleType>
+      <s:simpleType name="CheckSumMethod">
+        <s:restriction base="s:string">
+          <s:enumeration value="None" />
+          <s:enumeration value="Modulo10" />
+        </s:restriction>
+      </s:simpleType>
+      <s:simpleType name="ShowTextPosition">
+        <s:restriction base="s:string">
+          <s:enumeration value="TopLeft" />
+          <s:enumeration value="TopRight" />
+          <s:enumeration value="TopCenter" />
+          <s:enumeration value="BottomLeft" />
+          <s:enumeration value="BottomRight" />
+          <s:enumeration value="BottomCenter" />
+        </s:restriction>
+      </s:simpleType>
+      <s:simpleType name="ImageFormats">
+        <s:restriction base="s:string">
+          <s:enumeration value="BMP" />
+          <s:enumeration value="EMF" />
+          <s:enumeration value="EXIF" />
+          <s:enumeration value="GIF" />
+          <s:enumeration value="ICON" />
+          <s:enumeration value="JPEG" />
+          <s:enumeration value="MemoryBMP" />
+          <s:enumeration value="PNG" />
+          <s:enumeration value="TIFF" />
+          <s:enumeration value="WMF" />
+        </s:restriction>
+      </s:simpleType>
+      <s:element name="GenerateBarCodeResponse">
+        <s:complexType>
+          <s:sequence>
+            <s:element minOccurs="0" maxOccurs="1" name="GenerateBarCodeResult" type="s:base64Binary" />
+          </s:sequence>
+        </s:complexType>
+      </s:element>
+    </s:schema>
+  </wsdl:types>
+  <wsdl:message name="GenerateBarCodeSoapIn">
+    <wsdl:part name="parameters" element="tns:GenerateBarCode" />
+  </wsdl:message>
+  <wsdl:message name="GenerateBarCodeSoapOut">
+    <wsdl:part name="parameters" element="tns:GenerateBarCodeResponse" />
+  </wsdl:message>
+  <wsdl:portType name="BarCodeSoap">
+    <wsdl:operation name="GenerateBarCode">
+      <documentation xmlns="http://schemas.xmlsoap.org/wsdl/">WebserviceX.NET barcode library that provides the means to create barcodes for printing and display in any internet enabled applications. This web service supports Code 128, Industrial 2 of 5, Interleaved 2 of 5, Code 2 5 Matrix, Code 39, Code 39 Extended, Code 93, Code 93 Extended, Codabar, EAN13, EAN8, MSI, Postnet, Supp2, Supp5, UPC A, UPC E0 and UPC E1 barcode formats. This Barcodes returns byte image. It supports following image format JPEG, GIF, PNG, BMP, EMF, EXIF, ICON, MEMORY BMP, TIFF and WMF.</documentation>
+      <wsdl:input message="tns:GenerateBarCodeSoapIn" />
+      <wsdl:output message="tns:GenerateBarCodeSoapOut" />
+    </wsdl:operation>
+  </wsdl:portType>
+  <wsdl:portType name="BarCodeHttpGet" />
+  <wsdl:portType name="BarCodeHttpPost" />
+  <wsdl:binding name="BarCodeSoap" type="tns:BarCodeSoap">
+    <soap:binding transport="http://schemas.xmlsoap.org/soap/http" style="document" />
+    <wsdl:operation name="GenerateBarCode">
+      <soap:operation soapAction="http://www.webservicex.net/GenerateBarCode" style="document" />
+      <wsdl:input>
+        <soap:body use="literal" />
+      </wsdl:input>
+      <wsdl:output>
+        <soap:body use="literal" />
+      </wsdl:output>
+    </wsdl:operation>
+  </wsdl:binding>
+  <wsdl:binding name="BarCodeHttpGet" type="tns:BarCodeHttpGet">
+    <http:binding verb="GET" />
+  </wsdl:binding>
+  <wsdl:binding name="BarCodeHttpPost" type="tns:BarCodeHttpPost">
+    <http:binding verb="POST" />
+  </wsdl:binding>
+  <wsdl:service name="BarCode">
+    <documentation xmlns="http://schemas.xmlsoap.org/wsdl/">Barcode generator</documentation>
+    <wsdl:port name="BarCodeSoap" binding="tns:BarCodeSoap">
+      <soap:address location="http://www.webservicex.net/genericbarcode.asmx" />
+    </wsdl:port>
+    <wsdl:port name="BarCodeHttpGet" binding="tns:BarCodeHttpGet">
+      <http:address location="http://www.webservicex.net/genericbarcode.asmx" />
+    </wsdl:port>
+    <wsdl:port name="BarCodeHttpPost" binding="tns:BarCodeHttpPost">
+      <http:address location="http://www.webservicex.net/genericbarcode.asmx" />
+    </wsdl:port>
+  </wsdl:service>
+</wsdl:definitions>
--- a/example/wsdl/person.xml
+++ b/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>
+
--- a/lib/SOAP/WSDL.pm
+++ b/lib/SOAP/WSDL.pm
@@ -1,20 +1,23 @@
 package SOAP::WSDL;
 use strict;
 use warnings;
+
+use 5.008;  # require at least perl 5.8
+
 use vars qw($AUTOLOAD);
+
 use Carp;
 use Scalar::Util qw(blessed);
 use SOAP::WSDL::Client;
 use SOAP::WSDL::Expat::WSDLParser;
-use Class::Std;
+use Class::Std::Fast constructor => 'none';
 use SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;
 use LWP::UserAgent;

-our $VERSION='2.00_17';
+use version; our $VERSION = qv('3.002');

 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>);
@@ -38,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,
@@ -81,7 +83,7 @@ for my $method (keys %LOOKUP ) {

    sub new {
        my ($class, %args_from) = @_;
-        my  $self = \do { my $foo = undef };
+        my  $self = \do { my $foo = Class::Std::Fast::ID() };
        bless $self, $class;
        for (keys %args_from) {
            my $method = $self->can("set_$_")
@@ -90,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;
@@ -105,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);

@@ -116,9 +137,7 @@ sub wsdlinit {
    # sanity checks
    my $types = $wsdl_definitions->first_types()
        or croak "unable to extract schema from WSDL";
-    my $ns = $wsdl_definitions->get_xmlns()
-        or croak "unable to extract XML Namespaces" . $wsdl_definitions->to_string;
-    ( %{ $ns } ) or croak "unable to extract XML Namespaces";
+    my $ns = $wsdl_definitions->get_xmlns();

    # setup lookup variables
    $definitions_of{ $ident }  = $wsdl_definitions;
@@ -130,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

@@ -137,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  {
@@ -146,27 +174,30 @@ 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;
    my $wsdl = $definitions_of{ $ident };
-    my $port = $port_of{ $ident } || $self->_wsdl_get_port();
+    my $port = $self->_wsdl_get_port();
    $binding_of{ $ident } = $wsdl->find_binding( $port->expand( $port->get_binding() ) )
        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;
    my $wsdl    = $definitions_of{ $ident };
-    my $binding = $binding_of{ $ident } || $self->_wsdl_get_binding();
+    my $binding = $self->_wsdl_get_binding();
    $porttype_of{ $ident } = $wsdl->find_portType( $binding->expand( $binding->get_type() ) )
        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;
@@ -174,26 +205,25 @@ 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 });
-    my $binding = $binding_of{ $ident } || $self->_wsdl_get_binding()
-           || croak "Can't find binding";
-    my $portType = $porttype_of{ $ident } || $self->_wsdl_get_portType();
+    $self->_wsdl_get_service();
+    $self->_wsdl_get_portType();

    $method_info_of{ $ident } = {};

-    foreach my $binding_operation (@{ $binding->get_operation() })
+    foreach my $binding_operation (@{ $binding_of{ $ident }->get_operation() })
    {
        my $method = {};

        # 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
-        my $operation = $portType->find_operation( $ns,
+        my $operation = $porttype_of{ $ident }->find_operation( $ns,
            $binding_operation->get_name() );

        # 2. get input message name
@@ -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,9 +269,13 @@ 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 = ident $self;
+    my $ident = ${ $self };

    my ($data, $header) = ref $data_from[0]
      ? ($data_from[0], $data_from[1] )
@@ -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: 391 $
- $LastChangedBy: kutterma $
- $Id: WSDL.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.pm $
+    https://github.com/scrottie/SOAP-WSDL

 =cut
-
--- a/lib/SOAP/WSDL/Base.pm
+++ b/lib/SOAP/WSDL/Base.pm
@@ -1,38 +1,64 @@
 package SOAP::WSDL::Base;
-use strict;
-use warnings;
-use Class::Std::Storable;
-use List::Util qw(first);
+use strict; use warnings;
+use Class::Std::Fast::Storable;
+use List::Util;
+use Scalar::Util;
 use Carp qw(croak carp confess);

-our $VERSION='2.00_17';
+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,27 +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) {
-            croak $xmlns_of{ ident $self }
-                if ref $xmlns_of{ ident $self } ne 'HASH';
-
            # add namespaces
-            $xmlns_of{ ident $self }->{ $value->{ Value } } =
-                $value->{ LocalName };
-
+            $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;
        }

@@ -114,19 +139,41 @@ sub init {
 }

 sub expand {
-    my ($self, , $qname) = @_;
-    my ($prefix, $localname) = split /:/x, $qname;
-    my %ns_map = reverse %{ $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";
+    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__
--- a/lib/SOAP/WSDL/Binding.pm
+++ b/lib/SOAP/WSDL/Binding.pm
@@ -1,10 +1,12 @@
 package SOAP::WSDL::Binding;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use List::Util qw(first);
+use Class::Std::Fast::Storable;
+
 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<()>);
--- a/lib/SOAP/WSDL/Client.pm
+++ b/lib/SOAP/WSDL/Client.pm
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use Carp;

-use Class::Std::Storable;
+use Class::Std::Fast::Storable;
 use Scalar::Util qw(blessed);

 use SOAP::WSDL::Factory::Deserializer;
@@ -11,20 +11,23 @@ use SOAP::WSDL::Factory::Serializer;
 use SOAP::WSDL::Factory::Transport;
 use SOAP::WSDL::Expat::MessageParser;

-our $VERSION = '2.00_17';
+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) = @_;
@@ -42,7 +45,7 @@ sub get_proxy {                         ## no critic RequireArgUnpacking

 sub set_proxy {
    my ($self, @args_from) = @_;
-    my $ident = ident $self;
+    my $ident = ${ $self };

    # remember old value to return it later - Class::Std does so, too
    my $old_value = $transport_of{ $ident };
@@ -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: 391 $
+ $Rev: 851 $
 $LastChangedBy: kutterma $
- $Id: Client.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/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

--- a/lib/SOAP/WSDL/Client/Base.pm
+++ b/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_24';
+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: 391 $
+ $Rev: 851 $
 $LastChangedBy: kutterma $
- $Id: Base.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/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
--- a/lib/SOAP/WSDL/Definitions.pm
+++ b/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::Storable;
+use Class::Std::Fast::Storable;
 use base qw(SOAP::WSDL::Base);

-our $VERSION='2.00_17';
+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::Storable
-my %attributes_of :ATTR();
-%attributes_of = (
-    binding => \%binding_of,
-    message => \%message_of,
-    portType => \%portType_of,
-    service => \%service_of,
+# must be attr for Class::Std::Fast::Storable
+#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: 391 $
+ $Rev: 851 $
 $LastChangedBy: kutterma $
- $Id: Definitions.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/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

--- a/Show More
+++ b/Show More
Author	SHA1	Message	Date
Scott Walters	c35791c506	Merge pull request #2 from rejitnatarajan/pod-fix missing asterisk fixes pod error	2015-02-11 22:46:16 -06:00
rejit natarajan	b803f83abd	missing asterisk fixes pod error small fix for pod error http://cpants.cpanauthors.org/dist/SOAP-WSDL/errors	2015-02-12 09:55:29 +05:30
Scott Walters	e95ff8baba	Changelog entries for 3.002, too late for release. oops. and what exactly where the 3.001 changes? oh well.	2014-09-16 17:49:01 -04:00
Scott Walters	cad782dbf2	bump version to 3.002, and also change each file from having their own version number to referring to $SOAP::WSDL::VERSION since they aren't really individually versions anyway but just copies of that number.	2014-09-16 17:40:18 -04:00
Scott Walters	99c5eb4dd7	remove META.yml (I still don't know how that's supposed to work) and Makefile (which I do know wasn't supposed to be in git)	2014-09-16 03:30:20 -04:00
Scott Walters	a1e9927846	Declare dependency on Class::Load Thanks ANDYK! Ref Bug #98628 for SOAP-WSDL: Undeclared dependency on Class::Load https://rt.cpan.org/Public/Bug/Display.html?id=98628	2014-09-16 03:30:20 -04:00
Scott Walters	ba407622f5	Merge pull request #1 from szabgab/patch-1 link to GitHub from META files	2014-08-30 03:52:40 -04:00
Gabor Szabo	5b9f3c640b	link to GitHub from META files	2014-08-30 10:27:21 +03:00
Scott Walters	ed715a4c88	smoke testing looks pretty good, only failing on amd64-netbsd machines and one random Linux machine (I should look why but I really don't want to know), so, bump version to 3.001 and do a release. FAIL 5.10.1 NetBSD 6.1.4 amd64-netbsd FAIL 5.14.2 GNU/Linux 3.11.0-18-generic x86_64-linux-thread-multi FAIL 5.10.1 NetBSD 6.1.4 amd64-netbsd-thread-multi	2014-08-29 15:05:06 -04:00
Scott Walters	f5787f6057	version bump to 3.00.0_2 and Changes entry	2014-08-28 21:16:50 -04:00
Scott Walters	374793ef68	get rid of Build.PL; we use ExtUtils::MakeMaker now.	2014-08-28 21:08:13 -04:00
Scott Walters	7f6af60ed8	oops, global version search and replace ruined a comment. leave it ruined	2014-08-28 21:05:13 -04:00
Scott Walters	37740b870a	fix a hash randomization bug that was causing random failures in t/SOAP/WSDL/05_simpleType-list.t	2014-08-28 21:03:39 -04:00
Scott Walters	31f5deacf5	2624a9 for #86142 , adding the XML declaration to the output, broke another part of the system, so work around that. I accidentally stopped doing "recursive" tests (tests in subdirs) at some point and missed some of this fun breakage.	2014-08-28 21:01:51 -04:00
Scott Walters	3197383a7d	update POD; thought I commit this already... ?	2014-08-28 20:38:31 -04:00
Scott Walters	285ffa463c	okay, dam@cpan.org's fix for using not using ->usa('UNIVERSAL') to test if something loaded apparently works in a situation where mine doesn't, that was causing tests to fail.	2014-08-28 18:26:41 -04:00
Scott Walters	35321ce5d0	run tests recursively under ExtUtils::MakeMaker.	2014-08-28 16:25:55 -04:00
Scott Walters	08b156a546	take Module::Build out of inc. it doesn't work. don't use it.	2014-08-28 16:25:29 -04:00
Scott Walters	605732b836	https://rt.cpan.org/Ticket/Display.html?id=82028 -- POD error results in broken link generated	2014-08-27 18:28:43 -04:00
Scott Walters	1994b36d8b	switch from Module::Build to Make::Maker based Makefile.PL after Module::Build vomited on trying to 'make dist', and then when that was fixed, generated a completely busted dist without error. good riddance.	2014-08-27 17:53:50 -04:00
Scott Walters	f3ae85aed5	default directory for t/098_pod.t. not sure why it was doing @dir = (); if(ENV var) { @dir = 'some dir that exists' }. this would make a path analysis tool cry.	2014-08-27 17:52:41 -04:00
Scott Walters	7d81cfce87	bump version to 3.00.00_1; update POD a bit; include contact info for myself; declare this module deprecated and in maintenance mode; include Module::Build in the 'inc' dir to avoid a warning about it being deprecated from core inclusion; add mention of the UNIVERSAL->isa() bug created by Class::Std::Fast to the POD for BUGS AND LIMITATIONS.	2014-08-27 17:39:52 -04:00
Scott Walters	2624a9d5c0	applied patch from ticket #86142 : Missing XML declaration in request https://rt.cpan.org/Public/Bug/Display.html?id=86142 tests still pass, so, good enough, right?	2014-08-21 20:50:56 -04:00
Scott Walters	45982ff330	Huh. Between 5.12 and 5.16 somewhere, the behavior of ClassName->isa('UNIVERSAL') changed. It used to be that that would return true if and only if that namespace existed. Now it always returns true for any random non-existant made up name. Changed this to do ->can() on a known existing method modules with this API have (serialize) instead after floundering around for a bit. exists ${"main::"}{$type.'::'} worked a little bit but made it barf for some reason I didn't investigate. This is the problem apparently behind the previous "haunted house level shit" fixes and reversions. This thing does automatically load these modules on the fly. Would be nice if the unit tests had some comments in them.	2014-08-21 08:37:49 -04:00
Scott Walters	cfd5892b18	Revert "was barfing with "Can't locate object method "new" via package "MyElement" (perhaps you forgot to load "MyElement"?) at lib/SOAP/WSDL/XSD/Typelib/Comple" ref haunted house level shit going weird message in previous revert. This reverts commit `d221e87b29`.	2014-08-21 07:48:30 -04:00
Scott Walters	6e95d01610	Revert "maybe I'm doing the wrong thing by adding use lines for test modules" Wow. Even with the "fix" in, it runs correctly once, and then starts vomiting with a similar error again as before the fix. it'll fail 20 times in a row, then pass 20 times in a row. there's some haunted house level shit going wrong here. This reverts commit `b121a061d8`.	2014-08-21 07:47:02 -04:00
Scott Walters	b121a061d8	maybe I'm doing the wrong thing by adding use lines for test modules that unit tests use. maybe there's some magic that's supposed to automatically use those things, even though they're hidden in deeply buried paths with no machine predictable naming scheme. I can't imagine that these unit tests passed before unless there is/was some magic. I hobbled this in to working with a use lib and a use for the module, but after doing this second one of these, I'm having serious doubts about whether I'm just spackling over the problem.	2014-08-21 07:37:22 -04:00
Scott Walters	d2f324a7f2	oops, changing error messages breaks tests. make them match again. don't change the tests. change the error messages. that way the error message's awkwardness hints at the code's awkwardness.	2014-08-21 07:34:19 -04:00
Scott Walters	f2ce9511e0	I don't get it. There were two calls to get_port() right next to each other, in the very same ? :, and one of them had a ->[0] tacked on the end and the other one didn't. Well guess what... the one without was returning an arrayref, which caused these failures in the unit tests: Can't call method "get_binding" on unblessed reference at /home/scott/projects/SOAP-WSDL/blib/lib/SOAP/WSDL.pm line 186.	2014-08-21 07:27:58 -04:00
Scott Walters	50c8d5b31f	oh, look, ComplexType.pm has cut and paste hash reversing code from SimpleType.pm. that means that we can cut and paste the fix from SimpleType.pm into ComplexType.pm. how many wrongs make a right? I forget.	2014-08-21 07:26:30 -04:00
Scott Walters	47dc61bd9e	protip: reverse %hash with '#default' => 'urn:myNamespace', 'tns' => 'urn:myNamespace' results in misery. random hash ordering made a pile of tests in t/003_wsdl_based_serializer.t randomly pass and fail in unison. I smelled a smell.	2014-08-21 06:32:11 -04:00
Scott Walters	3670df3e69	"vectors" (totally not the same thing as a vector in other languages or on a Cray 1) have been deprecated and removed. pretend like they never existed.	2014-08-21 05:20:56 -04:00
Scott Walters	d221e87b29	was barfing with "Can't locate object method "new" via package "MyElement" (perhaps you forgot to load "MyElement"?) at lib/SOAP/WSDL/XSD/Typelib/Comple xType.pm line 213.". Okay, then, MyElement.pm exists in t/lib. Let's try using it. And it worked. Incidentally, the code at lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm is heinous.	2014-08-21 05:17:05 -04:00
Scott Walters	001c36f8e8	fix two instances of the "Can't modify non-lvalue subroutine call at lib/SOAP/WSDL.pm line 167." error. it looks like the author wrote return $a ? $b : $c = $d Intending it to mean: return $a ? $b : ($c = $d); ... but perl parses it as: return ( $a ? $b : $c) = $d; ... and perl 5.16 is more astute about lvalue errors like that.	2014-08-20 08:37:33 -04:00
Martin Kutter	9023aa06a4	import SOAP-WSDL 2.00.10 from CPAN git-cpan-module: SOAP-WSDL git-cpan-version: 2.00.10 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.10.tar.gz	2009-12-12 19:49:03 -08:00
Martin Kutter	3b30e8d0e2	import SOAP-WSDL 2.00.09 from CPAN git-cpan-module: SOAP-WSDL git-cpan-version: 2.00.09 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.09.tar.gz	2009-12-12 19:49:02 -08:00
Martin Kutter	fb9fd4a2b1	import SOAP-WSDL 2.00.08 from CPAN git-cpan-module: SOAP-WSDL git-cpan-version: 2.00.08 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.08.tar.gz	2009-12-12 19:49:00 -08:00
Martin Kutter	bfc3247583	import SOAP-WSDL 2.00.07 from CPAN git-cpan-module: SOAP-WSDL git-cpan-version: 2.00.07 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.07.tar.gz	2009-12-12 19:48:57 -08:00
Martin Kutter	3de318be40	import SOAP-WSDL 2.00.06 from CPAN git-cpan-module: SOAP-WSDL git-cpan-version: 2.00.06 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.06.tar.gz	2009-12-12 19:48:54 -08:00
Martin Kutter	c2ac24dd0f	import SOAP-WSDL 2.00.05 from CPAN git-cpan-module: SOAP-WSDL git-cpan-version: 2.00.05 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.05.tar.gz	2009-12-12 19:48:45 -08:00
Martin Kutter	c3e3d1908e	import SOAP-WSDL 2.00.04 from CPAN git-cpan-module: SOAP-WSDL git-cpan-version: 2.00.04 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.04.tar.gz	2009-12-12 19:48:44 -08:00
Martin Kutter	e58a27e2ad	import SOAP-WSDL 2.00.03 from CPAN git-cpan-module: SOAP-WSDL git-cpan-version: 2.00.03 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.03.tar.gz	2009-12-12 19:48:40 -08:00
Martin Kutter	915ee03cbe	import SOAP-WSDL 2.00.02 from CPAN git-cpan-module: SOAP-WSDL git-cpan-version: 2.00.02 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.02.tar.gz	2009-12-12 19:48:35 -08:00
Martin Kutter	745ce925c1	import SOAP-WSDL 2.00.01 from CPAN git-cpan-module: SOAP-WSDL git-cpan-version: 2.00.01 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.01.tar.gz	2009-12-12 19:48:32 -08:00
Martin Kutter	0cbf981665	import SOAP-WSDL 2.00_33 from CPAN git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_33 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_33.tar.gz	2009-12-12 19:48:28 -08:00
Martin Kutter	51db446428	import SOAP-WSDL 2.00_32 from CPAN git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_32 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_32.tar.gz	2009-12-12 19:48:24 -08:00
Martin Kutter	f0b3bdc201	import SOAP-WSDL 2.00_31 from CPAN git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_31 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_31.tar.gz	2009-12-12 19:48:21 -08:00
Martin Kutter	874251225f	import SOAP-WSDL 2.00_29 from CPAN git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_29 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_29.tar.gz	2009-12-12 19:48:17 -08:00
Martin Kutter	2bad767211	import SOAP-WSDL 1.27 from CPAN git-cpan-module: SOAP-WSDL git-cpan-version: 1.27 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-1.27.tar.gz	2009-12-12 19:48:16 -08:00
Martin Kutter	7ca2154ad6	import SOAP-WSDL 2.00_28 from CPAN git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_28 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_28.tar.gz	2009-12-12 19:48:15 -08:00
Martin Kutter	eb096ad88e	import SOAP-WSDL 2.00_27 from CPAN git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_27 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_27.tar.gz	2009-12-12 19:48:14 -08:00
Martin Kutter	3cfeebae54	import SOAP-WSDL 2.00_26 from CPAN git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_26 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_26.tar.gz	2009-12-12 19:48:13 -08:00
Martin Kutter	a9033164e6	import SOAP-WSDL 2.00_25 from CPAN git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_25 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_25.tar.gz	2009-12-12 19:48:11 -08:00