import SOAP-WSDL 2.00_13 from CPAN

git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_13 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_13.tar.gz
import SOAP-WSDL 2.00_12 from CPAN
2009-12-12 19:47:52 -08:00 · 2009-12-12 19:47:49 -08:00
184 changed files with 8922 additions and 9127 deletions
@@ -4,7 +4,7 @@ Module::Build->new(
 	create_makefile_pl => 'passthrough',
 	dist_abstract      => 'SOAP with WSDL support',
 	dist_name          => 'SOAP-WSDL',
-	dist_version       => '2.00_11',
+	dist_version       => '2.00_13',
 	module_name        => 'SOAP::WSDL',
 	license            => 'artistic',
 	requires           => {
@@ -35,6 +35,7 @@ Module::Build->new(
 		'Getopt::Long'            => 0,
 		'Cwd'                     => 0,
 		'File::Find'              => 0,
 		'Storable'                => 0,
 	},
 	recursive_test_files => 1,
 )->create_build_script;
@@ -1,778 +1,172 @@
------------------------------------------------------------------------
+Release notes for SOAP::WSDL 2.00_12
-r176 | kutterma | 2007-08-31 17:28:29 +0200 (Fr, 31 Aug 2007) | 2 lines
+-------
-
+
- set SVN keywords
+I'm very happy to present a new pre-release version of SOAP::WSDL.
- updated docs
+
------------------------------------------------------------------------
+SOAP::WSDL is a toolkit for creating SOAP interfaces in perl.
-r175 | kutterma | 2007-08-31 17:05:42 +0200 (Fr, 31 Aug 2007) | 6 lines
+
-
+Features:
- modified SOAP::WSDL::Client to allow passing the SOAPAction header to call()
+
- modified SOAP::WSDL::Definitions's generator to emit interfaces which include 
+    * WSDL based SOAP client
-  soap_action and style information for every operation
+          o SOAP1.1 support
- re-generated GetWeather example interface
+          o Supports document/literal message style/encoding
- fixed wsdl2perl.pl (typo)
+    * Code generator for generating WSDL-based interface classes
-
+          o Generated code includes usage documentation for the web service interface
------------------------------------------------------------------------
+    * Easy-to use API. SOAP::WSDL is much easier to use than SOAP::Lite.
-r174 | kutterma | 2007-08-31 15:49:04 +0200 (Fr, 31 Aug 2007) | 2 lines
+          o Automatically encodes perl data structures as message data
-
+          o Automatically sets HTTP headers right
- SOAPAction header is now always quoted.
+    * SOAP::Lite like look and feel.
- updated docs
+          o Where possible, SOAP::WSDL mimics SOAP::Lite's API to allow easy migrations
------------------------------------------------------------------------
+    * XML schema based class library for creating data objects
-r173 | kutterma | 2007-08-31 15:48:10 +0200 (Fr, 31 Aug 2007) | 1 line
+    * High-performance XML parser
-
+    * Plugin support. SOAP::WSDL can be extended through plugins in various aspects. 
- added WS-I basic profile compliance docs. Looks like we're far from being compliant...
+      The following plugins are supported:
------------------------------------------------------------------------
+          o Transport plugins via SOAP::WSDL::Factory::Transport
-r172 | kutterma | 2007-08-30 22:58:41 +0200 (Do, 30 Aug 2007) | 1 line
+          o Serializer plugins via SOAP::WSDL::Factory::Serializer
-
+
- updated TODO list
+
------------------------------------------------------------------------
+The following changes have been made:
-r170 | kutterma | 2007-08-30 22:32:56 +0200 (Do, 30 Aug 2007) | 1 line
+2.00_13
-
+----
- added RELEASE_NOTES
+The following features were added (the numbers in square brackets are the 
------------------------------------------------------------------------
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660924):
-r169 | kutterma | 2007-08-30 21:33:50 +0200 (Do, 30 Aug 2007) | 1 line
+   * [ 1790619 ] Test transport backend
-
+   A test transport backend has been implemented (SOAP::WSDL::Transport::Test).
- fixed SOAP11 serializer package name
+   It returns the contents from a file and discards the response.
------------------------------------------------------------------------
+   The filename is determined from the soap_action field.
-r168 | kutterma | 2007-08-30 21:32:39 +0200 (Do, 30 Aug 2007) | 4 lines
+   
-
+   * [ 1785196 ] Replace outputsom(1) by deserializer plugin
- added Serializer factory
+   outputsom(1) in SOAP::WSDL is now implemented via using the deserializer 
- modified client to use serializer
+   plugin SOAP::WSDL::Deserializer::SOM.
- moved old SOAP::WSDL::Envelope into Serializer namespace
+
- moved Tranport factory into Factory namespace
+   * [1785195] Support deserializer plugins
------------------------------------------------------------------------
+   Deserializer plugin API added via SOAP::WSDL::Factory::Deserializer.
-r167 | kutterma | 2007-08-30 21:30:17 +0200 (Do, 30 Aug 2007) | 1 line
+  
-
+The following bugs have been fixed (the numbers in square brackets are the 
- fixed Envelope to comply to new serializer scheme
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660921):
------------------------------------------------------------------------
+
-r166 | kutterma | 2007-08-30 18:44:48 +0200 (Do, 30 Aug 2007) | 1 line
+   * [1789581] Support ComplexType mixed
-
+   WSDL parser now supports using the mixed="true" attribute in complexType 
- re-fixed Transport factory
+   definitions. Mixed content in messages is only supported via SOAP::SOM yet.
------------------------------------------------------------------------
+
-r165 | kutterma | 2007-08-30 18:43:36 +0200 (Do, 30 Aug 2007) | 1 line
+   * [1787975] 016_client_object.t fails due to testing XML as string
-
+   Removed string test.
- added HTTP Transport class (really)
+  
------------------------------------------------------------------------
+   * [1787959] Test wsdl seems to be broken
-r164 | kutterma | 2007-08-30 14:38:47 +0200 (Do, 30 Aug 2007) | 1 line
+   Corrected typo.
-
+  
- first try at serializer factory.
+   * [1787955] ::XSD::Typelib::date is broken
------------------------------------------------------------------------
+   SOAP::WSDL::XSD::Typelib::Builtin::date now converts time-zoned dates properly, 
-r163 | kutterma | 2007-08-30 10:34:00 +0200 (Do, 30 Aug 2007) | 1 line
+   and adds the local time zone if none is given.
-
+
- updated docs (reference to homepage and forum)
+   * [1785646] SOAPAction header not set from soap:operation soapAction
------------------------------------------------------------------------
+   SOAP::WSDL now sets the SOAPAction header correctly.
-r162 | kutterma | 2007-08-30 10:29:49 +0200 (Do, 30 Aug 2007) | 1 line
+
-
+The following uncategorized improvements have been mad:
- updated docs
+
------------------------------------------------------------------------
+   * Documentation improvements
-r161 | kutterma | 2007-08-30 10:17:28 +0200 (Do, 30 Aug 2007) | 2 lines
+
-
+2.00_12
- modified client to use SOAP::WSDL::Transport factory
+----
- fixed SOAP::WSDL::Transport factory
+  
------------------------------------------------------------------------
+The following bugs have been fixed (the numbers in square brackets are the 
-r160 | kutterma | 2007-08-30 00:20:09 +0200 (Do, 30 Aug 2007) | 1 line
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660921):
-
+
- added weird SOAP::Lite nameing scheme to registered && SOAP::Lite Transport instantiations
+   * [1787146] SOAP::WSDL still uses XML::LibXML
------------------------------------------------------------------------
+   The superficious usage of XML::LibXML has been removed. XML::LibXML with 
-r159 | kutterma | 2007-08-30 00:00:15 +0200 (Do, 30 Aug 2007) | 1 line
+   sax filter has been replaced by SOAP::WSDL::Expat::WSDLParser.
-
+   
- first try at Transport factory and Transport::HTTP implementation class.
+   * [1787054] Test suite requires XML::LibXML in 2.00_11
------------------------------------------------------------------------
+   The test suite no longer requires XML::LibXML to pass.
-r158 | kutterma | 2007-08-29 22:36:34 +0200 (Mi, 29 Aug 2007) | 1 line
+
-
+   * [1785678] SOAP envelope not checked for namespace
- updated TODO list
+   The SOAP envelope is now checked for the correct namespace.
------------------------------------------------------------------------
+   
-r153 | kutterma | 2007-08-29 11:24:40 +0200 (Mi, 29 Aug 2007) | 4 lines
+   * [1786644] SOAP::WSDL::Manual - doc error
-
+   Documentation improvements
- removed XML::LibXML dependencies (is now required, not used in test scripts)
+    
- fixed WSDLParser to switch on expat namespace support when parsing files
+The following uncategorized improvements have been made
- added expat based tests ported from XML::LibXML based WSDL parser tests
+
- updated docs
+   * The SOAPAction header is now alway quoted (R1109 in WS-I BP 1.0).
------------------------------------------------------------------------
+   
-r152 | kutterma | 2007-08-28 23:28:06 +0200 (Di, 28 Aug 2007) | 3 lines
+2.00_11
-
+----
- updated Build.PL
+
- updated CHANGES
+The following features were added (the numbers in square brackets are the 
- updated MANIFEST
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660924):
------------------------------------------------------------------------
+
-r151 | kutterma | 2007-08-28 23:07:14 +0200 (Di, 28 Aug 2007) | 1 line
+  * [1767963] Transport plugins via SOAP::WSDL::Factory::Transport.
-
+    SOAP::WSDL uses SOAP::Lite's tranport modules as default, with a 
- fixed namespace test
+    lightweight HTTP(S) transport plugin as fallback.
------------------------------------------------------------------------
+    Custom transport modules can be registered via SOAP::WSDL::Factory::Transport.
-r150 | kutterma | 2007-08-28 23:06:00 +0200 (Di, 28 Aug 2007) | 1 line
+
-
+  * [ 1772730 ] Serializer plugins via SOAP::WSDL::Factory::Serializer 
- renamed tests to better meet their content
+    The default serializer for SOAP1.1 is SOAP::WSDL::Serializer::SOAP11.
------------------------------------------------------------------------
+    Custom serializers classes can be registered via 
-r149 | kutterma | 2007-08-28 23:03:30 +0200 (Di, 28 Aug 2007) | 1 line
+    SOAP::WSDL::Factory::Serializer or set via SOAP::WSDL's set_serializer 
-
+    method.
- cleanup
+
------------------------------------------------------------------------
+The following bugs have been fixed (the numbers in square brackets are the 
-r148 | kutterma | 2007-08-28 23:02:01 +0200 (Di, 28 Aug 2007) | 2 lines
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660921):
-
+
- added namespace test
+   * [ 1764854 ] Port WSDL parser to expat and remove XML::LibXML dependency
- removed SAX handler from usage test
+     SOAP::WSDL now requires only XML::Parser to be installed.
------------------------------------------------------------------------
+     XML::LibXML is not required any more, though XML::LibXML based modules still 
-r147 | kutterma | 2007-08-28 22:57:48 +0200 (Di, 28 Aug 2007) | 1 line
+     exist.
-
+
- added namespace support
+The following uncategorized improvements have been made
------------------------------------------------------------------------
+
-r146 | kutterma | 2007-08-28 21:56:35 +0200 (Di, 28 Aug 2007) | 1 line
+   * The number of dependencies has been reduced. SOAP::WSDL no longer requires the 
-
+     following modules to be installed:
- removed POD directive from template, so the CPAN indexer won't show it...
+        - XML::SAX::Base
------------------------------------------------------------------------
+        - XML::SAX::ParserFactory
-r145 | kutterma | 2007-08-28 16:35:18 +0200 (Di, 28 Aug 2007) | 5 lines
+        - Pod::Simple::Text
-
+        - XML::LibXML
- XML::SAX::Base and XML::SAX::ParserFactory and Pod::Simple::Text dependencies to ease testing
+
- removed unneccessary performance test
+   * The missing prerequisite Template has been added.
- Added Expat-based WSDL parser and test to get rid of XML::LibXML dependency some day...
+   * Documentation has been improved:
-   - needs further work: namespaces are not processed correctly, yet
+        - WS-I Compliance document added.
-
+
------------------------------------------------------------------------
+
-r144 | kutterma | 2007-08-14 11:05:40 +0200 (Di, 14 Aug 2007) | 1 line
+2.00_10
-
+----
- added missing prerequisite 'Template' to Build.PL
+   * Changed Makefile.PL to use Module::Build (passthrough mode)
------------------------------------------------------------------------
+   * fixed element ref="" handling
-r143 | kutterma | 2007-08-13 20:43:20 +0200 (Mo, 13 Aug 2007) | 3 lines
+
-
+2.00_09
- fixed POD (#1772710)
+----
- fixed Makefile.PL - now try the passthrough variant first. If too many CPAN testers still fail, we may switch to traditional, some day...
+   * SOAP::WSDL::XSD::Typelib::Builtin::boolean objects now return their numerical 
- prepared 2.00_10 pre-release
+     value in bool context, not "true" or "false" (always true...)
------------------------------------------------------------------------
+   * date/time test are now timezone-sensitive
-r142 | kutterma | 2007-08-13 15:55:45 +0200 (Mo, 13 Aug 2007) | 1 line
+   * examples added
-
+
-typo
+2.00_08
------------------------------------------------------------------------
+---
-r141 | kutterma | 2007-08-12 21:45:51 +0200 (So, 12 Aug 2007) | 2 lines
+   * SOAP::WSDL::XSD::Typelib::ComplexType objects now check the class of their 
-
+     child objects.
- corrected POD error
+     This provides early feedback to developers.
- little speedup in add_FOO methods
+   * SOAP message parser can skip unwanted parts of the message to improve parsing 
------------------------------------------------------------------------
+     speed - see SOAP::WSDL::Expat::MessageParser for details.
-r140 | kutterma | 2007-08-12 21:27:58 +0200 (So, 12 Aug 2007) | 1 line
+   * HTTP Content-Type is configurable
-
+   * SOAP::WSDL::XSD::Typelib::ComplexType based objects accept any combination of 
- corrected POD error
+     hash refs, list refs and objects as parameter to set_value() and new().
------------------------------------------------------------------------
+   * SOAP::WSDL::XSD::Typelib::Builtin::dateTime and ::date convert date 
-r139 | kutterma | 2007-08-12 21:15:59 +0200 (So, 12 Aug 2007) | 1 line
+      strings into XML date strings
-
+   * SOAP::WSDL::Definitions::create now
- adder repository information
+      - converts '.' in service names to '::' (.NET class separator to perl class 
------------------------------------------------------------------------
+      separator)
-r138 | kutterma | 2007-08-12 21:13:08 +0200 (So, 12 Aug 2007) | 1 line
+      - outputs Typemaps and Interface classes in UTF8 to allow proper inclusion 
-
+      of UTF8 documentation from WSDL
- typo
+   * SOAP::WSDL::Definitions::create() includes doc in generated interface classes
------------------------------------------------------------------------
+   * WSDLHandler now handles <wsdl:documentation> tags
-r137 | kutterma | 2007-08-12 21:12:20 +0200 (So, 12 Aug 2007) | 3 lines
+   * fixed explain in SimpleType, ComplexType and Element
-
+
- updated docs
+2.00_07 and below
- added svn information
+---
- cosmetics
+   * Implemented a Code generator for creating SOAP interfaces based on WSDL definitions
------------------------------------------------------------------------
+   * Implemented a high-speed stream based SOAP message parser
-r136 | kutterma | 2007-08-12 15:11:50 +0200 (So, 12 Aug 2007) | 2 lines
+     SOAP message parser returns a objects based on XML schema based class library
-
+   * Implemented a XML schema based class library 
- fixed element ref="" top level- elements in code generator
+   * Implemented a stream based WSDL parser.
- prepared 2.00_09 pre-release
+     Parses WSDL into objects. Objects can serialize data, and explain how to use the 
------------------------------------------------------------------------
+     service(s) they make up (output documentation).
 r135 | kutterma | 2007-08-12 14:44:06 +0200 (So, 12 Aug 2007) | 1 line
 - prepared 2.00_09 pre-release
 ------------------------------------------------------------------------
 r134 | kutterma | 2007-08-12 14:30:33 +0200 (So, 12 Aug 2007) | 2 lines
 - updated README
 - bumped up version
 ------------------------------------------------------------------------
 r133 | kutterma | 2007-08-12 14:27:17 +0200 (So, 12 Aug 2007) | 1 line
 - fixed Build.PL to leave Makefile.PL untouched.
 ------------------------------------------------------------------------
 r132 | kutterma | 2007-08-12 14:21:24 +0200 (So, 12 Aug 2007) | 1 line
 - now really added Makefile.PL
 ------------------------------------------------------------------------
 r131 | kutterma | 2007-08-12 14:18:59 +0200 (So, 12 Aug 2007) | 3 lines
 - fixed documentation for generated code with element ref="" declarations
 - fixed element ref="" test for generated code
 - added (generated) Makefile.PL to make CPAN testers happy
 ------------------------------------------------------------------------
 r130 | kutterma | 2007-08-10 15:57:12 +0200 (Fr, 10 Aug 2007) | 1 line
 - first try at truely callback-based parser (inspired by XML::Compile)
 ------------------------------------------------------------------------
 r129 | kutterma | 2007-08-07 17:53:40 +0200 (Di, 07 Aug 2007) | 1 line
 - moved duplicate sub generation out of loop
 ------------------------------------------------------------------------
 r128 | kutterma | 2007-08-07 14:16:28 +0200 (Di, 07 Aug 2007) | 1 line
 - bool now returns numerical value in bool context, not "true" or "false" (always true...)
 ------------------------------------------------------------------------
 r127 | kutterma | 2007-08-07 11:45:23 +0200 (Di, 07 Aug 2007) | 1 line
 - fixed test to be timezone sensitive
 ------------------------------------------------------------------------
 r126 | kutterma | 2007-08-07 11:09:51 +0200 (Di, 07 Aug 2007) | 1 line
 - made test timezone-sensitive
 ------------------------------------------------------------------------
 r125 | kutterma | 2007-08-07 11:09:16 +0200 (Di, 07 Aug 2007) | 1 line
 - made test timezone-sensitive
 ------------------------------------------------------------------------
 r124 | kutterma | 2007-08-06 18:05:02 +0200 (Mo, 06 Aug 2007) | 2 lines
 - fixed element ref handling in code generator in ComplexType. 
 - top-level element ref still not supported/tested
 ------------------------------------------------------------------------
 r123 | kutterma | 2007-08-06 17:48:57 +0200 (Mo, 06 Aug 2007) | 1 line
 - test now dies and outputs code to eval on eval errors
 ------------------------------------------------------------------------
 r122 | kutterma | 2007-08-06 17:29:46 +0200 (Mo, 06 Aug 2007) | 1 line
 - fixed element ref="" handling in complexType
 ------------------------------------------------------------------------
 r121 | kutterma | 2007-08-06 17:29:14 +0200 (Mo, 06 Aug 2007) | 1 line
 - added test data for element ref inside complexType
 ------------------------------------------------------------------------
 r120 | kutterma | 2007-08-06 17:28:54 +0200 (Mo, 06 Aug 2007) | 1 line
 - added test for element ref inside complexType
 ------------------------------------------------------------------------
 r119 | kutterma | 2007-08-06 17:13:03 +0200 (Mo, 06 Aug 2007) | 1 line
 - fixed element ref handling
 ------------------------------------------------------------------------
 r118 | kutterma | 2007-08-06 17:12:47 +0200 (Mo, 06 Aug 2007) | 1 line
 - added element ref test data
 ------------------------------------------------------------------------
 r117 | kutterma | 2007-08-06 17:12:36 +0200 (Mo, 06 Aug 2007) | 1 line
 - added element ref test
 ------------------------------------------------------------------------
 r116 | kutterma | 2007-08-06 15:47:30 +0200 (Mo, 06 Aug 2007) | 1 line
 - refined docs
 ------------------------------------------------------------------------
 r115 | kutterma | 2007-08-06 15:39:39 +0200 (Mo, 06 Aug 2007) | 1 line
 - updated docs. Hope the CPAN indexer ignores "=for developers"...
 ------------------------------------------------------------------------
 r114 | kutterma | 2007-08-06 14:12:28 +0200 (Mo, 06 Aug 2007) | 1 line
 - removed annoying pod 
 ------------------------------------------------------------------------
 r113 | kutterma | 2007-08-05 18:42:09 +0200 (So, 05 Aug 2007) | 5 lines
 - removed SOAP::Lite dependency
 - updated docs
 - changed SOAP::WSDL::XSD::Typelib::ComplexType to require the actuall class for element data, not just the base class (good for finding errors earlier)
 - implemented returning SOAP::SOM objects in SOAP::WSDL
 - added SOAP::WSDL example(weather_wsdl.pl)
 ------------------------------------------------------------------------
 r112 | kutterma | 2007-08-03 16:12:57 +0200 (Fr, 03 Aug 2007) | 1 line
 updated docs
 ------------------------------------------------------------------------
 r111 | kutterma | 2007-08-03 16:12:04 +0200 (Fr, 03 Aug 2007) | 1 line
 - added "skip"
 ------------------------------------------------------------------------
 r110 | kutterma | 2007-07-31 22:27:25 +0200 (Di, 31 Jul 2007) | 2 lines
 - further work on removing SOAP::Lite dependency
 - Note: SOAP::WSDL may be broken !
 ------------------------------------------------------------------------
 r109 | kutterma | 2007-07-31 21:10:40 +0200 (Di, 31 Jul 2007) | 3 lines
 - finished move from XSD::Primitive to Builtin
 - fixed a few tests
 - removed typo namespace from TypeLookupt
 ------------------------------------------------------------------------
 r108 | kutterma | 2007-07-31 21:02:43 +0200 (Di, 31 Jul 2007) | 1 line
 - removed unneeded example stuff
 ------------------------------------------------------------------------
 r107 | kutterma | 2007-07-31 20:32:43 +0200 (Di, 31 Jul 2007) | 1 line
 - rename to Builtin
 ------------------------------------------------------------------------
 r106 | kutterma | 2007-07-31 20:32:11 +0200 (Di, 31 Jul 2007) | 1 line
 - prepared rename to Builtin
 ------------------------------------------------------------------------
 r105 | kutterma | 2007-07-31 13:17:52 +0200 (Di, 31 Jul 2007) | 2 lines
 - added configurable ContentType / charset 
 - maybe split up charset and content type into two methods ?
 ------------------------------------------------------------------------
 r104 | kutterma | 2007-07-31 00:16:15 +0200 (Di, 31 Jul 2007) | 3 lines
 - removed optional nanoseconds from dateTime conversions
 - added conversion to date objects
 - removed fetching WSDL via SOAP::Schema in SOAP::WSDL. SOAP::Lite is still used as base class.
 ------------------------------------------------------------------------
 r103 | kutterma | 2007-07-30 13:25:06 +0200 (Mo, 30 Jul 2007) | 1 line
 - updated TODO
 ------------------------------------------------------------------------
 r102 | kutterma | 2007-07-30 13:23:09 +0200 (Mo, 30 Jul 2007) | 2 lines
 - updated Build.PL dependencies
 - update TODO
 ------------------------------------------------------------------------
 r101 | kutterma | 2007-07-30 13:22:05 +0200 (Mo, 30 Jul 2007) | 2 lines
 - added dateTime test
 - fixed pod test
 ------------------------------------------------------------------------
 r100 | kutterma | 2007-07-27 16:03:15 +0200 (Fr, 27 Jul 2007) | 2 lines
 - allow passing list refs of hash refs to set_value.
 I hope I got all combinations by now - start getting ugly...
 ------------------------------------------------------------------------
 r99 | kutterma | 2007-07-26 23:18:35 +0200 (Do, 26 Jul 2007) | 1 line
 - added SOAP::Lite usage (to be removed later)
 ------------------------------------------------------------------------
 r98 | kutterma | 2007-07-26 23:16:30 +0200 (Do, 26 Jul 2007) | 3 lines
 - removed SOAP::Lite dependency
 - added set_trace and tracing facility support via callback in call()
 - added fault_class property to allow different Fault classes (somewhen later on)
 ------------------------------------------------------------------------
 r97 | kutterma | 2007-07-25 16:59:49 +0200 (Mi, 25 Jul 2007) | 3 lines
 - dateTime now converts date strings into XML date strings
 - updated docs
 ------------------------------------------------------------------------
 r96 | kutterma | 2007-07-23 11:17:36 +0200 (Mo, 23 Jul 2007) | 3 lines
 - 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
 ------------------------------------------------------------------------
 r95 | kutterma | 2007-07-23 10:26:59 +0200 (Mo, 23 Jul 2007) | 1 line
 - typo
 ------------------------------------------------------------------------
 r94 | kutterma | 2007-07-23 10:11:46 +0200 (Mo, 23 Jul 2007) | 1 line
 - typo
 ------------------------------------------------------------------------
 r93 | kutterma | 2007-07-22 23:24:12 +0200 (So, 22 Jul 2007) | 1 line
 updated TODO
 ------------------------------------------------------------------------
 r92 | kutterma | 2007-07-22 23:19:15 +0200 (So, 22 Jul 2007) | 3 lines
 - WSDLHandler now handles <wsdl:documentation> tags
 - SOAP::WSDL::Definitions now includes some usable doc in generated interface classes
 - fixed explain in SimpleType, ComplexType and Element (someway)
 ------------------------------------------------------------------------
 r91 | kutterma | 2007-07-22 21:18:21 +0200 (So, 22 Jul 2007) | 1 line
 - updated docs
 ------------------------------------------------------------------------
 r90 | kutterma | 2007-07-22 15:42:23 +0200 (So, 22 Jul 2007) | 1 line
 - updated docs
 ------------------------------------------------------------------------
 r89 | kutterma | 2007-07-22 15:38:25 +0200 (So, 22 Jul 2007) | 2 lines
 - updated docs
 - removed useless docs from "internally used only" - modules
 ------------------------------------------------------------------------
 r88 | kutterma | 2007-07-22 09:17:57 +0200 (So, 22 Jul 2007) | 1 line
 typo
 ------------------------------------------------------------------------
 r87 | kutterma | 2007-07-21 23:57:46 +0200 (Sa, 21 Jul 2007) | 1 line
 - updated docs
 ------------------------------------------------------------------------
 r86 | kutterma | 2007-07-21 23:24:24 +0200 (Sa, 21 Jul 2007) | 5 lines
 - removed irritating pod from SOAP::WSDL::XSD::Typelib::Builtin::* classes and put int into SOAP::WSDL::XSD::Typelib::Builtin
 - added fast constructor creation BEGIN block to all SOAP::WSDL::XSD::Typelib::Builtin::* classes
 - added examples
 - updated docs
 - prepared 2.00_07 pre-release
 ------------------------------------------------------------------------
 r85 | kutterma | 2007-07-21 18:12:49 +0200 (Sa, 21 Jul 2007) | 4 lines
 - added wsdl2perl code generation script - works against FortuneCookie web service at fullerdata.com
 - fixed SOAP::WSDL::Client::Base to work as base class for generated classes
 - added interface generation facility to SOAP::WSDL::Definitions
 - updated docs (a few)
 ------------------------------------------------------------------------
 r84 | kutterma | 2007-07-20 15:37:40 +0200 (Fr, 20 Jul 2007) | 9 lines
 - added Expat-based parser
 - made Expat-based parser the default
 - added fast "new" method to most important "Builtin" types 
 - added Parser POD
 - fixed propagating element names in complex types to element elements - element ref="element" should work on 
 class level now (don't know whether typelib supports it yet)
 - updated tests
 - updated HACKING
 - prepared 2.00_06 release
 ------------------------------------------------------------------------
 r83 | kutterma | 2007-07-19 13:09:33 +0200 (Do, 19 Jul 2007) | 1 line
 - fixed element class generation (removed additional ::)
 ------------------------------------------------------------------------
 r82 | kutterma | 2007-07-17 22:17:02 +0200 (Di, 17 Jul 2007) | 1 line
 - updated README and HACKING
 ------------------------------------------------------------------------
 r81 | kutterma | 2007-07-17 22:00:14 +0200 (Di, 17 Jul 2007) | 5 lines
 - added parent ref in SOAP::WSDL::Base - now we have a real tree, and maybe can completely support namespaces some day
 - replaced grep by List::Util::first where appropriate
 - code cleanup
 - fixed test for Code Generation
 - updated a few tests
 ------------------------------------------------------------------------
 r80 | kutterma | 2007-07-17 17:00:48 +0200 (Di, 17 Jul 2007) | 1 line
 - improved pod in generated classes
 ------------------------------------------------------------------------
 r79 | kutterma | 2007-07-17 14:41:44 +0200 (Di, 17 Jul 2007) | 1 line
 - made explain look nicer
 ------------------------------------------------------------------------
 r78 | kutterma | 2007-07-15 12:25:03 +0200 (So, 15 Jul 2007) | 7 lines
 - SOAP::WSDL::Definitions can now generate
   - Typemaps
   - Type and Element classes
 - fixed SOAP::WSDL::XSD::Typelib::ComplexType to support elements with type="ComplexType" definitions
 - moved toClass method in SOAP::WSDL::XSD::ComplexType, Element and SimpleType to to_class and added compatibility wrapper with warning for toClass calls
 - added generator test
 - updated docs
 ------------------------------------------------------------------------
 r77 | kutterma | 2007-07-14 10:46:54 +0200 (Sa, 14 Jul 2007) | 1 line
 - started working on high-level code generator
 ------------------------------------------------------------------------
 r76 | kutterma | 2007-07-13 09:21:33 +0200 (Fr, 13 Jul 2007) | 1 line
 - fixed handling of complex data (hashes with lists embedded lists of objects)
 ------------------------------------------------------------------------
 r75 | kutterma | 2007-07-10 12:08:39 +0200 (Di, 10 Jul 2007) | 1 line
 - removed unneeded SOAP::Lite calls
 ------------------------------------------------------------------------
 r74 | kutterma | 2007-07-10 12:08:10 +0200 (Di, 10 Jul 2007) | 1 line
 - updated to new SOAP::Lite API
 ------------------------------------------------------------------------
 r73 | kutterma | 2007-07-10 12:00:25 +0200 (Di, 10 Jul 2007) | 6 lines
 - re-integrated old SOAP::WSDL tests
 - updated docs
 - SOAP::WSDL::XSD::Typelib::Builtin::string now escapes XML builtin entities on serialization
 - SOAP::WSDL::XSD::Element now supports generating classes for elements and types into different namespaces
 - SOAP::WSDL::Definitions now supports different namespaces for elements and types when generating typmaps
 - 2.00_05 release preparation
 ------------------------------------------------------------------------
 r72 | kutterma | 2007-07-06 11:20:56 +0200 (Fr, 06 Jul 2007) | 1 line
 - fixed detail (typo)
 ------------------------------------------------------------------------
 r71 | kutterma | 2007-07-05 16:13:28 +0200 (Do, 05 Jul 2007) | 1 line
 - TODO comments added
 ------------------------------------------------------------------------
 r70 | kutterma | 2007-07-04 16:14:50 +0200 (Mi, 04 Jul 2007) | 2 lines
 - updated docs
 - prepared 2.00_04 release
 ------------------------------------------------------------------------
 r69 | kutterma | 2007-07-04 16:07:54 +0200 (Mi, 04 Jul 2007) | 1 line
 - ComplexType now ignores xmlns - TODO: check xmlns, don't ignore...
 ------------------------------------------------------------------------
 r68 | kutterma | 2007-07-04 11:25:31 +0200 (Mi, 04 Jul 2007) | 1 line
 - made builtin types with overloads serializable
 ------------------------------------------------------------------------
 r67 | kutterma | 2007-07-04 09:51:06 +0200 (Mi, 04 Jul 2007) | 4 lines
 - updated docs
 - removed unneeded uses from test
 - added Build requirements from tests
 - prepared 2.00_03 release
 ------------------------------------------------------------------------
 r66 | kutterma | 2007-07-04 00:06:29 +0200 (Mi, 04 Jul 2007) | 3 lines
 - split up builtin type lib into single files for Class::Std::Storable
 - fixed more tests
 - fixed complexType serialization for non-objecs
 ------------------------------------------------------------------------
 r65 | kutterma | 2007-07-03 16:52:54 +0200 (Di, 03 Jul 2007) | 2 lines
 - fixed a few tests
 - added performance improvements
 ------------------------------------------------------------------------
 r64 | kutterma | 2007-07-03 15:09:27 +0200 (Di, 03 Jul 2007) | 1 line
 - small performance improvements
 ------------------------------------------------------------------------
 r63 | kutterma | 2007-07-03 14:37:28 +0200 (Di, 03 Jul 2007) | 3 lines
 - fixed serializing complextypes correctly
 - fixed handling has attribute refs in new
 - fixed performance problems in MessageHandler
 ------------------------------------------------------------------------
 r62 | kutterma | 2007-07-03 14:37:14 +0200 (Di, 03 Jul 2007) | 1 line
 - re-added
 ------------------------------------------------------------------------
 r61 | kutterma | 2007-07-03 14:36:59 +0200 (Di, 03 Jul 2007) | 1 line
 ------------------------------------------------------------------------
 r60 | kutterma | 2007-07-01 09:52:41 +0200 (So, 01 Jul 2007) | 2 lines
 - fixed lots of tests
 - attic tests may be re-integrated now...
 ------------------------------------------------------------------------
 r59 | kutterma | 2007-06-28 13:07:35 +0200 (Do, 28 Jun 2007) | 1 line
 - added ignore for dist tar.gz
 ------------------------------------------------------------------------
 r58 | kutterma | 2007-06-28 13:06:25 +0200 (Do, 28 Jun 2007) | 1 line
 - updated buildrequires
 ------------------------------------------------------------------------
 r57 | kutterma | 2007-06-28 13:05:03 +0200 (Do, 28 Jun 2007) | 1 line
 - typo
 ------------------------------------------------------------------------
 r56 | kutterma | 2007-06-28 11:15:24 +0200 (Do, 28 Jun 2007) | 1 line
 - pre-release 2.00_01
 ------------------------------------------------------------------------
 r55 | kutterma | 2007-06-28 10:23:20 +0200 (Do, 28 Jun 2007) | 1 line
 - moved old tests to attic
 ------------------------------------------------------------------------
 r54 | kutterma | 2007-06-28 10:15:41 +0200 (Do, 28 Jun 2007) | 1 line
 - fixed a few typos
 ------------------------------------------------------------------------
 r53 | kutterma | 2007-06-28 10:10:41 +0200 (Do, 28 Jun 2007) | 3 lines
 - fixed MessageHandler to support deserializing into objects which return false in boolean context
 - updated docs
 - fixed Fault11 (named detail correctly)
 ------------------------------------------------------------------------
 r52 | kutterma | 2007-06-27 17:36:01 +0200 (Mi, 27 Jun 2007) | 3 lines
 - added Fault for SOAP 1.1 implementation
 - fixed ComplexType - though it doesn't work quite for faults yet...
 ------------------------------------------------------------------------
 r51 | kutterma | 2007-06-27 13:27:59 +0200 (Mi, 27 Jun 2007) | 13 lines
 - added test for sending objects via call()
 - modified Client to accept objects of type SOAP::WSDL::XSD::Typelib::Builtin::anyType as message content 
 without checking the WSDL objects
 Note: 
 - SOAPAction is just guessed - needs to be replaced by something better
 - The method should be looked up from the typelib, too, and serialized according to the rules specified in the WSDL 
 and dumped into the typelib.
 - updated to_typelib to include top element
 - fixed element and complextype templates for toClass
 ------------------------------------------------------------------------
 r50 | kutterma | 2007-06-27 00:01:32 +0200 (Mi, 27 Jun 2007) | 1 line
 - added xsi xmlns to envelope
 ------------------------------------------------------------------------
 r49 | kutterma | 2007-06-26 23:52:18 +0200 (Di, 26 Jun 2007) | 1 line
 - cosmetics and a few doc updates
 ------------------------------------------------------------------------
 r48 | kutterma | 2007-06-26 22:47:52 +0200 (Di, 26 Jun 2007) | 2 lines
 - refactored element serializing to make it somewhat more consistent
 - added nillable implementation for Elements
 ------------------------------------------------------------------------
 r47 | kutterma | 2007-06-26 18:06:59 +0200 (Di, 26 Jun 2007) | 1 line
 - removed shebang
 ------------------------------------------------------------------------
 r46 | kutterma | 2007-06-26 18:06:33 +0200 (Di, 26 Jun 2007) | 1 line
 - added warnings
 ------------------------------------------------------------------------
 r45 | kutterma | 2007-06-26 17:39:09 +0200 (Di, 26 Jun 2007) | 3 lines
 - got toClass working for generating WSDL based type libraries.
 - changed typelib base class behavior to qualify first element called.
 TODO (a bigger one): Fully support namespaces...
 ------------------------------------------------------------------------
 r44 | kutterma | 2007-06-26 12:10:33 +0200 (Di, 26 Jun 2007) | 14 lines
 - changed Typelib::Element to work as attribute of a type (serialize serializes start_tag and end_tag provided by Typelib::Element around it's vontent, if present)
 - worked on toClass functionality with embedded templates.
 There's much to do - current impl should support:
   * <element name="name" type="type"
   * <element name="name"><simpleType>
   * <element name="name"><complexType>
   * <simpleType ...><list>
   * <simpleType ...><restriction>
   * <complexType ...><all>
   * <complexType ...><sequence>
 All other variants are not completely supported yet.
 ------------------------------------------------------------------------
 r43 | kutterma | 2007-06-25 18:58:56 +0200 (Mo, 25 Jun 2007) | 1 line
 - broke element again...
 ------------------------------------------------------------------------
 r42 | kutterma | 2007-06-25 17:30:34 +0200 (Mo, 25 Jun 2007) | 3 lines
 - fixed to_typemap to report atomic simple and complex types correctly
 - update tests
 - renamed WSDLFilter to WSDLHandler
 ------------------------------------------------------------------------
 r41 | kutterma | 2007-06-25 17:29:41 +0200 (Mo, 25 Jun 2007) | 1 line
 ------------------------------------------------------------------------
 r40 | kutterma | 2007-06-25 14:15:40 +0200 (Mo, 25 Jun 2007) | 2 lines
 - Client.pm now uses XML::LibXML as default and falls back on XML::SAX::ParserFactory if not present
 - fixed tests
 ------------------------------------------------------------------------
 r39 | kutterma | 2007-06-25 14:07:28 +0200 (Mo, 25 Jun 2007) | 2 lines
 - typo in Element
 - fixed tests
 ------------------------------------------------------------------------
 r38 | kutterma | 2007-06-25 10:31:20 +0200 (Mo, 25 Jun 2007) | 2 lines
 - made WSDLFilter.pm a inside out class and let it run without XML::SAX::Base (This probably breaks a lot of tests - we need to implement XML::LibXML semantics in all tests / classes which use it)
 - first swag at to_typemap Typemap generation. to_typemap implemented throughout the WSDL:: modules. Some implementations (Elenenet.pm, ComplexType.pm) need further work for correctly handling atomic simpleType / complexType definitions.
 ------------------------------------------------------------------------
 r37 | kutterma | 2007-06-24 09:15:22 +0200 (So, 24 Jun 2007) | 3 lines
 - added test for on-the-fly created ComplexType
 - fixed ComplexType factory to really work
 - startet working on Element facets
 ------------------------------------------------------------------------
 r36 | kutterma | 2007-06-24 09:14:46 +0200 (So, 24 Jun 2007) | 2 lines
 - added test for on-the-fly created ComplexType
 - startet working on Element facets
 ------------------------------------------------------------------------
 r35 | kutterma | 2007-06-24 08:13:32 +0200 (So, 24 Jun 2007) | 1 line
 - implemented ComplexType as class factory to get rid of the annoying START every subclass had to implement.
 ------------------------------------------------------------------------
 r34 | kutterma | 2007-06-23 23:22:35 +0200 (Sa, 23 Jun 2007) | 2 lines
 - added XSD Typelib SimpleType, Element and ComplexType base classes (stereotypes).
 ComplexType's not yet complete (no restriction / extension etc. handling).
 ------------------------------------------------------------------------
 r33 | kutterma | 2007-06-23 11:04:56 +0200 (Sa, 23 Jun 2007) | 2 lines
 - added SOAP::WSDL::XSD::Typelib::Builtin implementation of builtin XML Schema datatypes with built-in stringification, boolification and numerification.
 - SAX::MessageHandler now deserializes simple types in SOAP messages into SOAP::WSDL::XSD::Typelib::Builtin (provided these are named in the ClassResolver...)
 ------------------------------------------------------------------------
 r32 | kutterma | 2007-06-23 02:14:16 +0200 (Sa, 23 Jun 2007) | 4 lines
 - added pod
 - added ref handling for elements
 - added abstract handling for elements (easy...)
 - added storing of content model (simpleContent/complexContent) to simpleType and complexType, though the attribute is still ignored in serializing
 ------------------------------------------------------------------------
 r31 | kutterma | 2007-06-23 00:37:18 +0200 (Sa, 23 Jun 2007) | 1 line
 - renamed MessageFilter to MessageHandler
 ------------------------------------------------------------------------
 r30 | kutterma | 2007-06-23 00:35:54 +0200 (Sa, 23 Jun 2007) | 1 line
 - renamed MessageFilter to MessageHandler
 ------------------------------------------------------------------------
 r29 | kutterma | 2007-06-23 00:35:16 +0200 (Sa, 23 Jun 2007) | 2 lines
 - switched to Class::Std::Storable
 - renamed MessageFilter to MessageHandler
 ------------------------------------------------------------------------
 r28 | kutterma | 2007-06-22 18:56:28 +0200 (Fr, 22 Jun 2007) | 3 lines
 - optimised SOAP::WSDL::SAX::MessageFilter for performance
 - moved Typelob into own directory and load it dynamically from test script
 - added some pod
 ------------------------------------------------------------------------
 r27 | kutterma | 2007-06-22 15:34:28 +0200 (Fr, 22 Jun 2007) | 5 lines
 - modified SOAP::WSDL::XSD lib to allow serializing of object hierarchies
 - added SOAP::WSDL::SAX::MessageFilter for creating object hierarchies from SOAP messages
 - moved Builtin XML Schema types to SOAP::WSDL:XSD::Schema::Builtin
 - added test + benchmark for serializing /deserializing SOAP messages into object trees
 - fixed Client to use SOAP::WSDL::Types as typelib, not first SOAP::WSDL::XSD::Schema
 ------------------------------------------------------------------------
 r26 | kutterma | 2007-06-21 23:35:30 +0200 (Do, 21 Jun 2007) | 2 lines
 - first swag at a typed SOAP Message parser.
 Typelib is still to be implemented...
 ------------------------------------------------------------------------
 r25 | kutterma | 2007-06-21 18:14:49 +0200 (Do, 21 Jun 2007) | 1 line
 - added missing files from last commit
 ------------------------------------------------------------------------
 r24 | kutterma | 2007-06-19 00:29:36 +0200 (Di, 19 Jun 2007) | 3 lines
 - worked a bit on explain
 - introduced handling of multiple schema definitions in one WSDL file
 - fixed propagating targetNamespace to child elements in WSDLFilter
 ------------------------------------------------------------------------
 r23 | kutterma | 2007-06-16 14:48:30 +0200 (Sa, 16 Jun 2007) | 1 line
 - updated new SOAP::WSDL framework to use inside out classes based on Class::Std (not yet complete)
 ------------------------------------------------------------------------
 r22 | kutterma | 2007-06-12 23:19:41 +0200 (Di, 12 Jun 2007) | 4 lines
 - updated a few tests
 - fixed a few WSDLs
 - fixed handling of elements with minOccurs 0
 - fixed setting of minOccurs/maxOccurs for all/sequence complexTypes
 ------------------------------------------------------------------------
 r21 | kutterma | 2007-06-08 21:38:41 +0200 (Fr, 08 Jun 2007) | 2 lines
 - updated a few tests
 - fixed namespaces in tests
 ------------------------------------------------------------------------
 r19 | kutterma | 2007-05-31 16:58:18 +0200 (Do, 31 Mai 2007) | 10 lines
 - first swag at a WSDL-generated Object-tree based SOAP client.
 Works as following: 
 a) a sax filter transforms the sax stream from a wsdl into a perl object tree
 b) the perl object tree has methods for performing the following tasks:
   a) explain: Tell what services and methods are there, and how to use them
   b) serialize: Serialize data structures to the XML defined in the WSDL & schema
 c) The client uses the generated XML to call the SOAP Server. Unfortunately, SOAP::Lite 
 does not allow custom XML to be rendered as a method's "value", so we have to replace 
 call() completely and generate the envelope on our own (which is not complete yet).
 ------------------------------------------------------------------------
 r9 | kutterma | 2007-05-28 17:08:41 +0200 (Mo, 28 Mai 2007) | 1 line
 - first try at bindings support - see t/12/bindings on how we could find out bindings and portname from a target URL
 ------------------------------------------------------------------------
 r4 | kutterma | 2007-05-28 15:15:03 +0200 (Mo, 28 Mai 2007) | 1 line
 - move from private repository to sourceforge
 ------------------------------------------------------------------------
@@ -1,3 +1,7 @@
 benchmark/01_expat.t
 benchmark/XSD/01_anyType.t
 benchmark/XSD/02_anySimpleType.t
 benchmark/XSD/03_string.t
 bin/wsdl2perl.pl
 Build.PL
 CHANGES
@@ -22,7 +26,6 @@ example/lib/MyTypemaps/FullerData_x0020_Fortune_x0020_Cookie.pm
 example/lib/MyTypemaps/GlobalWeather.pm
 example/weather.pl
 example/weather_wsdl.pl
 example/weather_xml_compile.pl
 example/wsdl/FortuneCookie.xml
 example/wsdl/genericbarcode.xml
 example/wsdl/globalweather.xml
@@ -33,16 +36,19 @@ 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/SOAP11.pm
 lib/SOAP/WSDL/Deserializer/SOM.pm
 lib/SOAP/WSDL/Expat/MessageParser.pm
 lib/SOAP/WSDL/Expat/MessageStreamParser.pm
 lib/SOAP/WSDL/Expat/MessageSubParser.pm
 lib/SOAP/WSDL/Expat/SubParser.pm
 lib/SOAP/WSDL/Expat/WSDLParser.pm
 lib/SOAP/WSDL/Factory/Deserializer.pm
 lib/SOAP/WSDL/Factory/Serializer.pm
 lib/SOAP/WSDL/Factory/Transport.pm
 lib/SOAP/WSDL/Manual.pod
 lib/SOAP/WSDL/Manual/Glossary.pod
-lib/SOAP/WSDL/Manual/WS_I_BasicProfile_Compliance.pod
+lib/SOAP/WSDL/Manual/WS_I.pod
 lib/SOAP/WSDL/Message.pm
 lib/SOAP/WSDL/Operation.pm
 lib/SOAP/WSDL/OpMessage.pm
@@ -50,7 +56,6 @@ lib/SOAP/WSDL/Parser.pod
 lib/SOAP/WSDL/Part.pm
 lib/SOAP/WSDL/Port.pm
 lib/SOAP/WSDL/PortType.pm
 lib/SOAP/WSDL/RELEASE_NOTES
 lib/SOAP/WSDL/SAX/MessageHandler.pm
 lib/SOAP/WSDL/SAX/WSDLHandler.pm
 lib/SOAP/WSDL/Serializer/SOAP11.pm
@@ -203,6 +208,7 @@ t/SOAP/WSDL/11_helloworld.NET.t
 t/SOAP/WSDL/12_binding.pl
 t/SOAP/WSDL/XSD/Typelib/Builtin/001_string.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/002_dateTime.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/002_time.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/003_date.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/004_time.t
 t/test.pl
 TODO
@@ -1,6 +1,6 @@
 ---
 name: SOAP-WSDL
-version: 2.00_11
+version: 2.00_13
 author:
 abstract: SOAP with WSDL support
 license: artistic
@@ -23,23 +23,32 @@ meta-spec:
 provides:
  SOAP::WSDL:
    file: lib/SOAP/WSDL.pm
-    version: 2.00_10
+    version: 2.00_13
  SOAP::WSDL::Base:
    file: lib/SOAP/WSDL/Base.pm
  SOAP::WSDL::Binding:
    file: lib/SOAP/WSDL/Binding.pm
  SOAP::WSDL::Client:
    file: lib/SOAP/WSDL/Client.pm
    version: 2.00_13
  SOAP::WSDL::Client::Base:
    file: lib/SOAP/WSDL/Client/Base.pm
  SOAP::WSDL::Definitions:
    file: lib/SOAP/WSDL/Definitions.pm
  SOAP::WSDL::Deserializer::SOAP11:
    file: lib/SOAP/WSDL/Deserializer/SOAP11.pm
    version: 2.00_13
  SOAP::WSDL::Deserializer::SOM:
    file: lib/SOAP/WSDL/Deserializer/SOM.pm
    version: 2.00_13
  SOAP::WSDL::Expat::MessageParser:
    file: lib/SOAP/WSDL/Expat/MessageParser.pm
  SOAP::WSDL::Expat::MessageStreamParser:
    file: lib/SOAP/WSDL/Expat/MessageStreamParser.pm
  SOAP::WSDL::Expat::MessageSubParser:
    file: lib/SOAP/WSDL/Expat/MessageSubParser.pm
  SOAP::WSDL::Factory::Deserializer:
    file: lib/SOAP/WSDL/Factory/Deserializer.pm
  SOAP::WSDL::Factory::Serializer:
    file: lib/SOAP/WSDL/Factory/Serializer.pm
  SOAP::WSDL::Factory::Transport:
@@ -62,6 +71,7 @@ provides:
    file: lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm
  SOAP::WSDL::Serializer::SOAP11:
    file: lib/SOAP/WSDL/Serializer/SOAP11.pm
    version: 2.00_13
  SOAP::WSDL::Service:
    file: lib/SOAP/WSDL/Service.pm
  SOAP::WSDL::SoapOperation:
@@ -6,9 +6,6 @@ TODO list for SOAP::WSDL
 * Implement a interface similar to SOAP::Schema (#1783639)
 * (#1785195) Support deserializer plugins
   * Support XML::Compiled as one serializer/deserializer
 * Check & probably fix simpleType support. 
 The WS at http://www.webservicex.net/genericbarcode.asmx?wsdl should 
 make up a good example for simpleType definitions.
@@ -29,7 +26,11 @@ Maybe even allow unlimited depth? What does the specs say?
 --------
-Past 2.1 release
+2.2 release
 --------
 * XML schema support ("minimal conformant") (#1764845)
 * Support SOAP attachments
 3.0 release
 --------
 We're not thinking that far ahead right now.
@@ -0,0 +1,68 @@
 #!/usr/bin/perl -w
 use strict;
 use warnings;
 use lib '../lib';
 use lib 'lib';
 use lib '../t/lib';
 use SOAP::WSDL::SAX::MessageHandler;
 use Benchmark;
 use SOAP::WSDL::Expat::MessageParser;
 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>Test</test>
    <test2 >Test2</test2>
    </MyAtomicComplexTypeElement></SOAP-ENV:Body></SOAP-ENV:Envelope>};
 my $parser = SOAP::WSDL::Expat::MessageParser->new({
    class_resolver => 'FakeResolver'
 });
 $XML::Simple::PREFERRED_PARSER = 'XML::Parser';
 my $libxml = XML::LibXML->new();
 timethese 1000, 
 {
  'SOAP::WSDL' => sub { $parser->parse( $xml ) },
  #'XML::Simple (Hash)' => sub { XMLin $xml },
  'XML::LibXML (DOM)' => sub { my $dom = $libxml->parse_string( $xml ) },
 };
 use Test::More tests => 1;
 is $parser->get_data(), q{<MyAtomicComplexTypeElement xmlns="urn:Test" >}
    . q{<test >Test</test><test2 >Test2</test2></MyAtomicComplexTypeElement>}
    , 'Content comparison';
 $parser->class_resolver( 'FakeResolver2' );
 # data classes reside in t/lib/Typelib/
 BEGIN {
    package FakeResolver;
    {
        my %class_list = (
            'MyAtomicComplexTypeElement' => 'MyAtomicComplexTypeElement',
            'MyAtomicComplexTypeElement/test' => 'MyTestElement',
            'MyAtomicComplexTypeElement/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";
        };
    };
 };
@@ -0,0 +1,21 @@
 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() },
    'new with params' => sub { SOAP::WSDL::XSD::Typelib::Builtin::anyType->new({
        xmlns => 'urn:Test'
    }) },
    'set_FOO' => sub { $obj->set_xmlns('Test') },
 };
 my $data;
 timethese 1000000, {
    'set_FOO' => sub { $obj->set_xmlns('Test') },
    'get_FOO' => sub { $data = $obj->get_xmlns() },
 };
@@ -0,0 +1,22 @@
 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({
        xmlns => 'urn:Test',
        value => 'Teststring'
    }) },
    'set_FOO' => sub { $obj->set_xmlns('Test') },
 };
 my $data;
 timethese 1000000, {
    'set_FOO' => sub { $obj->set_xmlns('Test') },
    'get_FOO' => sub { $data = $obj->get_xmlns() },
 };
@@ -0,0 +1,22 @@
 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 10000, {
    'new' => sub { SOAP::WSDL::XSD::Typelib::Builtin::string->new() },
    'new + params' => sub { SOAP::WSDL::XSD::Typelib::Builtin::string->new({
        xmlns => 'urn:Test',
        value => 'Teststring'
    }) },
    'set_FOO' => sub { $obj->set_xmlns('Test') },
 };
 my $data;
 timethese 1000000, {
    'set_FOO' => sub { $obj->set_xmlns('Test') },
    'get_FOO' => sub { $data = $obj->get_xmlns() },
 };
@@ -11,29 +11,33 @@
 use lib 'lib/';
 use lib '../lib';
 use SOAP::WSDL;
 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' });
+  ->call('GetWeather', GetWeather => 
-
+    { CountryName => 'Germany', CityName => 'Munich' }
-die $som->message() if $som->fault();
+);
 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;
+use SOAP::Lite; # +trace;
 my $soap = SOAP::Lite->new()->on_action( sub { join'/', @_ } )
-  ->proxy("http://www.webservicex.net/globalweather.asmx");
+  ->proxy("http://www.webservicex.net/globalweather.asmx");     # from WSDL
 my $som = $soap->call(
-    SOAP::Data->name('GetWeather')->attr({ xmlns => 'http://www.webserviceX.NET' }), 
+    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();
@@ -1,43 +0,0 @@
 # 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.
 =for later
 use lib 'lib/';
 use lib '../lib';
 use SOAP::WSDL;
 use File::Basename qw(dirname);
 use File::Spec;
 my $path = File::Spec->rel2abs( dirname __FILE__);
 my $soap = SOAP::WSDL->new();
 my $som = $soap->wsdl("file:///$path/wsdl/globalweather.xml")->no_dispatch(1)
  ->call('GetWeather', GetWeather => { CountryName => 'Germany', CityName => 'Munich' });
 print $som;
 =for later use
 die $som->message() if $som->fault();
 print $som->result();
 =cut
 use Carp;
 use diagnostics;
 use XML::Compile::WSDL;
 my $schema = XML::Compile::WSDL->new('wsdl/globalweather.xml',
    schema_dirs => 'D:/Test/XMLC/'
 );
 my $operation = $schema->prepare('GetWeather', role => 'CLIENT', port => 'GlobalWeatherSoap');
 use Data::Dumper;
 print Dumper $operation;
@@ -5,20 +5,19 @@ use vars qw($AUTOLOAD);
 use Carp;
 use Scalar::Util qw(blessed);
 use SOAP::WSDL::Client;
-use SOAP::WSDL::Envelope;
+use SOAP::WSDL::Expat::WSDLParser;
 use SOAP::WSDL::SAX::WSDLHandler;
 use Class::Std;
-use XML::LibXML;
+use SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;
 use LWP::UserAgent;
-our $VERSION='2.00_10';
+our $VERSION='2.00_13';
 my %no_dispatch_of      :ATTR(:name<no_dispatch>);
 my %wsdl_of             :ATTR(:name<wsdl>);
 my %proxy_of            :ATTR(:name<proxy>);
 my %readable_of         :ATTR(:name<readable>);
 my %autotype_of         :ATTR(:name<autotype>);
-my %outputxml_of        :ATTR(:name<outputxml>);
+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>);
@@ -98,13 +97,11 @@ sub wsdlinit {
    croak $response->message() if ($response->code != 200);
    # TODO: Port parser to expat and remove XML::LibXML dependency
-    my $parser = XML::LibXML->new();
+    my $parser = SOAP::WSDL::Expat::WSDLParser->new();
    my $filter = SOAP::WSDL::SAX::WSDLHandler->new();
    $parser->set_handler( $filter );
    $parser->parse_string( $response->content() );
    # sanity checks
-    my $wsdl_definitions = $filter->get_data() or die "unable to parse WSDL";
+    my $wsdl_definitions = $parser->get_data() or die "unable to parse WSDL";
    my $types = $wsdl_definitions->first_types()
        or die "unable to extract schema from WSDL";
    my $ns = $wsdl_definitions->get_xmlns()
@@ -222,10 +219,14 @@ sub _wsdl_init_methods :PRIVATE {
 }
 sub call {
-    my $self = shift;
+    my ($self, $method, @data_from) = @_;
    my $ident = ident $self;
-    my $method = shift;
+
-    my $data = ref $_[0] ? $_[0] : { @_ };
+    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 });
@@ -233,34 +234,54 @@ sub call {
    my $client = $client_of{ $ident };
    $client->set_proxy( $proxy_of{ $ident } || $port_of{ $ident }->get_location() );
    $client->set_no_dispatch( $no_dispatch_of{ $ident } );
    $client->set_outputxml( $outputtree_of{ $ident } ? 0 : 1 );
    $client->set_outputxml( $outputxml_of{ $ident } ? 1 : 0 );
    # 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 } ) ) {
        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( $method, $data )
+        ? $client->call( {
            operation => $method,
            soap_action => $method_info->{ soap_action },
          }, $data )
        : do {
            my $content = '';
            # TODO support RPC-encoding: Top-Level element + namespace...
-            foreach my $part ( @{ $method_info_of{ $ident }->{ $method }->{ parts } } ) {
+            foreach my $part ( @{ $method_info->{ parts } } ) {
                $client->set_on_action( sub { $part->get_targetNamespace() . '/' . $_[1] } );
                $content .= $part->serialize( $method, $data, 
                  {
                    %{ $serialize_options_of{ $ident } },
                    readable => $readable_of{ $ident },
                  }  );
            }
-            $client->call($method, $content);
+            $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 $response if ( 
+    return unless defined $response;    # nothing to do for one-ways
-      $outputxml_of{ $ident } 
+    return $response;
 #      || $outputhash_of{ $ident }
      || $outputtree_of{ $ident } 
      || $no_dispatch_of{ $ident } );
    return unless $response;    # nothing to do for one-ways
    # now convert into SOAP::SOM - bah !
    require SOAP::Lite;
    return SOAP::Deserializer->new()->deserialize( $response );
 } 
 sub explain {
@@ -318,8 +339,25 @@ 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.
 =back
 =head2 wsdlinit
 Reads the WSDL file and initializes SOAP::WSDL for working with it.
@@ -662,9 +700,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 =head1 REPOSITORY INFORMATION
- $Rev: 176 $
+ $Rev: 218 $
 $LastChangedBy: kutterma $
- $Id: WSDL.pm 176 2007-08-31 15:28:29Z kutterma $
+ $Id: WSDL.pm 218 2007-09-10 16:19:23Z kutterma $
 $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL.pm $
 =cut
@@ -8,10 +8,12 @@ use LWP::UserAgent;
 use HTTP::Request;
 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;
-use SOAP::WSDL::SOAP::Typelib::Fault11;
+
 our $VERSION='2.00_13';
 # Package global for speed and memory savings.
 # But should be factored out into serializer/deserializer...
@@ -25,11 +27,11 @@ my %endpoint_of         :ATTR(:name<endpoint>       :default<()>);
 my %soap_version_of     :ATTR(:get<soap_version>    :init_attr<soap_version> :default<'1.1'>);
 my %fault_class_of      :ATTR(:name<fault_class>    :default<SOAP::WSDL::SOAP::Typelib::Fault11>);
 my %trace_of            :ATTR(:set<trace>           :init_arg<trace>    :default<()> );
 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<()>);
 # TODO remove when preparing 2.01
 sub outputtree { warn 'outputtree is deprecated and'
@@ -87,6 +89,9 @@ sub set_soap_version {
    # re-setting the soap version invalidates the 
    # serializer object
    delete $serializer_of{ $ident };
    delete $deserializer_of{ $ident };
    delete $transport_of{ $ident };
    $soap_version_of{ $ident } = shift;   
    return $soap_version;
@@ -108,32 +113,30 @@ SUBFACTORY: {
    }
 }
 BEGIN {
    $PARSER = SOAP::WSDL::Expat::MessageParser->new();
 }
 sub call {
-    my $self = shift;
+    my ($self, $method, @data_from) = @_;
    my $method = shift;
    my $ident = ident $self;
    my $data = ref $_[0] 
      ? $_[0] 
      : (@_>1) 
          ? { @_ }
          : $_[0];
    my $header = {};
-    my ($soap_action, $operation);
+    # the only valid idiom for calling a method with both a header and a body 
-    my $trace_sub = $self->get_trace();
+    # is
-    
+    # ->call($method, $body_ref, $header_ref);
-    if (ref $method eq 'HASH') {
+    #
-        $soap_action = $method->{ soap_action };
+    # These other idioms all assume an empty header:
-        $operation = $method->{ operation }
+    # ->call($method, %body_of);    # %body_of is a hash
-    }
+    # ->call($method, $body);       # $body is a scalar
-    else {
+    my ($data, $header) = ref $data_from[0] 
-        $operation = $method;
+      ? ($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 '/', $data->get_xmlns(), $method) )
            : ( $method, q{} );
    $serializer_of{ $ident } ||= SOAP::WSDL::Factory::Serializer->get_serializer({
        soap_version => $self->get_soap_version(),
@@ -147,20 +150,15 @@ sub call {
    return $envelope if $self->no_dispatch();
    # try to guess soap_action if not given
    if (not defined $soap_action) {
        $soap_action = (blessed $data 
            && $data->isa('SOAP::WSDL::XSD::Typelib::Builtin::anyType')) 
            ? $soap_action = join '/', $data->get_xmlns(), $operation
            : ($on_action_of{$ident}) 
                ? $soap_action = $on_action_of{$ident}->( $self, $operation )
                : "";
    }
    # always quote SOAPAction header.
    # WS-I BP 1.0 R1109
-    $soap_action =~s{\A(:?"|')?}{"}xms;
+    if ($soap_action) { 
-    $soap_action =~s{(:?"|')?\Z}{"}xms;
+        $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 
@@ -177,47 +175,45 @@ sub call {
                                      # namely ExpatNB and XML::LibXML's Push parser interface...
    );
-    return $response if ($self->outputxml() );
+    return $response if ($outputxml_of{ $ident } );
-    $PARSER->class_resolver( $self->get_class_resolver() );
+    # 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 }->class_resolver( $class_resolver_of{ $ident } )
        if ( $deserializer_of{ $ident }->can('class_resolver') );
    my $result;
    # Try deserializing response - there may be some,
    # even if transport did not succeed (got a 500 response)
    if ( $response ) {
        eval { $result = $deserializer_of{ $ident }->deserialize( $response ); };
        return $result if (not $@);       
        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() ) {
        # Try deserializing response - there may be some
        if ( $response ) {
            eval { $PARSER->parse( $response ); };           
            return $PARSER->get_data() if (not $@);       
            return $fault_class_of{$ident}->new({
                faultcode => 'soap:Server',
                faultactor => 'urn:localhost',
                faultstring => "Error deserializing message: $@. \n"
                    . "Message was: \n$response"
            });
        };
        # generate & return fault if we cannot serialize response
        # or have none...
-        return $fault_class_of{$ident}->new({
+        return $deserializer_of{ $ident }->generate_fault({
-            faultcode => 'soap:Server',
+            code => 'soap:Server',
-            faultactor => 'urn:localhost',
+            role => 'urn:localhost',
-            faultstring => 'Error sending / receiving message: '
+            message => 'Error sending / receiving message: '
                . $transport->message()
        });
    }
    eval { $PARSER->parse( $response ) };
    # return fault if we cannot deserialize response
    if ($@) {
        return $fault_class_of{$ident}->new({
            faultcode => 'soap:Server',
            faultactor => 'urn:localhost',
            faultstring => "Error deserializing message: $@. \n"
                . "Message was: \n$response"
        });
    }
    return $PARSER->get_data();
 } ## end sub call
 1;
@@ -381,9 +377,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 =head1 REPOSITORY INFORMATION
- $Rev: 176 $
+ $Rev: 218 $
 $LastChangedBy: kutterma $
- $Id: Client.pm 176 2007-08-31 15:28:29Z kutterma $
+ $Id: Client.pm 218 2007-09-10 16:19:23Z kutterma $
 $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client.pm $
 =cut
@@ -93,9 +93,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 =head1 REPOSITORY INFORMATION
- $Rev: 176 $
+ $Rev: 214 $
 $LastChangedBy: kutterma $
- $Id: Base.pm 176 2007-08-31 15:28:29Z kutterma $
+ $Id: Base.pm 214 2007-09-10 15:54:52Z kutterma $
 $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client/Base.pm $
 =cut
@@ -0,0 +1,49 @@
 package SOAP::WSDL::Deserializer::SOAP11;
 use strict;
 use warnings;
 use Class::Std::Storable;
 use SOAP::WSDL::SOAP::Typelib::Fault11;
 our $VERSION='2.00_13';
 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();
 }
 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;
@@ -0,0 +1,100 @@
 package SOAP::WSDL::Deserializer::SOM;
 use strict;
 use warnings;
 use Class::Std::Storable;
 use SOAP::Lite;
 our $VERSION='2.00_13';
 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) = @_;
    return SOAP::Deserializer->new()->deserialize( $content );
 }
 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 mainly here for compatibility reasons: 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.
 SOAP::WSDL::Deserializer will not auroregister itself - just use the lines 
 from the L</SYNOPSIS> to register it as deserializer for SOAP::WSDL.
 =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
 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: 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
@@ -8,7 +8,7 @@ use XML::Parser::Expat;
 sub new {
    my ($class, $args) = @_;
    my $self = {
-        class_resolver => $args->{ class_resolver }
+        class_resolver => $args->{ class_resolver },
    };
    bless $self, $class;
    return $self;
@@ -20,9 +20,9 @@ sub class_resolver {
 }
 sub _initialize {
-	my ($self, $parser) = @_;
+    my ($self, $parser) = @_;
-	delete $self->{ data };
+    delete $self->{ data };                     # remove potential old results
    my $characters;
    my $current = undef;
@@ -45,6 +45,14 @@ sub _initialize {
            # ignore top level elements
            if (@{ $ignore } && $_localname eq $ignore->[0]) {
                CHECK_ENVELOPE: {
                    last CHECK_ENVELOPE if $_localname ne 'Envelope';
                    last CHECK_ENVELOPE if exists $_attrs{ 'xmlns' } 
                      && $_attrs{ 'xmlns' } eq 'http://schemas.xmlsoap.org/soap/envelope/';
                    last CHECK_ENVELOPE if $_attrs{ "xmlns:$_prefix"} 
                      eq 'http://schemas.xmlsoap.org/soap/envelope/';
                    die "Bad namespace for SOAP envelope: " . $parser->recognized_string();
                }
                shift @{ $ignore };
                return;
            }
@@ -55,7 +63,7 @@ sub _initialize {
            # resolve class of this element
            $_class = $self->{ class_resolver }->get_class( $path )
                or die "Cannot resolve class for "
-                    . join('/', @{ $path }) . " via $self->{ class_resolver }";
+                    . join('/', @{ $path }) . " via " . $self->{ class_resolver };
            # maybe write as "return $skip = join ... if (...)" ?
            # would save a BLOCK...
@@ -71,13 +79,15 @@ sub _initialize {
            # if $class matches...
            if (index $_class, 'SOAP::WSDL::XSD::Typelib::Builtin', 0 < 0) {           
-                # check wheter there is a CODE reference for $class::new.
+                # 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 the same as $class->can('new'), but it's way faster  
+                # This is not exactly the same as $class->can('new'), but it's way faster  
-                *{ "$_class\::new" }{ CODE } 
+                defined *{ "$_class\::new" }{ CODE }
                  or scalar @{ *{ "$_class\::ISA" }{ ARRAY } }
                    or eval "require $_class"   ## no critic qw(ProhibitStringyEval)
-                        or die $@;                        
+                      or die $@;                        
            }
            $current = $_class->new({ %_attrs });   # set new current object
@@ -208,8 +218,8 @@ This module may be used under the same terms as perl itself.
 $ID: $
- $LastChangedDate: 2007-08-31 17:28:29 +0200 (Fr, 31 Aug 2007) $
+ $LastChangedDate: 2007-09-10 18:19:23 +0200 (Mo, 10 Sep 2007) $
- $LastChangedRevision: 176 $
+ $LastChangedRevision: 218 $
 $LastChangedBy: kutterma $
 $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageParser.pm $
@@ -67,8 +67,8 @@ This module may be used under the same terms as perl itself.
 $ID: $
- $LastChangedDate: 2007-08-31 17:28:29 +0200 (Fr, 31 Aug 2007) $
+ $LastChangedDate: 2007-09-10 17:54:52 +0200 (Mo, 10 Sep 2007) $
- $LastChangedRevision: 176 $
+ $LastChangedRevision: 214 $
 $LastChangedBy: kutterma $
 $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageStreamParser.pm $
@@ -204,8 +204,8 @@ This module may be used under the same terms as perl itself.
 $ID: $
- $LastChangedDate: 2007-08-31 17:28:29 +0200 (Fr, 31 Aug 2007) $
+ $LastChangedDate: 2007-09-10 17:54:52 +0200 (Mo, 10 Sep 2007) $
- $LastChangedRevision: 176 $
+ $LastChangedRevision: 214 $
 $LastChangedBy: kutterma $
 $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageSubParser.pm $
@@ -210,8 +210,8 @@ This module may be used under the same terms as perl itself.
 $ID: $
- $LastChangedDate: 2007-08-31 17:28:29 +0200 (Fr, 31 Aug 2007) $
+ $LastChangedDate: 2007-09-10 17:54:52 +0200 (Mo, 10 Sep 2007) $
- $LastChangedRevision: 176 $
+ $LastChangedRevision: 214 $
 $LastChangedBy: kutterma $
 $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/SubParser.pm $
@@ -0,0 +1,137 @@
 package SOAP::WSDL::Factory::Deserializer;
 use strict;
 use warnings;
 my %DESERIALIZER = (
    '1.1' => 'SOAP::WSDL::Deserializer::SOAP11',
 );
 # class method
 sub register {
    my ($class, $ref_type, $package) = @_;
    $DESERIALIZER{ $ref_type } = $package;
 }
 sub get_deserializer {
    my ($self, $args_of_ref) = @_;
    eval "require $DESERIALIZER{ $args_of_ref->{ soap_version } }" or die $@;
    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::Serializer->get_deserializer({
     soap_version => $soap_version,
     class_resolver => $class_resolver,
 });
 # in serializer class:
 package MyWickedSerializer;
 use SOAP::WSDL::Factory::Deserializer;
 # u don't know the SOAP 1.2 recommendation? poor boy...
 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:
 a) the class registered for the scheme via register()
 =head1 METHODS
 =head2 register
 SOAP::WSDL::Serializer->register('1.1', 'MyWickedSerializer');
 Globally registers a class for use as serializer 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.
 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).
 Deserializer modules must be named equal to the deserializer 
 class they contain. There can only be one deserializer class per 
 deserializer module.
 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
 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: 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
@@ -120,9 +120,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 =head1 REPOSITORY INFORMATION
- $Rev: 176 $
+ $Rev: 218 $
 $LastChangedBy: kutterma $
- $Id: Serializer.pm 176 2007-08-31 15:28:29Z kutterma $
+ $Id: Serializer.pm 218 2007-09-10 16:19:23Z kutterma $
 $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Serializer.pm $
 =cut
@@ -25,6 +25,7 @@ my %SOAP_WSDL_TRANSPORT_OF = (
 # class methods only
 sub register {
    my ($class, $scheme, $package) = @_;
    die "cannot use reference as scheme" if ref $scheme;
    $registered_transport_of{ $scheme } = $package;
 }
@@ -222,9 +223,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 =head1 REPOSITORY INFORMATION
- $Rev: 176 $
+ $Rev: 218 $
 $LastChangedBy: kutterma $
- $Id: Transport.pm 176 2007-08-31 15:28:29Z kutterma $
+ $Id: Transport.pm 218 2007-09-10 16:19:23Z kutterma $
 $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Transport.pm $
 =cut
@@ -35,9 +35,6 @@ the service's interface structure.
 The results of all calls to your service object's methods (except new) 
 are objects based on SOAP::WSDL's XML schema implementation.
 These objects are false in boolean context, and serialize to XML when 
 printed.
 To access the object's properties use get_NAME / set_NAME getter/setter 
 methods whith NAME corresponding to the XML tag name.
@@ -2,7 +2,7 @@
 =head1 NAME
-SOAP::WSDL WS-I Basic Profile Compliance - How SOAP::WSDL complies to WS-I Basic Profile 1.0
+SOAP::WSDL::Manual::WS_I - How SOAP::WSDL complies to WS-I Basic Profile 1.0
 =head1 DESCRIPTION
@@ -44,8 +44,6 @@ parts to web service SOAP::WSDL does not implement.
 =head1 RULES CONFIRMED
 =head2 R1005
 A MESSAGE MUST NOT contain soap:encodingStyle attributes on any of the elements 
@@ -66,13 +64,13 @@ element.
 A MESSAGE MUST NOT contain a Document Type Declaration.
-SOAP::WSDL::Serializer::SOAP11 does not DTDs.
+SOAP::WSDL::Serializer::SOAP11 does not add DTDs.
 =head2 R1009 
 A MESSAGE MUST NOT contain Processing Instructions.
-SOAP::WSDL::Serializer::SOAP11 does not Processing Instructions
+SOAP::WSDL::Serializer::SOAP11 does not add Processing Instructions
 =head2 R1010
@@ -85,7 +83,7 @@ SOAP::WSDL::Expat::MessageParser allows the use of XML Declarations.
 A MESSAGE MUST NOT have any element children of soap:Envelope following 
 the soap:Body element.
-SOAP::WSDL::Serializer::SOAP11 does emit children of soap:Envelope following 
+SOAP::WSDL::Serializer::SOAP11 does not emit children of soap:Envelope following 
 the soap:Body element. Other serializers may behave differentls.
 =head2 R1012
@@ -100,7 +98,7 @@ SOAP::WSDL::Serializer::SOAP11 serializes messages as UTF-8.
 encoding, using the charset parameter.
 SOAP::WSDL::Transport::HTTP sets the Content-type header to 
-"text/xml; charset=utf8". SOAP::Transport::Lite does, too. Other transport 
+"text/xml; charset=utf8". SOAP::Transport does, too. Other transport 
 backends may behave different.
 =head2 R1014
@@ -294,6 +292,17 @@ SOAP::WSDL::Client always assures the SOAPaction header is quoted, thus
 automatically inserts the empty string if no SOAPAction header is defined.
 =head2 R1015
 A RECEIVER MUST generate a fault if they encounter a message whose document 
 element has a local name of "Envelope" but a namespace name that is not 
 "http://schemas.xmlsoap.org/soap/envelope/".
 SOAP::WSDL::Expat::MessageParser checks the namespace of the SOAP envelope.
 SOAP::WSDL::Expat::MessageParser does not check that Envelope is the root 
 element, yet.
 =head1 RULES NOT CONFIRMED
@@ -347,16 +356,6 @@ However, rpc-literal bindings are not supported, yet.
 TODO support rpc-literal bindings.
 =head2 R1015
 A RECEIVER MUST generate a fault if they encounter a message whose document 
 element has a local name of "Envelope" but a namespace name that is not 
 "http://schemas.xmlsoap.org/soap/envelope/".
 SOAP::WSDL::Expat::MessageParser does not check the namespace of the SOAP envelope.
 TODO implement checking namespace of the SOAP envelope and emit fault if not "http://schemas.xmlsoap.org/soap/envelope/".
 =head2 R2008   
 In a DESCRIPTION the value of the location attribute of a wsdl:import element 
@@ -1,71 +0,0 @@
 Release notes for SOAP::WSDL 2.00_11
 -------
 I'm happy to present a new pre-release version of SOAP::WSDL.
 The following features were added (the numbers in 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::Lite's set_serializer 
    method.
 The following bugs have been fixed (the numbers in 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
   * The missing prerequisite Template has been added.
   * Documentation has been improved.
 The following changes were made in former pre-relase versions:
 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 message parser may skip unwanted parts of the message - see 
     SOAP::WSDL::Expat::MessageParser for details.
   * HTTP Content-Type is configurable now
   * SOAP::WSDL::XSD::Typelib::ComplexType based objects now accept a 
     list ref of hash refs as parameter to set_value.
   * SOAP::WSDL::XSD::Typelib::Builtin::dateTime and ::date now converts 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
   * WSDLHandler now handles <wsdl:documentation> tags
   * SOAP::WSDL::Definitions now includes some usable doc in generated interface classes
   * fixed explain in SimpleType, ComplexType and Element (someway)
@@ -273,8 +273,8 @@ This module may be used under the same terms as perl itself.
 $ID: $
- $LastChangedDate: 2007-08-31 17:28:29 +0200 (Fr, 31 Aug 2007) $
+ $LastChangedDate: 2007-09-10 17:54:52 +0200 (Mo, 10 Sep 2007) $
- $LastChangedRevision: 176 $
+ $LastChangedRevision: 214 $
 $LastChangedBy: kutterma $
 $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/SAX/MessageHandler.pm $
@@ -3,7 +3,8 @@ package SOAP::WSDL::Serializer::SOAP11;
 use strict;
 use warnings;
 use Class::Std::Storable;
-# use base qw/SOAP::WSDL::Base/;
+
 our $VERSION='2.00_13';
 my $SOAP_NS = 'http://schemas.xmlsoap.org/soap/envelope/';
 my $XML_INSTANCE_NS = 'http://www.w3.org/2001/XMLSchema-instance';
@@ -46,26 +47,25 @@ sub serialize {
 }
 sub serialize_header {
-    my $xml = '';
+    my ($self, $name, $data, $opt) = @_;
-    return $xml;
+    
    # header is optional. Leave out if there's no header data
    return q{} if not $data;
    return join ( ($opt->{ readable }) ? "\n" : q{}, 
        "<$opt->{ namespace }->{ $SOAP_NS }\:Header>",
        "$data",
        "</$opt->{ namespace }->{ $SOAP_NS }\:Header>",
    );
 }
 sub serialize_body {
-    my $self = shift;
+    my ($self, $name, $data, $opt) = @_;
    my $name = shift;
    my $data = shift;
    my $opt = shift;
-    my $soap_prefix = $opt->{ namespace }->{ $SOAP_NS };
+    # Body is NOT optional. Serialize to empty body 
-
+    # if we have no data.
-    my $xml = '';
+    return join ( ($opt->{ readable }) ? "\n" : q{}, 
-    $xml .= "\n" if ($opt->{ readable });
+        "<$opt->{ namespace }->{ $SOAP_NS }\:Body>",
-    $xml .= "<$soap_prefix\:Body>";
+        defined $data ? "$data" : (),
-    $xml .= "\n" if ($opt->{ readable });
+        "</$opt->{ namespace }->{ $SOAP_NS }\:Body>",
-
+    );
    # include parts
    $xml .= $data if ( defined($data) );
    $xml .= "</$soap_prefix\:Body>";
    return $xml;
 }
@@ -56,14 +56,8 @@ sub send_receive {
        ],
        $envelope );
    use Data::Dumper;
    warn Dumper $request;
    my $response = $self->request( $request );
    warn Dumper $response;
    $self->code( $response->code);
    $self->message( $response->message);
    $self->is_success($response->is_success);
@@ -98,9 +92,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 =head1 REPOSITORY INFORMATION
- $Rev: 176 $
+ $Rev: 218 $
 $LastChangedBy: kutterma $
- $Id: HTTP.pm 176 2007-08-31 15:28:29Z kutterma $
+ $Id: HTTP.pm 218 2007-09-10 16:19:23Z kutterma $
 $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Transport/HTTP.pm $
 =cut
@@ -14,6 +14,8 @@ my %base_of         :ATTR(:name<base>       :default<()>);
 my %itemType_of     :ATTR(:name<itemType>   :default<()>);
 my %enumeration_of  :ATTR(:name<enumeration>   :default<()>);
 my %abstract_of     :ATTR(:name<abstract>   :default<()>);
 my %mixed_of        :ATTR(:name<mixed>      :default<()>);      # default is false
 # is set to simpleContent/complexContent
 my %content_Model_of    :ATTR(:name<contentModel>   :default<()>);
@@ -181,7 +183,7 @@ sub to_class {
 my $template = <<'EOT';
 package [% type_prefix %][% self.get_name %];
 use strict;
-use Class::Std::Storable;
+
 use SOAP::WSDL::XSD::Typelib::ComplexType;
 use base qw(
    SOAP::WSDL::XSD::Typelib::ComplexType
@@ -244,7 +244,7 @@ sub to_class {
 my $template = <<'EOT';
 package [% element_prefix %][% self.get_name %];
 use strict;
-use Class::Std::Storable;
+
 use SOAP::WSDL::XSD::Typelib::Element;
 [% IF (type = self.first_simpleType) %]
@@ -215,13 +215,20 @@ All input variants supported by Date::Parse are supported. You may even pass
 in dateTime strings - the time part will be ignored. Note that 
 set_value is around 100 times slower when setting non-XML-time strings
 When setting dates before the beginning of the epoch (negative UNIX timestamp), 
 you should use the XML date string format for setting dates. The behaviour of 
 Date::Parse for dates before the epoch is system dependent.
 =head2 SOAP::WSDL::XSD::Typelib::Builtin::dateTime
 dateTime values are automatically converted into XML dateTime strings during setting:
 YYYY-MM-DDThh:mm:ss.nnnnnnn+zz:zz
-The optional nanoseconds parts is excluded in converted values, as it would always be 0.
+The fraction of seconds (nnnnnnn) part is optional. Fractions of seconds may 
 be given with arbitrary precision
 The fraction of seconds part is excluded in converted values, as it would always be 0.
 All input variants supported by Date::Parse are supported. Note that 
 set_value is around 100 times slower when setting non-XML-time strings
@@ -39,27 +39,39 @@ sub set_value {
    #2037-12-31+01:00
    if (
        $_[1] =~ m{ ^\d{4} \- \d{2} \- \d{2} 
-            (:? [\+\-] \d{2} \: \d{2} )?$
+            (:? [\+\-] \d{2} \: \d{2} )$
        }xms       
    ) {
        $_[0]->SUPER::set_value($_[1])
    }
-    # use a combination of strptime and strftime for converting the date
+    # converting a date is hard work: It needs a timezone, because 
-    # Unfortunately, strftime outputs the time zone as [+-]0000, whereas XML
+    # 2007-12-30+12:00 and 2007-12-31-12:00 mean the same day - just in 
-    # whants it as [+-]00:00
+    # different locations.
-    # We know that the latter part of the TZ is always :00 (there's no time 
+    # strftime actually prints out the correct date, but always prints the 
-    # zone whith minute offset yet), so we just use substr to get the part 
+    # local timezone with %z.
-    # up to the last 2 timezone digits and append :00
+    # So, if our timezone is not 0, we strftime it without timezone and 
-    # We leave out the optional nanoseconds part, as it would always be empty.
+    # append it by hand by the following formula:
    # The timezone hours are the int (timesone seconds / 3600)
    # The timezone minutes (if someone ever specifies something like that) 
    # are int( (seconds % 3600) / 60 ) 
    # say, int( (seconds modulo 3600) / 60 )
    #
    # If we have no timezone (meaning the timezone is 
    else {
        # strptime sets empty values to undef - and strftime doesn't like that...
-        my @time_from = map { ! defined $_ ? 0 : $_ } strptime($_[1]);
+        my @time_from =  strptime($_[1]);
        my $time_zone_seconds = $time_from[6];
        @time_from = map { (! defined $_) ? 0 : $_ } @time_from;
 #        use Data::Dumper;
-#        die Dumper \@time_from;
+#        warn Dumper \@time_from, sprintf('%+03d%02d', $time_from[6] / 3600, $time_from[6] % 60 );
-        my $time_str = strftime( '%Y-%m-%d%z', @time_from );
+        my $time_str = defined $time_zone_seconds
          ? strftime( '%Y-%m-%d', @time_from ) 
            . sprintf('%+03d%02d', int($time_from[6] / 3600), int ( ($time_from[6] % 3600) / 60 ) )
          : do { 
              strftime( '%Y-%m-%d%z', @time_from );
          };
        substr $time_str, -2, 0, ':';
        $_[0]->SUPER::set_value($time_str);
    }
 }
@@ -37,29 +37,20 @@ BEGIN {
 sub set_value {
    # use set_value from base class if we have a XML-DateTime format
    #2037-12-31T00:00:00.0000000+01:00
-    if (
+    return $_[0]->SUPER::set_value($_[1]) if (
        $_[1] =~ m{ ^\d{4} \- \d{2} \- \d{2} 
            T \d{2} \: \d{2} \: \d{2} (:? \. \d{1,7} )?
            [\+\-] \d{2} \: \d{2} $
        }xms       
-    ) {
+    );
        $_[0]->SUPER::set_value($_[1])
    }
    # use a combination of strptime and strftime for converting the date
    # strptime does not emit timezone info, so we're pretty fucked up here.
    # 
    # Unfortunately, strftime outputs the time zone as [+-]0000, whereas XML
    # whants it as [+-]00:00
    # We leave out the optional nanoseconds part, as it would always be empty.
    else {
        # strptime sets empty values to undef - and strftime doesn't like that...
        my @time_from = map { ! defined $_ ? 0 : $_ } strptime($_[1]);
        undef $time_from[-1];
-        my $time_str = strftime( '%Y-%m-%dT%H:%M:%S%z', @time_from );
+    # strptime sets empty values to undef - and strftime doesn't like that...
-        substr $time_str, -2, 0, ':';
+    my @time_from = map { ! defined $_ ? 0 : $_ } strptime($_[1]);
-        $_[0]->SUPER::set_value($time_str);
+    undef $time_from[-1];
-    }
+        
    my $time_str = strftime( '%Y-%m-%dT%H:%M:%S%z', @time_from );
    substr $time_str, -2, 0, ':';
    $_[0]->SUPER::set_value($time_str);
 }
 1;
@@ -4,9 +4,9 @@ use strict;
 use warnings;
 use Carp;
 use SOAP::WSDL::XSD::Typelib::Builtin;
-use Scalar::Util qw(blessed);
+use Scalar::Util qw(blessed refaddr);
 use Class::Std::Storable;
 use Data::Dumper;
 use Class::Std::Storable;
 use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anyType);
@@ -64,7 +64,7 @@ sub _factory {
        my $is_list = $type->isa('SOAP::WSDL::XSD::Typelib::Builtin::list');
        *{ "$class\::set_$name" } = sub  {
-            my ($self, $value) = @_;
+            # my ($self, $value) = @_;
 #  The structure below looks rather weird, but is optimized for performance.
 #
@@ -93,11 +93,11 @@ sub _factory {
 #  for GLOB references, feel free to add them.
 #  d) we should also die for non-blessed non-ARRAY/HASH references in lists but don't do yet - oh my ! 
-            my $is_ref = ref $value;
+            my $is_ref = ref $_[1];
-            $attribute_ref->{ ident $self } = ($is_ref) 
+            $attribute_ref->{ ident $_[0] } = ($is_ref) 
                ? $is_ref eq 'ARRAY' 
                    ? $is_list                             # remembered from outside closure 
-                        ? $type->new({ value => $value })  # list element - can take list ref as value
+                        ? $type->new({ value => $_[1] })   # list element - can take list ref as value
                        : [ map {                          
                            ref $_ 
                              ? ref $_ eq 'HASH'
@@ -106,20 +106,20 @@ sub _factory {
                                      ? $_
                                      : croak "cannot use " . ref($_) . " reference as value for $name - $type required"
                              : $type->new({ value => $_ })
-                            } @{ $value } 
+                            } @{ $_[1] } 
                         ]
                    : $is_ref eq 'HASH' 
-                        ?  $type->new( $value )
+                        ?  $type->new( $_[1] )
                        :  $is_ref eq $type
-                            ? $value
+                            ? $_[1]
                            : die croak "cannot use $is_ref reference as value for $name - $type required"
-                : $type->new({ value => $value });                     
+                : $type->new({ value => $_[1] });                     
        };
        *{ "$class\::add_$name" } = sub {
            my $ident = ident $_[0];
            warn "attempting to add empty value to " . ref $_[0] 
-                if (not defined $_[1]);
+                if not defined $_[1];
            # first call
            return $attribute_ref->{ $ident } = $_[1]
@@ -133,16 +133,30 @@ sub _factory {
            return push @{ $attribute_ref->{ $ident } }, $_[1];                                          
        };
        *{ "$class\::$name" } = *{ "$class\::add_$name" };
    }
-    *{ "$class\::START" } = sub {
+    *{ "$class\::new" } = sub {
-        my ($self, $ident, $args_of) = @_;
+        my $self = bless \my ($o), $_[0];
        $self->BUILD( ident $self, $_[1] ) if exists &BUILD;
        $self->_init( ident $self, $_[1] );
        $self->START( ident $self, $_[1] ) if exists &START;        
        return $self;
    };
    *{ "$class\::_init" } = sub {
        # We're working on @_ for speed.
        # Normally, the first line would look like this:
        # my ($self, $ident, $args_of) = @_;
        #
        # The hanging side comment show you what would be there, then.
        # iterate over keys of arguments 
        # and call set appropriate field in clase
        map { ($ATTRIBUTES_OF{ $class }->{ $_ }) 
            ? do {
                 my $method = "set_$_";
-                 $self->$method( $args_of->{ $_ } );
+                 $_[0]->$method( $_[2]->{ $_ } );               # ( $args_of->{ $_ } );
           }
           : $_ =~ m{ \A              # beginning of string
                      xmlns           # xmlns 
@@ -152,8 +166,8 @@ sub _factory {
                     croak "unknown field $_ in $class. Valid fields are:\n" 
                     . join(', ', @{ $ELEMENTS_FROM{ $class } }) . "\n"
                     . "Structure given:\n" . Dumper @_ };
-        } keys %$args_of;
+        } keys %{ $_[2] };                                      # %$args_of;
-        return $self;
+        return $_[0];                                           # $self;
    };
@@ -1,8 +1,6 @@
 #!/usr/bin/perl
 package SOAP::WSDL::XSD::Typelib::Element;
 use strict;
 use Class::Std::Storable;
 use Data::Dumper;
 my %NAME;
 my %NILLABLE;
@@ -1,30 +1,24 @@
 #!/usr/bin/perl -w
 use strict;
 use warnings;
-use Test::More tests => 18; # qw/no_plan/; # TODO: change to tests => N;
+use Test::More tests => 17;
 use lib '../lib';
 use XML::LibXML;
 eval {
    require Test::XML;
    import Test::XML;
 };
-use_ok(qw/SOAP::WSDL::SAX::WSDLHandler/);
+use_ok(qw/SOAP::WSDL::Expat::WSDLParser/);
 my $filter;
-ok($filter = SOAP::WSDL::SAX::WSDLHandler->new(
+my $parser = SOAP::WSDL::Expat::WSDLParser->new();
 ), "Object creation");
 my $parser = XML::LibXML->new();
 $parser->set_handler( $filter );
 $parser->parse_string( xml() );
 my $wsdl;
-ok( $wsdl = $filter->get_data() , "get object tree");
+ok( $wsdl = $parser->get_data() , "get object tree");
 my $types = $wsdl->first_types();
@@ -193,6 +187,14 @@ sub xml
                         </xsd:sequence>
                </xsd:complexType>
                <xsd:complexType name="mixed" mixed="true">
                        <xsd:sequence>
                                  <xsd:element name="length" type="tns:length3"/>
                                  <xsd:element name="int" type="xsd:int"/>
                         </xsd:sequence>
                </xsd:complexType>
                <xsd:element name="TestElement" type="xsd:int"/>
                <xsd:element name="TestElementComplexType" type="tns:length3"/>
                <xsd:simpleType name="testSimpleType1">
@@ -1,16 +1,13 @@
 use Test::More tests => 11;
 use Data::Dumper;
 use lib '../lib';
 use XML::LibXML;
-use_ok(qw/SOAP::WSDL::SAX::WSDLHandler/);
+use_ok(qw/SOAP::WSDL::Expat::WSDLParser/);
 my $filter;
-ok($filter = SOAP::WSDL::SAX::WSDLHandler->new(), "Object creation");
+my $parser;
-my $parser = XML::LibXML->new();
+ok($parser = SOAP::WSDL::Expat::WSDLParser->new() );
 $parser->set_handler( $filter );
 eval { $parser->parse_string( xml() ) };
 if ($@)
@@ -24,8 +21,7 @@ else
 }
 my $wsdl;
-ok( $wsdl = $filter->get_data() , "get object tree");
+ok( $wsdl = $parser->get_data() , "get object tree");
 my $schema = $wsdl->first_types();
@@ -4,21 +4,16 @@ use warnings;
 use Test::More tests => 5;
 use lib '../lib';
 use XML::LibXML;
 eval {
    require Test::XML;
    import Test::XML;
 };
-use_ok(qw/SOAP::WSDL::SAX::WSDLHandler/);
+use_ok(qw/SOAP::WSDL::Expat::WSDLParser/);
-my $filter;
+my $parser;
-ok($filter = SOAP::WSDL::SAX::WSDLHandler->new(), "Object creation");
+ok($parser = SOAP::WSDL::Expat::WSDLParser->new(), "Object creation");
 my $parser = XML::LibXML->new();
 $parser->set_handler( $filter );
 eval { $parser->parse_string( xml() ) };
 if ($@)
@@ -32,7 +27,7 @@ else
 }
 my $wsdl;
-ok( $wsdl = $filter->get_data() , "get object tree");
+ok( $wsdl = $parser->get_data() , "get object tree");
 my $schema = $wsdl->get_types()->[0]->get_schema()->[0] || die "No schema !";
@@ -2,21 +2,13 @@
 use strict;
 use warnings;
 use Test::More qw/no_plan/; # TODO: change to tests => N;
 use Data::Dumper;
 use lib '../lib';
 use XML::LibXML;
-use diagnostics;
+use_ok(qw/SOAP::WSDL::Expat::WSDLParser/);
-use_ok(qw/SOAP::WSDL::SAX::WSDLHandler/);
+my $parser;
 my $filter;
 ok($filter = SOAP::WSDL::SAX::WSDLHandler->new(), "Object creation");
 my $parser = XML::LibXML->new();
 $parser->set_handler( $filter );
 ok($parser = SOAP::WSDL::Expat::WSDLParser->new(), "Object creation");
 eval { $parser->parse_string( xml() ) };
 if ($@)
 {
@@ -29,7 +21,7 @@ else
 }
 my $wsdl;
-ok( $wsdl = $filter->get_data() , "get object tree");
+ok( $wsdl = $parser->get_data() , "get object tree");
 my $opt = {
 	namespace => $wsdl->get_xmlns(),
@@ -11,8 +11,6 @@ else {
    plan skip_all => "Cannot test without XML::LibXML";
 }
 use diagnostics;
 use_ok(qw/SOAP::WSDL::SAX::WSDLHandler/);
 my $filter;
@@ -9,8 +9,6 @@ eval {
    import Test::XML
 };
 use diagnostics;
 use Cwd;
 my $path = cwd;
@@ -10,7 +10,7 @@ eval {
    import Test::XML;
 };
-use_ok qw/SOAP::WSDL::Envelope/;
+use_ok qw/SOAP::WSDL::Serializer::SOAP11/;
 my $opt = {
    readable => 1,
@@ -18,7 +18,7 @@ my $opt = {
    },
 };
 my $xml;
-ok( $xml = SOAP::WSDL::Envelope->serialize(
+ok( $xml = SOAP::WSDL::Serializer::SOAP11->serialize(
    undef, undef, $opt
    ),
    "serialize empty envelope"
@@ -40,8 +40,6 @@ is $obj, '<MyAtomicComplexTypeElement xmlns="urn:Test" ><test >Test</test>'
    . '</MyAtomicComplexTypeElement>'
    , 'multi value stringification';
 use diagnostics;
 ok $obj = MyComplexTypeElement->new({ MyTestName => 'test' });
 is $obj, '<MyComplexTypeElement xmlns="urn:Test" ><MyTestName >test</MyTestName ></MyComplexTypeElement>';
@@ -1,30 +1,18 @@
 #!/usr/bin/perl -w
 use strict;
 use warnings;
-use Test::More;
+use Test::More tests => 5;
 use lib '../lib';
 if (eval "require XML::LibXML") {
     plan tests => 5;
 }
 else {
    plan skip_all => "Cannot test without XML::LibXML";
 }
 eval {
    require Test::XML;
    import Test::XML;
 };
-use_ok(qw/SOAP::WSDL::SAX::WSDLHandler/);
+use_ok(qw/SOAP::WSDL::Expat::WSDLParser/);
-my $filter;
+my $parser;
 ok($filter = SOAP::WSDL::SAX::WSDLHandler->new(), "Object creation");
 my $parser = XML::LibXML->new();
 $parser->set_handler( $filter );
 ok($parser = SOAP::WSDL::Expat::WSDLParser->new(), "Object creation");
 eval { $parser->parse_string( xml() ) };
 if ($@)
 {
@@ -37,7 +25,7 @@ else
 }
 my $wsdl;
-ok( $wsdl = $filter->get_data() , "get object tree");
+ok( $wsdl = $parser->get_data() , "get object tree");
 ok $wsdl->to_typemap( { prefix => 'CP::EAI::Typelib::' } ), 'typemap';
 exit;
@@ -1,11 +1,11 @@
 #!/usr/bin/perl
 use Test::More tests => 9;
 use strict;
 use diagnostics;
 use lib 'lib/';
 use lib '../lib/';
 use lib 't/lib';
 use_ok qw(SOAP::WSDL::SOAP::Typelib::Fault11);
 use_ok qw(SOAP::WSDL::XSD::Typelib::Element);
 use_ok qw( MyElement );
 use_ok qw( SOAP::WSDL::Client );
@@ -30,14 +30,16 @@ my $soap = SOAP::WSDL::Client->new( {
    ->proxy('http://bla')
        ->no_dispatch(1);
-is $soap->call('Test', $obj), q{<SOAP-ENV:Envelope }
+# TODO: use Test::XML for testing and re-integrate
-    . q{xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" }
+
-    . q{xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" >}
+#  is $soap->call('Test', $obj), q{<SOAP-ENV:Envelope }
-    . q{<SOAP-ENV:Body><MyAtomicComplexTypeElement xmlns="urn:Test" >}
+    #  . q{xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" }
-    . q{<test >Test</test>}
+    #  . q{xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" >}
-    . q{<test2 >Test2</test2>}
+    #  . q{<SOAP-ENV:Body><MyAtomicComplexTypeElement xmlns="urn:Test" >}
-    . q{</MyAtomicComplexTypeElement></SOAP-ENV:Body></SOAP-ENV:Envelope>}
+    #  . q{<test >Test</test>}
-    , 'SOAP Envelope generation with objects';
+    #  . q{<test2 >Test2</test2>}
    #  . q{</MyAtomicComplexTypeElement></SOAP-ENV:Body></SOAP-ENV:Envelope>}
    #  , 'SOAP Envelope generation with objects';
 my $result = $soap->proxy('http://bla')
    ->no_dispatch(0)
@@ -59,8 +59,8 @@ TODO: {
 };
 SKIP: {
-    eval "require Test::Pod";
+    eval "require Test::Pod; ";
-    skip 'Cannot test generated POD without Test::POD' , 6 if $@;
+    skip 'Cannot test generated POD without Test::POD' , 12 if $@;
    foreach my $module (Test::Pod::all_pod_files( "$path/testlib")) {
        Test::Pod::pod_file_ok( $module )
@@ -69,7 +69,7 @@ TODO: {
 SKIP: {
    eval "require Test::Pod";
-    skip 'Cannot test generated POD without Test::POD' , 6 if $@;
+    skip 'Cannot test generated POD without Test::POD' , 12 if $@;
    foreach my $module (Test::Pod::all_pod_files( "$path/testlib")) {
        Test::Pod::pod_file_ok( $module )
@@ -12,7 +12,7 @@
 use strict;
 use Test::More tests => 4;
-use lib '../..';
+use lib '../../../lib/';
 use Cwd;
 use File::Basename;
@@ -1,5 +1,8 @@
-use Test::More tests => 6;
+use Test::More tests => 30;
 use strict;
 use Carp qw(cluck);
 $SIG{__WARN__} = sub { cluck @_ };
 use warnings;
 use lib '../lib';
 use Date::Format;
@@ -8,7 +11,7 @@ use_ok('SOAP::WSDL::XSD::Typelib::Builtin::date');
 my $obj;
 sub timezone {
-    my @time = strptime shift;
+    my @time = map { defined $_ ? $_ : 0 } strptime shift;
    my $tz = strftime('%z', @time);
    substr $tz, -2, 0, ':';
    return $tz;
@@ -20,6 +23,44 @@ my %dates = (
    '30 Aug 2007' => '2007-08-30',
 );
 my %localized_date_of = (
    '2007-12-31T00:00:00.0000000+0000' => '2007-12-31+00:00',
    '2007-12-31T00:00:00.0000000+0130' => '2007-12-31+01:30',
    '2007-12-31T00:00:00.0000000+0200' => '2007-12-31+02:00',
    '2007-12-31T00:00:00.0000000+0300' => '2007-12-31+03:00',
    '2007-12-31T00:00:00.0000000+0400' => '2007-12-31+04:00',
    '2007-12-31T00:00:00.0000000+0500' => '2007-12-31+05:00',
    '2007-12-31T00:00:00.0000000+0600' => '2007-12-31+06:00',
    '2007-12-31T00:00:00.0000000+0700' => '2007-12-31+07:00',
    '2007-12-31T00:00:00.0000000+0800' => '2007-12-31+08:00',
    '2007-12-31T00:00:00.0000000+0900' => '2007-12-31+09:00',
    '2007-12-31T00:00:00.0000000+1000' => '2007-12-31+10:00',
    '2007-12-31T00:00:00.0000000+1100' => '2007-12-31+11:00',    
    '2007-12-31T00:00:00.0000000+1200' => '2007-12-31+12:00',    
    '2007-12-31T00:00:00.0000000-0100' => '2007-12-31-01:00',
    '2007-12-31T00:00:00.0000000-0200' => '2007-12-31-02:00',
    '2007-12-31T00:00:00.0000000-0300' => '2007-12-31-03:00',
    '2007-12-31T00:00:00.0000000-0400' => '2007-12-31-04:00',
    '2007-12-31T00:00:00.0000000-0500' => '2007-12-31-05:00',
    '2007-12-31T00:00:00.0000000-0600' => '2007-12-31-06:00',
    '2007-12-31T00:00:00.0000000-0700' => '2007-12-31-07:00',
    '2007-12-31T00:00:00.0000000-0800' => '2007-12-31-08:00',
    '2007-12-31T00:00:00.0000000-0900' => '2007-12-31-09:00',
    '2007-12-31T00:00:00.0000000-1000' => '2007-12-31-10:00',
    '2007-12-31T00:00:00.0000000-1100' => '2007-12-31-11:00',    
    '2007-12-31T00:00:00.0000000-1200' => '2007-12-31-12:00',    
 );
 while (my ($date, $converted) = each %localized_date_of ) {
    $obj = SOAP::WSDL::XSD::Typelib::Builtin::date->new();
    $obj->set_value( $date );
    is $obj->get_value() , $converted , 'conversion';
 }
 while (my ($date, $converted) = each %dates ) {
    $obj = SOAP::WSDL::XSD::Typelib::Builtin::date->new();
@@ -28,9 +69,6 @@ while (my ($date, $converted) = each %dates ) {
    is $obj->get_value() , $converted . timezone($date), 'conversion';
 }
-$obj->set_value('2007-12-31T00:00:00.0000000+01:00');
+$obj->set_value( '2037-12-31+12:00' );
-is $obj->get_value() , '2007-12-31+01:00', 'conversion from XML dateTime';
+is $obj->get_value() , '2037-12-31+12:00', 'no conversion on match';
 $obj->set_value( '2037-12-31' );
 is $obj->get_value() , '2037-12-31', 'no conversion on match';
@@ -2,7 +2,7 @@
 <definitions name="urn:simpleType" 
 	targetNamespace="urn:simpleType"
 	xmlns:tns="urn:simpleType"
-	xmlns:wsd="http://www.w3c.org/2001/XMLSchema"
+	xmlns:xsd="http://www.w3c.org/2001/XMLSchema"
 	xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
 	xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
 >
@@ -1,7 +1,6 @@
 #!/usr/bin/perl
 package MyElement;
 use strict;
 use Class::Std::Storable;
 use SOAP::WSDL::XSD::Typelib::Element;
 use SOAP::WSDL::XSD::Typelib::Builtin;
 use base (
@@ -14,7 +13,6 @@ sub get_xmlns { 'urn:Test' };
 package MyComplexTypeElement;
 use strict;
 use Class::Std::Storable;
 use SOAP::WSDL::XSD::Typelib::Element;
 use MyComplexType;
 use base (
@@ -27,7 +25,6 @@ sub get_xmlns { 'urn:Test' };
 package MyTestElement;
 use strict;
 use Class::Std::Storable;
 use SOAP::WSDL::XSD::Typelib::Element;
 use SOAP::WSDL::XSD::Typelib::Builtin::string;
 use base (
@@ -41,7 +38,6 @@ sub get_xmlns { 'urn:Test' };
 package MyTestElement2;
 use strict;
 use Class::Std::Storable;
 use SOAP::WSDL::XSD::Typelib::Element;
 use SOAP::WSDL::XSD::Typelib::Builtin;
 use base (
@@ -57,7 +53,6 @@ sub get_xmlns { 'urn:Test' };
 package MyAtomicComplexTypeElement;
 use strict;
 use Class::Std::Storable;
 use SOAP::WSDL::XSD::Typelib::Element;
 use SOAP::WSDL::XSD::Typelib::ComplexType;
 use SOAP::WSDL::XSD::Typelib::Builtin;
@@ -1,7 +1,6 @@
 package Typelib::TEnqueueMessage;
 use strict;
 use base qw(Typelib::Base);
 use Class::Std::Storable;
 my %MMessage_of :ATTR(:name<MMessage> :default<()>);
@@ -1,7 +1,6 @@
 package Typelib::TMessage;
 use strict;
 use base qw(Typelib::Base);
 use Class::Std::Storable;
 my %MRecipientURI_of   :ATTR(:name<MRecipientURI> :default<()>);
 my %MMessageContent_of :ATTR(:name<MMessageContent> :default<()>);
@@ -0,0 +1,15 @@
 use Date::Format;
 use Date::Parse;
 use Date::Language;
 my $date_string='2007-12-13T00:00:00.12345+0300';
 my $time = str2time( $date_string );
 print $time,"\n";
 $date_string='2007-12-13T00:00:00.12345+0200';
 my $time = str2time( $date_string );
 print time2str('%d. %B %Y %H %M %S', $time, '+0200' );