import SOAP-WSDL 2.00_24 from CPAN

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

Build.PL

@@ -0,0 +1,55 @@
+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;

CHANGES

@@ -1,14 +0,0 @@
-$Log: CHANGES,v $
-Revision 1.6  2004/06/11 19:51:49  lsc
-- changed expansion mode
-
-Revision 1.5  2004/06/11 19:49:54  lsc
-- moved .t files to more self-describing names
-- changed WSDL.pm to accept AXIS wsdl files
-- implemented XPath query result caching on all absolute queries
-
-Revision 1.4  2004/06/11 12:12:20  lsc
-CPAN preparation
-
-Revision 1.3  2004/06/11 11:59:51  lsc
-Test commit

Changes

@@ -0,0 +1,455 @@
+Release notes for SOAP::WSDL 2.00_24
+-------
+
+I'm proud to present a new pre-release version of SOAP::WSDL.
+
+SOAP::WSDL is a toolkit for creating WSDL-based SOAP client interfaces in perl.
+
+Features:
+
+    * WSDL based SOAP client
+          o SOAP1.1 support
+          o Supports document/literal message style/encoding
+    * Code generator for generating WSDL-based interface classes
+          o Generated code includes usage documentation for the web service interface
+    * Easy-to use API
+          o Automatically encodes perl data structures as message data
+          o Automatically sets HTTP headers right
+    * Efficient documentation
+          o SOAP::WSDL::Manual guides you at getting your work done, not at 
+          the module's internals
+    * Thorough test suite
+          o SOAP::WSDL is heavily regression tested, with a test coverage of 
+          over 95% (excluding documentation - you wouldn't want to read 
+          through it all).
+    * SOAP::Lite like look and feel
+          o Where possible, SOAP::WSDL mimics SOAP::Lite's API to allow easy migrations
+    * XML schema based class library for creating data objects
+    * High-performance XML parser
+    * Plugin support. SOAP::WSDL can be extended through plugins in various aspects. 
+      The following plugins are supported:
+          o Transport plugins via SOAP::WSDL::Factory::Transport
+          o Serializer plugins via SOAP::WSDL::Factory::Serializer
+          o Deserializer plugins via SOAP::WSDL::Factory::Serializer
+
+The following changes have been made:
+
+2.00_24
+---
+The following features were added (the numbers in square brackets are the 
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660924):
+
+   * [ 1832998 ] Make interface methods complain when called as class method
+   * [ 1826833 ] listify all XSD type objects when called as @{}
+
+The following bugs have been fixed (the numbers in square brackets are the 
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660921):
+The numbers with # are CPAN RT IDs (http://rt.cpan.org/).
+
+   * #30685: Error in MessageParser when using __SKIP__ in typemap
+   * [ 1831398 ] Badd class names for atomic typed elements
+   * [ 1828240 ] POD Defects
+   * [ 1792348 ] 006_client.t requires SOAP::Lite (again)
+
+The following uncategorized improvements have been made:   
+
+   * The test suite has been improved
+   * Documentation has been improved
+
+2.00_23
+---
+
+The following bugs have been fixed (the numbers in square brackets are the 
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660921):
+
+   * [ 1826382 ] nillable elements not serialized as xsi:nil
+   * [ 1826337 ] Second element in complexType gets eaten up
+   * [ 1792348 ] 006_client.t requires SOAP::Lite (again)
+
+The following uncategorized improvements have been made:   
+
+   * Test for complexType containing element with atomic simpleType added
+
+2.00_22
+----
+
+The following bugs have been fixed (the numbers in square brackets are the 
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660921):
+
+   * [ 1817697 ] Dots in service/port names lead to broken interfaces
+   * [ 1817699 ] Templates not found on all OS
+
+The following uncategorized improvements have been made:   
+
+   * Code cleanup. The XSD library has been cleaned up a bit. Should result 
+   in a minor speedup in serializing and deserializing XML messages,
+
+
+2.00_21 - not released
+----
+The following bugs have been fixed (the numbers in square brackets are the 
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660921):
+
+   * [ 1810058 ] .tt's pod indexed on CPAN (again)
+   * [ 1809284 ] Rename SOAP::WSDL::Deserializer::SOAP11 to ::XSD
+
+The following uncategorized improvements have been made:   
+
+   * Requires at least perl 5.8.0. This is due to a bug in perls before - 
+   see http://aspn.activestate.com/ASPN/Mail/Message/perl5-porters/929746
+
+2.00_20
+----
+The following features were added (the numbers in square brackets are the 
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660924):
+
+   * [ 1815646 ] Only include last part of port name in interface
+   * [ 1815648 ] Methods with empty body cannot be called as ->method()
+   * [ 1815651 ] Empty complexType definitions not supported
+   
+The following bugs have been fixed (the numbers in square brackets are the 
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660921):
+
+   * [ 1815643 ] ComplexTypes cannot be freezed/thawed
+
+The following uncategorized improvements have been made:   
+
+   * WSDL definitions are decoded into utf8
+   * fixed tests to use correct path on windows
+
+2.00_19
+----
+The following features were added (the numbers in square brackets are the 
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660924):
+
+   * [ 1810395 ] Implement complexType complexContent extension
+
+The following bugs have been fixed (the numbers in square brackets are the 
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660921):
+
+   * [ 1813144 ] Typemap not used in interface class
+   * [ 1810058 ] .tt's pod indexed on CPAN
+
+The following uncategorized improvements have been made:   
+
+   * Documentation improvements
+
+2.00_18
+----
+The following features were added (the numbers in square brackets are the 
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660924):
+
+   * [ 1790983 ] Create generator Plugin API
+   Generator factory is SOAP::WSDL::Factory::Generator
+
+The following bugs have been fixed (the numbers in square brackets are the 
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660921):
+
+   * [ 1805252 ] t/SOAP/WSDL/XSD/Typelib/Builtin/004_time.t fails
+   The default timezone conversion has been fixed.
+
+The following uncategorized improvements have been made:   
+
+   * Documentation improvements
+   * Test updates
+   * readable() has been converted into a no-op, as it already had no effect 
+   any more
+
+2.00_17
+----
+The following features were added (the numbers in square brackets are the 
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660924):
+
+The following bugs have been fixed (the numbers in square brackets are the 
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660921):
+
+   * [ 1772617 ] SOAP Header not working
+   Added header support. Currently, SOAP headers are only supported with 
+   the SOM or the XSD (SOAP11) serializer.
+
+   * [ 1805238 ] Tests in t/SOAP/WSDL don't work when run from t/
+
+   * [ 1805241 ] explain() broken in SOAP::WSDL
+   explain has been removed from SOAP::WSDL
+   
+The following uncategorized improvements have been made:   
+
+   * Added limited support for complexType complexContent content model with 
+   restriction variety.
+   SOAP::WSDL now supports this XML Schema definition variant, although no
+   constraints are imposed on derived types yet.
+   Derived types do not serialize with a xsi:type attribute (and the xsi:type 
+   attribute is not recognized by the XML parser), so you cannot use derived 
+   types as a substitute for theri parent, yet.
+
+   * Added support for complexType choice variety
+   complexType definitions using the choice variety are now supported,
+   even though the content is not checked (if you pass in invalid data, 
+   invalid XML will be generated).
+
+   * Added Loopback Transport backend.
+   SOAP::WSDL::Tranport::Loopback just returns the request as respons, but 
+   allows testing the whole chain from user interface to transport backend.
+
+   * Fixed SOAP::WSDL::Factory::Transport prefer user-registered 
+   transport backend
+
+   * Fixed set_soap_version method in SOAP::WSDL::Client.
+   Re-setting the SOAP version now invalidates (resets) serializer and 
+   deserializer, but not the transport backend.
+
+   * Fixed SOAP::WSDL::XSD::Typelib::Builtin::boolean to return false 
+   when false and true when true.
+
+   * SOAP::WSDL::XSD::Typelib::Builtin::normalizedString now replaces all 
+   occurences of tab, newline and carriage return by whitespce on set_value.
+
+   * Code cleanup
+      o Lots of orphan methods now replaced by the SOAP::WSDL::Generator 
+        hierarchy have been removed.
+      o Unused (and unusable) readable option checking has been removed in 
+        SOAP::WSDL::Serializer::SOAP11.
+      o Unused XML Schema facet attributes have been removed from XSD Builtin 
+        classes
+      o Methods common to all expat parser classes have been factored out 
+        into a common base class.
+   
+   * XML serialization speedup for SOAP::WSDL::XSD::* objects
+
+   * Tests added to improve test coverage.
+
+   * A few documentation errors have been fixed
+
+   * Misspelled default Typemap and Interface prefixes have been corrected
+
+2.00_16
+----
+The following features were added (the numbers in square brackets are the 
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660924):
+
+   * [ 1761532 ] Support embedded atomic types
+   SOAP::WSDL now supports a greater variety of XML Schema type definitions.
+   Note that XML Schema support is still incomplete, though.
+
+   * [ 1797943 ] Create Perl Hash Deserializer
+   There's a new deserializer which outputs perl hashes as data structures.
+   Much like XML::Simple, but faster. No XML Attribute support, though.
+
+   * [ 1797678 ] Move Code generator from WSDL::Definitions to separate class
+
+   * [ 1803330 ] Create one interface per port
+   SOAP::WSDL now creates one interface per port, not one per service.
+
+The following bugs have been fixed (the numbers in square brackets are the 
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660921):
+
+   * [ 1804441 ] parts from binding not regarded in SOAP::WSDL
+   SOAP::WSDL (interpreter mode) now respects the body parts specified in the 
+   binding.
+
+   * [ 1803763 ] nonNegativeInteger misspelled in Schema::Builtin
+
+   * [ 1793965 ] _expand() does not work on non-root-node ns declarations
+
+   * [ 1792348 ] 006_client.t requires SOAP::Lite in 2.00_15
+   SOAP::WSDL no longer attempts to load SOAP::WSDL::Deserializer::SOM when 
+   no_dispatch is set.
+   006_client.t now sets outputxml(1), to be really sure.
+   
+The following uncategorized improvements have been made:   
+
+   * Code generator only generates interface for the first port in a service
+   The code generator now generates interfaces for all ports.
+   Note: The naming scheme has changed. It is now
+    InterfacePrefix::Service::Port
+   
+   * XML Parser speedup
+   The XML parser has received a little speedup.
+   
+   * A number of errors in parsing / traversing WSDL documents have been 
+   corrected.
+   
+   * Documentation has been improved
+   
+   * A number of (incorrect, but passing) tests have been fixed.
+
+   * Code cleanup: The SOAP::WSDL::SAX* modules are no longer included, as they 
+   are not supported any more. They can still be found in SOAP::WSDL's 
+   subversion repository in the attic directory, though.
+   
+2.00_15
+----
+
+The following bugs have been fixed (the numbers in square brackets are the 
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660921):
+
+   * [ 1792321 ] 2.00_14 requires SOAP::Lite for passing tests
+
+2.00_14
+----
+
+The following bugs have been fixed (the numbers in square brackets are the 
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660921):
+
+   * [ 1792235 ] SOAP::WSDL::Transport::Test missing from 2.00_13
+   The package has been re-added
+
+   * [ 1792221 ] class_resolver not set from ::Client in 2.00_13
+   Changed to set class_resolver correctly.
+
+The following uncategorized improvements have been made:
+
+   * The ::SOM deserializer has been simplified to be just a subclass 
+   of SOAP::Deserializer from SOAP::Lite
+   * Factories now emit more useful error messages when no class is registered
+   for the protocol/soap_version requested
+   * Documentation has been improved
+      - refined ::Factory:: modules' documentation
+   * Several tests have been added
+   * XSD classes have been improved for testability
+
+2.00_13
+----
+The following features were added (the numbers in square brackets are the 
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660924):
+
+   * [ 1790619 ] Test transport backend
+   A test transport backend has been implemented (SOAP::WSDL::Transport::Test).
+   It returns the contents from a file and discards the response.
+   The filename is determined from the soap_action field.
+   
+   * [ 1785196 ] Replace outputsom(1) by deserializer plugin
+   outputsom(1) in SOAP::WSDL is now implemented via using the deserializer 
+   plugin SOAP::WSDL::Deserializer::SOM.
+
+   * [1785195] Support deserializer plugins
+   Deserializer plugin API added via SOAP::WSDL::Factory::Deserializer.
+  
+The following bugs have been fixed (the numbers in square brackets are the 
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660921):
+
+   * [1789581] Support ComplexType mixed
+   WSDL parser now supports using the mixed="true" attribute in complexType 
+   definitions. Mixed content in messages is only supported via SOAP::SOM yet.
+
+   * [1787975] 016_client_object.t fails due to testing XML as string
+   Removed string test.
+  
+   * [1787959] Test wsdl seems to be broken
+   Corrected typo.
+  
+   * [1787955] ::XSD::Typelib::date is broken
+   SOAP::WSDL::XSD::Typelib::Builtin::date now converts time-zoned dates properly, 
+   and adds the local time zone if none is given.
+
+   * [1785646] SOAPAction header not set from soap:operation soapAction
+   SOAP::WSDL now sets the SOAPAction header correctly.
+
+The following uncategorized improvements have been made:
+
+   * Documentation improvements
+
+2.00_12
+----
+  
+The following bugs have been fixed (the numbers in square brackets are the 
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660921):
+
+   * [1787146] SOAP::WSDL still uses XML::LibXML
+   The superficious usage of XML::LibXML has been removed. XML::LibXML with 
+   sax filter has been replaced by SOAP::WSDL::Expat::WSDLParser.
+   
+   * [1787054] Test suite requires XML::LibXML in 2.00_11
+   The test suite no longer requires XML::LibXML to pass.
+
+   * [1785678] SOAP envelope not checked for namespace
+   The SOAP envelope is now checked for the correct namespace.
+   
+   * [1786644] SOAP::WSDL::Manual - doc error
+   Documentation improvements
+    
+The following uncategorized improvements have been made
+
+   * The SOAPAction header is now alway quoted (R1109 in WS-I BP 1.0).
+   
+2.00_11
+----
+
+The following features were added (the numbers in square brackets are the 
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660924):
+
+  * [1767963] Transport plugins via SOAP::WSDL::Factory::Transport.
+    SOAP::WSDL uses SOAP::Lite's tranport modules as default, with a 
+    lightweight HTTP(S) transport plugin as fallback.
+    Custom transport modules can be registered via SOAP::WSDL::Factory::Transport.
+
+  * [ 1772730 ] Serializer plugins via SOAP::WSDL::Factory::Serializer 
+    The default serializer for SOAP1.1 is SOAP::WSDL::Serializer::SOAP11.
+    Custom serializers classes can be registered via 
+    SOAP::WSDL::Factory::Serializer or set via SOAP::WSDL's set_serializer 
+    method.
+
+The following bugs have been fixed (the numbers in square brackets are the 
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660921):
+
+   * [ 1764854 ] Port WSDL parser to expat and remove XML::LibXML dependency
+     SOAP::WSDL now requires only XML::Parser to be installed.
+     XML::LibXML is not required any more, though XML::LibXML based modules still 
+     exist.
+
+The following uncategorized improvements have been made
+
+   * The number of dependencies has been reduced. SOAP::WSDL no longer requires the 
+     following modules to be installed:
+        - XML::SAX::Base
+        - XML::SAX::ParserFactory
+        - Pod::Simple::Text
+        - XML::LibXML
+
+   * The missing prerequisite Template has been added.
+   * Documentation has been improved:
+        - WS-I Compliance document added.
+
+
+2.00_10
+----
+   * Changed Makefile.PL to use Module::Build (passthrough mode)
+   * fixed element ref="" handling
+
+2.00_09
+----
+   * SOAP::WSDL::XSD::Typelib::Builtin::boolean objects now return their numerical 
+     value in bool context, not "true" or "false" (always true...)
+   * date/time test are now timezone-sensitive
+   * examples added
+
+2.00_08
+---
+   * SOAP::WSDL::XSD::Typelib::ComplexType objects now check the class of their 
+     child objects.
+     This provides early feedback to developers.
+   * SOAP message parser can skip unwanted parts of the message to improve parsing 
+     speed - see SOAP::WSDL::Expat::MessageParser for details.
+   * HTTP Content-Type is configurable
+   * SOAP::WSDL::XSD::Typelib::ComplexType based objects accept any combination of 
+     hash refs, list refs and objects as parameter to set_value() and new().
+   * SOAP::WSDL::XSD::Typelib::Builtin::dateTime and ::date convert date 
+      strings into XML date strings
+   * SOAP::WSDL::Definitions::create now
+      - converts '.' in service names to '::' (.NET class separator to perl class 
+      separator)
+      - outputs Typemaps and Interface classes in UTF8 to allow proper inclusion 
+      of UTF8 documentation from WSDL
+   * SOAP::WSDL::Definitions::create() includes doc in generated interface classes
+   * WSDLHandler now handles <wsdl:documentation> tags
+   * fixed explain in SimpleType, ComplexType and Element
+
+2.00_07 and below
+---
+   * Implemented a Code generator for creating SOAP interfaces based on WSDL definitions
+   * Implemented a high-speed stream based SOAP message parser
+     SOAP message parser returns a objects based on XML schema based class library
+   * Implemented a XML schema based class library 
+   * Implemented a stream based WSDL parser.
+     Parses WSDL into objects. Objects can serialize data, and explain how to use the 
+     service(s) they make up (output documentation).

HACKING

@@ -0,0 +1,131 @@
+HACKING
+=======
+
+Development of SOAP::WSDL takes place on sourceforge.net.
+
+There's a svn repository available at 
+https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl
+
+Engagement in the further development of this module is highly encouraged - 
+many people have already contributed, and many more probably will.
+
+I'm sometimes a bit slow in answering e-mails or merging in changes - 
+so if you feel your changes are urgent, please set up a sourceforge account 
+and ask me for commit permissions on the repository - I will happily accept 
+you as co-author.
+
+TODO shows the current roadmap.
+
+SOAP-WSDL CODING GUIDELINES
+===========================
+
+DESIGN PRINCIPLES
+-----------------
+
+SOAP-WSDL is designed for the following principles:
+
+1. SPEED
+A SOAP toolkit is useless, if it's not fast enough. Therefore SOAP::WSDL aims
+at always being fast enough.
+
+Please benchmark any contributions - if they slow down SOAP-WSDL (especially
+the XML parsing part), you should have good reasons.
+
+2. USABILITY
+SOAP-WSDL is designed user-friendly. It tells the user whether it's
+capable of handling some WSDL or not, it gives friendly error messages, and
+if a user happens to call a non-existant method on XSD objects, they croak
+with a list of available methods to ease development.
+
+3. EXTENSIBILITY
+If you plan an extension, look if the extension itself should be extensible,
+and which extension points to use.
+
+Creating new extension points is highly appreciated.
+
+4. MAINTAINABILITY
+SOAP::Lite unfortunately shows where a toolkit can go without focus on
+maintainability. SOAP::WSDL tries to be highly maintainable and easy to
+understand.
+
+CODING STYLE
+------------
+
+The principles above dictate a clear, but not too lengthy coding style.
+
+SOAP::WSDL's coding style in principle follows Perl Best Practices by
+Damian Conway, but allows deviances for speed reasons
+
+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
+    users - it's time consuming and of no use to have users run author tests.
+
+- Indentation and formatting
+    * indent with spaces.
+    * 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 
+    brace on new line. No cuddled else)
+    * No trailing spaces allowed (except to indicate a blank line in a POD 
+    source block)
+
+- Flow control
+    * postfix if is allowed for single statements only. Preferably for flow
+    control only.
+    * postfix for, while, until are not allowed.
+    * unless is not allowed at all. Use if not.
+    * goto is only allowed for jumping into subs. Nothing else.
+    * redo, next, last etc. are preferred over goto.
+
+- Strictness and Warnings
+    * always use strict and warnings. Switch off for the smallest block
+    possible, but switch of if there's a reason (don't let tools like
+    perlcritic fool you: no strict qw(refs); is often required.
+
+- Naming
+    * 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.
+    * package names are CamelCase, except when a XML, SOAP or WSDL name is
+    name-giving (don't force 'int' to become 'Int'. However, simpleType 
+    becomes SimpleType).
+
+- Subroutines
+    * Subroutines shouldn't be more than around 50 lines long
+    * @_ should be unpacked. Deviances are allowed for speed reasons. If
+    you're not unpacking @_ in a sub of say, 5 lines or more, please comment
+    what you're doing.
+    * Always return. Always return. A single "return" allows perl to execute
+    the subroutine in question in void context, which saves it from putting
+    it's result in a temporary variable. Always return.
+
+- POD and comments
+    * Comment extensively. Comments are the maintainer (and core developer's)
+    documentation - aid them where possible (your're probably doing yourself
+    a favor by adding extensive comments).
+    * Comment either in blocks or as hanging side comments (especially when
+    commenting @_ access).
+    Example:
+
+    sub baz {
+        # @_ not unpacked for speed reasons. Read:
+        # my ($self, $something, %args_of) = @_;
+
+        $_[0]->bar($_[1]);      # read as $self->bar($something);
+        $_[0]->foo($_[2..$#]);  # read as $self->foo(%args_of);
+        return;
+    }
+    * POD is located at end of file, preferably after 
+    * 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.
+
+July - November 2007,
+
+Martin Kutter

LICENSE

@@ -0,0 +1,7 @@
+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.
+
+

MAINFEST

@@ -0,0 +1 @@
+

MANIFEST

@@ -1,9 +1,322 @@
-t/1_performance.t
+benchmark/01_expat.t
-t/2_helloworld.NET.t
+benchmark/XSD/01_anyType.t
-t/acceptance/helloworld.asmx.xml
+benchmark/XSD/02_anySimpleType.t
-t/acceptance/helloworld.xml
+benchmark/XSD/03_string.t
-WSDL.pm
+bin/wsdl2perl.pl
+Build.PL
+Changes
+example/fortune.pl
+example/lib/MyElements/CountCookies.pm
+example/lib/MyElements/CountCookiesResponse.pm
+example/lib/MyElements/GenerateBarCode.pm
+example/lib/MyElements/GenerateBarCodeResponse.pm
+example/lib/MyElements/GetCitiesByCountry.pm
+example/lib/MyElements/GetCitiesByCountryResponse.pm
+example/lib/MyElements/GetFortuneCookie.pm
+example/lib/MyElements/GetFortuneCookieResponse.pm
+example/lib/MyElements/GetSpecificCookie.pm
+example/lib/MyElements/GetSpecificCookieResponse.pm
+example/lib/MyElements/GetWeather.pm
+example/lib/MyElements/GetWeatherResponse.pm
+example/lib/MyElements/int.pm
+example/lib/MyElements/readNodeCount.pm
+example/lib/MyElements/readNodeCountResponse.pm
+example/lib/MyElements/string.pm
+example/lib/MyInterfaces/FullerData_x0020_Fortune_x0020_Cookie/FullerData_x0020_Fortune_x0020_CookieSoap.pm
+example/lib/MyInterfaces/GlobalWeather/GlobalWeatherSoap.pm
+example/lib/MyTypemaps/FullerData_x0020_Fortune_x0020_Cookie.pm
+example/lib/MyTypemaps/GlobalWeather.pm
+example/visitor/visitor.pl
+example/weather.pl
+example/weather_wsdl.pl
+example/wsdl/FortuneCookie.xml
+example/wsdl/globalweather.xml
+HACKING
+lib/SOAP/WSDL.pm
+lib/SOAP/WSDL/Base.pm
+lib/SOAP/WSDL/Binding.pm
+lib/SOAP/WSDL/Client.pm
+lib/SOAP/WSDL/Client/Base.pm
+lib/SOAP/WSDL/Definitions.pm
+lib/SOAP/WSDL/Deserializer/Hash.pm
+lib/SOAP/WSDL/Deserializer/SOM.pm
+lib/SOAP/WSDL/Deserializer/XSD.pm
+lib/SOAP/WSDL/Expat/Base.pm
+lib/SOAP/WSDL/Expat/Message2Hash.pm
+lib/SOAP/WSDL/Expat/MessageParser.pm
+lib/SOAP/WSDL/Expat/MessageStreamParser.pm
+lib/SOAP/WSDL/Expat/WSDLParser.pm
+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/Template.pm
+lib/SOAP/WSDL/Generator/Template/XSD.pm
+lib/SOAP/WSDL/Generator/Template/XSD/_type_class.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/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/choice.tt
+lib/SOAP/WSDL/Generator/Template/XSD/complexType/POD/complexContent.tt
+lib/SOAP/WSDL/Generator/Template/XSD/complexType/POD/restriction.tt
+lib/SOAP/WSDL/Generator/Template/XSD/complexType/POD/structure.tt
+lib/SOAP/WSDL/Generator/Template/XSD/complexType/restriction.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/structure.tt
+lib/SOAP/WSDL/Generator/Template/XSD/Interface.tt
+lib/SOAP/WSDL/Generator/Template/XSD/Interface/Body.tt
+lib/SOAP/WSDL/Generator/Template/XSD/Interface/Header.tt
+lib/SOAP/WSDL/Generator/Template/XSD/Interface/Operation.tt
+lib/SOAP/WSDL/Generator/Template/XSD/Interface/POD/Element.tt
+lib/SOAP/WSDL/Generator/Template/XSD/Interface/POD/Message.tt
+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/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/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/restriction.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/Deserializer.pod
+lib/SOAP/WSDL/Manual/Glossary.pod
+lib/SOAP/WSDL/Manual/Parser.pod
+lib/SOAP/WSDL/Manual/Serializer.pod
+lib/SOAP/WSDL/Manual/WS_I.pod
+lib/SOAP/WSDL/Manual/XSD.pod
+lib/SOAP/WSDL/Message.pm
+lib/SOAP/WSDL/Operation.pm
+lib/SOAP/WSDL/OpMessage.pm
+lib/SOAP/WSDL/Part.pm
+lib/SOAP/WSDL/Port.pm
+lib/SOAP/WSDL/PortType.pm
+lib/SOAP/WSDL/Serializer/XSD.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/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/Builtin.pm
+lib/SOAP/WSDL/XSD/ComplexType.pm
+lib/SOAP/WSDL/XSD/Element.pm
+lib/SOAP/WSDL/XSD/Schema.pm
+lib/SOAP/WSDL/XSD/Schema/Builtin.pm
+lib/SOAP/WSDL/XSD/SimpleType.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/anySimpleType.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/anyType.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/anyURI.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/base64Binary.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/boolean.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/byte.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/date.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/dateTime.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/decimal.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/double.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/duration.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/ENTITY.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/float.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/gDay.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/gMonth.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/gMonthDay.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/gYear.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/gYearMonth.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/hexBinary.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/ID.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/IDREF.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/IDREFS.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/int.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/integer.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/language.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/list.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/long.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/Name.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/NCName.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/negativeInteger.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/NMTOKEN.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/NMTOKENS.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/nonNegativeInteger.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/nonPositiveInteger.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/normalizedString.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/NOTATION.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/positiveInteger.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/QName.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/short.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/string.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/time.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/token.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/unsignedByte.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/unsignedInt.pm
+lib/SOAP/WSDL/XSD/Typelib/Builtin/unsignedLong.pm
+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
+LICENSE
+MAINFEST
+Makefile.PL
 MANIFEST
+META.yml
 README
-CHANGES
+t/001_use.t
-Makefile.PL
+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/097_kwalitee.t
+t/098_pod.t
+t/099_pod_coverage.t
+t/acceptance/results/03_complexType-all.xml
+t/acceptance/results/03_complexType-sequence.xml
+t/acceptance/results/04_element-simpleType.xml
+t/acceptance/results/04_element.xml
+t/acceptance/results/05_simpleType-list.xml
+t/acceptance/results/05_simpleType-restriction.xml
+t/acceptance/results/05_simpleType-union.xml
+t/acceptance/results/11_helloworld.xml
+t/acceptance/wsdl/006_sax_client.wsdl
+t/acceptance/wsdl/008_complexType.wsdl
+t/acceptance/wsdl/02_port.wsdl
+t/acceptance/wsdl/03_complexType-all.wsdl
+t/acceptance/wsdl/03_complexType-element-ref.wsdl
+t/acceptance/wsdl/03_complexType-sequence.wsdl
+t/acceptance/wsdl/04_element-simpleType.wsdl
+t/acceptance/wsdl/04_element.wsdl
+t/acceptance/wsdl/05_simpleType-list.wsdl
+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_unsupported_test.wsdl
+t/acceptance/wsdl/message_gateway.wsdl
+t/contributed.wsdl
+t/Expat/01_expat.t
+t/Expat/03_wsdl.t
+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/MySimpleType.pm
+t/lib/MyTypemaps/GlobalWeather.pm
+t/lib/Test/SOAPMessage.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/02_port.t
+t/SOAP/WSDL/03_complexType-all.t
+t/SOAP/WSDL/03_complexType-choice.t
+t/SOAP/WSDL/03_complexType-complexContent.t
+t/SOAP/WSDL/03_complexType-element-ref.t
+t/SOAP/WSDL/03_complexType-group.t
+t/SOAP/WSDL/03_complexType-sequence.t
+t/SOAP/WSDL/03_complexType-simpleContent.t
+t/SOAP/WSDL/04_element-complexType.t
+t/SOAP/WSDL/04_element-simpleType.t
+t/SOAP/WSDL/04_element.t
+t/SOAP/WSDL/05_simpleType-list.t
+t/SOAP/WSDL/05_simpleType-restriction.t
+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/Deserializer/Hash.t
+t/SOAP/WSDL/Deserializer/SOM.t
+t/SOAP/WSDL/Deserializer/XSD.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/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_unsupported.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/Typelib/Fault11.t
+t/SOAP/WSDL/XSD/Typelib/Builtin/01_constructors.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
+t/SOAP/WSDL/XSD/Typelib/Builtin/base64Binary.t
+t/SOAP/WSDL/XSD/Typelib/Builtin/boolean.t
+t/SOAP/WSDL/XSD/Typelib/Builtin/byte.t
+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/ENTITY.t
+t/SOAP/WSDL/XSD/Typelib/Builtin/float.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
+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/long.t
+t/SOAP/WSDL/XSD/Typelib/Builtin/Name.t
+t/SOAP/WSDL/XSD/Typelib/Builtin/NCName.t
+t/SOAP/WSDL/XSD/Typelib/Builtin/negativeInteger.t
+t/SOAP/WSDL/XSD/Typelib/Builtin/NMTOKEN.t
+t/SOAP/WSDL/XSD/Typelib/Builtin/NMTOKENS.t
+t/SOAP/WSDL/XSD/Typelib/Builtin/nonNegativeInteger.t
+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/short.t
+t/SOAP/WSDL/XSD/Typelib/Builtin/string.t
+t/SOAP/WSDL/XSD/Typelib/Builtin/time.t
+t/SOAP/WSDL/XSD/Typelib/Builtin/token.t
+t/SOAP/WSDL/XSD/Typelib/Builtin/unsignedByte.t
+t/SOAP/WSDL/XSD/Typelib/Builtin/unsignedInt.t
+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/test.wsdl
+TEST_COVERAGE
+TODO

META.yml

@@ -0,0 +1,258 @@
+---
+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/

Makefile.PL

@@ -1,10 +1,31 @@
-#!/usr/bin/perl -w
+# Note: this file was auto-generated by Module::Build::Compat version 0.03
-use ExtUtils::MakeMaker;
+    
-# See lib/ExtUtils/MakeMaker.pm for details of how to influence
+    unless (eval "use Module::Build::Compat 0.02; 1" ) {
-# the contents of the Makefile that is written.
+      print "This module requires Module::Build to install itself.\n";
-WriteMakefile(
+      
-    'NAME'      => 'SOAP::WSDL',
+      require ExtUtils::MakeMaker;
-    'VERSION_FROM' => 'WSDL.pm', # finds $VERSION
+      my $yn = ExtUtils::MakeMaker::prompt
-    'PREREQ_PM' => { 'XML::XPath' => 0,
+	('  Install Module::Build now from CPAN?', 'y');
-    		'SOAP::Lite' => 0 }
+      
-);
+      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');

README

@@ -1,29 +1,26 @@
-SOAP::WSDL - a WSDL-driven message preprocessor for SOAP::Lite.
+INTRO
+-----
 
-DESCRIPTION
+SOAP-WSDL provides a SOAP client with WSDL support.
-
-See "perldoc SOAP::WSDL" (or "perldoc WSDL.pm") for details.
-
-
-PREREQUISITES
-
-SOAP::WSDL requires the following perl modules:
-
-- SOAP::Lite
-- XML::XPath
 
+This is a developer release - everything may (and most things will) change.
 
 INSTALLING
+----------
 
-Use the usual mantra:
+Use the following mantra:
 
-perl Makefile.PL
+ perl Build.PL
-make
+ perl Build
-make test
+ perl Build test
-make install
+ perl Build install
 
+If you don't have Module::Build installed, you may also use 
 
-LICENSE
+ perl Makefile.PL
+ make 
+ make test
+ make install
 
-This library is free software, you can distribute it under the same 
+Note that Module::Build is the recommended installer - make will not run 
-terms as perl itself.
+all tests provided with SOAP-WSDL.

TEST_COVERAGE

@@ -0,0 +1,11 @@
+# Unfortunately, Build testcover reports test coverage wrong.
+#
+# 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):
+
+cd t/
+
+find . -type f -name '*.t' | xargs -n 1 /usr/bin/perl -MDevel::Cover=-silent,1,-summary,0 -I../lib
+
+cover -ignore_re \.t$ -ignore_re ^lib -coverage="statement" -coverage=condition -coverage=subroutine -coverage="branch"
+

TODO

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

benchmark/01_expat.t

@@ -0,0 +1,128 @@
+#!/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 '../t/lib';
+# use SOAP::WSDL::SAX::MessageHandler;
+
+use Benchmark qw(cmpthese timethese);
+use SOAP::WSDL::Expat::MessageParser;
+use SOAP::WSDL::Expat::Message2Hash;
+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" 
+    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>
+    </test>
+    </MyAtomicComplexTypeElement>
+</SOAP-ENV:Body></SOAP-ENV:Envelope>};
+
+
+
+my $parser = SOAP::WSDL::Expat::MessageParser->new({
+    class_resolver => 'FakeResolver'
+});
+
+my $hash_parser = SOAP::WSDL::Expat::Message2Hash->new();
+
+$XML::Simple::PREFERRED_PARSER = 'XML::Parser';
+
+print "xml length: ${ \length $xml } bytes\n";
+
+my $libxml = XML::LibXML->new();
+$libxml->keep_blanks(0);
+my @data;
+
+sub libxml_test { 
+        my $dom = $libxml->parse_string( $xml );
+        push @data, dom2hash( $dom->firstChild );
+};
+
+sub dom2hash {
+    for ($_[0]->childNodes) {  
+        if (exists $_[1]->{ $_->nodeName }) {
+            if (ref $_[1]->{ $_->nodeName } eq 'ARRAY') {
+                if ($_->nodeName eq '#text') {
+                    push @{ $_[1] } ,$_->textContent;
+                }
+                else {
+                    push @{ $_[1]->{ $_->nodeName } }, dom2hash( $_, {} );
+                }
+            }
+            else {
+                if ($_->nodeName eq '#text') {
+                    $_[1] = [ $_[1], $_->textContent() ];
+                }
+                else {
+                    $_[1]->{ $_->nodeName } = [ $_[1]->{ $_->nodeName } , 
+                        dom2hash( $_, {} ) ];
+                }
+            }
+        }
+        else {
+            if ($_->nodeName eq '#text') {
+                $_[1] = $_->textContent();
+            }
+            else {
+                $_[1]->{ $_->nodeName } = dom2hash( $_, {} );
+            }
+        }
+    }
+    return $_[1];
+}
+
+cmpthese 5000, 
+{
+  'SOAP::WSDL (Hash)' => sub { push @data, $hash_parser->parse( $xml ) },
+  'SOAP::WSDL (XSD)' => sub { push @data, $parser->parse( $xml ) },
+  'XML::Simple (Hash)' => sub { push @data, XMLin $xml },
+  'XML::LibXML (DOM)' => sub { push @data,  $libxml->parse_string( $xml ) },
+  'XML::LibXML (Hash)' => \&libxml_test,
+};
+
+
+# for (1..10000) { push @data, $parser->parse( $xml ) };
+
+# data classes reside in t/lib/Typelib/
+BEGIN {
+    package FakeResolver;
+    {
+        my %class_list = (
+            'MyAtomicComplexTypeElement' => 'MyAtomicComplexTypeElement',
+            'MyAtomicComplexTypeElement/test' => 'MyAtomicComplexTypeElement',
+            'MyAtomicComplexTypeElement/test/test2' => 'MyTestElement2',
+        );
+
+        sub get_map { return \%class_list };
+
+        sub new { return bless {}, 'FakeResolver' };
+
+        sub get_class {
+            my $name = join('/', @{ $_[1] });
+            return ($class_list{ $name }) ? $class_list{ $name }
+                : warn "no class found for $name";
+        };
+    };
+};

benchmark/XSD/01_anyType.t

@@ -0,0 +1,12 @@
+use strict;
+use warnings;
+use Benchmark;
+use lib '../../lib';
+use SOAP::WSDL::XSD::Typelib::Builtin::anyType;
+
+my $obj = SOAP::WSDL::XSD::Typelib::Builtin::anyType->new();
+
+timethese 10000, {
+    'new' => sub { SOAP::WSDL::XSD::Typelib::Builtin::anyType->new() },
+};
+

benchmark/XSD/02_anySimpleType.t

@@ -0,0 +1,21 @@
+use strict;
+use warnings;
+use Benchmark;
+use lib '../../lib';
+use SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;
+
+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'
+    }) },
+    'set_FOO' => sub { $obj->set_value('Test') },
+};
+
+my $data;
+timethese 1000000, {
+    'set_FOO' => sub { $obj->set_value('Test') },
+    'get_FOO' => sub { $data = $obj->get_value() },
+};

benchmark/XSD/03_string.t

@@ -0,0 +1,25 @@
+use strict;
+use warnings;
+use Benchmark;
+use lib '../../lib';
+use SOAP::WSDL::XSD::Typelib::Builtin::string;
+
+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'
+    }) },
+};
+
+$obj->set_value('Foobar');
+timethese 20000, {
+    serialize => sub { $obj->serialize() }
+};
+
+my $data;
+timethese 1000000, {
+    'set_FOO' => sub { $obj->set_value('Test') },
+    'get_FOO' => sub { $data = $obj->get_value() },
+};

bin/wsdl2perl.pl

@@ -0,0 +1,227 @@
+#!/usr/bin/perl -w
+use strict;
+use warnings;
+use Pod::Usage;
+use Getopt::Long;
+use LWP::UserAgent;
+use SOAP::WSDL::Expat::WSDLParser;
+use SOAP::WSDL::Factory::Generator;
+use Term::ReadKey;
+
+my %opt = (
+  url => '',
+  prefix => undef,
+  type_prefix => 'MyTypes',
+  element_prefix => 'MyElements',
+  typemap_prefix => 'MyTypemaps',
+  interface_prefix => 'MyInterfaces',
+  base_path => 'lib/',
+  proxy => undef,
+  generator => 'XSD',
+);
+
+{   # 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 
+        # name the next time
+        print "URL requires authorization.\n";
+        if (not $user = delete $opt{user}) {
+            print 'User name:';
+            ReadMode 1;
+            $user =  ReadLine();
+            ReadMode 0;
+        };
+        if (not $password = delete $opt{password}) {
+            print 'Password:';
+            ReadMode 2;
+            $user = ReadLine;
+            ReadMode 0;       
+        };
+        return ($user, $password);
+    };   
+}
+
+GetOptions(\%opt,
+  qw( 
+    prefix|p=s
+    type_prefix|t=s
+    element_prefix|e=s
+    typemap_prefix|m=s
+    interface_prefix|i=s
+    base_path|b=s
+    typemap_include|mi=s
+    help|h
+    proxy|x=s
+    keep_alive
+    user=s
+    password=s
+    generator=s
+  )
+);
+
+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 ) 
+        : ()
+    );
+$lwp->env_proxy();  # get proxy from environment. Works for both http & https.
+
+my $response = $lwp->get($url);
+die $response->message(), "\n" if $response->code != 200;
+
+my $xml = $response->content();
+
+my $definitions = $parser->parse_string( $xml );
+
+my %typemap = ();
+
+if ($opt{typemap_include}) {
+  die "$opt{typemap_include} not found " if not -f $opt{typemap_include};
+  %typemap = do $opt{typemap_include};
+}
+
+my $generator = SOAP::WSDL::Factory::Generator->get_generator({ type => $opt{'generator'} });
+
+if (%typemap) {
+    if ($generator->can('set_typemap')) {
+        $generator->set_typemap( \%typemap );
+    }
+    else {
+        warn "Typemap snippet given, but generator does not support it\n";
+    }
+};
+
+$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');
+
+# start with typelib, as errors will most likely occur here...
+$generator->generate();
+
+__END__
+
+=pod
+
+=head1 NAME
+
+wsdl2perl.pl - create perl bindings for SOAP webservices.
+
+=head1 SYNOPSIS
+
+ wsdl2perl.pl -t TYPE_PREFIX -e ELEMENT_PREFIX -m TYPEMAP_PREFIX \
+   -i INTERFACE_PREFIX -b BASE_DIR URL
+
+=head1 OPTIONS
+
+ NAME            SHORT  DESCRITPION
+ ----------------------------------------------------------------------------
+ prefix            p   Prefix for both type and element classes.
+ type_prefix       t   Prefix for type classes.  
+                       Default: MyTypes
+ element_prefix    e   Prefix for element classes. 
+                       Default: MyElements
+ typemap_prefix    m   Prefix for typemap classes. 
+                       Default: MyTypemaps
+ interface_prefix  i   Prefix for interface classes.
+                       Default: MyInterfaces
+ base_path         b   Path to create classes in.
+                       Default: .
+ 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 
+                       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 
+ help              h   Show help content
+
+=head1 DESCRIPTION
+
+Generates a interface class for a SOAP web service described by a WSDL 
+definition.
+
+The following classes are created:
+
+=over
+
+=item * A interface class for every SOAP port in service
+
+Interface classes are what you will mainly deal with: They provide a method 
+for accessing every web service method.
+
+=item * A typemap for every service
+
+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 
+your typemap. Especially definitions for faults are sometimes left out.
+
+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
+
+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> 
+and L<SOAP::WSDL::XSD::Typelib::SimpleType>.
+
+=back
+
+=head1 TROUBLESHOOTING
+
+=head2 Accessing HTTPS URLs
+
+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. 
+
+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 
+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. 
+
+=head1 LICENSE
+
+Copyright 2007 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>
+
+=cut

example/fortune.pl

@@ -0,0 +1,47 @@
+# Accessing the fortune cookie service at
+# www.fullerdata.com/FortuneCookie/FortuneCookie.asmx
+#
+# I have no connection to www.fullerdata.com 
+# 
+# Use this script at your own risk.
+
+# Run before:
+# D:\Eigene Dateien\Martin\SOAP-WSDL\trunk>perl -I../lib wsdl2perl.pl "file:///D:/
+# Eigene Dateien/Martin/SOAP-WSDL/trunk/bin/FortuneCookie.xml"
+
+use lib 'lib/';
+use MyInterfaces::FullerData_x0020_Fortune_x0020_Cookie::FullerData_x0020_Fortune_x0020_CookieSoap;
+my $cookieService = MyInterfaces::FullerData_x0020_Fortune_x0020_Cookie::FullerData_x0020_Fortune_x0020_CookieSoap->new();
+
+my $cookie;
+$cookie = $cookieService->GetFortuneCookie()
+  or die "$cookie";
+
+print $cookie->get_GetFortuneCookieResult()->get_value, "\n\n";
+
+$cookie = $cookieService->GetSpecificCookie({ index => 23 })
+  or die "$cookie";
+
+print $cookie->get_GetSpecificCookieResult(), "\n";
+
+# print $cookie;
+
+
+=for demo:
+
+# the same in SOAP lite (second call)
+#
+
+use SOAP::Lite;
+
+my $lite = SOAP::Lite->new()->on_action(sub { join '/', @_ } )
+  ->proxy('http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx');
+
+$lite->call(
+    SOAP::Data->name('GetSpecificCookie')
+      ->attr({ 'xmlns', 'http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx' }), 
+      SOAP::Data->name('index')->value(23) 
+  );
+
+die $soap->message() if ($soap->fault());
+print $soap->result();

example/lib/MyElements/CountCookies.pm

@@ -0,0 +1,54 @@
+package MyElements::CountCookies;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx' }
+
+__PACKAGE__->__set_name('CountCookies');
+__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
+);
+
+
+
+
+} # end of BLOCK
+1;
+
+# __END__
+
+=pod
+
+=head1 NAME
+
+MyElements::CountCookies
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+CountCookies from the namespace http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = MyElements::CountCookies->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

example/lib/MyElements/CountCookiesResponse.pm

@@ -0,0 +1,79 @@
+package MyElements::CountCookiesResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx' }
+
+__PACKAGE__->__set_name('CountCookiesResponse');
+__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::Storable;
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+{ # BLOCK to scope variables
+
+my %CountCookiesResult_of :ATTR(:get<CountCookiesResult>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        CountCookiesResult
+    ) ],
+    { 
+		CountCookiesResult => \%CountCookiesResult_of, 
+    },
+    {
+        CountCookiesResult => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+1;
+
+# __END__
+
+=pod
+
+=head1 NAME
+
+MyElements::CountCookiesResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+CountCookiesResponse from the namespace http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = MyElements::CountCookiesResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   CountCookiesResult =>  $some_value, # int
+ }
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

example/lib/MyElements/GenerateBarCode.pm

@@ -0,0 +1,102 @@
+package MyElements::GenerateBarCode;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.webservicex.net/' }
+
+__PACKAGE__->__set_name('GenerateBarCode');
+__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::Storable;
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+{ # BLOCK to scope variables
+
+my %BarCodeParam_of :ATTR(:get<BarCodeParam>);
+my %BarCodeText_of :ATTR(:get<BarCodeText>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        BarCodeParam
+        BarCodeText
+    ) ],
+    { 
+		BarCodeParam => \%BarCodeParam_of, 
+		BarCodeText => \%BarCodeText_of, 
+    },
+    {
+        BarCodeParam => 'MyTypes::BarCodeData',
+        BarCodeText => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+1;
+
+# __END__
+
+=pod
+
+=head1 NAME
+
+MyElements::GenerateBarCode
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GenerateBarCode from the namespace http://www.webservicex.net/.
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = MyElements::GenerateBarCode->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   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
+
+=cut
+

example/lib/MyElements/GenerateBarCodeResponse.pm

@@ -0,0 +1,79 @@
+package MyElements::GenerateBarCodeResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.webservicex.net/' }
+
+__PACKAGE__->__set_name('GenerateBarCodeResponse');
+__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::Storable;
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+{ # BLOCK to scope variables
+
+my %GenerateBarCodeResult_of :ATTR(:get<GenerateBarCodeResult>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        GenerateBarCodeResult
+    ) ],
+    { 
+		GenerateBarCodeResult => \%GenerateBarCodeResult_of, 
+    },
+    {
+        GenerateBarCodeResult => 'SOAP::WSDL::XSD::Typelib::Builtin::base64Binary',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+1;
+
+# __END__
+
+=pod
+
+=head1 NAME
+
+MyElements::GenerateBarCodeResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GenerateBarCodeResponse from the namespace http://www.webservicex.net/.
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = MyElements::GenerateBarCodeResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   GenerateBarCodeResult =>  $some_value, # base64Binary
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

example/lib/MyElements/GetCitiesByCountry.pm

@@ -0,0 +1,79 @@
+package MyElements::GetCitiesByCountry;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.webserviceX.NET' }
+
+__PACKAGE__->__set_name('GetCitiesByCountry');
+__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::Storable;
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+{ # BLOCK to scope variables
+
+my %CountryName_of :ATTR(:get<CountryName>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        CountryName
+    ) ],
+    { 
+		CountryName => \%CountryName_of, 
+    },
+    {
+        CountryName => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+1;
+
+# __END__
+
+=pod
+
+=head1 NAME
+
+MyElements::GetCitiesByCountry
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetCitiesByCountry from the namespace http://www.webserviceX.NET.
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = MyElements::GetCitiesByCountry->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   CountryName =>  $some_value, # string
+ }
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

example/lib/MyElements/GetCitiesByCountryResponse.pm

@@ -0,0 +1,79 @@
+package MyElements::GetCitiesByCountryResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.webserviceX.NET' }
+
+__PACKAGE__->__set_name('GetCitiesByCountryResponse');
+__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::Storable;
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+{ # BLOCK to scope variables
+
+my %GetCitiesByCountryResult_of :ATTR(:get<GetCitiesByCountryResult>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        GetCitiesByCountryResult
+    ) ],
+    { 
+		GetCitiesByCountryResult => \%GetCitiesByCountryResult_of, 
+    },
+    {
+        GetCitiesByCountryResult => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+1;
+
+# __END__
+
+=pod
+
+=head1 NAME
+
+MyElements::GetCitiesByCountryResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetCitiesByCountryResponse from the namespace http://www.webserviceX.NET.
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = MyElements::GetCitiesByCountryResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   GetCitiesByCountryResult =>  $some_value, # string
+ }
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

example/lib/MyElements/GetFortuneCookie.pm

@@ -0,0 +1,54 @@
+package MyElements::GetFortuneCookie;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx' }
+
+__PACKAGE__->__set_name('GetFortuneCookie');
+__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
+);
+
+
+
+
+} # end of BLOCK
+1;
+
+# __END__
+
+=pod
+
+=head1 NAME
+
+MyElements::GetFortuneCookie
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetFortuneCookie from the namespace http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = MyElements::GetFortuneCookie->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

example/lib/MyElements/GetFortuneCookieResponse.pm

@@ -0,0 +1,79 @@
+package MyElements::GetFortuneCookieResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx' }
+
+__PACKAGE__->__set_name('GetFortuneCookieResponse');
+__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::Storable;
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+{ # BLOCK to scope variables
+
+my %GetFortuneCookieResult_of :ATTR(:get<GetFortuneCookieResult>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        GetFortuneCookieResult
+    ) ],
+    { 
+		GetFortuneCookieResult => \%GetFortuneCookieResult_of, 
+    },
+    {
+        GetFortuneCookieResult => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+1;
+
+# __END__
+
+=pod
+
+=head1 NAME
+
+MyElements::GetFortuneCookieResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetFortuneCookieResponse from the namespace http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = MyElements::GetFortuneCookieResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   GetFortuneCookieResult =>  $some_value, # string
+ }
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

example/lib/MyElements/GetSpecificCookie.pm

@@ -0,0 +1,79 @@
+package MyElements::GetSpecificCookie;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx' }
+
+__PACKAGE__->__set_name('GetSpecificCookie');
+__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::Storable;
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+{ # BLOCK to scope variables
+
+my %index_of :ATTR(:get<index>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        index
+    ) ],
+    { 
+		index => \%index_of, 
+    },
+    {
+        index => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+1;
+
+# __END__
+
+=pod
+
+=head1 NAME
+
+MyElements::GetSpecificCookie
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetSpecificCookie from the namespace http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = MyElements::GetSpecificCookie->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   index =>  $some_value, # int
+ }
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

example/lib/MyElements/GetSpecificCookieResponse.pm

@@ -0,0 +1,79 @@
+package MyElements::GetSpecificCookieResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx' }
+
+__PACKAGE__->__set_name('GetSpecificCookieResponse');
+__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::Storable;
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+{ # BLOCK to scope variables
+
+my %GetSpecificCookieResult_of :ATTR(:get<GetSpecificCookieResult>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        GetSpecificCookieResult
+    ) ],
+    { 
+		GetSpecificCookieResult => \%GetSpecificCookieResult_of, 
+    },
+    {
+        GetSpecificCookieResult => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+1;
+
+# __END__
+
+=pod
+
+=head1 NAME
+
+MyElements::GetSpecificCookieResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetSpecificCookieResponse from the namespace http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = MyElements::GetSpecificCookieResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   GetSpecificCookieResult =>  $some_value, # string
+ }
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

example/lib/MyElements/GetWeather.pm

@@ -0,0 +1,84 @@
+package MyElements::GetWeather;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.webserviceX.NET' }
+
+__PACKAGE__->__set_name('GetWeather');
+__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::Storable;
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+{ # BLOCK to scope variables
+
+my %CityName_of :ATTR(:get<CityName>);
+my %CountryName_of :ATTR(:get<CountryName>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        CityName
+        CountryName
+    ) ],
+    { 
+		CityName => \%CityName_of, 
+		CountryName => \%CountryName_of, 
+    },
+    {
+        CityName => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        CountryName => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+1;
+
+# __END__
+
+=pod
+
+=head1 NAME
+
+MyElements::GetWeather
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetWeather from the namespace http://www.webserviceX.NET.
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = MyElements::GetWeather->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   CityName =>  $some_value, # string
+   CountryName =>  $some_value, # string
+ }
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

example/lib/MyElements/GetWeatherResponse.pm

@@ -0,0 +1,79 @@
+package MyElements::GetWeatherResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.webserviceX.NET' }
+
+__PACKAGE__->__set_name('GetWeatherResponse');
+__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::Storable;
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+{ # BLOCK to scope variables
+
+my %GetWeatherResult_of :ATTR(:get<GetWeatherResult>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        GetWeatherResult
+    ) ],
+    { 
+		GetWeatherResult => \%GetWeatherResult_of, 
+    },
+    {
+        GetWeatherResult => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+1;
+
+# __END__
+
+=pod
+
+=head1 NAME
+
+MyElements::GetWeatherResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetWeatherResponse from the namespace http://www.webserviceX.NET.
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = MyElements::GetWeatherResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   GetWeatherResult =>  $some_value, # string
+ }
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

example/lib/MyElements/int.pm

@@ -0,0 +1,52 @@
+package MyElements::int;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx' }
+
+__PACKAGE__->__set_name('int');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+use base qw(
+	SOAP::WSDL::XSD::Typelib::Element
+	SOAP::WSDL::XSD::Typelib::Builtin::int
+
+);
+
+
+} # end of BLOCK
+1;
+
+# __END__
+
+=pod
+
+=head1 NAME
+
+MyElements::int
+
+=head1 DESCRIPTION
+
+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
+
+ my $element = MyElements::int->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ $some_value, # int
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

example/lib/MyElements/readNodeCount.pm

@@ -0,0 +1,54 @@
+package MyElements::readNodeCount;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx' }
+
+__PACKAGE__->__set_name('readNodeCount');
+__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
+);
+
+
+
+
+} # end of BLOCK
+1;
+
+# __END__
+
+=pod
+
+=head1 NAME
+
+MyElements::readNodeCount
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+readNodeCount from the namespace http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = MyElements::readNodeCount->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

example/lib/MyElements/readNodeCountResponse.pm

@@ -0,0 +1,79 @@
+package MyElements::readNodeCountResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx' }
+
+__PACKAGE__->__set_name('readNodeCountResponse');
+__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::Storable;
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+{ # BLOCK to scope variables
+
+my %readNodeCountResult_of :ATTR(:get<readNodeCountResult>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        readNodeCountResult
+    ) ],
+    { 
+		readNodeCountResult => \%readNodeCountResult_of, 
+    },
+    {
+        readNodeCountResult => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+1;
+
+# __END__
+
+=pod
+
+=head1 NAME
+
+MyElements::readNodeCountResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+readNodeCountResponse from the namespace http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = MyElements::readNodeCountResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   readNodeCountResult =>  $some_value, # int
+ }
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

example/lib/MyElements/string.pm

@@ -0,0 +1,52 @@
+package MyElements::string;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.webserviceX.NET' }
+
+__PACKAGE__->__set_name('string');
+__PACKAGE__->__set_nillable(true);
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+use base qw(
+	SOAP::WSDL::XSD::Typelib::Element
+	SOAP::WSDL::XSD::Typelib::Builtin::string
+
+);
+
+
+} # end of BLOCK
+1;
+
+# __END__
+
+=pod
+
+=head1 NAME
+
+MyElements::string
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+string from the namespace http://www.webserviceX.NET.
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = MyElements::string->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ $some_value, # string
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

example/lib/MyInterfaces/FullerData_x0020_Fortune_x0020_Cookie/FullerData_x0020_Fortune_x0020_CookieSoap.pm

@@ -0,0 +1,191 @@
+package MyInterfaces::FullerData_x0020_Fortune_x0020_Cookie::FullerData_x0020_Fortune_x0020_CookieSoap;
+use strict;
+use warnings;
+use Class::Std::Storable;
+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');
+
+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};
+}
+
+sub readNodeCount {
+    my ($self, $body, $header) = @_;
+    return $self->SUPER::call({
+    	operation => 'readNodeCount',
+        soap_action => 'http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx/readNodeCount',
+        style => 'document',
+        body => { 
+            
+           'use' => 'literal',
+            namespace => '',
+            encodingStyle => '',
+            parts => [qw( MyElements::readNodeCount )],
+        },
+        header => {
+            
+        },
+        headerfault => {
+            
+        }
+    }, $body, $header);
+}
+
+sub GetFortuneCookie {
+    my ($self, $body, $header) = @_;
+    return $self->SUPER::call({
+    	operation => 'GetFortuneCookie',
+        soap_action => 'http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx/GetFortuneCookie',
+        style => 'document',
+        body => { 
+            
+           'use' => 'literal',
+            namespace => '',
+            encodingStyle => '',
+            parts => [qw( MyElements::GetFortuneCookie )],
+        },
+        header => {
+            
+        },
+        headerfault => {
+            
+        }
+    }, $body, $header);
+}
+
+sub CountCookies {
+    my ($self, $body, $header) = @_;
+    return $self->SUPER::call({
+    	operation => 'CountCookies',
+        soap_action => 'http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx/CountCookies',
+        style => 'document',
+        body => { 
+            
+           'use' => 'literal',
+            namespace => '',
+            encodingStyle => '',
+            parts => [qw( MyElements::CountCookies )],
+        },
+        header => {
+            
+        },
+        headerfault => {
+            
+        }
+    }, $body, $header);
+}
+
+sub GetSpecificCookie {
+    my ($self, $body, $header) = @_;
+    return $self->SUPER::call({
+    	operation => 'GetSpecificCookie',
+        soap_action => 'http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx/GetSpecificCookie',
+        style => 'document',
+        body => { 
+            
+           'use' => 'literal',
+            namespace => '',
+            encodingStyle => '',
+            parts => [qw( MyElements::GetSpecificCookie )],
+        },
+        header => {
+            
+        },
+        headerfault => {
+            
+        }
+    }, $body, $header);
+}
+
+
+
+1;
+
+
+
+__END__
+
+=pod
+
+=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 DESCRIPTION
+
+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
+
+Simple XML-based fortune cookie
+
+=head2 Port FullerData_x0020_Fortune_x0020_CookieSoap
+
+
+
+=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 readNodeCount
+
+Display the number of nodes specified in fortune XML document
+
+ $interface->readNodeCount(,
+ );
+ 
+=head3 GetFortuneCookie
+
+Get a random fortune cookie from the XML document
+
+ $interface->GetFortuneCookie(,
+ );
+ 
+=head3 CountCookies
+
+Count the actual number of nodes in the XML document of fortunes
+
+ $interface->CountCookies(,
+ );
+ 
+=head3 GetSpecificCookie
+
+Get a specific cookie by the XML node number
+
+ $interface->GetSpecificCookie(  {
+    index =>  $some_value, # int
+  },
+ );
+ 
+	
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL on Tue Nov  6 20:56:46 2007
+
+=pod

example/lib/MyInterfaces/GlobalWeather/GlobalWeatherSoap.pm

@@ -0,0 +1,136 @@
+package MyInterfaces::GlobalWeather::GlobalWeatherSoap;
+use strict;
+use warnings;
+use Class::Std::Storable;
+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');
+
+sub START {
+    $_[0]->set_proxy('http://www.webservicex.net/globalweather.asmx') if not $_[2]->{proxy};
+    $_[0]->set_class_resolver('MyTypemaps::GlobalWeather')
+        if not $_[2]->{class_resolver};
+}
+
+sub GetWeather {
+    my ($self, $body, $header) = @_;
+    return $self->SUPER::call({
+    	operation => 'GetWeather',
+        soap_action => 'http://www.webserviceX.NET/GetWeather',
+        style => 'document',
+        body => { 
+            
+           'use' => 'literal',
+            namespace => '',
+            encodingStyle => '',
+            parts => [qw( MyElements::GetWeather )],
+        },
+        header => {
+            
+        },
+        headerfault => {
+            
+        }
+    }, $body, $header);
+}
+
+sub GetCitiesByCountry {
+    my ($self, $body, $header) = @_;
+    return $self->SUPER::call({
+    	operation => 'GetCitiesByCountry',
+        soap_action => 'http://www.webserviceX.NET/GetCitiesByCountry',
+        style => 'document',
+        body => { 
+            
+           'use' => 'literal',
+            namespace => '',
+            encodingStyle => '',
+            parts => [qw( MyElements::GetCitiesByCountry )],
+        },
+        header => {
+            
+        },
+        headerfault => {
+            
+        }
+    }, $body, $header);
+}
+
+
+
+1;
+
+
+
+__END__
+
+=pod
+
+=head1 NAME
+
+
+MyInterfaces::GlobalWeather::GlobalWeatherSoap - SOAP Interface for the GlobalWeather Web Service
+
+=head1 DESCRIPTION
+
+SOAP Interface for the GlobalWeather web service 
+located at http://www.webservicex.net/globalweather.asmx.
+
+=head1 SERVICE GlobalWeather
+
+
+
+=head2 Port GlobalWeatherSoap
+
+
+
+=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 GetWeather
+
+Get weather report for all major cities around the world.
+
+ $interface->GetWeather(  {
+    CityName =>  $some_value, # string
+    CountryName =>  $some_value, # string
+  },
+ );
+ 
+=head3 GetCitiesByCountry
+
+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
+
+=pod

example/lib/MyTypemaps/FullerData_x0020_Fortune_x0020_Cookie.pm

@@ -0,0 +1,48 @@
+package MyTypemaps::FullerData_x0020_Fortune_x0020_Cookie;
+use strict;
+use warnings;
+
+our $typemap_1 = {
+               'GetFortuneCookie' => 'MyElements::GetFortuneCookie',
+               'CountCookiesResponse/CountCookiesResult' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+               'Fault/faultcode' => 'SOAP::WSDL::XSD::Typelib::Builtin::anyURI',
+               'readNodeCountResponse/readNodeCountResult' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+               'CountCookiesResponse' => 'MyElements::CountCookiesResponse',
+               'Fault/faultstring' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'GetSpecificCookieResponse' => 'MyElements::GetSpecificCookieResponse',
+               'GetFortuneCookieResponse' => 'MyElements::GetFortuneCookieResponse',
+               'Fault' => 'SOAP::WSDL::SOAP::Typelib::Fault11',
+               'GetSpecificCookie' => 'MyElements::GetSpecificCookie',
+               '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',
+               'GetFortuneCookieResponse/GetFortuneCookieResult' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'GetSpecificCookieResponse/GetSpecificCookieResult' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'readNodeCount' => 'MyElements::readNodeCount',
+               'readNodeCountResponse' => 'MyElements::readNodeCountResponse'
+             };
+;
+
+sub get_class { 
+  my $name = join '/', @{ $_[1] };
+  exists $typemap_1->{ $name } or die "Cannot resolve $name via " . __PACKAGE__;
+  return $typemap_1->{ $name };
+}
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+MyTypemaps::FullerData_x0020_Fortune_x0020_Cookie; - typemap for ::FullerData_x0020_Fortune_x0020_Cookie;
+
+=head1 DESCRIPTION
+
+Typemap created by SOAP::WSDL for map-based SOAP message parsers.
+
+=cut
+

example/lib/MyTypemaps/GlobalWeather.pm

@@ -0,0 +1,44 @@
+package MyTypemaps::GlobalWeather;
+use strict;
+use warnings;
+
+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',
+               'GetWeatherResponse' => 'MyElements::GetWeatherResponse',
+               'Fault/detail' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'Fault/faultcode' => 'SOAP::WSDL::XSD::Typelib::Builtin::anyURI',
+               'GetWeather/CityName' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'GetCitiesByCountry' => 'MyElements::GetCitiesByCountry',
+               'Fault/faultstring' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'GetCitiesByCountry/CountryName' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'GetWeather/CountryName' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'Fault' => 'SOAP::WSDL::SOAP::Typelib::Fault11',
+               'GetCitiesByCountryResponse' => 'MyElements::GetCitiesByCountryResponse'
+             };
+;
+
+sub get_class { 
+  my $name = join '/', @{ $_[1] };
+  exists $typemap_1->{ $name } or die "Cannot resolve $name via " . __PACKAGE__;
+  return $typemap_1->{ $name };
+}
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+MyTypemaps::GlobalWeather; - typemap for ::GlobalWeather;
+
+=head1 DESCRIPTION
+
+Typemap created by SOAP::WSDL for map-based SOAP message parsers.
+
+=cut
+

example/visitor/visitor.pl

@@ -0,0 +1,26 @@
+package PersonVisitor;
+use Class::Std;    # handles all basic stuff like constructors etc.
+
+sub visit_Person {
+    my ( $self, $object ) = @_;
+    print "Person name is ", $object->get_name(), "\n";
+}
+
+package Person;
+use Class::Std;
+my %name : ATTR(:name<name> :default<anonymous>);
+
+sub accept { $_[1]->visit_Person( $_[0] ) }
+
+package main;
+my @person_from = ();
+for (qw(Gamma Helm Johnson Vlissides)) {
+    push @person_from, Person->new( { name => $_ } );
+}
+
+my $visitor = PersonVisitor->new();
+for (@person_from) {
+    $_->accept($visitor);
+}
+
+

example/weather.pl

@@ -0,0 +1,22 @@
+# Accessing the globalweather service at
+# www.webservicex.net/GlobalWeather/GlobalWeather.asmx
+#
+# Note that the GlobalWeather web service returns a (quoted) XML structure - 
+# don't be surprised by the response's format.
+#
+# I have no connection to www.webservicex.net
+# Use this script at your own risk.
+#
+# This script demonstrates the use of a interface generated by wsdl2perl.pl
+
+use lib 'lib/';
+use MyInterfaces::GlobalWeather::GlobalWeatherSoap;
+my $weather = MyInterfaces::GlobalWeather::GlobalWeatherSoap->new();
+my $result = $weather->GetWeather({ CountryName => 'Germany', CityName => 'Munich' });
+
+# boolean comparison overloaded
+die $result->get_faultstring()->get_value() if not ($result);   
+
+# The result is a XML string
+# use get_value to avoid automatic entity encoding
+print $result->get_GetWeatherResult()->get_value , "\n";

example/weather_wsdl.pl

@@ -0,0 +1,43 @@
+# Accessing the globalweather service at
+# www.webservicex.net/GlobalWeather/GlobalWeather.asmx
+#
+# Note that the GlobalWeather web service returns a (quoted) XML structure - 
+# don't be surprised by the response's format.
+#
+# I have no connection to www.webservicex.net
+# Use this script at your own risk.
+#
+# This script demonstrates the use of SOAP::WSDL in SOAP::Lite style.
+
+use lib 'lib/';
+use lib '../lib';
+use File::Basename qw(dirname);
+use File::Spec;
+my $path = File::Spec->rel2abs( dirname __FILE__);
+
+# SOAP::WSDL variant
+use SOAP::WSDL;
+my $soap = SOAP::WSDL->new();
+my $som = $soap->wsdl("file:///$path/wsdl/globalweather.xml")
+  ->call('GetWeather', GetWeather => 
+    { CountryName => 'Germany', CityName => 'Munich' }
+);
+
+die "Error" if $som->fault();
+print $som->result();
+
+# SOAP::Lite variant:
+# Note that you have to look both the proxy and the xmlns attribute 
+# set on the GetWeather SOAP::Data object from the WSDL.
+
+use SOAP::Lite +trace;
+$soap = SOAP::Lite->new()->on_action( sub { join'/', @_ } )
+  ->proxy("http://www.webservicex.net/globalweather.asmx");     # from WSDL
+$som = $soap->call(
+    SOAP::Data->name('GetWeather')
+        ->attr({ xmlns => 'http://www.webserviceX.NET' }),      # from WSDL
+    SOAP::Data->name('CountryName')->value('Germany'), 
+    SOAP::Data->name('CityName')->value('Munich') 
+);
+die "Error" if $som->fault();
+print $som->result();

example/wsdl/FortuneCookie.xml

@@ -0,0 +1,308 @@
+<?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.fullerdata.com/FortuneCookie/FortuneCookie.asmx" xmlns:tm="http://microsoft.com/wsdl/mime/textMatching/" xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/" targetNamespace="http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
+  <wsdl:types>
+    <s:schema elementFormDefault="qualified" targetNamespace="http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx">
+      <s:element name="readNodeCount">
+        <s:complexType />
+      </s:element>
+      <s:element name="readNodeCountResponse">
+        <s:complexType>
+          <s:sequence>
+            <s:element minOccurs="1" maxOccurs="1" name="readNodeCountResult" type="s:int" />
+          </s:sequence>
+        </s:complexType>
+      </s:element>
+      <s:element name="GetFortuneCookie">
+        <s:complexType />
+      </s:element>
+      <s:element name="GetFortuneCookieResponse">
+        <s:complexType>
+          <s:sequence>
+            <s:element minOccurs="0" maxOccurs="1" name="GetFortuneCookieResult" type="s:string" />
+          </s:sequence>
+        </s:complexType>
+      </s:element>
+      <s:element name="CountCookies">
+        <s:complexType />
+      </s:element>
+      <s:element name="CountCookiesResponse">
+        <s:complexType>
+          <s:sequence>
+            <s:element minOccurs="1" maxOccurs="1" name="CountCookiesResult" type="s:int" />
+          </s:sequence>
+        </s:complexType>
+      </s:element>
+      <s:element name="GetSpecificCookie">
+        <s:complexType>
+          <s:sequence>
+            <s:element minOccurs="1" maxOccurs="1" name="index" type="s:int" />
+          </s:sequence>
+        </s:complexType>
+      </s:element>
+      <s:element name="GetSpecificCookieResponse">
+        <s:complexType>
+          <s:sequence>
+            <s:element minOccurs="0" maxOccurs="1" name="GetSpecificCookieResult" type="s:string" />
+          </s:sequence>
+        </s:complexType>
+      </s:element>
+      <s:element name="int" type="s:int" />
+      <s:element name="string" nillable="true" type="s:string" />
+    </s:schema>
+  </wsdl:types>
+  <wsdl:message name="readNodeCountSoapIn">
+    <wsdl:part name="parameters" element="tns:readNodeCount" />
+  </wsdl:message>
+  <wsdl:message name="readNodeCountSoapOut">
+    <wsdl:part name="parameters" element="tns:readNodeCountResponse" />
+  </wsdl:message>
+  <wsdl:message name="GetFortuneCookieSoapIn">
+    <wsdl:part name="parameters" element="tns:GetFortuneCookie" />
+  </wsdl:message>
+  <wsdl:message name="GetFortuneCookieSoapOut">
+    <wsdl:part name="parameters" element="tns:GetFortuneCookieResponse" />
+  </wsdl:message>
+  <wsdl:message name="CountCookiesSoapIn">
+    <wsdl:part name="parameters" element="tns:CountCookies" />
+  </wsdl:message>
+  <wsdl:message name="CountCookiesSoapOut">
+    <wsdl:part name="parameters" element="tns:CountCookiesResponse" />
+  </wsdl:message>
+  <wsdl:message name="GetSpecificCookieSoapIn">
+    <wsdl:part name="parameters" element="tns:GetSpecificCookie" />
+  </wsdl:message>
+  <wsdl:message name="GetSpecificCookieSoapOut">
+    <wsdl:part name="parameters" element="tns:GetSpecificCookieResponse" />
+  </wsdl:message>
+  <wsdl:message name="readNodeCountHttpGetIn" />
+  <wsdl:message name="readNodeCountHttpGetOut">
+    <wsdl:part name="Body" element="tns:int" />
+  </wsdl:message>
+  <wsdl:message name="GetFortuneCookieHttpGetIn" />
+  <wsdl:message name="GetFortuneCookieHttpGetOut">
+    <wsdl:part name="Body" element="tns:string" />
+  </wsdl:message>
+  <wsdl:message name="CountCookiesHttpGetIn" />
+  <wsdl:message name="CountCookiesHttpGetOut">
+    <wsdl:part name="Body" element="tns:int" />
+  </wsdl:message>
+  <wsdl:message name="GetSpecificCookieHttpGetIn">
+    <wsdl:part name="index" type="s:string" />
+  </wsdl:message>
+  <wsdl:message name="GetSpecificCookieHttpGetOut">
+    <wsdl:part name="Body" element="tns:string" />
+  </wsdl:message>
+  <wsdl:message name="readNodeCountHttpPostIn" />
+  <wsdl:message name="readNodeCountHttpPostOut">
+    <wsdl:part name="Body" element="tns:int" />
+  </wsdl:message>
+  <wsdl:message name="GetFortuneCookieHttpPostIn" />
+  <wsdl:message name="GetFortuneCookieHttpPostOut">
+    <wsdl:part name="Body" element="tns:string" />
+  </wsdl:message>
+  <wsdl:message name="CountCookiesHttpPostIn" />
+  <wsdl:message name="CountCookiesHttpPostOut">
+    <wsdl:part name="Body" element="tns:int" />
+  </wsdl:message>
+  <wsdl:message name="GetSpecificCookieHttpPostIn">
+    <wsdl:part name="index" type="s:string" />
+  </wsdl:message>
+  <wsdl:message name="GetSpecificCookieHttpPostOut">
+    <wsdl:part name="Body" element="tns:string" />
+  </wsdl:message>
+  <wsdl:portType name="FullerData_x0020_Fortune_x0020_CookieSoap">
+    <wsdl:operation name="readNodeCount">
+      <documentation xmlns="http://schemas.xmlsoap.org/wsdl/">Display the number of nodes specified in fortune XML document</documentation>
+      <wsdl:input message="tns:readNodeCountSoapIn" />
+      <wsdl:output message="tns:readNodeCountSoapOut" />
+    </wsdl:operation>
+    <wsdl:operation name="GetFortuneCookie">
+      <documentation xmlns="http://schemas.xmlsoap.org/wsdl/">Get a random fortune cookie from the XML document</documentation>
+      <wsdl:input message="tns:GetFortuneCookieSoapIn" />
+      <wsdl:output message="tns:GetFortuneCookieSoapOut" />
+    </wsdl:operation>
+    <wsdl:operation name="CountCookies">
+      <documentation xmlns="http://schemas.xmlsoap.org/wsdl/">Count the actual number of nodes in the XML document of fortunes</documentation>
+      <wsdl:input message="tns:CountCookiesSoapIn" />
+      <wsdl:output message="tns:CountCookiesSoapOut" />
+    </wsdl:operation>
+    <wsdl:operation name="GetSpecificCookie">
+      <documentation xmlns="http://schemas.xmlsoap.org/wsdl/">Get a specific cookie by the XML node number</documentation>
+      <wsdl:input message="tns:GetSpecificCookieSoapIn" />
+      <wsdl:output message="tns:GetSpecificCookieSoapOut" />
+    </wsdl:operation>
+  </wsdl:portType>
+  <wsdl:portType name="FullerData_x0020_Fortune_x0020_CookieHttpGet">
+    <wsdl:operation name="readNodeCount">
+      <documentation xmlns="http://schemas.xmlsoap.org/wsdl/">Display the number of nodes specified in fortune XML document</documentation>
+      <wsdl:input message="tns:readNodeCountHttpGetIn" />
+      <wsdl:output message="tns:readNodeCountHttpGetOut" />
+    </wsdl:operation>
+    <wsdl:operation name="GetFortuneCookie">
+      <documentation xmlns="http://schemas.xmlsoap.org/wsdl/">Get a random fortune cookie from the XML document</documentation>
+      <wsdl:input message="tns:GetFortuneCookieHttpGetIn" />
+      <wsdl:output message="tns:GetFortuneCookieHttpGetOut" />
+    </wsdl:operation>
+    <wsdl:operation name="CountCookies">
+      <documentation xmlns="http://schemas.xmlsoap.org/wsdl/">Count the actual number of nodes in the XML document of fortunes</documentation>
+      <wsdl:input message="tns:CountCookiesHttpGetIn" />
+      <wsdl:output message="tns:CountCookiesHttpGetOut" />
+    </wsdl:operation>
+    <wsdl:operation name="GetSpecificCookie">
+      <documentation xmlns="http://schemas.xmlsoap.org/wsdl/">Get a specific cookie by the XML node number</documentation>
+      <wsdl:input message="tns:GetSpecificCookieHttpGetIn" />
+      <wsdl:output message="tns:GetSpecificCookieHttpGetOut" />
+    </wsdl:operation>
+  </wsdl:portType>
+  <wsdl:portType name="FullerData_x0020_Fortune_x0020_CookieHttpPost">
+    <wsdl:operation name="readNodeCount">
+      <documentation xmlns="http://schemas.xmlsoap.org/wsdl/">Display the number of nodes specified in fortune XML document</documentation>
+      <wsdl:input message="tns:readNodeCountHttpPostIn" />
+      <wsdl:output message="tns:readNodeCountHttpPostOut" />
+    </wsdl:operation>
+    <wsdl:operation name="GetFortuneCookie">
+      <documentation xmlns="http://schemas.xmlsoap.org/wsdl/">Get a random fortune cookie from the XML document</documentation>
+      <wsdl:input message="tns:GetFortuneCookieHttpPostIn" />
+      <wsdl:output message="tns:GetFortuneCookieHttpPostOut" />
+    </wsdl:operation>
+    <wsdl:operation name="CountCookies">
+      <documentation xmlns="http://schemas.xmlsoap.org/wsdl/">Count the actual number of nodes in the XML document of fortunes</documentation>
+      <wsdl:input message="tns:CountCookiesHttpPostIn" />
+      <wsdl:output message="tns:CountCookiesHttpPostOut" />
+    </wsdl:operation>
+    <wsdl:operation name="GetSpecificCookie">
+      <documentation xmlns="http://schemas.xmlsoap.org/wsdl/">Get a specific cookie by the XML node number</documentation>
+      <wsdl:input message="tns:GetSpecificCookieHttpPostIn" />
+      <wsdl:output message="tns:GetSpecificCookieHttpPostOut" />
+    </wsdl:operation>
+  </wsdl:portType>
+  <wsdl:binding name="FullerData_x0020_Fortune_x0020_CookieSoap" type="tns:FullerData_x0020_Fortune_x0020_CookieSoap">
+    <soap:binding transport="http://schemas.xmlsoap.org/soap/http" style="document" />
+    <wsdl:operation name="readNodeCount">
+      <soap:operation soapAction="http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx/readNodeCount" style="document" />
+      <wsdl:input>
+        <soap:body use="literal" />
+      </wsdl:input>
+      <wsdl:output>
+        <soap:body use="literal" />
+      </wsdl:output>
+    </wsdl:operation>
+    <wsdl:operation name="GetFortuneCookie">
+      <soap:operation soapAction="http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx/GetFortuneCookie" style="document" />
+      <wsdl:input>
+        <soap:body use="literal" />
+      </wsdl:input>
+      <wsdl:output>
+        <soap:body use="literal" />
+      </wsdl:output>
+    </wsdl:operation>
+    <wsdl:operation name="CountCookies">
+      <soap:operation soapAction="http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx/CountCookies" style="document" />
+      <wsdl:input>
+        <soap:body use="literal" />
+      </wsdl:input>
+      <wsdl:output>
+        <soap:body use="literal" />
+      </wsdl:output>
+    </wsdl:operation>
+    <wsdl:operation name="GetSpecificCookie">
+      <soap:operation soapAction="http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx/GetSpecificCookie" 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="FullerData_x0020_Fortune_x0020_CookieHttpGet" type="tns:FullerData_x0020_Fortune_x0020_CookieHttpGet">
+    <http:binding verb="GET" />
+    <wsdl:operation name="readNodeCount">
+      <http:operation location="/readNodeCount" />
+      <wsdl:input>
+        <http:urlEncoded />
+      </wsdl:input>
+      <wsdl:output>
+        <mime:mimeXml part="Body" />
+      </wsdl:output>
+    </wsdl:operation>
+    <wsdl:operation name="GetFortuneCookie">
+      <http:operation location="/GetFortuneCookie" />
+      <wsdl:input>
+        <http:urlEncoded />
+      </wsdl:input>
+      <wsdl:output>
+        <mime:mimeXml part="Body" />
+      </wsdl:output>
+    </wsdl:operation>
+    <wsdl:operation name="CountCookies">
+      <http:operation location="/CountCookies" />
+      <wsdl:input>
+        <http:urlEncoded />
+      </wsdl:input>
+      <wsdl:output>
+        <mime:mimeXml part="Body" />
+      </wsdl:output>
+    </wsdl:operation>
+    <wsdl:operation name="GetSpecificCookie">
+      <http:operation location="/GetSpecificCookie" />
+      <wsdl:input>
+        <http:urlEncoded />
+      </wsdl:input>
+      <wsdl:output>
+        <mime:mimeXml part="Body" />
+      </wsdl:output>
+    </wsdl:operation>
+  </wsdl:binding>
+  <wsdl:binding name="FullerData_x0020_Fortune_x0020_CookieHttpPost" type="tns:FullerData_x0020_Fortune_x0020_CookieHttpPost">
+    <http:binding verb="POST" />
+    <wsdl:operation name="readNodeCount">
+      <http:operation location="/readNodeCount" />
+      <wsdl:input>
+        <mime:content type="application/x-www-form-urlencoded" />
+      </wsdl:input>
+      <wsdl:output>
+        <mime:mimeXml part="Body" />
+      </wsdl:output>
+    </wsdl:operation>
+    <wsdl:operation name="GetFortuneCookie">
+      <http:operation location="/GetFortuneCookie" />
+      <wsdl:input>
+        <mime:content type="application/x-www-form-urlencoded" />
+      </wsdl:input>
+      <wsdl:output>
+        <mime:mimeXml part="Body" />
+      </wsdl:output>
+    </wsdl:operation>
+    <wsdl:operation name="CountCookies">
+      <http:operation location="/CountCookies" />
+      <wsdl:input>
+        <mime:content type="application/x-www-form-urlencoded" />
+      </wsdl:input>
+      <wsdl:output>
+        <mime:mimeXml part="Body" />
+      </wsdl:output>
+    </wsdl:operation>
+    <wsdl:operation name="GetSpecificCookie">
+      <http:operation location="/GetSpecificCookie" />
+      <wsdl:input>
+        <mime:content type="application/x-www-form-urlencoded" />
+      </wsdl:input>
+      <wsdl:output>
+        <mime:mimeXml part="Body" />
+      </wsdl:output>
+    </wsdl:operation>
+  </wsdl:binding>
+  <wsdl:service name="FullerData_x0020_Fortune_x0020_Cookie">
+    <documentation xmlns="http://schemas.xmlsoap.org/wsdl/">Simple XML-based fortune cookie</documentation>
+    <wsdl:port name="FullerData_x0020_Fortune_x0020_CookieSoap" binding="tns:FullerData_x0020_Fortune_x0020_CookieSoap">
+      <soap:address location="http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx" />
+    </wsdl:port>
+    <wsdl:port name="FullerData_x0020_Fortune_x0020_CookieHttpGet" binding="tns:FullerData_x0020_Fortune_x0020_CookieHttpGet">
+      <http:address location="http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx" />
+    </wsdl:port>
+    <wsdl:port name="FullerData_x0020_Fortune_x0020_CookieHttpPost" binding="tns:FullerData_x0020_Fortune_x0020_CookieHttpPost">
+      <http:address location="http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx" />
+    </wsdl:port>
+  </wsdl:service>
+</wsdl:definitions>

example/wsdl/globalweather.xml

@@ -0,0 +1,185 @@
+<?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="GetWeather">
+        <s:complexType>
+          <s:sequence>
+            <s:element minOccurs="0" maxOccurs="1" name="CityName" type="s:string" />
+            <s:element minOccurs="0" maxOccurs="1" name="CountryName" type="s:string" />
+          </s:sequence>
+        </s:complexType>
+      </s:element>
+      <s:element name="GetWeatherResponse">
+        <s:complexType>
+          <s:sequence>
+            <s:element minOccurs="0" maxOccurs="1" name="GetWeatherResult" type="s:string" />
+          </s:sequence>
+        </s:complexType>
+      </s:element>
+      <s:element name="GetCitiesByCountry">
+        <s:complexType>
+          <s:sequence>
+            <s:element minOccurs="0" maxOccurs="1" name="CountryName" type="s:string" />
+          </s:sequence>
+        </s:complexType>
+      </s:element>
+      <s:element name="GetCitiesByCountryResponse">
+        <s:complexType>
+          <s:sequence>
+            <s:element minOccurs="0" maxOccurs="1" name="GetCitiesByCountryResult" type="s:string" />
+          </s:sequence>
+        </s:complexType>
+      </s:element>
+      <s:element name="string" nillable="true" type="s:string" />
+    </s:schema>
+  </wsdl:types>
+  <wsdl:message name="GetWeatherSoapIn">
+    <wsdl:part name="parameters" element="tns:GetWeather" />
+  </wsdl:message>
+  <wsdl:message name="GetWeatherSoapOut">
+    <wsdl:part name="parameters" element="tns:GetWeatherResponse" />
+  </wsdl:message>
+  <wsdl:message name="GetCitiesByCountrySoapIn">
+    <wsdl:part name="parameters" element="tns:GetCitiesByCountry" />
+  </wsdl:message>
+  <wsdl:message name="GetCitiesByCountrySoapOut">
+    <wsdl:part name="parameters" element="tns:GetCitiesByCountryResponse" />
+  </wsdl:message>
+  <wsdl:message name="GetWeatherHttpGetIn">
+    <wsdl:part name="CityName" type="s:string" />
+    <wsdl:part name="CountryName" type="s:string" />
+  </wsdl:message>
+  <wsdl:message name="GetWeatherHttpGetOut">
+    <wsdl:part name="Body" element="tns:string" />
+  </wsdl:message>
+  <wsdl:message name="GetCitiesByCountryHttpGetIn">
+    <wsdl:part name="CountryName" type="s:string" />
+  </wsdl:message>
+  <wsdl:message name="GetCitiesByCountryHttpGetOut">
+    <wsdl:part name="Body" element="tns:string" />
+  </wsdl:message>
+  <wsdl:message name="GetWeatherHttpPostIn">
+    <wsdl:part name="CityName" type="s:string" />
+    <wsdl:part name="CountryName" type="s:string" />
+  </wsdl:message>
+  <wsdl:message name="GetWeatherHttpPostOut">
+    <wsdl:part name="Body" element="tns:string" />
+  </wsdl:message>
+  <wsdl:message name="GetCitiesByCountryHttpPostIn">
+    <wsdl:part name="CountryName" type="s:string" />
+  </wsdl:message>
+  <wsdl:message name="GetCitiesByCountryHttpPostOut">
+    <wsdl:part name="Body" element="tns:string" />
+  </wsdl:message>
+  <wsdl:portType name="GlobalWeatherSoap">
+    <wsdl:operation name="GetWeather">
+      <documentation xmlns="http://schemas.xmlsoap.org/wsdl/">Get weather report for all major cities around the world.</documentation>
+      <wsdl:input message="tns:GetWeatherSoapIn" />
+      <wsdl:output message="tns:GetWeatherSoapOut" />
+    </wsdl:operation>
+    <wsdl:operation name="GetCitiesByCountry">
+      <documentation xmlns="http://schemas.xmlsoap.org/wsdl/">Get all major cities by country name(full / part).</documentation>
+      <wsdl:input message="tns:GetCitiesByCountrySoapIn" />
+      <wsdl:output message="tns:GetCitiesByCountrySoapOut" />
+    </wsdl:operation>
+  </wsdl:portType>
+  <wsdl:portType name="GlobalWeatherHttpGet">
+    <wsdl:operation name="GetWeather">
+      <documentation xmlns="http://schemas.xmlsoap.org/wsdl/">Get weather report for all major cities around the world.</documentation>
+      <wsdl:input message="tns:GetWeatherHttpGetIn" />
+      <wsdl:output message="tns:GetWeatherHttpGetOut" />
+    </wsdl:operation>
+    <wsdl:operation name="GetCitiesByCountry">
+      <documentation xmlns="http://schemas.xmlsoap.org/wsdl/">Get all major cities by country name(full / part).</documentation>
+      <wsdl:input message="tns:GetCitiesByCountryHttpGetIn" />
+      <wsdl:output message="tns:GetCitiesByCountryHttpGetOut" />
+    </wsdl:operation>
+  </wsdl:portType>
+  <wsdl:portType name="GlobalWeatherHttpPost">
+    <wsdl:operation name="GetWeather">
+      <documentation xmlns="http://schemas.xmlsoap.org/wsdl/">Get weather report for all major cities around the world.</documentation>
+      <wsdl:input message="tns:GetWeatherHttpPostIn" />
+      <wsdl:output message="tns:GetWeatherHttpPostOut" />
+    </wsdl:operation>
+    <wsdl:operation name="GetCitiesByCountry">
+      <documentation xmlns="http://schemas.xmlsoap.org/wsdl/">Get all major cities by country name(full / part).</documentation>
+      <wsdl:input message="tns:GetCitiesByCountryHttpPostIn" />
+      <wsdl:output message="tns:GetCitiesByCountryHttpPostOut" />
+    </wsdl:operation>
+  </wsdl:portType>
+  <wsdl:binding name="GlobalWeatherSoap" type="tns:GlobalWeatherSoap">
+    <soap:binding transport="http://schemas.xmlsoap.org/soap/http" style="document" />
+    <wsdl:operation name="GetWeather">
+      <soap:operation soapAction="http://www.webserviceX.NET/GetWeather" style="document" />
+      <wsdl:input>
+        <soap:body use="literal" />
+      </wsdl:input>
+      <wsdl:output>
+        <soap:body use="literal" />
+      </wsdl:output>
+    </wsdl:operation>
+    <wsdl:operation name="GetCitiesByCountry">
+      <soap:operation soapAction="http://www.webserviceX.NET/GetCitiesByCountry" 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="GlobalWeatherHttpGet" type="tns:GlobalWeatherHttpGet">
+    <http:binding verb="GET" />
+    <wsdl:operation name="GetWeather">
+      <http:operation location="/GetWeather" />
+      <wsdl:input>
+        <http:urlEncoded />
+      </wsdl:input>
+      <wsdl:output>
+        <mime:mimeXml part="Body" />
+      </wsdl:output>
+    </wsdl:operation>
+    <wsdl:operation name="GetCitiesByCountry">
+      <http:operation location="/GetCitiesByCountry" />
+      <wsdl:input>
+        <http:urlEncoded />
+      </wsdl:input>
+      <wsdl:output>
+        <mime:mimeXml part="Body" />
+      </wsdl:output>
+    </wsdl:operation>
+  </wsdl:binding>
+  <wsdl:binding name="GlobalWeatherHttpPost" type="tns:GlobalWeatherHttpPost">
+    <http:binding verb="POST" />
+    <wsdl:operation name="GetWeather">
+      <http:operation location="/GetWeather" />
+      <wsdl:input>
+        <mime:content type="application/x-www-form-urlencoded" />
+      </wsdl:input>
+      <wsdl:output>
+        <mime:mimeXml part="Body" />
+      </wsdl:output>
+    </wsdl:operation>
+    <wsdl:operation name="GetCitiesByCountry">
+      <http:operation location="/GetCitiesByCountry" />
+      <wsdl:input>
+        <mime:content type="application/x-www-form-urlencoded" />
+      </wsdl:input>
+      <wsdl:output>
+        <mime:mimeXml part="Body" />
+      </wsdl:output>
+    </wsdl:operation>
+  </wsdl:binding>
+  <wsdl:service name="GlobalWeather">
+    <wsdl:port name="GlobalWeatherSoap" binding="tns:GlobalWeatherSoap">
+      <soap:address location="http://www.webservicex.net/globalweather.asmx" />
+    </wsdl:port>
+    <wsdl:port name="GlobalWeatherHttpGet" binding="tns:GlobalWeatherHttpGet">
+      <http:address location="http://www.webservicex.net/globalweather.asmx" />
+    </wsdl:port>
+    <wsdl:port name="GlobalWeatherHttpPost" binding="tns:GlobalWeatherHttpPost">
+      <http:address location="http://www.webservicex.net/globalweather.asmx" />
+    </wsdl:port>
+  </wsdl:service>
+</wsdl:definitions>

lib/SOAP/WSDL.pm

@@ -0,0 +1,739 @@
+package SOAP::WSDL;
+use strict;
+use warnings;
+use vars qw($AUTOLOAD);
+use Carp;
+use Scalar::Util qw(blessed);
+use SOAP::WSDL::Client;
+use SOAP::WSDL::Expat::WSDLParser;
+use Class::Std;
+use SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;
+use LWP::UserAgent;
+
+our $VERSION='2.00_17';
+
+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>);
+my %outputhash_of       :ATTR(:name<outputhash>);
+my %servicename_of      :ATTR(:name<servicename>);
+my %portname_of         :ATTR(:name<portname>);
+my %class_resolver_of   :ATTR(:name<class_resolver>);
+
+my %method_info_of      :ATTR(:default<()>);
+my %port_of             :ATTR(:default<()>);
+my %porttype_of         :ATTR(:default<()>);
+my %binding_of          :ATTR(:default<()>);
+my %service_of          :ATTR(:default<()>);
+my %definitions_of      :ATTR(:get<definitions> :default<()>);
+my %serialize_options_of :ATTR(:default<()>);
+
+my %client_of           :ATTR(:name<client>     :default<()>);
+my %keep_alive_of       :ATTR(:name<keep_alive> :default<0> );
+
+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,
+  outputhash            => \%outputhash_of,
+  portname              => \%portname_of,
+  servicename           => \%servicename_of,
+  keep_alive            => \%keep_alive_of,
+);
+
+sub readable { carp <<'EOT';
+'readable' has no effect any more. If you want formatted XML,
+copy the debug output to your favorite XML editor and run the
+source format command.
+EOT
+    return;
+}
+
+sub set_readable; *set_readable = \&readable;
+
+for my $method (keys %LOOKUP ) {
+    no strict qw(refs); ## no critic (ProhibitNoStrict)
+    *{ $method } = sub {
+        my $self = shift;
+        my $ident = ident $self;
+        if (@_) {
+            $LOOKUP{ $method }->{ $ident } = shift;
+            return $self;
+        }
+        return $LOOKUP{ $method }->{ $ident };
+    };
+}
+
+{   # just a BLOCK for scoping warnings.
+
+    # we need to roll our own for supporting
+    # SOAP::WSDL->new( key => value ) syntax,
+    # like SOAP::Lite does. Class::Std enforces a single hash ref as
+    # parameters to new()
+    no warnings qw(redefine);   ## no critic ProhibitNoWarnings;
+
+    sub new {
+        my ($class, %args_from) = @_;
+        my  $self = \do { my $foo = undef };
+        bless $self, $class;
+        for (keys %args_from) {
+            my $method = $self->can("set_$_")
+                or croak "unknown parameter $_ passed to new";
+            $method->($self, $args_from{$_});
+        }
+
+        my $ident = ident $self;
+        $self->wsdlinit() if ($wsdl_of{ $ident });
+        $client_of{ $ident } = SOAP::WSDL::Client->new();
+        return $self;
+    }
+}
+
+sub wsdlinit {
+    my ($self, %opt) = @_;
+    my $ident = ident $self;
+
+    my $lwp = LWP::UserAgent->new(
+        $keep_alive_of{ $ident }
+        ? (keep_alive => 1)
+        : ()
+    );
+    my $response = $lwp->get( $wsdl_of{ $ident } );
+    croak $response->message() if ($response->code != 200);
+
+    my $parser = SOAP::WSDL::Expat::WSDLParser->new();
+    $parser->parse_string( $response->content() );
+
+    my $wsdl_definitions = $parser->get_data();
+
+    # 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";
+
+    # setup lookup variables
+    $definitions_of{ $ident }  = $wsdl_definitions;
+    $serialize_options_of{ $ident } = {
+        autotype  => 0,
+        typelib   => $types,
+        namespace => $ns,
+    };
+
+    $servicename_of{ $ident } = $opt{servicename} if $opt{servicename};
+    $portname_of{ $ident } = $opt{portname} if $opt{portname};
+    return $self;
+} ## end sub wsdlinit
+
+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 ];
+} ## end sub _wsdl_get_service
+
+sub _wsdl_get_port :PRIVATE  {
+    my $ident = ident shift;
+    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 ];
+}
+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();
+    $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();
+    $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;
+    my $wsdl = $definitions_of{ $ident };
+    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();
+
+    $method_info_of{ $ident } = {};
+
+    foreach my $binding_operation (@{ $binding->get_operation() })
+    {
+        my $method = {};
+
+        # get SOAP Action
+        # SOAP-Action is a required HTTP Header, so we need to look it up...
+        my $soap_binding_operation = $binding_operation->get_operation()->[0];
+        $method->{ soap_action } = $soap_binding_operation ?
+            $soap_binding_operation->get_soapAction() : $method;
+
+        # get parts
+        # 1. get operation from port
+        my $operation = $portType->find_operation( $ns,
+            $binding_operation->get_name() );
+
+        # 2. get input message name
+        my ( $prefix, $localname ) = split /:/xm,
+          $operation->first_input()->get_message();
+
+        # 3. get input message
+        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()) {
+            if ($body->get_parts()) {
+                $method->{ parts } = [];        # make sure it's empty
+                my $message_part_ref = $message->get_part();
+                for my $name ( split m{\s}xm , $body->get_parts() ) {
+                    $name =~s{ \A [^:]+: }{}xm;  # throw away ns prefix
+                    # could probably made more efficient, but our lists are
+                    # usually quite short
+                    push @{ $method->{ parts } },
+                        grep { $_->get_name() eq $name } @{ $message_part_ref };
+                }
+            }
+        }
+        $method->{ parts } ||= $message->get_part();
+
+        # rpc / encoded methods may have a namespace specified.
+        # look it up and set it...
+        $method->{ namespace } = $binding_operation
+            ? do {
+                my $input = $binding_operation->first_input();
+                $input ? $input->first_body()->get_namespace() : undef;
+            }
+            : undef;
+
+        $method_info_of{ $ident }->{ $binding_operation->get_name() } = $method;
+    }
+
+    return $method_info_of{ $ident };
+}
+
+sub call {
+    my ($self, $method, @data_from) = @_;
+    my $ident = ident $self;
+
+    my ($data, $header) = ref $data_from[0]
+      ? ($data_from[0], $data_from[1] )
+      : (@data_from>1)
+          ? ( { @data_from }, undef )
+          : ( $data_from[0], undef );
+
+    $self->wsdlinit() if not ($definitions_of{ $ident });
+    $self->_wsdl_init_methods() if not ($method_info_of{ $ident });
+
+    my $client = $client_of{ $ident };
+
+    # pass-through keep_alive if we need it...
+    $client->set_proxy( $proxy_of{ $ident }
+        || $port_of{ $ident }->first_address()->get_location(),
+        $keep_alive_of{ $ident } ? (keep_alive => 1) : (),
+    );
+
+    $client->set_no_dispatch( $no_dispatch_of{ $ident } );
+    $client->set_outputxml( $outputxml_of{ $ident } ? 1 : 0 );
+
+    # only load ::Deserializer::SOM if we really need to deserialize to SOM.
+    # maybe we should introduce something like $output{ $ident } with a fixed
+    # set of values - m{^(TREE|HASH|XML|SOM)$}xms ?
+    if ( ( ! $outputtree_of{ $ident } )
+      && ( ! $outputhash_of{ $ident } )
+      && ( ! $outputxml_of{ $ident } )
+      && ( ! $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 };
+
+    # TODO serialize both header and body, not only header
+    my (@response) = (blessed $data)
+        ? $client->call( {
+            operation => $method,
+            soap_action => $method_info->{ soap_action },
+          }, $data )
+        : do {
+            my $content = q{};
+            # TODO support RPC-encoding: Top-Level element + namespace...
+            foreach my $part ( @{ $method_info->{ parts } } ) {
+
+                $content .= $part->serialize( $method, $data,
+                  {
+                    %{ $serialize_options_of{ $ident } }
+                  }  );
+            }
+            $client->call(
+                {
+                    operation => $method,
+                    soap_action => $method_info->{ soap_action }
+                },
+                # absolutely stupid, but we need a reference which
+                # serializes to XML on stringification...
+                SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType->new({
+                    value => $content
+                }),
+                SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType->new({
+                    value => $header
+                })
+            );
+        };
+
+    return if not @response;    # nothing to do for one-ways
+    return wantarray ? @response : $response[0];
+}
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+SOAP::WSDL - SOAP with WSDL support
+
+=head1 Overview
+
+For creating Perl classes instrumenting a web service with a WSDL definition,
+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
+
+ my $soap = SOAP::WSDL->new(
+    wsdl => 'file://bla.wsdl',
+ );
+ 
+ my $result = $soap->call('MyMethod', %data);
+
+=head1 DESCRIPTION
+
+SOAP::WSDL provides easy access to Web Services with WSDL descriptions.
+
+The WSDL is parsed and stored in memory.
+
+Your data is serialized according to the rules in the WSDL.
+
+The only transport mechanisms currently supported are http and https.
+
+=head1 METHODS
+
+=head2 new
+
+Constructor. All parameters passed are passed to the corresponding methods.
+
+=head2 call
+
+Performs a SOAP call. The result is either an object tree (with outputtree),
+a hash reference (with outputhash), plain XML (with outputxml) or a SOAP::SOM
+object (with neither of the above set).
+
+call() can be called in different ways:
+
+=over
+
+=item * Old-style idiom
+
+ my $result = $soap->call('method', %data);
+
+Does not support SOAP header data.
+
+=item * New-style idiom
+
+ my $result = $soap->call('method', $body_ref, $header_ref );
+
+Does support SOAP header data. $body_ref and $header ref may either be
+hash refs or SOAP::WSDL::XSD::Typelib::* derived objects.
+
+Result headers are accessible via the result SOAP::SOM object.
+
+If outputtree or outputhash are set, you may also use the following to
+access response header data:
+
+ my ($body, $header) = $soap->call('method', $body_ref, $header_ref );
+
+=back
+
+=head2 wsdlinit
+
+Reads the WSDL file and initializes SOAP::WSDL for working with it.
+
+Is called automatically from call() if not called directly before.
+
+ servicename
+ portname
+ call
+
+You may set servicename and portname by passing them as attributes to
+wsdlinit:
+
+ $soap->wsdlinit(
+    servicename => 'MyService',
+    portname => 'MyPort',
+ );
+
+=head1 CONFIGURATION METHODS
+
+=head2 outputtree
+
+When outputtree is set, SOAP::WSDL will return an object tree instead of a
+SOAP::SOM object.
+
+You have to specify a class_resolver for this to work. See
+L<class_resolver|class_resolver>
+
+=head2 class_resolver
+
+Set the class resolver class (or object).
+
+Class resolvers must implement the method get_class which has to return the
+name of the class name for deserializing a XML node at the current XPath
+location.
+
+Class resolvers are typically generated by using the generate_typemap method
+of a SOAP::WSDL::Generator subclass.
+
+Example:
+
+XML structure (SOAP body content):
+
+ <Person>
+    <Name>Smith</Name>
+    <FirstName>John</FirstName>
+ </Person>
+
+Class resolver
+
+ package MyResolver;
+ my %typemap = (
+    'Person' => 'MyPersonClass',
+    'Person/Name' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+    'Person/FirstName' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+ );
+ 
+ sub get_class { return $typemap{ $_[1] } };
+ 1;
+
+You'll need a MyPersonClass module in your search path for this to work - see
+SOAP::WSDL::XSD::ComplexType on how to build / generate one.
+
+=head2 servicename
+
+ $soap->servicename('Name');
+
+Sets the service to operate on. If no service is set via servicename, the
+first service found is used.
+
+Returns the soap object, so you can chain calls like
+
+ $soap->servicename->('Name')->portname('Port');
+
+=head2 portname
+
+ $soap->portname('Name');
+
+Sets the port to operate on. If no port is set via portname, the
+first port found is used.
+
+Returns the soap object, so you can chain calls like
+
+ $soap->portname('Port')->call('MyMethod', %data);
+
+=head2 no_dispatch
+
+When set, call() returns the plain request XML instead of dispatching the
+SOAP call to the SOAP service. Handy for testing/debugging.
+
+=head1 ACCESS TO SOAP::WSDL's internals
+
+=head2 get_client / set_client
+
+Returns the SOAP client implementation used (normally a SOAP::WSDL::Client
+object).
+
+=head1 EXAMPLES
+
+See the examples/ directory.
+
+=head1 Differences to previous versions
+
+=over
+
+=item * WSDL handling
+
+SOAP::WSDL 2 is a complete rewrite. While SOAP::WSDL 1.x attempted to
+process the WSDL file on the fly by using XPath queries, SOAP:WSDL 2 uses a
+Expat handler for parsing the WSDL and building up a object tree representing
+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
+L<SOAP::WSDL::Manual> for using it.
+
+=item * no_dispatch
+
+call() with no_dispatch set to true now returns the complete SOAP request
+envelope, not only the body's content.
+
+=item * outputxml
+
+call() with outputxml set to true now returns the complete SOAP response
+envelope, not only the body's content.
+
+=item * servicename/portname
+
+Both servicename and portname can only be called B<after> calling wsdlinit().
+
+You may pass the servicename and portname as attributes to wsdlinit, though.
+
+=back
+
+=head1 Differences to SOAP::Lite
+
+=head2 readable
+
+readable is a no-op in SOAP::WSDL. Actually, the XML output from SOAP::Lite
+is hardly readable, either with readable switched on.
+
+If you need readable XML messages, I suggest using your favorite XML editor
+for displaying and formatting.
+
+=head2 Message style/encoding
+
+While SOAP::Lite supports rpc/encoded style/encoding only, SOAP::WSDL currently
+supports document/literal style/encoding.
+
+=head2 autotype / type information
+
+SOAP::Lite defaults to transmitting XML type information by default, where
+SOAP::WSDL defaults to leaving it out.
+
+autotype(1) might even be broken in SOAP::WSDL - it's not well-tested, yet.
+
+=head2 Output formats
+
+In contrast to SOAP::Lite, SOAP::WSDL supports the following output formats:
+
+=over
+
+=item * SOAP::SOM objects.
+
+This is the default. SOAP::Lite is required for outputting SOAP::SOM objects.
+
+=item * Object trees.
+
+This is the recommended output format.
+You need a class resolver (typemap) for outputting object trees.
+See L<class_resolver|class_resolver> above.
+
+=item * Hash refs
+
+This is for convnience: A single hash ref containing the content of the
+SOAP body.
+
+=item * xml
+
+See below.
+
+=back
+
+=head2 outputxml
+
+SOAP::Lite returns only the content of the SOAP body when outputxml is set
+to true. SOAP::WSDL returns the complete XML response.
+
+=head2 Auto-Dispatching
+
+SOAP::WSDL does 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
+
+ sub mySoapMethod {
+     my $self = shift;
+     $soap_wsdl_client->call( mySoapMethod, @_);
+ }
+
+You may even do this in a class factory - see L<wsdl2perl.pl> for creating
+such interfaces.
+
+=head2 Debugging / Tracing
+
+While SOAP::Lite features a global tracing facility, SOAP::WSDL
+allows to switch tracing on/of on a per-object base.
+
+This has to be done in the SOAP client used by SOAP::WSDL - see
+L<get_client|get_client> for an example and L<SOAP::WSDL::Client> for
+details.
+
+=head1 BUGS AND LIMITATIONS
+
+=over
+
+=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
+before - see http://aspn.activestate.com/ASPN/Mail/Message/perl5-porters/929746 for details.
+
+=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.
+
+=item * Incomplete XML Schema definitions support
+
+XML Schema attribute definitions are not supported yet.
+
+Importing external definitions is not supported yet.
+
+The following XML Schema definitions varieties are not supported:
+
+ group
+ union
+ simpleContent
+
+The following XML Schema definition content model is only partially
+supported:
+
+ complexContent - only restriction variety supported
+
+See L<SOAP::WSDL::Manual::XSD> for details.
+
+=item * Serialization of hash refs dos not work for ambiguos values
+
+If you have list elements with multiple occurences allowed, SOAP::WSDL
+has no means of finding out which variant you meant.
+
+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.
+
+=item * XML Schema facets
+
+Almost no XML schema facets are implemented yet. The only facets
+currently implemented are:
+
+ fixed
+ default
+
+The following facets have no influence yet:
+
+ minLength
+ maxLength
+ minInclusive
+ maxInclusive
+ minExclusive
+ maxExclusive
+ pattern
+ enumeration
+
+=back
+
+=head1 SEE ALSO
+
+=head2 Related projects
+
+=over
+
+=item * L<SOAP::Lite|SOAP::Lite>
+
+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>
+
+A promising-looking approach derived from a cool functional DOM-based XML schema parser.
+
+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.
+
+=back
+
+=head2 Sources of documentation
+
+=over
+
+=item * SOAP::WSDL homepage at sourceforge.net
+
+L<http://soap-wsdl.sourceforge.net>
+
+=item * SOAP::WSDL forum at CPAN::Forum
+
+L<http://www.cpanforum.com/dist/SOAP-WSDL>
+
+=back
+
+=head1 ACKNOWLEDGMENTS
+
+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).
+
+Giovanni S. Fois wrote a improved version of SOAP::WSDL (which eventually
+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.
+
+Andreas 'ac0v' Specht constantly asked for better performance.
+
+JT Justman provided early feedback for the 2.xx pre-releases.
+
+Numerous people sent me their real-world WSDL files for testing. Thank you.
+
+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.
+
+This file is part of SOAP-WSDL. You may distribute/modify it under
+the same terms as perl itself
+
+=head1 AUTHOR
+
+Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
+
+=head1 REPOSITORY INFORMATION
+
+ $Rev: 391 $
+ $LastChangedBy: kutterma $
+ $Id: 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 $
+
+=cut
+

lib/SOAP/WSDL/Base.pm

@@ -0,0 +1,141 @@
+package SOAP::WSDL::Base;
+use strict;
+use warnings;
+use Class::Std::Storable;
+use List::Util qw(first);
+use Carp qw(croak carp confess);
+
+our $VERSION='2.00_17';
+
+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<()>);
+
+sub DEMOLISH {
+  my $self = shift;
+  # delete upward references
+  delete $parent_of{ ident $self };
+  return;
+}
+
+sub STORABLE_freeze_pre :CUMULATIVE {};
+sub STORABLE_freeze_post :CUMULATIVE {};
+sub STORABLE_thaw_pre :CUMULATIVE {};
+sub STORABLE_thaw_post :CUMULATIVE { return $_[0] };
+
+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
+    return shift->$method( $self );
+}
+
+# unfortunately, AUTOMETHOD is SLOW.
+# Re-implement in derived package wherever speed is an issue...
+#
+sub AUTOMETHOD {
+    my ($self, $ident, @values) = @_;
+    my $subname = $_;   # Requested subroutine name is passed via $_
+
+    # we're called as $self->push_something(@values);
+    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...
+        return sub {
+            no strict qw(refs);                 ## no critic ProhibitNoStrict
+            my $old_value = $self->$getter();
+            # Listify if not a list ref
+            $old_value = $old_value ? [ $old_value ] : [] if not ref $old_value;
+
+            push @$old_value , @values;
+            $self->$setter( $old_value );
+        };
+    }
+
+    # we're called as $obj->find_something($ns, $key)
+    elsif ($subname =~s {^find_}{get_}xms) {
+        @values = @{ $values[0] } if ref $values[0] eq 'ARRAY';
+        return sub {
+            return first {
+                $_->get_targetNamespace() eq $values[0] &&
+                $_->get_name() eq $values[1]
+            }
+            @{ $self->$subname() };
+        }
+    }
+    elsif ($subname =~s {^first_}{get_}xms) {
+        return sub {
+            my $result_ref = $self->$subname();
+            return if not $result_ref;
+            return $result_ref if (not ref $result_ref eq 'ARRAY');
+            return $result_ref->[0];
+        };
+    }
+    confess "$subname not found in class " . (ref $self || $self) ;
+}
+
+sub init {
+    my ($self, @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 };
+
+            next;
+        }
+        elsif ($value->{ Name } =~m{^xmlns$}xms) {
+            # just ignore xmlns = for now
+            # TODO handle xmlns correctly - maybe via setting a prefix ?
+            next;
+        }
+
+        my $name = $value->{ LocalName };
+        my $method = "set_$name";
+        $self->$method( $value->{ Value } );
+    }
+    return $self;
+}
+
+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 });
+
+    if (my $parent = $self->get_parent()) {
+        return $parent->expand($qname);
+    }
+    confess "unbound prefix $prefix found for $prefix:$localname";
+}
+sub _expand;
+*_expand = \&expand;
+
+1;
+
+__END__
+
+# REPOSITORY INFORMATION
+#
+# $Rev: 332 $
+# $LastChangedBy: kutterma $
+# $Id: WSDL.pm 332 2007-10-19 07:29:03Z kutterma $
+# $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL.pm $
+#
+

lib/SOAP/WSDL/Binding.pm

@@ -0,0 +1,13 @@
+package SOAP::WSDL::Binding;
+use strict;
+use warnings;
+use Class::Std::Storable;
+use List::Util qw(first);
+use base qw(SOAP::WSDL::Base);
+
+my %operation_of    :ATTR(:name<operation> :default<()>);
+my %type_of         :ATTR(:name<type> :default<()>);
+my %transport_of    :ATTR(:name<transport> :default<()>);
+my %style_of        :ATTR(:name<style> :default<()>);
+
+1;

lib/SOAP/WSDL/Client.pm

@@ -0,0 +1,380 @@
+package SOAP::WSDL::Client;
+use strict;
+use warnings;
+use Carp;
+
+use Class::Std::Storable;
+use Scalar::Util qw(blessed);
+
+use SOAP::WSDL::Factory::Deserializer;
+use SOAP::WSDL::Factory::Serializer;
+use SOAP::WSDL::Factory::Transport;
+use SOAP::WSDL::Expat::MessageParser;
+
+our $VERSION = '2.00_17';
+
+my %class_resolver_of   :ATTR(:name<class_resolver> :default<()>);
+my %no_dispatch_of      :ATTR(:name<no_dispatch>    :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 %on_action_of        :ATTR(:name<on_action>      :default<()>);
+my %content_type_of     :ATTR(:name<content_type>   :default<text/xml; charset=utf8>);  #/#trick editors
+my %serializer_of       :ATTR(:name<serializer>     :default<()>);
+my %deserializer_of     :ATTR(:name<deserializer>   :default<()>);
+
+sub BUILD {
+    my ($self, $ident, $attrs_of_ref) = @_;
+
+    if (exists $attrs_of_ref->{ proxy }) {
+        $self->set_proxy( $attrs_of_ref->{ proxy } );
+        delete $attrs_of_ref->{ proxy };
+    }
+    return;
+}
+
+sub get_proxy {                         ## no critic RequireArgUnpacking
+    return $_[0]->get_transport();
+}
+
+sub set_proxy {
+    my ($self, @args_from) = @_;
+    my $ident = ident $self;
+
+    # remember old value to return it later - Class::Std does so, too
+    my $old_value = $transport_of{ $ident };
+
+    # accept both list and list ref args
+    @args_from =  @{ $args_from[0] } if ref $args_from[0];
+
+    # remember endpoint
+    $endpoint_of{ $ident } = $args_from[0];
+
+    # set transport - SOAP::Lite works similar...
+    $transport_of{ $ident } =  SOAP::WSDL::Factory::Transport
+      ->get_transport( @args_from );
+
+    return $old_value;
+}
+
+sub set_soap_version {
+    my $ident = ident shift;
+
+    # remember old value to return it later - Class::Std does so, too
+    my $soap_version = $soap_version_of{ $ident };
+
+    # re-setting the soap version invalidates the
+    # serializer object
+    delete $serializer_of{ $ident };
+    delete $deserializer_of{ $ident };
+
+    $soap_version_of{ $ident } = shift;
+
+    return $soap_version;
+}
+
+# Mimic SOAP::Lite's behaviour for getter/setter routines
+SUBFACTORY: {
+    for (qw(class_resolver no_dispatch outputxml proxy)) {
+        my $setter = "set_$_";
+        my $getter = "get_$_";
+        no strict qw(refs);     ## no critic ProhibitNoStrict
+        *{ $_ } = sub { my $self = shift;
+            if (@_) {
+                $self->$setter(@_);
+                return $self;
+            }
+            return $self->$getter()
+        };
+    }
+}
+
+sub call {
+    my ($self, $method, @data_from) = @_;
+    my $ident = ident $self;
+
+    # the only valid idiom for calling a method with both a header and a body
+    # is
+    # ->call($method, $body_ref, $header_ref);
+    #
+    # These other idioms all assume an empty header:
+    # ->call($method, %body_of);    # %body_of is a hash
+    # ->call($method, $body);       # $body is a scalar
+    my ($data, $header) = ref $data_from[0]
+      ? ($data_from[0], $data_from[1] )
+      : (@data_from>1)
+          ? ( { @data_from }, undef )
+          : ( $data_from[0], undef );
+
+    # get operation name and soap_action
+    my ($operation, $soap_action) = (ref $method eq 'HASH')
+        ? ( $method->{ operation }, $method->{ soap_action } )
+        : (blessed $data
+            && $data->isa('SOAP::WSDL::XSD::Typelib::Builtin::anyType'))
+            ? ( $method , (join q{/}, $data->get_xmlns(), $method) )
+            : ( $method, q{} );
+    $serializer_of{ $ident } ||= SOAP::WSDL::Factory::Serializer->get_serializer({
+        soap_version => $self->get_soap_version(),
+    });
+
+    my $envelope = $serializer_of{ $ident }->serialize({
+        method => $operation,
+        body => $data,
+        header => $header,
+    });
+
+    return $envelope if $self->no_dispatch();
+
+    # always quote SOAPAction header.
+    # WS-I BP 1.0 R1109
+    if ($soap_action) {
+        $soap_action =~s{\A(:?"|')?}{"}xms;
+        $soap_action =~s{(:?"|')?\Z}{"}xms;
+    }
+    else {
+        $soap_action = q{""};
+    }
+
+    # get response via transport layer.
+    # Normally, SOAP::Lite's transport layer is used, though users
+    # may provide their own.
+    my $transport = $self->get_transport();
+    my $response = $transport->send_receive(
+       endpoint => $self->get_endpoint(),
+       content_type => $content_type_of{ $ident },
+       envelope => $envelope,
+       action => $soap_action,
+       # on_receive_chunk => sub {}     # optional, may be used for parsing large responses as they arrive.
+    );
+
+    return $response if ($outputxml_of{ $ident } );
+
+    # get deserializer
+    $deserializer_of{ $ident } ||= SOAP::WSDL::Factory::Deserializer->get_deserializer({
+        soap_version => $soap_version_of{ $ident },
+    });
+
+    # set class resolver if serializer supports it
+    $deserializer_of{ $ident }->set_class_resolver( $class_resolver_of{ $ident } )
+        if ( $deserializer_of{ $ident }->can('set_class_resolver') );
+
+    # 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 );
+        };
+        if (not $@) {
+            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"
+        });
+    };
+
+    # if we had no success (Transport layer error status code)
+    # or if transport layer failed
+    if ( ! $transport->is_success() ) {
+
+        # generate & return fault if we cannot serialize response
+        # or have none...
+        return $deserializer_of{ $ident }->generate_fault({
+            code => 'soap:Server',
+            role => 'urn:localhost',
+            message => 'Error sending / receiving message: '
+                . $transport->message()
+        });
+    }
+} ## end sub call
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+SOAP::WSDL::Client - SOAP::WSDL's SOAP Client
+
+=head1 SYNOPSIS
+
+ use SOAP::WSDL::Client;
+ my $soap = SOAP::WSDL::Client->new({
+     proxy => 'http://www.example.org/webservice/test'
+ });
+ $soap->call( \%method, $body, $header);
+
+=head1 METHODS
+
+=head2 call
+
+ $soap->call( \%method, \@parts );
+
+%method is a hash with the following keys:
+
+ Name           Description
+ ----------------------------------------------------
+ operation      operation name
+ soap_action    SOAPAction HTTP header to use
+ style          Operation style. One of (document|rpc)
+ use            SOAP body encoding. One of (literal|encoded)
+
+The style and use keys have no influence yet.
+
+@parts is a list containing the elements of the message parts.
+
+For backward compatibility, call may also be called as below:
+
+ $soap->call( $method, \@parts );
+
+In this case, $method is the SOAP operation name, and the SOAPAction header
+is guessed from the first part's namespace and the operation name (which is
+mostly correct, but may fail). Operation style and body encoding are assumed to
+be document/literal
+
+=head2 Configuration methods
+
+=head3 outputxml
+
+ $soap->outputxml(1);
+
+When set, call() returns the raw XML of the SOAP Envelope.
+
+=head3 set_content_type
+
+ $soap->set_content_type('application/xml; charset: utf8');
+
+Sets the content type and character encoding.
+
+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
+
+ text/xml
+
+Default:
+
+ text/xml; charset: utf8
+
+=head3 set_trace
+
+ $soap->set_trace(1);
+ $soap->set_trace( sub { Log::Log4perl::get_logger()->debug( @_ ) } );
+
+When set to a true value, tracing (via warn) is enabled.
+
+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.
+
+=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
+designed as a cure for the weakness of little WSDL support - nothing more,
+nothing less.
+
+Nonetheless SOAP::WSDL mimics part of SOAP::Lite's API and behaviour,
+so SOAP::Lite users can switch without looking up every method call in the
+documentation.
+
+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
+which case it will automatically be encoded into a message object).
+
+=head3 Return values
+
+The result from call() is not a SOAP::SOM object, but a message object.
+
+Message objects' classes may be generated from WSDL definitions automatically
+- see SOAP::WSDL::Generator::Typelib on how to generate your own WSDL based
+message class library.
+
+=head3 Fault handling
+
+SOAP::WSDL::Client returns a fault object on errors, even on transport layer
+errors.
+
+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
+
+ my $result = $soap->call($method, $data);
+
+ if ($result) {
+    # handle result
+ }
+ else {
+    die $result->faultstring();
+ }
+
+=head3 outputxml
+
+SOAP::Lite returns only the content of the SOAP body when outputxml is set
+to true. SOAP::WSDL::Client returns the complete XML response.
+
+=head3 Auto-Dispatching
+
+SOAP::WSDL::Client does 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
+
+ sub mySoapMethod {
+     my $self = shift;
+     $soap_wsdl_client->call( mySoapMethod, @_);
+ }
+
+You may even do this in a class factory - see L<wsdl2perl.pl> for creating
+such interfaces.
+
+=head1 TROUBLESHOOTING
+
+=head2 Accessing protected web services
+
+Accessing protected web services is very specific for the transport
+backend used.
+
+In general, you may pass additional arguments to the set_proxy method (or
+a list ref of the web service address and any additional arguments to the
+new method's I<proxy> argument).
+
+Refer to the appropriate transport module for documentation.
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright 2004-2007 Martin Kutter.
+
+This file is part of SOAP-WSDL. You may distribute/modify it under the same
+terms as perl itself
+
+=head1 AUTHOR
+
+Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
+
+=head1 REPOSITORY INFORMATION
+
+ $Rev: 391 $
+ $LastChangedBy: kutterma $
+ $Id: Client.pm 391 2007-11-17 21:56:13Z kutterma $
+ $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client.pm $
+
+=cut
+

lib/SOAP/WSDL/Client/Base.pm

@@ -0,0 +1,102 @@
+package SOAP::WSDL::Client::Base;
+use strict;
+use warnings;
+use base 'SOAP::WSDL::Client';
+use Scalar::Util qw(blessed);
+
+our $VERSION = '2.00_24';
+
+sub call {
+    my ($self, $method, $body, $header) = @_;
+    if (not blessed $body) {
+        $body = {} if not defined $body;
+        my $class = $method->{ body }->{ parts }->[0];
+        eval "require $class" || die $@;
+        $body = $class->new($body);
+    }
+
+    # if we have a header
+    if (%{ $method->{ header } }) {
+        if (not blessed $header) {
+            my $class = $method->{ header }->{ parts }->[0];
+            eval "require $class" || die $@;
+            $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__
+
+=pod
+
+=head1 NAME
+
+SOAP::WSDL::Client::Base - Factory class for WSDL-based SOAP access
+
+=head1 SYNOPSIS
+
+ package MySoapInterface;
+ use SOAP::WSDL::Client::Base;
+ __PACKAGE__->__create_methods( qw(one two three) );
+ 1;
+
+=head1 DESCRIPTION
+
+Factory class for creating interface classes. Should probably be renamed to
+SOAP::WSDL::Factory::Interface...
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright 2004-2007 Martin Kutter.
+
+This file is part of SOAP-WSDL. You may distribute/modify it under the same
+terms as perl itself
+
+=head1 AUTHOR
+
+Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
+
+=head1 REPOSITORY INFORMATION
+
+ $Rev: 391 $
+ $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 $
+
+=cut

lib/SOAP/WSDL/Definitions.pm

@@ -0,0 +1,127 @@
+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 base qw(SOAP::WSDL::Base);
+
+our $VERSION='2.00_17';
+
+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,
+);
+
+# Function factory - we could be writing this method for all %attribute
+# keys, too, but that's just C&P (eehm, Copy & Paste...)
+BLOCK: {
+  foreach my $method(keys %attributes_of ) {
+  no strict qw/refs/;               ## no critic ProhibitNoStrict
+      *{ "find_$method" } = sub {
+          my ($self, @args_from) = @_;
+          @args_from = @{ $args_from[0] } if ref $args_from[0] eq 'ARRAY';
+          return first {
+                  $_->get_targetNamespace() eq $args_from[0]
+                  && $_->get_name() eq $args_from[1]
+              }
+              @{ $attributes_of{ $method }->{ ident $self } };
+      };
+  }
+}
+
+1;
+
+=pod
+
+=head1 NAME
+
+SOAP::WSDL::Definitions - model a WSDL E<gt>definitionsE<lt> element
+
+=head1 DESCRIPTION
+
+=head1 METHODS
+
+=head2 first_service get_service set_service push_service
+
+Accessors/Mutators for accessing / setting the E<gt>serviceE<lt> child
+element(s).
+
+=head2 find_service
+
+Returns the service matching the namespace/localname pair passed as arguments.
+
+ my $service = $wsdl->find_service($namespace, $localname);
+
+=head2 first_binding get_binding set_binding push_binding
+
+Accessors/Mutators for accessing / setting the E<gt>bindingE<lt> child
+element(s).
+
+=head2 find_service
+
+Returns the binding matching the namespace/localname pair passed as arguments.
+
+ my $binding = $wsdl->find_binding($namespace, $localname);
+
+=head2 first_portType get_portType set_portType push_portType
+
+Accessors/Mutators for accessing / setting the E<gt>portTypeE<lt> child
+element(s).
+
+=head2 find_portType
+
+Returns the portType matching the namespace/localname pair passed as arguments.
+
+ my $portType = $wsdl->find_portType($namespace, $localname);
+
+=head2 first_message get_message set_message push_message
+
+Accessors/Mutators for accessing / setting the E<gt>messageE<lt> child
+element(s).
+
+=head2 find_service
+
+Returns the message matching the namespace/localname pair passed as arguments.
+
+ my $message = $wsdl->find_message($namespace, $localname);
+
+=head2 first_types get_types set_types push_types
+
+Accessors/Mutators for accessing / setting the E<gt>typesE<lt> child
+element(s).
+
+=head1 LICENSE and COPYRIGHT
+
+Copyright 2004-2007 Martin Kutter.
+
+This file is part of SOAP-WSDL. You may distribute/modify it under
+the same terms as perl itself
+
+=head1 AUTHOR
+
+Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
+
+=head1 REPOSITORY INFORMATION
+
+ $Rev: 391 $
+ $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 $
+
+=cut
+

lib/SOAP/WSDL/Deserializer/Hash.pm

@@ -0,0 +1,160 @@
+package SOAP::WSDL::Deserializer::Hash;
+use strict;
+use warnings;
+use Class::Std::Storable;
+use SOAP::WSDL::SOAP::Typelib::Fault11;
+use SOAP::WSDL::Expat::Message2Hash;
+
+use SOAP::WSDL::Factory::Deserializer;
+SOAP::WSDL::Factory::Deserializer->register( '1.1', __PACKAGE__ );
+
+our $VERSION='2.00_24';
+
+sub BUILD {
+    my ($self, $ident, $args_of_ref) = @_;
+
+    # ignore all options
+    for (keys %{ $args_of_ref }) {
+        delete $args_of_ref->{ $_ }
+    }
+}
+
+sub deserialize {
+    my ($self, $content) = @_;
+
+    my $parser = SOAP::WSDL::Expat::Message2Hash->new();
+    eval { $parser->parse_string( $content ) };
+    if ($@) {
+        die $self->generate_fault({
+            code => 'soap:Server',
+            role => 'urn:localhost',
+            message => "Error deserializing message: $@. \n"
+                . "Message was: \n$content"
+        });
+    }
+    return $parser->get_data();
+}
+
+sub generate_fault {
+    my ($self, $args_from_ref) = @_;
+    return SOAP::WSDL::SOAP::Typelib::Fault11->new({
+            faultcode => $args_from_ref->{ code } || 'soap:Client',
+            faultactor => $args_from_ref->{ role } || 'urn:localhost',
+            faultstring => $args_from_ref->{ message } || "Unknown error"
+    });
+}
+
+1;
+
+=head1 NAME
+
+SOAP::WSDL::Deserializer::Hash - Deserializer SOAP messages into perl hash refs
+
+=head1 SYNOPSIS
+
+ use SOAP::WSDL;
+ use SOAP::WSDL::Deserializer::Hash;
+ 
+=head1 DESCRIPTION
+
+Deserializer for creating perl hash refs as result of a SOAP call.
+
+=head2 Output structure
+
+The XML structure is converted into a perl data structure consisting of
+hash and or list references. List references are used for holding array data.
+
+SOAP::WSDL::Deserializer::Hash creates list references always at the maximum
+depth possible.
+
+Examples:
+
+ XML:
+ <MyDataArray>
+    <MyData>1</MyData>
+    <MyData>1</MyData>
+ </MyDataArray>
+
+ Perl:
+ {
+     MyDataArray => {
+         MyData => [ 1, 1 ]
+     }
+ }
+
+ XML:
+ <DeepArray>
+    <MyData><int>1<int>/MyData>
+    <MyData><int>1<int>/MyData>
+ </DeepArray>
+
+ Perl:
+ {
+     MyDataArray => {
+         MyData => [
+            { int => 1 },
+            { int => 1 }
+         ]
+     }
+ }
+
+List reference creation is triggered by the second occurance of an element.
+XML Array types with one element only will not be represented as list
+references.
+
+=head1 USAGE
+
+All you need to do is to use SOAP::WSDL::Deserializer::Hash.
+
+SOAP::WSDL::Deserializer::Hash autoregisters itself for SOAP1.1 messages
+
+You may register SOAP::WSDLDeserializer::Hash for other SOAP Versions by
+calling
+
+ SOAP::Factory::Deserializer->register('1.2',
+    SOAP::WSDL::Deserializer::Hash)
+
+=head1 Limitations
+
+=over
+
+=item * Namespaces
+
+All namespaces are ignored.
+
+=item * XML attributes
+
+All XML attributes are ignored.
+
+=back
+
+=head2 Differences from other SOAP::WSDL::Deserializer classes
+
+=over
+
+=item * generate_fault
+
+SOAP::WSDL::Deserializer::Hash will die with a SOAP::WSDL::Fault11 object when
+a parse error appears
+
+=back
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright 2004-2007 Martin Kutter.
+
+This file is part of SOAP-WSDL. You may distribute/modify it under
+the same terms as perl itself.
+
+=head1 AUTHOR
+
+Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
+
+=head1 REPOSITORY INFORMATION
+
+ $Rev: 391 $
+ $LastChangedBy: kutterma $
+ $Id: Hash.pm 391 2007-11-17 21:56:13Z kutterma $
+ $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/Hash.pm $
+
+=cut

lib/SOAP/WSDL/Deserializer/SOM.pm

@@ -0,0 +1,122 @@
+package SOAP::WSDL::Deserializer::SOM;
+use strict;
+use warnings;
+
+our $VERSION = '2.00_24';
+our @ISA;
+
+eval {
+    require SOAP::Lite;
+    push @ISA, 'SOAP::Deserializer';
+}
+or die "Cannot load SOAP::Lite.
+Cannot deserialize to SOM object without SOAP::Lite.
+Please install SOAP::Lite.";
+
+sub generate_fault {
+    my ($self, $args_from_ref) = @_;
+    # code, message, detail, actor
+    die SOAP::Fault->new(
+        faultcode => $args_from_ref->{ code },
+        faultstring => $args_from_ref->{ message },
+        faultactor => $args_from_ref->{ role },
+    );
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+SOAP::WSDL::Deserializer::SOM - Deserializer SOAP messages into SOM objects
+
+=head1 SYNOPSIS
+
+ use SOAP::WSDL;
+ use SOAP::WSDL::Deserializer::SOM;
+ use SOAP::WSDL::Factory::Deserializer;
+ SOAP::WSDL::Factory::Deserializer->register( '1.1', __PACKAGE__ );
+ 
+=head1 DESCRIPTION
+
+Deserializer for creating SOAP::Lite's SOM object as result of a SOAP call.
+
+This package is here for two reasons:
+
+=over
+
+=item * Compatibility
+
+You don't have to change the rest of your SOAP::Lite based app when switching
+to SOAP::WSDL, but can just use SOAP::WSDL::Deserializer::SOM to get back the
+same objects as you were used to.
+
+=item * Completeness
+
+SOAP::Lite covers much more of the SOAP specification than SOAP::WSDL.
+
+SOAP::WSDL::Deserializer::SOM can be used for content which cannot be
+deserialized by L<SOAP::WSDL::Deserializer::SOAP11|SOAP::WSDL::Deserializer::SOAP11>.
+This may be XML including mixed content, attachements and other XML data not
+(yet) handled by L<SOAP::WSDL::Deserializer::SOAP11|SOAP::WSDL::Deserializer::SOAP11>.
+
+=back
+
+SOAP::WSDL::Deserializer::SOM is a subclass of L<SOAP::Deserializer|SOAP::Deserializer>
+from the L<SOAP::Lite|SOAP::Lite> package.
+
+=head1 USAGE
+
+SOAP::WSDL::Deserializer will not auroregister itself - to use it for a particular
+SOAP version just use the following lines:
+
+ my $soap_version = '1.1'; # or '1.2', further versions may appear.
+ 
+ use SOAP::WSDL::Deserializer::SOM;
+ use SOAP::WSDL::Factory::Deserializer;
+ SOAP::WSDL::Factory::Deserializer->register( $soap_version, __PACKAGE__ );
+
+=head1 DIFFERENCES FROM OTHER CLASSES
+
+=head2 Differences from SOAP::Lite
+
+=over
+
+=item * No on_fault handler
+
+You cannot specify what to do when an error occurs - SOAP::WSDL will die
+with a SOAP::Fault object on transport errors.
+
+=back
+
+=head2 Differences from other SOAP::WSDL::Deserializer classes
+
+=over
+
+=item * generate_fault
+
+SOAP::WSDL::Deserializer::SOM will die with a SOAP::Fault object on calls
+to generate_fault.
+
+=back
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright 2004-2007 Martin Kutter.
+
+This file is part of SOAP-WSDL. You may distribute/modify it under
+the same terms as perl itself.
+
+=head1 AUTHOR
+
+Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
+
+=head1 REPOSITORY INFORMATION
+
+ $Rev: 391 $
+ $LastChangedBy: kutterma $
+ $Id: SOM.pm 391 2007-11-17 21:56:13Z kutterma $
+ $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/SOM.pm $
+
+=cut

lib/SOAP/WSDL/Deserializer/XSD.pm

@@ -0,0 +1,106 @@
+package SOAP::WSDL::Deserializer::XSD;
+use strict;
+use warnings;
+use Class::Std::Storable;
+use SOAP::WSDL::SOAP::Typelib::Fault11;
+use SOAP::WSDL::Expat::MessageParser;
+
+our $VERSION='2.00_24';
+
+my %class_resolver_of :ATTR(:name<class_resolver> :default<()>);
+
+sub BUILD {
+    my ($self, $ident, $args_of_ref) = @_;
+
+    # ignore all options except 'class_resolver'
+    for (keys %{ $args_of_ref }) {
+        delete $args_of_ref->{ $_ } if $_ ne 'class_resolver';
+    }
+
+}
+
+sub deserialize {
+    my ($self, $content) = @_;
+
+    my $parser = SOAP::WSDL::Expat::MessageParser->new({
+        class_resolver => $class_resolver_of{ ident $self },
+    });
+    eval { $parser->parse_string( $content ) };
+    if ($@) {
+        return $self->generate_fault({
+            code => 'soap:Server',
+            role => 'urn:localhost',
+            message => "Error deserializing message: $@. \n"
+                . "Message was: \n$content"
+        });
+    }
+    return ( $parser->get_data(), $parser->get_header() );
+}
+
+sub generate_fault {
+    my ($self, $args_from_ref) = @_;
+    return SOAP::WSDL::SOAP::Typelib::Fault11->new({
+            faultcode => $args_from_ref->{ code } || 'soap:Client',
+            faultactor => $args_from_ref->{ role } || 'urn:localhost',
+            faultstring => $args_from_ref->{ message } || "Unknown error"
+    });
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+SOAP::WSDL::Deserializer::XSD - Deserializer SOAP messages into SOAP::WSDL::XSD::Typelib:: objects
+
+=head1 DESCRIPTION
+
+Default deserializer for SOAP::WSDL::Client and interface classes generated by
+SOAP::WSDL. Converts SOAP messages to SOAP::WSDL::XSD::Typlib:: based objects.
+
+Needs a class_resolver typemap either passed by the generated interface
+or user-provided.
+
+SOAP::WSDL::Deserializer classes implement the API described in
+L<SOAP::WSDL::Factory::Deserializer>.
+
+=head1 USAGE
+
+Usually you don't need to do anything to use this package - it's the default
+deserializer for SOAP::WSDL::Client and interface classes generated by
+SOAP::WSDL.
+
+Is you want to use the XSD serializer from SOAP::WSDL, set the outputtree()
+property and provide a class_resolver.
+
+=head1 METHODS
+
+=head2 deserialize
+
+Deserializes the message.
+
+=head2 generate_fault
+
+Generates a L<SOAP::WSDL::SOAP::Typelib::Fault11|SOAP::WSDL::SOAP::Typelib::Fault11>
+object and returns it.
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright 2004-2007 Martin Kutter.
+
+This file is part of SOAP-WSDL. You may distribute/modify it under
+the same terms as perl itself.
+
+=head1 AUTHOR
+
+Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
+
+=head1 REPOSITORY INFORMATION
+
+ $Rev: 391 $
+ $LastChangedBy: kutterma $
+ $Id: XSD.pm 391 2007-11-17 21:56:13Z kutterma $
+ $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/XSD.pm $
+
+=cut

lib/SOAP/WSDL/Expat/Base.pm

@@ -0,0 +1,44 @@
+package SOAP::WSDL::Expat::Base;
+use strict;
+use warnings;
+use XML::Parser::Expat;
+
+our $VERSION = '2.00_24';
+
+sub new {
+    my ($class, $args) = @_;
+    my $self = {};
+    bless $self, $class;
+    return $self;
+}
+
+sub parse {
+    eval {
+        $_[0]->_initialize( XML::Parser::Expat->new( Namespaces => 1 )  )->parse( $_[1] );
+        $_[0]->{ parser }->release();
+    };
+    $_[0]->{ parser }->xpcroak( $@ ) if $@;
+    return $_[0]->{ data };
+}
+
+sub parsefile {
+    eval {
+        $_[0]->_initialize( XML::Parser::Expat->new(Namespaces => 1) )->parsefile( $_[1] );
+        $_[0]->{ parser }->release();
+    };
+    $_[0]->{ parser }->xpcroak( $@ ) if $@;
+    return $_[0]->{ data };
+}
+
+# SAX-like aliases
+sub parse_string;
+*parse_string = \&parse;
+
+sub parse_file;
+*parse_file = \&parsefile;
+
+sub get_data {
+    return $_[0]->{ data };
+}
+
+1;

lib/SOAP/WSDL/Expat/Message2Hash.pm

@@ -0,0 +1,129 @@
+#!/usr/bin/perl
+package SOAP::WSDL::Expat::Message2Hash;
+use strict;
+use warnings;
+use base qw(SOAP::WSDL::Expat::Base);
+
+our $VERSION = '2.00_24';
+
+sub _initialize {
+    my ($self, $parser) = @_;
+    $self->{ parser } = $parser;
+    delete $self->{ data };             # remove potential old results
+
+    my $characters;
+    my $current = {};
+    my $list = [];                      # node list
+    my $current_part = q{};             # are we in header or body ?
+    $self->{ data } = $current;
+
+    # use "globals" for speed
+    my ($_element, $_method,
+        $_class, $_parser, %_attrs) = ();
+
+    no strict qw(refs);
+    $parser->setHandlers(
+        Start => sub {
+            push @$list, $current;
+           #If our element exists and is a list ref, add to it
+            if ( exists $current->{ $_[1] }
+              && ( ref ($current->{ $_[1] }) eq 'ARRAY')
+            )  {
+                push @{ $current->{ $_[1] } }, {};
+                $current = $current->{ $_[1] }->[-1];
+            }
+            elsif ( exists $current->{ $_[1] } )
+            {
+                $current->{ $_[1] } = [ $current->{ $_[1] }, {} ];
+                $current = $current->{ $_[1] }->[-1];
+            }
+            else {
+                $current->{ $_[1] } = {};
+                $current = $current->{ $_[1] };
+            }
+            return;
+        },
+
+        Char => sub {
+            $characters .= $_[1] if $_[1] !~m{ \A \s* \z}xms;
+            return;
+        },
+
+        End => sub {
+            $_element = $_[1];
+
+            # This one easily handles ignores for us, too...
+            # return if not ref $$list[-1];
+
+            if (length $characters) {
+                if (ref $list->[-1]->{ $_element } eq 'ARRAY') {
+                    $list->[-1]->{ $_element }->[-1] = $characters ;
+                }
+                else {
+                    $list->[-1]->{ $_element } = $characters;
+                }
+            }
+            $characters = q{};
+            $current = pop @$list;           # step up in object hierarchy...
+            return;
+        }
+    );
+    return $parser;
+}
+
+1;
+
+=pod
+
+=head1 NAME
+
+SOAP::WSDL::Expat::Message2Hash - Convert SOAP messages to perl hash refs
+
+=head1 SYNOPSIS
+
+ my $parser = SOAP::WSDL::Expat::MessageParser->new({
+    class_resolver => 'My::Resolver'
+ });
+ $parser->parse( $xml );
+ my $obj = $parser->get_data();
+
+=head1 DESCRIPTION
+
+Real fast expat based SOAP message parser.
+
+See L<SOAP::WSDL::Manual::Parser> for details.
+
+=head1 Bugs and Limitations
+
+=over
+
+=item * Ignores all namespaces
+
+=item * Ignores all attributes
+
+=item * Does not handle mixed content
+
+=item * The SOAP header is ignored
+
+=back
+
+=head1 AUTHOR
+
+Replace the whitespace by @ for E-Mail Address.
+
+ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
+
+=head1 COPYING
+
+This module may be used under the same terms as perl itself.
+
+=head1 Repository information
+
+ $ID: $
+
+ $LastChangedDate: 2007-09-10 18:19:23 +0200 (Mo, 10 Sep 2007) $
+ $LastChangedRevision: 218 $
+ $LastChangedBy: kutterma $
+
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageParser.pm $
+

lib/SOAP/WSDL/Expat/MessageParser.pm

@@ -0,0 +1,241 @@
+#!/usr/bin/perl
+package SOAP::WSDL::Expat::MessageParser;
+use strict;
+use warnings;
+use SOAP::WSDL::XSD::Typelib::Builtin;
+use base qw(SOAP::WSDL::Expat::Base);
+
+our $VERSION = '2.00_24';
+
+sub new {
+    my ($class, $args) = @_;
+    my $self = {
+        class_resolver => $args->{ class_resolver },
+        strict => exists $args->{ strict } ? $args->{ strict } : 1,
+    };
+    bless $self, $class;
+    return $self;
+}
+
+sub class_resolver {
+    my $self = shift;
+    $self->{ class_resolver } = shift if @_;
+    return $self->{ class_resolver };
+}
+
+sub _initialize {
+    my ($self, $parser) = @_;
+    $self->{ parser } = $parser;
+
+    delete $self->{ data };                     # remove potential old results
+    delete $self->{ header };
+
+    my $characters;
+    #my @characters_from = ();
+    my $current = undef;
+    my $list = [];                      # node list
+    my $path = [];                      # current path
+    my $skip = 0;                       # skip elements
+    my $current_part = q{};             # are we in header or body ?
+
+    my $depth = 0;
+
+    my %content_check = $self->{strict}
+        ? (
+            0 => sub {
+                    die "Bad top node $_[1]" if $_[1] ne 'Envelope';
+                    die "Bad namespace for SOAP envelope: " . $_[0]->recognized_string()
+                        if $_[0]->namespace($_[1]) ne 'http://schemas.xmlsoap.org/soap/envelope/';
+                    $depth++;
+                    return;
+            },
+            1 => sub {
+                    $depth++;
+                    if ($_[1] eq 'Body') {
+                        if (exists $self->{ data }) { # there was header data
+                            $self->{ header } = $self->{ data };
+                            delete $self->{ data };
+                            $list = [];
+                            $path = [];
+                            undef $current;
+                        }
+                    }
+                    return;
+            }
+        )
+        : ();
+
+    my $char_handler = sub {
+            # push @characters_from, $_[1] if $_[1] =~m{ [^s] }xms;
+            $characters .= $_[1] if $_[1] =~m{ [^\s] }xms;
+
+            return;
+    };
+
+    # use "globals" for speed
+    my ($_prefix, $_method,
+        $_class) = ();
+
+    no strict qw(refs);
+    $parser->setHandlers(
+        Start => sub {
+            # my ($parser, $element, %_attrs) = @_;
+            # $depth = $parser->depth();
+
+            # call methods without using their parameter stack
+            # That's slightly faster than $content_check{ $depth }->()
+            # and we don't have to pass $_[1] to the method.
+            # Yup, that's dirty.
+            return &{$content_check{ $depth }} if exists $content_check{ $depth };
+
+            push @{ $path }, $_[1];       # step down in path
+            return if $skip;               # skip inside __SKIP__
+
+            # resolve class of this element
+            $_class = $self->{ class_resolver }->get_class( $path )
+                or die "Cannot resolve class for "
+                    . join('/', @{ $path }) . " via " . $self->{ class_resolver };
+
+            if ($_class eq '__SKIP__') {
+                $skip = join('/', @{ $path });
+                $_[0]->setHandlers( Char => undef );
+                return;
+            }
+
+            push @$list, $current;   # step down in tree (remember current)
+
+            $characters = q();      # empty characters
+
+            # Check whether we have a builtin - we implement them as classes
+            # We could replace this with UNIVERSAL->isa() - but it's slow...
+            # match is a bit faster if the string does not match, but WAY slower
+            # if $class matches. We hope to match often...
+            if (index $_class, 'SOAP::WSDL::XSD::Typelib::Builtin', 0 < 0) {
+                # check wheter there is a non-empty ARRAY reference for $_class::ISA
+                # or a "new" method
+                # If not, require it - all classes required here MUST
+                # define new()
+                # This is not exactly the same as $class->can('new'), but it's way faster
+                defined *{ "$_class\::new" }{ CODE }
+                  or scalar @{ *{ "$_class\::ISA" }{ ARRAY } }
+                    or eval "require $_class"   ## no critic qw(ProhibitStringyEval)
+                      or die $@;
+            }
+
+            $current = $_class->new({ @_[2..$#_] });   # set new current object
+
+            # remember top level element
+            exists $self->{ data }
+                or ($self->{ data } = $current);
+            $depth++;
+            return;
+        },
+
+        Char => $char_handler,
+
+        End => sub {
+            pop @{ $path };                     # step up in path
+
+            if ($skip) {
+                return if $skip ne join '/', @{ $path }, $_[1];
+                $skip = 0;
+                $_[0]->setHandlers( Char => $char_handler );
+                return;
+            }
+
+            $depth--;
+
+            # This one easily handles ignores for us, too...
+            return if not ref $list->[-1];
+
+            # set characters in current if we are a simple type
+            # we may have characters in complexTypes with simpleContent,
+            # too - maybe we should rely on the presence of characters ?
+            # may get a speedup by defining a ident method in anySimpleType
+            # and looking it up via exists &$class::ident;
+#            if ( $current->isa('SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType') ) {
+#                $current->set_value( $characters );
+#            }
+            # currently doesn't work, as anyType does not implement value -
+            # maybe change ?
+            $current->set_value( $characters ) if (length $characters);
+            #$current->set_value( join @characters_from ) if (@characters_from);
+            $characters = q{};
+#            undef @characters_from;
+            # set appropriate attribute in last element
+            # multiple values must be implemented in base class
+            #$_method = "add_$_localname";
+            $_method = "add_$_[1]";
+            $list->[-1]->$_method( $current );
+
+            $current = pop @$list;           # step up in object hierarchy...
+            return;
+        }
+    );
+    return $parser;
+}
+
+sub get_header {
+    return $_[0]->{ header };
+}
+
+1;
+
+=pod
+
+=head1 NAME
+
+SOAP::WSDL::Expat::MessageParser - Convert SOAP messages to custom object trees
+
+=head1 SYNOPSIS
+
+ my $parser = SOAP::WSDL::Expat::MessageParser->new({
+    class_resolver => 'My::Resolver'
+ });
+ $parser->parse( $xml );
+ my $obj = $parser->get_data();
+
+=head1 DESCRIPTION
+
+Real fast expat based SOAP message parser.
+
+See L<SOAP::WSDL::Manual::Parser> for details.
+
+=head2 Skipping unwanted items
+
+Sometimes there's unneccessary information transported in SOAP messages.
+
+To skip XML nodes (including all child nodes), just edit the type map for
+the message and set the type map entry to '__SKIP__'.
+
+=head1 Bugs and Limitations
+
+=over
+
+=item * Ignores all namespaces
+
+=item * Does not handle mixed content
+
+=item * The SOAP header is ignored
+
+=back
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright 2004-2007 Martin Kutter.
+
+This file is part of SOAP-WSDL. You may distribute/modify it under
+the same terms as perl itself.
+
+=head1 AUTHOR
+
+Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
+
+=head1 REPOSITORY INFORMATION
+
+ $Rev: 391 $
+ $LastChangedBy: kutterma $
+ $Id: MessageParser.pm 391 2007-11-17 21:56:13Z kutterma $
+ $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageParser.pm $
+
+=cut

lib/SOAP/WSDL/Expat/MessageStreamParser.pm

@@ -0,0 +1,77 @@
+#!/usr/bin/perl
+package SOAP::WSDL::Expat::MessageStreamParser;
+use strict;
+use warnings;
+use XML::Parser::Expat;
+use SOAP::WSDL::Expat::MessageParser;
+use base qw(SOAP::WSDL::Expat::MessageParser);
+
+our $VERSION = '2.00_24';
+
+sub parse_start {
+    my $self = shift;
+    $self->{ parser } = $_[0]->_initialize( XML::Parser::ExpatNB->new( Namespaces => 1 ) );
+}
+sub init;
+*init = \&parse_start;
+
+sub parse_more {
+    $_[0]->{ parser }->parse_more( $_[1] );
+}
+
+sub parse_done {
+    $_[0]->{ parser }->parse_done();
+    $_[0]->{ parser }->release();
+}
+
+1;
+
+=pod
+
+=head1 NAME
+
+SOAP::WSDL::Expat::MessageStreamParser - Convert SOAP messages to custom object trees
+
+=head1 SYNOPSIS
+
+ my $lwp = LWP::UserAgent->new();
+
+ my $parser = SOAP::WSDL::Expat::MessageParser->new({
+    class_resolver => 'My::Resolver'
+ });
+ my $chunk_parser = $parser->init();
+ # process response while it comes in, trying to read 32k chunks.
+ $lwp->request( $request, sub { $chunk_parser->parse_more($_[0]) } , 32468 );
+ $chunk_parser->parse_done();
+ 
+ my $obj = $parser->get_data();
+
+=head1 DESCRIPTION
+
+ExpatNB based parser for parsing huge documents.
+
+See L<SOAP::WSDL::Manual::Parser> for details.
+
+=head1 Bugs and Limitations
+
+See SOAP::WSDL::Expat::MessageParser
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright 2007 Martin Kutter. All rights reserved.
+
+This file is part of SOAP-WSDL. You may distribte/modify it under
+the same terms as perl itself
+
+=head1 AUTHOR
+
+Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
+
+=head1 REPOSITORY INFORMATION
+
+ $Rev: 391 $
+ $LastChangedBy: kutterma $
+ $Id: MessageStreamParser.pm 391 2007-11-17 21:56:13Z kutterma $
+ $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageStreamParser.pm $
+ 
+=cut

lib/SOAP/WSDL/Expat/WSDLParser.pm

@@ -0,0 +1,143 @@
+package SOAP::WSDL::Expat::WSDLParser;
+use strict;
+use warnings;
+use Carp;
+use SOAP::WSDL::TypeLookup;
+use base qw(SOAP::WSDL::Expat::Base);
+
+sub _initialize {
+    my ($self, $parser) = @_;
+
+    # init object data
+    $self->{ parser } = $parser;
+    delete $self->{ data };
+
+    # setup local variables for keeping temp data
+    my $characters = undef;
+    my $current = undef;
+    my $list = [];        # node list
+
+    # TODO skip non-XML Schema namespace tags
+    $parser->setHandlers(
+        Start => sub {
+            my ($parser, $localname, %attrs) = @_;
+            $characters = q{};
+
+            my $action = SOAP::WSDL::TypeLookup->lookup(
+                $parser->namespace($localname),
+                $localname
+            );
+
+            return if not $action;
+
+            if ($action->{ type } eq 'CLASS') {
+                eval "require $action->{ class }";
+                croak $@ if ($@);
+
+                my $obj = $action->{ class }->new({ parent => $current })
+                  ->init( _fixup_attrs( $parser, %attrs ) );
+
+                if ($current) {
+                    # inherit namespace, but don't override
+                    $obj->set_targetNamespace( $current->get_targetNamespace() )
+                        if not $obj->get_targetNamespace();
+
+                    # push on parent's element/type list
+                    my $method = "push_$localname";
+
+                    no strict qw(refs);
+                    $current->$method( $obj );
+
+                    # remember element for stepping back
+                    push @{ $list }, $current;
+                }
+                else {
+                    $self->{ data } = $obj;
+                }
+                # set new element (step down)
+                $current = $obj;
+            }
+            elsif ($action->{ type } eq 'PARENT') {
+                $current->init( _fixup_attrs($parser, %attrs) );
+            }
+            elsif ($action->{ type } eq 'METHOD') {
+                my $method = $action->{ method } || $localname;
+
+                no strict qw(refs);
+                # call method with
+                # - default value ($action->{ value } if defined,
+                #   dereferencing lists
+                # - the values of the elements Attributes hash
+                # TODO: add namespaces declared to attributes.
+                # Expat consumes them, so we have to re-add them here.
+                $current->$method( defined $action->{ value }
+                    ? ref $action->{ value }
+                        ? @{ $action->{ value } }
+                        : ($action->{ value })
+                    : _fixup_attrs($parser, %attrs)
+                );
+            }
+
+            return;
+        },
+
+        Char => sub { $characters .= $_[1]; return;  },
+
+        End => sub {
+            my ($parser, $localname) = @_;
+
+            my $action = SOAP::WSDL::TypeLookup->lookup(
+                $parser->namespace( $localname ),
+                $localname
+            ) || {};
+
+            return if not ($action->{ type });
+            if ( $action->{ type } eq 'CLASS' ) {
+               $current = pop @{ $list };
+            }
+            elsif ($action->{ type } eq 'CONTENT' ) {
+                my $method = $action->{ method };
+
+                # normalize whitespace
+                $characters =~s{ ^ \s+ (.+) \s+ $ }{$1}xms;
+                $characters =~s{ \s+ }{ }xmsg;
+
+                no strict qw(refs);
+                $current->$method( $characters );
+            }
+            return;
+        }
+    );
+    return $parser;
+}
+
+# make attrs SAX style
+sub _fixup_attrs {
+    my ($parser, %attrs_of) = @_;
+
+    my @attrs_from = map { $_ =
+        {
+            Name => $_,
+            Value => $attrs_of{ $_ },
+            LocalName => $_
+        }
+    } keys %attrs_of;
+
+    # add xmlns: attrs. expat eats them.
+    push @attrs_from, map {
+        # ignore xmlns=FOO namespaces - must be XML schema
+        # Other nodes should be ignored somewhere else
+        ($_ eq '#default')
+        ? ()
+        :
+        {
+            Name => "xmlns:$_",
+            Value => $parser->expand_ns_prefix( $_ ),
+            LocalName => $_
+        }
+    } $parser->new_ns_prefixes();
+    return @attrs_from;
+}
+
+1;
+

lib/SOAP/WSDL/Factory/Deserializer.pm

@@ -0,0 +1,154 @@
+package SOAP::WSDL::Factory::Deserializer;
+use strict;
+use warnings;
+
+our $VERSION = '2.00_24';
+
+my %DESERIALIZER = (
+    '1.1' => 'SOAP::WSDL::Deserializer::XSD',
+);
+
+# class method
+sub register {
+    my ($class, $ref_type, $package) = @_;
+    $DESERIALIZER{ $ref_type } = $package;
+}
+
+sub get_deserializer {
+    my ($self, $args_of_ref) = @_;
+
+    # sanity check
+    die "no deserializer registered for SOAP version $args_of_ref->{ soap_version }"
+        if not exists ($DESERIALIZER{ $args_of_ref->{ soap_version } });
+
+    # load module
+    eval "require $DESERIALIZER{ $args_of_ref->{ soap_version } }"
+        or die "Cannot load serializer $DESERIALIZER{ $args_of_ref->{ soap_version } }", $@;
+
+    return $DESERIALIZER{ $args_of_ref->{ soap_version } }->new($args_of_ref);
+}
+
+1;
+
+=pod
+
+=head1 NAME
+
+SOAP::WSDL::Factory::Deserializer - Factory for retrieving Deserializer objects
+
+=head1 SYNOPSIS
+
+ # from SOAP::WSDL::Client:
+ $deserializer = SOAP::WSDL::Factory::Deserializer->get_deserializer({
+     soap_version => $soap_version,
+     class_resolver => $class_resolver,
+ });
+
+ # in deserializer class:
+ package MyWickedDeserializer;
+ use SOAP::WSDL::Factory::Deserializer;
+ 
+ # register class as deserializer for SOAP1.2 messages
+ SOAP::WSDL::Factory::Deserializer->register( '1.2' , __PACKAGE__ );
+ 
+=head1 DESCRIPTION
+
+SOAP::WSDL::Factory::Deserializer serves as factory for retrieving
+deserializer objects for SOAP::WSDL.
+
+The actual work is done by specific deserializer classes.
+
+SOAP::WSDL::Deserializer tries to load one of the following classes:
+
+=over
+
+=item * The class registered for the scheme via register()
+
+=back
+
+By default, L<SOAP::WSDL::Deserializer::XSD|SOAP::WSDL::Deserializer::XSD>
+is registered for SOAP1.1 messages.
+
+=head1 METHODS
+
+=head2 register
+
+ SOAP::WSDL::Deserializer->register('1.1', 'MyWickedDeserializer');
+
+Globally registers a class for use as deserializer class.
+
+=head2 get_deserializer
+
+Returns an object of the deserializer class for this endpoint.
+
+=head1 WRITING YOUR OWN DESERIALIZER CLASS
+
+Deserializer classes may register with SOAP::WSDL::Factory::Deserializer.
+
+=head2 Registering a deserializer
+
+Registering a deserializer class with SOAP::WSDL::Factory::Deserializer
+is done by executing the following code where $version is the SOAP version
+the class should be used for, and $class is the class name.
+
+ SOAP::WSDL::Factory::Deserializer->register( $version, $class);
+
+To auto-register your transport class on loading, execute register()
+in your tranport class (see L<SYNOPSIS|SYNOPSIS> above).
+
+=head2 Deserializer package layout
+
+Deserializer modules must be named equal to the deserializer class they
+contain. There can only be one deserializer class per deserializer module.
+
+=head2 Methods to implement
+
+Deserializer classes must implement the following methods:
+
+=over
+
+=item * new
+
+Constructor.
+
+=item * deserialize
+
+Deserialize data from XML to arbitrary formats.
+
+deserialize() must return a fault indicating that deserializing failed if
+any error is encountered during the process of deserializing the XML message.
+
+The following positional parameters are passed to the deserialize method:
+
+ $content   - the xml message
+
+=item * generate_fault
+
+Generate a fault in the supported format. The following named parameters are
+passed as a single hash ref:
+
+ code       - The fault code, e.g. 'soap:Server' or the like
+ role       - The fault role (actor in SOAP1.1)
+ message    - The fault message (faultstring in SOAP1.1)
+
+=back
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright 2007 Martin Kutter. All rights reserved.
+
+This file is part of SOAP-WSDL. You may distribte/modify it under
+the same terms as perl itself
+
+=head1 AUTHOR
+
+Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
+
+=head1 REPOSITORY INFORMATION
+
+ $Rev: 176 $
+ $LastChangedBy: kutterma $
+ $Id: Serializer.pm 176 2007-08-31 15:28:29Z kutterma $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Serializer.pm $
+ 
+=cut

lib/SOAP/WSDL/Factory/Generator.pm

@@ -0,0 +1,172 @@
+package SOAP::WSDL::Factory::Generator;
+use strict;
+use warnings;
+
+our $VERSION='2.00_24';
+
+my %GENERATOR = (
+    'XSD' => 'SOAP::WSDL::Generator::Template::XSD',
+);
+
+# class method
+sub register {
+    my ($class, $ref_type, $package) = @_;
+    $GENERATOR{ $ref_type } = $package;
+}
+
+sub get_generator {
+    my ($self, $args_of_ref) = @_;
+
+    # sanity check
+#    die "no generator registered for generation method $args_of_ref->{ type }"
+#
+    my $generator_class = (exists ($GENERATOR{ $args_of_ref->{ type } }))
+        ? $GENERATOR{ $args_of_ref->{ type } }
+        : $args_of_ref->{ type };
+
+    # load module
+    eval "require $generator_class"
+        or die "Cannot load generator $generator_class", $@;
+
+    return $generator_class->new();
+}
+
+1;
+
+=pod
+
+=head1 NAME
+
+SOAP::WSDL::Factory:Generator - Factory for retrieving generator objects
+
+=head1 SYNOPSIS
+
+ # from SOAP::WSDL::Client:
+ $generator = SOAP::WSDL::Factory::Generator->get_generator({
+     soap_version => $soap_version,
+ });
+
+ # in generator class:
+ package MyWickedGenerator;
+ use SOAP::WSDL::Factory::Generator;
+ 
+ # register as generator for SOAP1.2 messages
+ SOAP::WSDL::Factory::Generator->register( '1.2' , __PACKAGE__ );
+ 
+=head1 DESCRIPTION
+
+SOAP::WSDL::Factory::Generator serves as factory for retrieving
+generator objects for SOAP::WSDL.
+
+The actual work is done by specific generator classes.
+
+SOAP::WSDL::Generator tries to load one of the following classes:
+
+=over
+
+=item * the class registered for the scheme via register()
+
+=back
+
+=head1 METHODS
+
+=head2 register
+
+ SOAP::WSDL::Generator->register('Lite', 'MyWickedGenerator');
+
+Globally registers a class for use as generator class.
+
+=head2 get_generator
+
+Returns an object of the generator class for this endpoint.
+
+=head1 WRITING YOUR OWN GENERATOR CLASS
+
+=head2 Registering a generator
+
+Generator classes may register with SOAP::WSDL::Factory::Generator.
+
+Registering a generator class with SOAP::WSDL::Factory::Generator is done
+by executing the following code where $version is the SOAP version the
+class should be used for, and $class is the class name.
+
+ SOAP::WSDL::Factory::Generator->register( $version, $class);
+
+To auto-register your transport class on loading, execute register() in
+your generator class (see L<SYNOPSIS|SYNOPSIS> above).
+
+=head2 Generator package layout
+
+Generator modules must be named equal to the generator class they contain.
+There can only be one generator class per generator module.
+
+=head2 Methods to implement
+
+Generator classes must implement the following methods:
+
+=over
+
+=item * new
+
+Constructor.
+
+=item * generate
+
+Generate SOAP interface
+
+=back
+
+Generators may implements one or more of the following configuration
+methods. All of them are tried via can() by wsdl2perl.
+
+=over
+
+=item * set_wsdl
+
+Set the raw WSDL XML. Implement if you have your own WSDL parser.
+
+=item * set_definitions
+
+Sets the (parsed) SOAP::WSDL::Definitions object.
+
+=item * set_type_prefix
+
+Sets the prefix for XML Schema type classes
+
+=item * set_element_prefix
+
+Sets the prefix for XML Schema element classes
+
+=item * set_typemap_prefix
+
+Sets the prefix for typemap classes (class resolvers).
+
+=item * set_interface_prefix
+
+Sets the prefix for interface classes
+
+=item * set_typemap
+
+Set user-defined typemap snippet
+
+=back
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright 2007 Martin Kutter. All rights reserved.
+
+This file is part of SOAP-WSDL. You may distribte/modify it under
+the same terms as perl itself
+
+=head1 AUTHOR
+
+Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
+
+=head1 REPOSITORY INFORMATION
+
+ $Rev: 176 $
+ $LastChangedBy: kutterma $
+ $Id: Serializer.pm 176 2007-08-31 15:28:29Z kutterma $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Serializer.pm $
+ 
+=cut

lib/SOAP/WSDL/Factory/Serializer.pm

@@ -0,0 +1,146 @@
+package SOAP::WSDL::Factory::Serializer;
+use strict;
+use warnings;
+
+our $VERSION='2.00_24';
+
+my %SERIALIZER = (
+    '1.1' => 'SOAP::WSDL::Serializer::XSD',
+);
+
+# class method
+sub register {
+    my ($class, $ref_type, $package) = @_;
+    $SERIALIZER{ $ref_type } = $package;
+}
+
+sub get_serializer {
+    my ($self, $args_of_ref) = @_;
+
+    # sanity check
+    die "no serializer registered for SOAP version $args_of_ref->{ soap_version }"
+        if not exists ($SERIALIZER{ $args_of_ref->{ soap_version } });
+
+    # load module
+    eval "require $SERIALIZER{ $args_of_ref->{ soap_version } }"
+        or die "Cannot load serializer $SERIALIZER{ $args_of_ref->{ soap_version } }", $@;
+
+    return $SERIALIZER{ $args_of_ref->{ soap_version } }->new();
+}
+
+1;
+
+=pod
+
+=head1 NAME
+
+SOAP::WSDL::Factory::Serializer - Factory for retrieving serializer objects
+
+=head1 SYNOPSIS
+
+ # from SOAP::WSDL::Client:
+ $serializer = SOAP::WSDL::Factory::Serializer->get_serializer({
+     soap_version => $soap_version,
+ });
+
+ # in serializer class:
+ package MyWickedSerializer;
+ use SOAP::WSDL::Factory::Serializer;
+ 
+ # register as serializer for SOAP1.2 messages
+ SOAP::WSDL::Factory::Serializer->register( '1.2' , __PACKAGE__ );
+ 
+=head1 DESCRIPTION
+
+SOAP::WSDL::Factory::Serializer serves as factory for retrieving
+serializer objects for SOAP::WSDL.
+
+The actual work is done by specific serializer classes.
+
+SOAP::WSDL::Serializer tries to load one of the following classes:
+
+=over
+
+=item * the class registered for the scheme via register()
+
+=back
+
+=head1 METHODS
+
+=head2 register
+
+ SOAP::WSDL::Serializer->register('1.1', 'MyWickedSerializer');
+
+Globally registers a class for use as serializer class.
+
+=head2 get_serializer
+
+Returns an object of the serializer class for this endpoint.
+
+=head1 WRITING YOUR OWN SERIALIZER CLASS
+
+=head2 Registering a deserializer
+
+Serializer classes may register with SOAP::WSDL::Factory::Serializer.
+
+Serializer objects may also be passed directly to SOAP::WSDL::Client by
+using the set_serializer method. Note that serializers objects set via
+SOAP::WSDL::Client's set_serializer method are discarded when the SOAP
+version is changed via set_soap_version.
+
+Registering a serializer class with SOAP::WSDL::Factory::Serializer is done
+by executing the following code where $version is the SOAP version the
+class should be used for, and $class is the class name.
+
+ SOAP::WSDL::Factory::Serializer->register( $version, $class);
+
+To auto-register your transport class on loading, execute register() in
+your tranport class (see L</SYNOPSIS> above).
+
+=head2 Serializer package layout
+
+Serializer modules must be named equal to the serializer class they contain.
+There can only be one serializer class per serializer module.
+
+=head2 Methods to implement
+
+Serializer classes must implement the following methods:
+
+=over
+
+=item * new
+
+Constructor.
+
+=item * serialize
+
+Serializes data to XML. The following named parameters are passed to the
+serialize method in a anonymous hash ref:
+
+ {
+   method => $operation_name,
+   header => $header_data,
+   body => $body_data,
+ }
+
+=back
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright 2004-2007 Martin Kutter. All rights reserved.
+
+This file is part of SOAP-WSDL. You may distribute/modify it under
+the same terms as perl itself.
+
+=head1 AUTHOR
+
+Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
+
+=head1 REPOSITORY INFORMATION
+
+ $Rev: 391 $
+ $LastChangedBy: kutterma $
+ $Id: Serializer.pm 391 2007-11-17 21:56:13Z kutterma $
+ $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Serializer.pm $
+ 
+=cut

lib/SOAP/WSDL/Factory/Transport.pm

@@ -0,0 +1,244 @@
+package SOAP::WSDL::Factory::Transport;
+use strict;
+use warnings;
+
+our $VERSION='2.00_17';
+
+# class data
+my %registered_transport_of = ();
+
+# Local constants
+# Could be made readonly, but that's just for the paranoid...
+my %SOAP_LITE_TRANSPORT_OF = (
+    ftp => 'SOAP::Transport::FTP',
+    http => 'SOAP::Transport::HTTP',
+    https => 'SOAP::Transport::HTTPS',
+    mailto => 'SOAP::Transport::MAILTO',
+    'local' => 'SOAP::Transport::LOCAL',
+    jabber => 'SOAP::Transport::JABBER',
+    mq => 'SOAP::Transport::MQ',
+);
+
+my %SOAP_WSDL_TRANSPORT_OF = (
+    http => 'SOAP::WSDL::Transport::HTTP',
+    https => 'SOAP::WSDL::Transport::HTTP',
+);
+
+# class methods only
+sub register {
+    my ($class, $scheme, $package) = @_;
+    die "cannot use reference as scheme" if ref $scheme;
+    $registered_transport_of{ $scheme } = $package;
+}
+
+sub get_transport {
+    my ($class, $scheme, %attrs) = @_;
+
+    $scheme =~s{ \A ([^\:]+) \: .+ }{$1}smx;
+
+    if ($registered_transport_of{ $scheme }) {
+        eval "require $registered_transport_of{ $scheme }"
+            or die "Cannot load transport class $registered_transport_of{ $scheme } : $@";
+
+        # try "foo::Client" class first - SOAP::Tranport always requires
+        # a package withoug the ::Client appended, and then
+        # instantiates a ::Client object...
+        # ... pretty weird ...
+        # ... must be from some time when the max number of files was a
+        # sparse resource ...
+        # ... but we've decided to mimic SOAP::Lite...
+
+#        my $protocol_class = $SOAP_LITE_TRANSPORT_OF{ $scheme } . '::Client';
+#        my $transport;
+#        eval {
+#            $transport = $protocol_class->new( %attrs );
+#        };
+#        return $transport if not $@;
+        return $registered_transport_of{ $scheme }->new( %attrs );
+    }
+
+    # try SOAP::Lite's Transport module - just skip if not require'able
+    SOAP_Lite: {
+      if (exists $SOAP_LITE_TRANSPORT_OF{ $scheme }) {
+          eval "require $SOAP_LITE_TRANSPORT_OF{ $scheme }"
+            or last SOAP_Lite;
+          my $protocol_class = $SOAP_LITE_TRANSPORT_OF{ $scheme } . '::Client';
+          return $protocol_class->new( %attrs );
+      }
+    }
+
+    if (exists $SOAP_WSDL_TRANSPORT_OF{ $scheme }) {
+        eval "require $SOAP_WSDL_TRANSPORT_OF{ $scheme }"
+            or die "Cannot load transport class $SOAP_WSDL_TRANSPORT_OF{ $scheme } : $@";
+        return $SOAP_WSDL_TRANSPORT_OF{ $scheme }->new( %attrs );
+    }
+
+    die "no transport class found for scheme <$scheme>";
+}
+
+1;
+
+=pod
+
+=head1 NAME
+
+SOAP::WSDL::Factory::Transport - Factory for retrieving transport objects
+
+=head1 SYNOPSIS
+
+ # from SOAP::WSDL::Client:
+ $transport = SOAP::WSDL::Factory::Transport->get_transport( $url, @opt );
+
+ # in transport class:
+ package MyWickedTransport;
+ use SOAP::WSDL::Factory::Transport;
+ 
+ # register class as transport module for httpr and https
+ # (httpr is "reliable http", a protocol developed by IBM).
+ SOAP::WSDL::Factory::Transport->register( 'httpr' , __PACKAGE__ );
+ SOAP::WSDL::Factory::Transport->register( 'https' , __PACKAGE__ );
+ 
+=head1 DESCRIPTION
+
+SOAP::WSDL::Transport serves as factory for retrieving transport objects for
+SOAP::WSDL.
+
+The actual work is done by specific transport classes.
+
+SOAP::WSDL::Transport tries to load one of the following classes:
+
+=over
+
+=item * the class registered for the scheme via register()
+
+=item * the SOAP::Lite class matching the scheme
+
+=item * the SOAP::WSDL class matching the scheme
+
+=back
+
+=head1 METHODS
+
+=head2 register
+
+ SOAP::WSDL::Transport->register('https', 'MyWickedTransport');
+
+Globally registers a class for use as transport class.
+
+=head2 proxy
+
+ $trans->proxy('http://soap-wsdl.sourceforge.net');
+
+Sets the proxy (endpoint).
+
+Returns the transport for this protocol.
+
+=head2 set_transport
+
+Sets the current transport object.
+
+=head2 get_transport
+
+Gets the current transport object.
+
+=head1 WRITING YOUR OWN TRANSPORT CLASS
+
+=head2 Registering a transport class
+
+Transport classes must be registered with SOAP::WSDL::Factory::Transport.
+
+This is done by executing the following code where $scheme is the URL scheme
+the class should be used for, and $module is the class' module name.
+
+ SOAP::WSDL::Factory::Transport->register( $scheme, $module);
+
+To auto-register your transport class on loading, execute register() in your
+tranport class (see L<SYNOPSIS|SYNOPSIS> above).
+
+Multiple protocols ore multiple classes are registered by multiple calls to
+register().
+
+=head2 Transport plugin package layout
+
+You may only use transport classes whose name is either
+the module name or the module name with '::Client' appended.
+
+=head2 Methods to implement
+
+Transport classes must implement the interface required for SOAP::Lite
+transport classes (see L<SOAP::Lite::Transport> for details,
+L<SOAP::WSDL::Transport::HTTP|SOAP::WSDL::Transport::HTTP> for an example).
+
+To provide this interface, transport modules must implement the following
+methods:
+
+=over
+
+=item * new
+
+=item * send_receive
+
+Dispatches a request and returns the content of the response.
+
+=item * code
+
+Returns the status code of the last send_receive call (if any).
+
+=item * message
+
+Returns the status message of the last send_receive call (if any).
+
+=item * status
+
+Returns the status of the last send_receive call (if any).
+
+=item * is_success
+
+Returns true after a send_receive was successful, false if it was not.
+
+=back
+
+SOAP::Lite requires transport modules to pack client and server
+classes in one file, and to follow this naming scheme:
+
+ Module name:
+   "SOAP::Transport::" . uc($scheme)
+ 
+ Client class (additional package in module):
+   "SOAP::Transport::" . uc($scheme) . "::Client"
+ 
+ Server class (additional package in module):
+   "SOAP::Transport::" . uc($scheme) . "::Client"
+
+SOAP::WSDL does not require you to follow these restrictions.
+
+There is only one restriction in SOAP::WSDL:
+
+You may only use transport classes whose name is either the module name or
+the module name with '::Client' appended.
+
+SOAP::WSDL will try to instantiate an object of your transport class with
+'::Client' appended to allow using transport classes written for SOAP::Lite.
+
+This may lead to errors when a different module with the name of your
+transport module suffixed with ::Client is also loaded.
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright 2004-2007 Martin Kutter. All rights reserved.
+
+This file is part of SOAP-WSDL. You may distribute/modify it under
+the same terms as perl itself
+
+=head1 AUTHOR
+
+Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
+
+=head1 REPOSITORY INFORMATION
+
+ $Rev: 391 $
+ $LastChangedBy: kutterma $
+ $Id: Transport.pm 391 2007-11-17 21:56:13Z kutterma $
+ $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Transport.pm $
+ 
+=cut

lib/SOAP/WSDL/Generator/Template.pm

@@ -0,0 +1,48 @@
+package SOAP::WSDL::Generator::Template;
+use strict;
+use Template;
+use Class::Std::Storable;
+
+our $VERSION='2.00_17';
+
+my %tt_of               :ATTR(:get<tt>);
+my %definitions_of      :ATTR(:name<definitions>    :default<()>);
+my %interface_prefix_of :ATTR(:name<interface_prefix> :default<MyInterfaces>);
+my %typemap_prefix_of   :ATTR(:name<typemap_prefix> :default<MyTypemaps>);
+my %type_prefix_of      :ATTR(:name<type_prefix>    :default<MyTypes>);
+my %element_prefix_of   :ATTR(:name<element_prefix> :default<MyElements>);
+my %INCLUDE_PATH_of     :ATTR(:name<INCLUDE_PATH>   :default<()>);
+my %EVAL_PERL_of        :ATTR(:name<EVAL_PERL>      :default<0>);
+my %RECURSION_of        :ATTR(:name<RECURSION>      :default<0>);
+my %OUTPUT_PATH_of      :ATTR(:name<OUTPUT_PATH>    :default<.>);
+
+sub START {
+    my ($self, $ident, $arg_ref) = @_;
+}
+
+sub _process :PROTECTED {
+    my ($self, $template, $arg_ref, $output) = @_;
+    my $ident = ident $self;
+    my $tt = $tt_of{$ident} ||= Template->new(
+        DEBUG => 1,
+        EVAL_PERL => $EVAL_PERL_of{ $ident },
+        RECURSION => $RECURSION_of{ $ident },
+        INCLUDE_PATH => $INCLUDE_PATH_of{ $ident },
+        OUTPUT_PATH => $OUTPUT_PATH_of{ $ident },
+    );
+    $tt->process( $template,
+    {
+        definitions => $self->get_definitions,
+        interface_prefix => $self->get_interface_prefix,
+        type_prefix => $self->get_type_prefix,
+        typemap_prefix => $self->get_typemap_prefix,
+        TYPE_PREFIX => $self->get_type_prefix,
+        element_prefix => $self->get_element_prefix,
+        NO_POD => delete $arg_ref->{ NO_POD } ? 1 : 0 ,
+        %{ $arg_ref }
+    },
+    $output)
+        or die $INCLUDE_PATH_of{ $ident }, '\\', $template, ' ', $tt->error();
+}
+
+1;

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

@@ -0,0 +1,162 @@
+package SOAP::WSDL::Generator::Template::XSD;
+use strict;
+use Template;
+use Class::Std::Storable;
+use File::Basename;
+use File::Spec;
+
+use SOAP::WSDL::Generator::Visitor::Typemap;
+use SOAP::WSDL::Generator::Visitor::Typelib;
+use base qw(SOAP::WSDL::Generator::Template);
+
+my %output_of  :ATTR(:name<output> :default<()>);
+my %typemap_of :ATTR(:name<typemap> :default<({})>);
+
+sub BUILD {
+    my ($self, $ident, $arg_ref) = @_;
+    $self->set_EVAL_PERL(1);
+    $self->set_RECURSION(1);
+    $self->set_INCLUDE_PATH( exists $arg_ref->{INCLUDE_PATH}
+        ? $arg_ref->{INCLUDE_PATH}
+        : do {
+            # ignore uninitialized warnings - File::Spec warns about
+            # uninitialized values, probably because we have no filename
+            local $SIG{__WARN__} = sub {
+                return if ($_[0]=~m{\buninitialized\b});
+                CORE::warn @_;
+            };
+
+            # makeup path for the OS we're running on
+            my ($volume, $dir, $file) = File::Spec->splitpath(
+                File::Spec->rel2abs( dirname __FILE__  )
+            );
+            $dir = File::Spec->catdir($dir, $file, 'XSD');
+            # return path put together...
+            my $path = File::Spec->catpath( $volume, $dir );
+
+            # Fixup path for windows - / works fine, \ does
+            # not...
+            if ( eval { &Win32::BuildNumber } ) {
+                $path =~s{\\}{/}g;
+            }
+            $path;
+        }
+    );
+}
+
+sub generate {
+    my $self = shift;
+    my $opt = shift;
+    $self->generate_typelib( $opt );
+    $self->generate_interface( $opt );
+    $self->generate_typemap( $opt );
+}
+
+sub generate_typelib {
+    my ($self) = @_;
+    # $output_of{ ident $self } = "";
+    my @schema = @{ $self->get_definitions()->first_types()->get_schema() };
+    for my $type (map { @{ $_->get_type() } , @{ $_->get_element() } } @schema[1..$#schema] ) {
+        $type->_accept( $self );
+    }
+    # return $output_of{ ident $self };
+    return;
+}
+
+sub generate_interface {
+    my $self = shift;
+    my $ident = ident $self;
+    my $arg_ref = shift;
+    my $tt = $self->get_tt();
+    for my $service (@{ $self->get_definitions->get_service }) {
+        for my $port (@{ $service->get_port() }) {
+            # Skip ports without (known) address
+            next if not $port->first_address;
+            next if not $port->first_address->isa('SOAP::WSDL::SOAP::Address');
+
+            my $port_name = $port->get_name;
+            $port_name =~s{ \A .+\. }{}xms;
+            my $output = $arg_ref->{ output }
+                ? $arg_ref->{ output }
+                : $self->_generate_filename(
+                    $self->get_interface_prefix(),
+                    $service->get_name(),
+                    $port_name,
+            );
+            print "Creating interface class $output\n";
+
+            $self->_process('Interface.tt',
+            {
+                service => $service,
+                port => $port,
+                NO_POD => $arg_ref->{ NO_POD } ? 1 : 0 ,
+             },
+            $output, binmode => ':utf8');
+        }
+    }
+}
+
+sub generate_typemap {
+    my ($self, $arg_ref) = @_;
+    my $visitor = SOAP::WSDL::Generator::Visitor::Typemap->new({
+        type_prefix => $self->get_type_prefix(),
+        element_prefix => $self->get_element_prefix(),
+        definitions => $self->get_definitions(),
+        typemap => {
+            'Fault' => 'SOAP::WSDL::SOAP::Typelib::Fault11',
+            'Fault/faultcode' => 'SOAP::WSDL::XSD::Typelib::Builtin::anyURI',
+            'Fault/faultactor' => 'SOAP::WSDL::XSD::Typelib::Builtin::TOKEN',
+            'Fault/faultstring' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+            'Fault/detail' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+            %{ $typemap_of{ident $self }},
+        }
+    });
+    for my $service (@{ $self->get_definitions->get_service }) {
+            $visitor->visit_Service( $service );
+            my $output = $arg_ref->{ output }
+                ? $arg_ref->{ output }
+                : $self->_generate_filename( $self->get_typemap_prefix(), $service->get_name() );
+            print "Creating typemap class $output\n";
+            $self->_process('Typemap.tt',
+            {
+                service => $service,
+                typemap => $visitor->get_typemap(),
+                NO_POD => $arg_ref->{ NO_POD } ? 1 : 0 ,
+            },
+            $output);
+    }
+}
+
+sub _generate_filename :PRIVATE {
+    my ($self, @parts) = @_;
+    my $name = join '::', @parts;
+    $name =~s{ \. }{::}xmsg;
+    $name =~s{ :: }{/}xmsg;
+    return "$name.pm";
+}
+
+sub visit_XSD_Element {
+    my ($self, $element) = @_;
+    my $output = defined $output_of{ ident $self }
+        ? $output_of{ ident $self }
+        : $self->_generate_filename( $self->get_element_prefix(), $element->get_name() );
+    $self->_process('element.tt', { element => $element } , $output);
+}
+
+sub visit_XSD_SimpleType {
+    my ($self, $type) = @_;
+    my $output = defined $output_of{ ident $self }
+        ? $output_of{ ident $self }
+        : $self->_generate_filename( $self->get_type_prefix(), $type->get_name() );
+    $self->_process('simpleType.tt', { simpleType => $type } , $output);
+}
+
+sub visit_XSD_ComplexType {
+    my ($self, $type) = @_;
+    my $output = defined $output_of{ ident $self }
+        ? $output_of{ ident $self }
+        : $self->_generate_filename( $self->get_type_prefix(), $type->get_name() );
+    $self->_process('complexType.tt', { complexType => $type } , $output);
+}
+
+1;

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

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

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

@@ -0,0 +1,64 @@
+[%  RETURN IF NOT item;
+    type = definitions.find_portType( binding.expand( binding.get_type ) );
+    port_op = type.find_operation( definitions.get_targetNamespace, operation.get_name );
+    message = definitions.find_message( port_op.first_input.expand( port_op.first_input.get_message ) );
+    part_from = message.get_part;
+    PERL %]
+    my $item = $stash->{ item };
+    my $def = $stash->{ definitions };
+    my $part_from = $stash->{ part_from };
+    my $type_prefix = $stash->{ type_prefix };
+    my $element_prefix = $stash->{ element_prefix };
+
+    my @body_part_from = split m{\s}, $item->get_parts;
+
+    my @parts;
+    if (@body_part_from) {
+        @parts = map {
+            my $part = $_;
+            (grep {
+                my ($ns, $lname) = $def->expand( $_ );
+                ($lname eq $part->get_name)
+                } @body_part_from
+            )
+            ? do {
+                my $name;
+                ($name = $part->get_element)
+                    ? do {
+                        $name =~s{ ^[^:]+: }{}xms;
+                        $element_prefix . '::' . $name;
+                        }
+                    : ($name = $part->get_type)
+                        ? do {
+                            $name =~s{ ^[^:]+: }{}xms;
+                            $type_prefix . '::' . $name;
+                            }
+                    : die "input must have either type or element"
+                }
+            : ()
+        } @{ $part_from };
+    }
+    else {
+        @parts = map {
+            my $part = $_;
+            my $name;
+            ($name = $part->get_element)
+               ? do {
+                    $name =~s{ ^[^:]+: }{}xms;
+                    "$element_prefix\::$name"
+                    }
+               : ($name = $part->get_type)
+                    ? do {
+                        $name =~s{ ^[^:]+: }{}xms;
+                        "$type_prefix\::$name"
+                    }
+                    : die "input must have either type or element";
+        } @{ $part_from };
+    }
+    $stash->{ parts } = \@parts;
+
+[% END %]
+           'use' => '[% item.get_use %]',
+            namespace => '[% item.get_namespace %]',
+            encodingStyle => '[% item.get_encodingStyle %]',
+            parts => [qw( [% parts.join(' ') %] )],

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

@@ -0,0 +1,38 @@
+[%
+    RETURN IF NOT item;
+    message_name = item.get_message;
+    IF NOT message_name;
+        THROW BAD_WSDL "missing <message> attribute in header for operation ${operation.get_name}";
+    END;
+    message = definitions.find_message( item.expand( message_name ) );
+    PERL %]
+    my $message = $stash->{ message };
+    my $item = $stash->{ item };
+    my $def = $stash->{ definitions };
+    my $type_prefix = $stash->{ type_prefix };
+    my $element_prefix = $stash->{ element_prefix };
+    my ($ns, $lname) = $def->expand( $item->get_part() );
+    my ($part) = grep {
+        $_->get_name eq $lname
+        && $_->get_targetNamespace eq $ns } @{ $message->get_part( ) };
+    my $part_class = do {
+        my $name;
+        ($name = $part->get_element)
+            ? do {
+                $name =~s{ ^[^:]+: }{}xms;
+                $element_prefix . '::' . $name;
+                }
+            : ($name = $part->get_type)
+                ? do {
+                    $name =~s{ ^[^:]+: }{}xms;
+                    $type_prefix . '::' . $name;
+                    }
+                : die "input must have either type or element"
+            };
+    $stash->{ part_class } = $part_class;
+    [% END;
+ %]
+           'use' => '[% item.get_use %]',
+            namespace => '[% item.get_namespace %]',
+            encodingStyle => '[% item.get_encodingStyle %]',
+            parts => [qw( [% part_class %] )],

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

@@ -0,0 +1,18 @@
+sub [% operation.get_name %] {
+    my ($self, $body, $header) = @_;
+    die "[% operation.get_name %] must be called as object method (\$self is <$self>)" if not blessed($self);
+    return $self->SUPER::call({
+        operation => '[% operation.get_name %]',
+        soap_action => '[% operation.first_operation.get_soapAction %]',
+        style => '[% operation.get_style || binding.get_style %]',
+        body => {
+            [% INCLUDE Interface/Body.tt( item = operation.first_input.first_body ); %]
+        },
+        header => {
+            [% INCLUDE Interface/Header.tt( item = operation.first_input.first_header ); %]
+        },
+        headerfault => {
+            [% INCLUDE Interface/Header.tt( item = operation.first_input.first_headerfault ); %]
+        }
+    }, $body, $header);
+}

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

@@ -0,0 +1,13 @@
+
+[% INDENT; %][% element.get_name %] => [%-
+    IF (element.get_ref);
+        element = element.get_ref();
+    END;
+    IF (type_name = element.get_type);
+ INCLUDE Interface/POD/Type.tt(type = definitions.first_types.find_type( element.expand(type_name) ) );
+    ELSIF (type = element.first_complexType);
+ INCLUDE Interface/POD/Type.tt(type = type );
+    ELSIF (type = element.first_simpleType);
+ INCLUDE Interface/POD/Type.tt(type = type );
+    END;
+%]

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

@@ -0,0 +1,9 @@
+[%
+  message_name = port_op.first_input.get_message();
+  # message_name;
+
+  part_from = definitions.find_message( port_op.first_input.expand( message_name ) ).get_part;
+  FOREACH part = part_from;
+    INCLUDE Interface/POD/Part.tt(part = part);
+  END;
+%]

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

@@ -0,0 +1,8 @@
+=head3 [% operation.get_name %]
+
+[%     type = definitions.find_portType( binding.expand( binding.get_type ) );
+    port_op = type.find_operation( definitions.get_targetNamespace, operation.get_name );
+port_op.get_documentation %]
+
+ $interface->[% operation.get_name %]([% INCLUDE Interface/POD/Message.tt %] );
+ 

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

@@ -0,0 +1,7 @@
+[% element = definitions.first_types.find_element( part.expand( part.get_element ) );
+    #element.get_name();
+    #element;
+    #STOP;
+    type = element.first_complexType || element.first_simpleType || definitions.first_types.find_type(
+        element.expand( element.get_type ) );
+    INCLUDE Interface/POD/Type.tt;%],

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

@@ -0,0 +1,7 @@
+[%- indent = '  ';
+IF type.isa('SOAP::WSDL::XSD::ComplexType');
+    INCLUDE complexType/POD/structure.tt(complexType = type);
+ELSE;
+    INCLUDE simpleType/POD/structure.tt(simpleType = type);
+END;
+indent.replace('\s{2}$',''); %]

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

@@ -0,0 +1,7 @@
+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.

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

@@ -0,0 +1,28 @@
+package [% typemap_prefix %]::[% service.get_name.replace('\.','::') %];
+use strict;
+use warnings;
+
+our [% USE Dumper(varname = 'typemap_'); Dumper.dump( typemap ) %];
+
+sub get_class {
+  my $name = join '/', @{ $_[1] };
+  exists $typemap_1->{ $name } or die "Cannot resolve $name via " . __PACKAGE__;
+  return $typemap_1->{ $name };
+}
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+[% typemap_prefix %]::[% service.get_name.replace('\.','::') %]; - typemap for ::[% service.get_name %];
+
+=head1 DESCRIPTION
+
+Typemap created by SOAP::WSDL for map-based SOAP message parsers.
+
+=cut
+

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

@@ -0,0 +1,6 @@
+[% type_name = node.expand( type );
+    IF (type_name.0 == 'http://www.w3.org/2001/XMLSchema'); -%]
+SOAP::WSDL::XSD::Typelib::Builtin::[% type_name.1 %]
+[% ELSE -%]
+[% type_prefix %]::[% type_name.1 %]
+[% END -%]

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

@@ -0,0 +1,44 @@
+package [% type_prefix %]::[% complexType.get_name %];
+use strict;
+use warnings;
+[% INCLUDE complexType/contentModel.tt %]
+[%#
+# Don't include any perl source here - there may be sub-packages...
+#-%]
+
+1;
+
+=pod
+
+=head1 NAME
+
+[% type_prefix %]::[% complexType.get_name %]
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined complextype
+[% complexType.get_name %] from the namespace [% complexType.get_targetNamespace %].
+
+=head2 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+[% FOREACH element = complexType.get_element -%]
+ [% element.get_name %]
+[% END %]
+
+=head1 METHODS
+
+=head2 new
+
+Constructor. The following data structure may be passed to new():
+
+[% indent = ' '; INCLUDE complexType/POD/structure.tt %]
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

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

@@ -0,0 +1,7 @@
+[% indent %]{
+[%- IF complexType.get_name %] # [% type_prefix %]::[% complexType.get_name %][% END %]
+[%- indent = indent _ '  ';
+FOREACH element = complexType.get_element %]
+[% indent %][% element.get_name %] => [% INCLUDE element/POD/structure.tt -%]
+[% END %]
+[% indent.replace('\s{2}$', ''); %]}

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

@@ -0,0 +1,9 @@
+[% indent %]{
+[%- IF complexType.get_name %] # [% type_prefix %]::[% complexType.get_name %][% END %]
+[%- indent = indent _ '  ' %]
+[% indent %]# One of the following elements.
+[% indent %]# No occurance checks yet, so be sure to pass just one...
+[%- FOREACH element = complexType.get_element %]
+[% indent %][% element.get_name %] => [% INCLUDE element/POD/structure.tt -%]
+[% END %]
+[% indent.replace('\s{2}$', ''); %]}

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

@@ -0,0 +1,9 @@
+[% IF (complexType.get_variety == 'restriction');
+    INCLUDE complexType/POD/restriction.tt(complexType = complexType);
+ELSIF (complexType.get_variety == 'sequence');
+    THROW NOT_IMPLEMENTED, "${ complexType.get_name } - complexType complexContent extension not implemented yet";
+ELSE;
+    THROW UNKNOWN, "unknown variety ${ complexType.get_variety }";
+END;
+
+%]

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

@@ -0,0 +1,7 @@
+[% indent %]{
+[%- IF complexType.get_name %] # [% type_prefix %]::[% complexType.get_name %][% END %]
+[%- indent = indent _ '  ';
+FOREACH element = complexType.get_element %]
+[% indent %][% element.get_name %] => [% INCLUDE element/POD/structure.tt -%]
+[% END %]
+[% indent.replace('\s{2}$', ''); %]}

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

@@ -0,0 +1,13 @@
+[% IF (complexType.get_variety == 'all');
+    INCLUDE complexType/POD/all.tt(complexType = complexType);
+ELSIF (complexType.get_variety == 'sequence');
+    INCLUDE complexType/POD/all.tt(complexType = complexType);
+ELSIF (complexType.get_variety == 'group');
+    THROW NOT_IMPLEMENTED, "${ element.get_name } - complexType group not implemented yet";
+ELSIF (complexType.get_variety == 'choice');
+    INCLUDE complexType/POD/choice.tt(complexType = complexType);
+ELSIF (complexType.get_contentModel == 'simpleContent');
+    THROW NOT_IMPLEMENTED, "${ element.get_name } - complexType simpleContent not implemented yet";
+ELSIF (complexType.get_contentModel == 'complexContent');
+    INCLUDE complexType/POD/complexContent.tt(complexType = complexType);
+END %],

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

@@ -0,0 +1,47 @@
+use Class::Std::Storable;
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+{ # BLOCK to scope variables
+[%
+atomic_types = {};
+
+FOREACH element = complexType.get_element %]
+my %[% element.get_name %]_of :ATTR(:get<[% element.get_name %]>);
+[%- END %]
+
+__PACKAGE__->_factory(
+    [ qw([% FOREACH element = complexType.get_element %]
+        [% element.get_name -%]
+[% END %]
+    ) ],
+    {
+[% FOREACH element = complexType.get_element -%]
+        [% element.get_name %] => \%[% element.get_name %]_of,
+[% END -%]
+    },
+    {
+[% FOREACH element = complexType.get_element;
+    IF (type = element.get_type);
+        element_type = complexType.expand( type );
+        IF (element_type.0 == 'http://www.w3.org/2001/XMLSchema'); -%]
+        [% element.get_name %] => 'SOAP::WSDL::XSD::Typelib::Builtin::[% element_type.1 %]',
+[%      ELSE -%]
+        [% element.get_name %] => '[% type_prefix %]::[% element_type.1 %]',
+[%      END;
+    ELSE;
+        IF (element.first_simpleType);
+            atomic_types.${ element.get_name } = element.first_simpleType;
+        ELSIF (element.first_complexType);
+            atomic_types.${ element.get_name } = element.first_complexType;
+        ELSE;
+            THROW NOT_IMPLEMENTED , "Neither simple nor complex atomic type - don't know what to do with it";
+        END; %]
+    [% element.get_name %] => '[% type_prefix %]::[% complexType.get_name %]::_[% element.get_name %]',
+[%  END;
+END -%]
+    }
+);
+
+} # end BLOCK
+
+[% INCLUDE complexType/atomicTypes.tt(atomic_types = atomic_types) %]

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

@@ -0,0 +1,19 @@
+
+[% FOREACH type IN atomic_types; %]
+
+package [% type_prefix %]::[% complexType.get_name %]::_[% type.key %];
+use strict;
+use warnings;
+{
+[% IF ( type.value.isa('SOAP::WSDL::XSD::ComplexType') );
+    INCLUDE complexType/contentModel.tt(complexType = type.value );
+ELSIF ( type.value.isa('SOAP::WSDL::XSD::SimpleType') );
+    INCLUDE simpleType/contentModel.tt(simpleType = type.value );
+ELSE;
+    PERL; %] die $stash->{ type } [% END;
+    THROW UNKNOWN, "neither complex nor simple type - don't know what to do";
+END
+ %]
+}
+
+[% END %]

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

@@ -0,0 +1,8 @@
+[% IF (complexType.get_variety == 'restriction');
+    INCLUDE complexType/restriction.tt(complexType = complexType);
+ELSIF (complexType.get_variety == 'sequence');
+    INCLUDE complexType/extension.tt(complexType = complexType);
+ELSE;
+    THROW UNKNOWN, "unknown variety ${ complexType.get_variety }";
+END;
+%]

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

@@ -0,0 +1,7 @@
+[% IF (complexType.get_contentModel == 'simpleContent');
+    THROW NOT_IMPLEMENTED, "${ element.get_name } - complexType simpleContent not implemented yet";
+ELSIF (complexType.get_contentModel == 'complexContent');
+    INCLUDE complexType/complexContent.tt(complexType = complexType);
+ELSE;
+    INCLUDE complexType/variety.tt(complexType = complexType);
+END %]

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

@@ -0,0 +1,24 @@
+[%
+
+base_name=complexType.expand( complexType.get_base);
+base_type = definitions.first_types.find_type( base_name );
+
+element_from = complexType.get_element;
+
+#
+# Sanity check: All original elements must be noted first
+#
+FOREACH element = base_type.get_element;
+    IF element_from.${ loop.index }.get_name != element.get_name;
+        THROW WSDL "${element.get_name} not found at position ${ loop.index } in extension type ${ complexType.get_name }";
+    END;
+END;
+
+
+-%]
+use base qw([% type_prefix %]::[% base_name.1.replace('\.', '::') %]);
+[%
+
+INCLUDE complexType/variety.tt(complexType = complexType);
+
+%]

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

@@ -0,0 +1,8 @@
+[% IF (base=complexType.get_base);
+    base_name=complexType.expand(base);
+-%]
+use base qw([% type_prefix %]::[% base_name.1.replace('\.', '::') %]);
+[%
+ELSE;
+    THROW NOT_IMPLEMENTED, "restriction without base not supported";
+END %]

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

@@ -0,0 +1,15 @@
+[%
+IF (complexType.get_variety == 'all');
+    INCLUDE complexType/all.tt(complexType = complexType);
+ELSIF (complexType.get_variety == 'sequence');
+    INCLUDE complexType/all.tt(complexType = complexType);
+ELSIF (complexType.get_variety == 'group');
+    THROW NOT_IMPLEMENTED, "${ element.get_name } - complexType group not implemented yet";
+ELSIF (complexType.get_variety == 'choice');
+    INCLUDE complexType/all.tt(complexType = complexType);
+ELSIF (complexType.get_variety);
+    THROW NOT_IMPLEMENTED, "Unknown variety ${ complexType.get_variety } in ${ complexType.get_name } (${ element.get_name })";
+ELSE;
+    # There's no variety - might be empty complexType
+END;
+%]

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

@@ -0,0 +1,71 @@
+package [% element_prefix %]::[% element.get_name %];
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { '[% element.get_targetNamespace %]' }
+
+__PACKAGE__->__set_name('[% element.get_name %]');
+__PACKAGE__->__set_nillable([% element.get_nillable %]);
+__PACKAGE__->__set_minOccurs([% element.get_minOccurs %]);
+__PACKAGE__->__set_maxOccurs([% element.get_maxOccurs %]);
+__PACKAGE__->__set_ref([% IF element.get_ref; %]'[% element.get_ref %]'[% END %]);
+
+[%- IF (type = element.get_type); -%]
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    [% INCLUDE _type_class.tt( type = type, node = element ) %]
+);
+[%- ELSIF (ref = element.get_ref); -%]
+# element ref="[% ref %]"
+use base qw(
+    [% element_prefix %]::[% ref.split(':').1 %]
+);
+[%- ELSIF (simpleType = element.first_simpleType) %]
+# atomic simpleType: <element><simpleType
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+);
+[% INCLUDE simpleType/contentModel.tt %]
+[% ELSIF (complexType = element.first_complexType) %]
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+[% INCLUDE complexType/contentModel.tt;
+END %]
+
+
+} # end of BLOCK
+1;
+
+# __END__
+
+=pod
+
+=head1 NAME
+
+[% element_prefix %]::[% element.get_name %]
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+[% element.get_name %] from the namespace [% element.get_targetNamespace %].
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = [% element_prefix %]::[% element.get_name %]->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+[% indent = ' '; INCLUDE element/POD/structure.tt; %]
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

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

@@ -0,0 +1,30 @@
+[%- IF (name = element.get_type);
+    type_name = element.expand(name);
+    IF (type_name.0 == 'http://www.w3.org/2001/XMLSchema'); -%]
+ $some_value, # [% type_name.1 %]
+[%-
+        RETURN;
+    ELSIF (type = definitions.first_types.find_type( type_name ));
+        IF (type.isa('SOAP::WSDL::XSD::ComplexType') );
+            INCLUDE complexType/POD/structure.tt(complexType = type);
+            RETURN;
+        ELSE;
+            INCLUDE simpleType/POD/structure.tt(simpleType = type);
+        END;
+        RETURN;
+    END;
+    THROW NOT_FOUND, "no type found for {${type_name.0}}${type_name.1}";
+ELSIF (ref = element.get_ref);
+    ref_element = definitions.first_types.find_element( element.expand( ref ) );
+    INCLUDE element/POD/structure.tt(element = ref_element);
+    RETURN;
+ELSIF (type = element.first_simpleType);
+    INCLUDE simpleType/POD/structure.tt(simpleType = type);
+    RETURN;
+ELSIF (type = element.first_complexType);
+    INCLUDE complexType/POD/structure.tt(complexType = type);
+ELSE;
+    THROW NOT_FOUND, "no type found for ${element.get_name}";
+%]
+    NO TYPE FOUND FOR ELEMENT [% element.get_name %]
+[% END -%]

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

@@ -0,0 +1,56 @@
+package [% type_prefix %]::[% simpleType.get_name %];
+use strict;
+use warnings;
+
+sub get_xmlns { '[% simpleType.get_targetNamespace %]'};
+
+[% INCLUDE simpleType/contentModel.tt %]
+[%#
+# Don't include any perl source here - there may be sub-packages...
+#-%]
+
+1;
+
+=pod
+
+=head1 [% type_prefix %]::[% simpleType.get_name %]
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined simpleType
+[% simpleType.get_name %] from the namespace [% simpleType.get_targetNamespace %].
+
+[% IF (simpleType.get_variety == 'list');
+    INCLUDE simpleType/POD/list.tt;
+ELSIF (simpleType.get_variety == 'restriction');
+    INCLUDE simpleType/POD/restriction.tt;
+ELSE;
+    THROW NOT_IMPLEMENTED "simpleType union not implemented yet in $simpleType.get_name";
+END %]
+
+=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
+

lib/SOAP/WSDL/Generator/Template/XSD/simpleType/POD/list.tt

@@ -0,0 +1,20 @@
+This clase is derived from
+[%-
+IF (name = simpleType.get_itemType);
+    type_name = simpleType.expand( name );
+    IF (type_name.0 == 'http://www.w3.org/2001/XMLSchema'); -%]
+SOAP::WSDL::XSD::Typelib::Builtin::[% type_name.1 %]
+[% ELSE -%]
+    [% type_prefix %]::[% type_name.1 %]
+[% END;
+ELSE;
+    # THROW NOT_IMPLEMENTED "atomic simpleType list not implemented yet in $simpleType.get_name";
+    %] a atomic base type. Unfortunately there's no documenatation generation for atomic base types yet. [%
+END -%].
+
+You may pass the following structure to new():
+
+ [ $value_1, .. $value_n ]
+
+All elements of the list must be of the class' base type (or valid arguments
+to it's constructor).

lib/SOAP/WSDL/Generator/Template/XSD/simpleType/POD/restriction.tt

@@ -0,0 +1,16 @@
+This clase is derived from [%-
+IF (name = simpleType.get_base);
+    type_name = simpleType.expand( name );
+    IF (type_name.0 == 'http://www.w3.org/2001/XMLSchema'); -%]
+SOAP::WSDL::XSD::Typelib::Builtin::[% type_name.1 %]
+[% ELSE -%]
+    [% type_prefix %]::[% type_name.1 %]
+[% END;
+ELSE;
+    # THROW NOT_IMPLEMENTED "atomic simpleType restriction not implemented yet in $simpleType.get_name";
+    %] a atomic base type. Unfortunately there's no documenatation generation for atomic base types yet. [%
+END -%]
+. 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.

lib/SOAP/WSDL/Generator/Template/XSD/simpleType/POD/structure.tt

@@ -0,0 +1 @@
+$some_value, # [% IF (simpleType.get_name);  simpleType.get_name; ELSE %]atomic[% END %]

lib/SOAP/WSDL/Generator/Template/XSD/simpleType/atomicType.tt

@@ -0,0 +1,3 @@
+# atomic simple type.
+
+[% INCLUDE simpleType/contentModel.tt(simpleType = type ); %]

lib/SOAP/WSDL/Generator/Template/XSD/simpleType/contentModel.tt

@@ -0,0 +1,7 @@
+[% IF (simpleType.get_variety == 'list');
+    INCLUDE simpleType/list.tt(simpleType = simpleType);
+ELSIF (simpleType.get_variety == 'restriction');
+    INCLUDE simpleType/restriction.tt(type = simpleType);
+ELSE;
+    THROW NOT_IMPLEMENTED "${ element.get_name } - ${ simpleType.get_variety } not supported yet";
+END %]

lib/SOAP/WSDL/Generator/Template/XSD/simpleType/list.tt

@@ -0,0 +1,21 @@
+# list derivation
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Builtin::list
+[%
+IF (name = simpleType.get_itemType);
+    type_name = simpleType.expand( name );
+    IF (type_name.0 == 'http://www.w3.org/2001/XMLSchema'); -%]
+    SOAP::WSDL::XSD::Typelib::Builtin::[% type_name.1 %]
+);
+[% ELSE -%]
+    [% type_prefix %]::[% type_name.1 %]
+);
+[% END;
+ELSIF (type = simpleType.first_simpleType); %]
+);
+
+[% INCLUDE simpleType/atomicType.tt(type = type);
+ELSE; PERL %]die $stash->{simpleType}._DUMP [% END;
+    THROW UNKNOWN , "No list itemTape and no atomic simpleType - don't know what to do";
+END %]
+

lib/SOAP/WSDL/Generator/Template/XSD/simpleType/restriction.tt

@@ -0,0 +1,9 @@
+# derivation by restriction
+[% IF (base = simpleType.get_base) -%]
+use base qw(
+    [% INCLUDE _type_class.tt(type = base, node=simpleType) %]);
+[% ELSIF (type = simpleType.first_simpleType() );
+    INCLUDE simpleType/atomicType.tt(type = type);
+ELSE;
+    THROW "neither base nor atomic type - don't know what to do" %]
+[% END %]

lib/SOAP/WSDL/Generator/Visitor.pm

@@ -0,0 +1,315 @@
+package SOAP::WSDL::Generator::Visitor;
+use strict;
+use warnings;
+use Class::Std::Storable;
+
+our $VERSION = '2.00_17';
+
+my %definitions_of :ATTR(:name<definitions> :default<()>);
+my %type_prefix_of :ATTR(:name<type_prefix> :default<()>);
+my %element_prefix_of :ATTR(:name<element_prefix> :default<()>);
+
+sub START {
+    my ($self, $ident, $arg_ref) = @_;
+    $type_prefix_of{ $ident } = 'MyType' if not exists
+        $arg_ref->{ 'type_prefix' };
+    $element_prefix_of{ $ident } = 'MyElement' if not exists
+        $arg_ref->{ 'element_prefix' };
+
+}
+
+
+# WSDL stuff
+sub visit_Definitions {}
+sub visit_Binding {}
+sub visit_Message {}
+sub visit_Operation {}
+sub visit_OpMessage {}
+sub visit_Part {}
+sub visit_Port {}
+sub visit_PortType {}
+sub visit_Service {}
+sub visit_SoapOperation {}
+sub visit_Types {}
+
+# XML Schema stuff
+sub visit_XSD_Schema {}
+sub visit_XSD_ComplexType {}
+sub visit_XSD_Element {}
+sub visit_XSD_SimpleType {}
+
+1;
+
+__END__
+
+=head1 NAME
+
+SOAP::WSDL::Generator::Visitor - SOAP::WSDL's Visitor-based Code Generator
+
+=head1 DESCRIPTION
+
+SOAP::WSDL featores a code generating facility. This code generation facility
+(in fact there are several of them) is implemented as Visitor to
+SOAP::WSDL::Base-derived objects.
+
+=head2 The Visitor Pattern
+
+The Visitor design pattern is one of the object oriented design pattern
+described by [GHJV1995].
+
+A Visitor is an object implementing some behaviour for a fixed set of classes,
+whose implementation would otherwise need to be scattered accross those
+classes' implementations.
+
+Visitors are usually combined with Iterators for traversing either a list or
+tree of objects.
+
+A Visitor's methods are called using the so-called double dispatch technique.
+To allow double dispatching, the Visitor implements one method for every class
+ro be handled, whereas every class implements just one method (commonly named
+"access"), which does nothing more than calling a method on the reference
+given, with the self object as parameter.
+
+If all this sounds strange, maybe an example helps. Imagine you had a list of
+person objects and wanted to print out a list of their names (or address
+stamps or everything elseyou like). This can easily be implemented with a
+Visitor:
+
+    package PersonVisitor;
+    use Class::Std;    # handles all basic stuff like constructors etc.
+ 
+    sub visit_Person {
+        my ( $self, $object ) = @_;
+        print "Person name is ", $object->get_name(), "\n";
+    }
+ 
+    package Person;
+    use Class::Std;
+    my %name : ATTR(:name<name> :default<anonymous>);
+ 
+    sub accept { $_[1]->visit_Person( $_[0] ) }
+ 
+    package main;
+    my @person_from = ();
+    for (qw(Gamma Helm Johnson Vlissides)) {
+        push @person_from, Person->new( { name => $_ } );
+    }
+ 
+    my $visitor = PersonVisitor->new();
+    for (@person_from) {
+        $_->accept($visitor);
+    }
+
+    # will print
+    Person name is Gamma
+    Person name is Helm
+    Person name is Johnson
+    Person name is Vlissides
+
+While using this pattern for just printing a list may look a bit over-sized,
+but it may become handy if you need multiple output formats and different
+classes to operate on.
+
+The main benefits using visitors are:
+
+=over
+
+=item * Grouping related behaviour in one class
+
+Related behaviour for several classes can be grouped together in the Visitor
+class. The behaviour can easily be changed by changing the code in one class,
+instead of having to change all the visited classes.
+
+=item * Cleaning up the data classes' implementations
+
+If classes holding data also implement several different output formats or
+other (otherwise unrelated) behaviour, they tend to get bloated.
+
+=item * Adding behaviour is easy
+
+Swapping out the visitor class allows easy alterations of behaviour. So on a
+list of Persons, one Visitor may print address stamps, while another one prints
+out a phone number list.
+
+=back
+
+Of course, there are also drawbacks in the visitor pattern:
+
+=over
+
+=item * Changes in the visited classes are expensive
+
+If one of the visited classes changes (or is added), all visitors must be
+updated to reflect this change. This may be rather expensive if classes change
+often.
+
+=item * The visited classes must expose all data required
+
+Visitors may need to use the internals of a class. This may result in fidelling
+with a object's internals, or a bloated interface in the visited class.
+
+=back
+
+Visitors are usually accompanied by a Iterator. The Iterator may be implemented
+in the visited classes, in the Visitor, or somewhere else (in the example it
+was somewhere else).
+
+The Iterator decides which object to visit next.
+
+=head2 Why SOAP::WSDL uses the Visitor pattern for Code Generation
+
+Code generation in SOAP::WSDL means generating various artefacts:
+
+=over
+
+=item * Typemaps
+
+For every WSDL definition, a Typemap is created. The Typemap is used later as
+an aid in parsing the SOAP XML messages.
+
+=item * Type Classes
+
+For every type defined in the WSDL's schema, a Type Class is generated.
+
+These classes are instantiated later as a result of parsing SOAP XML messages.
+
+=item * Interface Classes
+
+For every service, a interface class is generated. This class is later used by
+programmers accessing the service
+
+=item * Documentation
+
+Both Type Classes and Interface Classes include documentation. Additional
+documentation may be generated as a hint for programmers, or later for
+mimicing .NET's .asmx example pages.
+
+=back
+
+All these behaviours could well (and has historically been) implemented in the
+classes holding the WSDL data. This made these classes rather bloated, and
+made it hard to change behaviour (like, supporting SOAP Headers,
+supporting atomic types and other features which were missing from early
+versions of SOAP::WSDL).
+
+Implementing these behaviours in Visitor classes eases adding new behaviours,
+and reducing the incompletenesses still inherent in SOAP::WSDL's WSDL and XML
+schema implementation.
+
+=head2 Implementation
+
+=head3 accept
+
+SOAP::WSDL::Base defines an accept method which expects a Visitor as only
+parameter.
+
+The method visit_Foo_Bar is called on the visitor, whith the self object as
+parameter.
+
+The actual method name is constructed this way:
+
+=over
+
+=item * SOAP::WSDL is stripped from the class name
+
+=item * All remaining  :: s are replaced by _
+
+=back
+
+Example:
+
+When visiting a SOAP::WSDL::XSD::ComplexType object, the method
+visit_XSD_ComplexType is called on the visitor.
+
+=head2 Writing your own visitor
+
+SOAP::WSDL eases writing your own visitor. This might be required if you need
+some special output format from a WSDL file, or want to feed your own
+serializer/deserializer pair with custom configuration data. Or maybe you want
+to generate C# code from it...
+
+To write your own code generating visitor, you should subclass
+SOAP::WSDL::Generator::Visitor. It implements (empty) default methods for all
+SOAP::WSDL data classes:
+
+=over
+
+=item * visit_Definitions
+
+=item * visit_Binding
+
+=item * visit_Message
+
+=item * visit_Operation
+
+=item * visit_OpMessage
+
+=item * visit_Part
+
+=item * visit_Port
+
+=item * visit_PortType
+
+=item * visit_Service
+
+=item * visit_SoapOperation
+
+=item * visit_Types
+
+=item * visit_XSD_Schema
+
+=item * visit_XSD_ComplexType
+
+=item * visit_XSD_Element
+
+=item * visit_XSD_SimpleType
+
+=back
+
+In your Visitor, you must implement visit_Foo methods for all classes you wish
+to visit.
+
+Currently, all SOAP::WSDL::Generator::Visitor implementations include their own
+Iterator (which means they know how to find the next objects to visit). You
+may or may not choose to implement a separate Iterator.
+
+Letting a visitor implementing it's own Iterator visit a WSDL definition is as
+easy as writing something like this:
+
+ my $visitor = MyVisitor->new();
+ my $parser = SOAP::WSDL::Expat::WSDLParser->new();
+ my $definitions = $parser->parse_file('my.wsdl'):
+ 
+ $definitions->_accept( $visitor );
+
+=head1 REFERENCES
+
+=over
+
+=item * [GHJV1995]
+
+Erich Gamma, Richard Helm, Ralph E. Johnson, John Vlissides, (1995):
+Design Patterns. Elements of Reusable Object-Oriented Software.
+Addison-Wesley Longman, Amsterdam.
+
+=back
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright 2004-2007 Martin Kutter.
+
+This file is part of SOAP-WSDL. You may distribute/modify it under
+the same terms as perl itself
+
+=head1 AUTHOR
+
+Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
+
+=head1 REPOSITORY INFORMATION
+
+ $Rev: 239 $
+ $LastChangedBy: kutterma $
+ $Id: Client.pm 239 2007-09-11 09:45:42Z kutterma $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client.pm $
+
+=cut