import SOAP-WSDL 2.00_11 from CPAN

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

Build.PL

@@ -1,43 +1,40 @@
 use Module::Build;
+
 Module::Build->new(
-        create_makefile_pl => 'passthrough',
+	create_makefile_pl => 'passthrough',
-	dist_abstract => 'SOAP with WSDL support',
+	dist_abstract      => 'SOAP with WSDL support',
-	dist_name => 'SOAP-WSDL',
+	dist_name          => 'SOAP-WSDL',
-	dist_version => '2.00_10',
+	dist_version       => '2.00_11',
-	module_name   => 'SOAP::WSDL',
+	module_name        => 'SOAP::WSDL',
-	license       => 'artistic',
+	license            => 'artistic',
-	requires      => {
+	requires           => {
-	    'Class::Std' => q/v0.0.8/,
+		'Class::Std'              => q/v0.0.8/,
-	    'Class::Std::Storable' => 0,
+		'Class::Std::Storable'    => 0,
-	    'Date::Parse' => 0,
+		'Date::Parse'             => 0,
-	    'Date::Format' => 0,
+		'Date::Format'            => 0,
-            'LWP::UserAgent' => 0,
+		'LWP::UserAgent'          => 0,
-            'List::Util' => 0,
+		'List::Util'              => 0,
-            'File::Basename' => 0,
+		'File::Basename'          => 0,
-            'File::Path' => 0,
+		'File::Path'              => 0,
-            'XML::LibXML' => 0,
+		'XML::Parser::Expat'      => 0,
-            'XML::SAX::Base' => 0,
+		'Template'                => 0,
-            'XML::SAX::ParserFactory' => 0,
+		'Getopt::Long'            => 0,
-            'XML::Parser::Expat' => 0,
 	},
-	buildrequires => {	
+	buildrequires => {
-	    'Date::Parse' => 0,
+		'Date::Parse'             => 0,
-	    'Date::Format' => 0,
+		'Date::Format'            => 0,
-	    'Benchmark' => 0, 
+		'Test::More'              => 0,
-	    'Cwd' => 0,    
+		'Class::Std'              => q/v0.0.8/,
-	    'Test::More' => 0,
+		'Class::Std::Storable'    => 0,
-	    'Class::Std' => 0.0.8,
+		'List::Util'              => 0,
-	    'Class::Std::Storable' => 0,        
+		'LWP::UserAgent'          => 0,
-            'List::Util' => 0,
+		'File::Basename'          => 0,
-            'LWP::UserAgent' => 0,
+		'File::Path'              => 0,
-            'File::Basename' => 0,
+		'XML::Parser::Expat'      => 0,
-            'File::Path' => 0,
+		'Template'                => 0,	
-            'XML::Simple' => 0,
+		'Getopt::Long'            => 0,
-            'XML::LibXML' => 0,
+		'Cwd'                     => 0,
-            'XML::Parser::Expat' => 0,
+		'File::Find'              => 0,
-            'XML::SAX::Base' => 0,
-            'XML::SAX::ParserFactory' => 0,
-            'Pod::Simple::Text' => 0,
 	},
 	recursive_test_files => 1,
 )->create_build_script;

CHANGES

@@ -1,4 +1,143 @@
 ------------------------------------------------------------------------
+r176 | kutterma | 2007-08-31 17:28:29 +0200 (Fr, 31 Aug 2007) | 2 lines
+
+- set SVN keywords
+- updated docs
+------------------------------------------------------------------------
+r175 | kutterma | 2007-08-31 17:05:42 +0200 (Fr, 31 Aug 2007) | 6 lines
+
+- modified SOAP::WSDL::Client to allow passing the SOAPAction header to call()
+- modified SOAP::WSDL::Definitions's generator to emit interfaces which include 
+  soap_action and style information for every operation
+- re-generated GetWeather example interface
+- fixed wsdl2perl.pl (typo)
+
+------------------------------------------------------------------------
+r174 | kutterma | 2007-08-31 15:49:04 +0200 (Fr, 31 Aug 2007) | 2 lines
+
+- SOAPAction header is now always quoted.
+- updated docs
+------------------------------------------------------------------------
+r173 | kutterma | 2007-08-31 15:48:10 +0200 (Fr, 31 Aug 2007) | 1 line
+
+- added WS-I basic profile compliance docs. Looks like we're far from being compliant...
+------------------------------------------------------------------------
+r172 | kutterma | 2007-08-30 22:58:41 +0200 (Do, 30 Aug 2007) | 1 line
+
+- updated TODO list
+------------------------------------------------------------------------
+r170 | kutterma | 2007-08-30 22:32:56 +0200 (Do, 30 Aug 2007) | 1 line
+
+- added RELEASE_NOTES
+------------------------------------------------------------------------
+r169 | kutterma | 2007-08-30 21:33:50 +0200 (Do, 30 Aug 2007) | 1 line
+
+- fixed SOAP11 serializer package name
+------------------------------------------------------------------------
+r168 | kutterma | 2007-08-30 21:32:39 +0200 (Do, 30 Aug 2007) | 4 lines
+
+- added Serializer factory
+- modified client to use serializer
+- moved old SOAP::WSDL::Envelope into Serializer namespace
+- moved Tranport factory into Factory namespace
+------------------------------------------------------------------------
+r167 | kutterma | 2007-08-30 21:30:17 +0200 (Do, 30 Aug 2007) | 1 line
+
+- fixed Envelope to comply to new serializer scheme
+------------------------------------------------------------------------
+r166 | kutterma | 2007-08-30 18:44:48 +0200 (Do, 30 Aug 2007) | 1 line
+
+- re-fixed Transport factory
+------------------------------------------------------------------------
+r165 | kutterma | 2007-08-30 18:43:36 +0200 (Do, 30 Aug 2007) | 1 line
+
+- added HTTP Transport class (really)
+------------------------------------------------------------------------
+r164 | kutterma | 2007-08-30 14:38:47 +0200 (Do, 30 Aug 2007) | 1 line
+
+- first try at serializer factory.
+------------------------------------------------------------------------
+r163 | kutterma | 2007-08-30 10:34:00 +0200 (Do, 30 Aug 2007) | 1 line
+
+- updated docs (reference to homepage and forum)
+------------------------------------------------------------------------
+r162 | kutterma | 2007-08-30 10:29:49 +0200 (Do, 30 Aug 2007) | 1 line
+
+- updated docs
+------------------------------------------------------------------------
+r161 | kutterma | 2007-08-30 10:17:28 +0200 (Do, 30 Aug 2007) | 2 lines
+
+- modified client to use SOAP::WSDL::Transport factory
+- fixed SOAP::WSDL::Transport factory
+------------------------------------------------------------------------
+r160 | kutterma | 2007-08-30 00:20:09 +0200 (Do, 30 Aug 2007) | 1 line
+
+- added weird SOAP::Lite nameing scheme to registered && SOAP::Lite Transport instantiations
+------------------------------------------------------------------------
+r159 | kutterma | 2007-08-30 00:00:15 +0200 (Do, 30 Aug 2007) | 1 line
+
+- first try at Transport factory and Transport::HTTP implementation class.
+------------------------------------------------------------------------
+r158 | kutterma | 2007-08-29 22:36:34 +0200 (Mi, 29 Aug 2007) | 1 line
+
+- updated TODO list
+------------------------------------------------------------------------
+r153 | kutterma | 2007-08-29 11:24:40 +0200 (Mi, 29 Aug 2007) | 4 lines
+
+- removed XML::LibXML dependencies (is now required, not used in test scripts)
+- fixed WSDLParser to switch on expat namespace support when parsing files
+- added expat based tests ported from XML::LibXML based WSDL parser tests
+- updated docs
+------------------------------------------------------------------------
+r152 | kutterma | 2007-08-28 23:28:06 +0200 (Di, 28 Aug 2007) | 3 lines
+
+- updated Build.PL
+- updated CHANGES
+- updated MANIFEST
+------------------------------------------------------------------------
+r151 | kutterma | 2007-08-28 23:07:14 +0200 (Di, 28 Aug 2007) | 1 line
+
+- fixed namespace test
+------------------------------------------------------------------------
+r150 | kutterma | 2007-08-28 23:06:00 +0200 (Di, 28 Aug 2007) | 1 line
+
+- renamed tests to better meet their content
+------------------------------------------------------------------------
+r149 | kutterma | 2007-08-28 23:03:30 +0200 (Di, 28 Aug 2007) | 1 line
+
+- cleanup
+------------------------------------------------------------------------
+r148 | kutterma | 2007-08-28 23:02:01 +0200 (Di, 28 Aug 2007) | 2 lines
+
+- added namespace test
+- removed SAX handler from usage test
+------------------------------------------------------------------------
+r147 | kutterma | 2007-08-28 22:57:48 +0200 (Di, 28 Aug 2007) | 1 line
+
+- added namespace support
+------------------------------------------------------------------------
+r146 | kutterma | 2007-08-28 21:56:35 +0200 (Di, 28 Aug 2007) | 1 line
+
+- removed POD directive from template, so the CPAN indexer won't show it...
+------------------------------------------------------------------------
+r145 | kutterma | 2007-08-28 16:35:18 +0200 (Di, 28 Aug 2007) | 5 lines
+
+- XML::SAX::Base and XML::SAX::ParserFactory and Pod::Simple::Text dependencies to ease testing
+- removed unneccessary performance test
+- Added Expat-based WSDL parser and test to get rid of XML::LibXML dependency some day...
+   - needs further work: namespaces are not processed correctly, yet
+
+------------------------------------------------------------------------
+r144 | kutterma | 2007-08-14 11:05:40 +0200 (Di, 14 Aug 2007) | 1 line
+
+- added missing prerequisite 'Template' to Build.PL
+------------------------------------------------------------------------
+r143 | kutterma | 2007-08-13 20:43:20 +0200 (Mo, 13 Aug 2007) | 3 lines
+
+- 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...
+- prepared 2.00_10 pre-release
+------------------------------------------------------------------------
 r142 | kutterma | 2007-08-13 15:55:45 +0200 (Mo, 13 Aug 2007) | 1 line
 
 typo

MANIFEST

@@ -22,6 +22,7 @@ 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
@@ -32,11 +33,16 @@ lib/SOAP/WSDL/Binding.pm
 lib/SOAP/WSDL/Client.pm
 lib/SOAP/WSDL/Client/Base.pm
 lib/SOAP/WSDL/Definitions.pm
-lib/SOAP/WSDL/Envelope.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/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/Message.pm
 lib/SOAP/WSDL/Operation.pm
 lib/SOAP/WSDL/OpMessage.pm
@@ -44,11 +50,14 @@ 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
 lib/SOAP/WSDL/Service.pm
 lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm
 lib/SOAP/WSDL/SoapOperation.pm
+lib/SOAP/WSDL/Transport/HTTP.pm
 lib/SOAP/WSDL/TypeLookup.pm
 lib/SOAP/WSDL/Types.pm
 lib/SOAP/WSDL/XSD/Builtin.pm
@@ -108,13 +117,18 @@ lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm
 lib/SOAP/WSDL/XSD/Typelib/Element.pm
 lib/SOAP/WSDL/XSD/Typelib/SimpleType.pm
 LICENSE
+Makefile.PL
 MANIFEST			This list of files
 META.yml
 README
 t/001_use.t
+t/002_parse_wsdl.t
 t/002_sax.t
 t/003_sax_serializer.t
+t/003_wsdl_based_serializer.t
+t/004_parse_wsdl.t
 t/004_sax_wsdl.t
+t/005_parse_contributed.t
 t/005_sax_contributed_wsdl.t
 t/006_client.t
 t/007_envelope.t
@@ -126,9 +140,13 @@ t/013_complexType.t
 t/014_sax_typelib.t
 t/015_to_typemap.t
 t/016_client_object.t
-t/017_generator.t
+t/017_generator_expat.t
-t/018_generator.t
+t/017_generator_libxml.t
+t/018_generator_expat.t
+t/018_generator_libxml.t
 t/020_storable.t
+t/021_generator_element_ref_expat.t
+t/021_generator_element_ref_libxml.t
 t/098_pod.t
 t/acceptance/results/03_complexType-all.xml
 t/acceptance/results/03_complexType-sequence.xml
@@ -142,6 +160,7 @@ t/acceptance/wsdl/006_sax_client.wsdl
 t/acceptance/wsdl/008_complexType.wsdl
 t/acceptance/wsdl/02_port.wsdl
 t/acceptance/wsdl/03_complexType-all.wsdl
+t/acceptance/wsdl/03_complexType-element-ref.wsdl
 t/acceptance/wsdl/03_complexType-sequence.wsdl
 t/acceptance/wsdl/04_element-simpleType.wsdl
 t/acceptance/wsdl/04_element.wsdl
@@ -156,6 +175,8 @@ t/acceptance/wsdl/contributed/OITest.wsdl
 t/acceptance/wsdl/contributed/tools.wsdl
 t/acceptance/wsdl/email_account.wsdl
 t/Expat/01_expat.t
+t/Expat/02_sub_parser.t
+t/Expat/03_wsdl.t
 t/lib/MyComplexType.pm
 t/lib/MyElement.pm
 t/lib/MySimpleType.pm
@@ -168,6 +189,7 @@ t/SOAP/WSDL/02_port.t
 t/SOAP/WSDL/03_complexType-all.t
 t/SOAP/WSDL/03_complexType-choice.t
 t/SOAP/WSDL/03_complexType-complexContent.t
+t/SOAP/WSDL/03_complexType-element-ref.t
 t/SOAP/WSDL/03_complexType-group.t
 t/SOAP/WSDL/03_complexType-sequence.t
 t/SOAP/WSDL/03_complexType-simpleContent.t
@@ -177,7 +199,6 @@ t/SOAP/WSDL/04_element.t
 t/SOAP/WSDL/05_simpleType-list.t
 t/SOAP/WSDL/05_simpleType-restriction.t
 t/SOAP/WSDL/05_simpleType-union.t
-t/SOAP/WSDL/10_performance.t
 t/SOAP/WSDL/11_helloworld.NET.t
 t/SOAP/WSDL/12_binding.pl
 t/SOAP/WSDL/XSD/Typelib/Builtin/001_string.t
@@ -185,4 +206,3 @@ 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
 TODO
-Makefile.PL

META.yml

@@ -1,6 +1,6 @@
 ---
 name: SOAP-WSDL
-version: 2.00_10
+version: 2.00_11
 author:
 abstract: SOAP with WSDL support
 license: artistic
@@ -11,12 +11,11 @@ requires:
   Date::Parse: 0
   File::Basename: 0
   File::Path: 0
+  Getopt::Long: 0
   LWP::UserAgent: 0
   List::Util: 0
-  XML::LibXML: 0
+  Template: 0
   XML::Parser::Expat: 0
-  XML::SAX::Base: 0
-  XML::SAX::ParserFactory: 0
 generated_by: Module::Build version 0.2808
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.2.html
@@ -35,12 +34,16 @@ provides:
     file: lib/SOAP/WSDL/Client/Base.pm
   SOAP::WSDL::Definitions:
     file: lib/SOAP/WSDL/Definitions.pm
-  SOAP::WSDL::Envelope:
-    file: lib/SOAP/WSDL/Envelope.pm
   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::Serializer:
+    file: lib/SOAP/WSDL/Factory/Serializer.pm
+  SOAP::WSDL::Factory::Transport:
+    file: lib/SOAP/WSDL/Factory/Transport.pm
   SOAP::WSDL::Message:
     file: lib/SOAP/WSDL/Message.pm
   SOAP::WSDL::OpMessage:
@@ -57,10 +60,14 @@ provides:
     file: lib/SOAP/WSDL/SAX/MessageHandler.pm
   SOAP::WSDL::SOAP::Typelib::Fault11:
     file: lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm
+  SOAP::WSDL::Serializer::SOAP11:
+    file: lib/SOAP/WSDL/Serializer/SOAP11.pm
   SOAP::WSDL::Service:
     file: lib/SOAP/WSDL/Service.pm
   SOAP::WSDL::SoapOperation:
     file: lib/SOAP/WSDL/SoapOperation.pm
+  SOAP::WSDL::Transport::HTTP:
+    file: lib/SOAP/WSDL/Transport/HTTP.pm
   SOAP::WSDL::TypeLookup:
     file: lib/SOAP/WSDL/TypeLookup.pm
   SOAP::WSDL::Types:

TODO

@@ -1,36 +1,35 @@
-- support embedded atomic types by including a second (and third and fourth) 
+TODO list for SOAP::WSDL
-package type_prefix::complex_type::element_name element package.
+
-Allow unlimited depth (though this is rather wicked).
+2.00 Pre-releases
-- fixup generated pod so it looks nice in SOAP::WSDL::Definitions.
+--------
-- remove benchmarks from tests. Create benchmark/ directory and store benchmarks in.
+* SOAP Header support (#1764845)
-- add tests for SOAP::WSDL::Definitions::create 
+
-   - test for correct creation
+* Implement a interface similar to SOAP::Schema (#1783639)
-   - test against web service (fullerdata.com?)
+
-- Improve docs
+* (#1785195) Support deserializer plugins
-   - Partially DONE
+   * Support XML::Compiled as one serializer/deserializer
-- Remove SOAP::Lite dependency - for now, just support HTTP(s) via LWP::UserAgent.
+
-   - Partially DONE. SOAP::WSDL still uses SOAP::Schema
+* Check & probably fix simpleType support. 
-- write inheritance Test for all XSD::Typelib::Builtin::* classes
+The WS at http://www.webservicex.net/genericbarcode.asmx?wsdl should 
-- Check & probably fix simpleType support. 
+make up a good example for simpleType definitions.
-The WS at http://www.webservicex.net/genericbarcode.asmx?wsdl should make up a good example for simpleType 
+
-definitions.
+* Remove benchmarks from test. Create benchmark/ directory to store benchmarks.
-- add default Fault11 typemap to generated typemaps
+
-  - DONE
+* write inheritance Test for all XSD::Typelib::Builtin::* classes
-- SOAP::WSDL::Definitions::create creates bad interface docs. Fix it.
+
-   - DONE
+* support embedded atomic types (#1761532) 
-- update all Builtin Types to new constructor BEGIN block (Class::Std unfortunately is way slow)
+Implement by including a second (and third and fourth) 
-   - DONE.
+
-- Remove useless (but on CPAN annoying) doc from Builtin::* classes
+package type_prefix::complex_type::element_name;
-   - DONE
+
-- add example WS scripts
+element package.
-   - DONE.
+Maybe even allow unlimited depth? What does the specs say?
-- SOAP::WSDL::XSD::Typelib::Builtin::string does not unescape XML builtin entities on get_value()
+
-   - WONTFIX. 
+2.1 release
-   Entities are unescaped by XML parser. 
+--------
-   If you want the plain value, you have to use get_value, as XML conversion is overloaded on stringification.
-- Make callin WS easier: implent WS-I-based SOAP::WSDL::Client::WSI
-   - WONTFIX - SOAP::WSDL::Base should behave equal
-- add capability to create request objects based on input part definitions to SOAP::WSDL::Client::Base
-   - DONE.
 
 
+Past 2.1 release
+--------
+* XML schema support ("minimal conformant") (#1764845)
+* Support SOAP attachments

bin/wsdl2perl.pl

@@ -1,13 +1,10 @@
 #!/usr/bin/perl -w
 use strict;
 use warnings;
-use Fcntl;
-use IO::File;
 use Pod::Usage;
 use Getopt::Long;
 use LWP::UserAgent;
-use SOAP::WSDL::SAX::WSDLHandler;
+use SOAP::WSDL::Expat::WSDLParser;
-use XML::LibXML;
 
 my %opt = (
   url => '',
@@ -39,8 +36,7 @@ my $url = $ARGV[0];
 pod2usage( -exit => 1 , verbose => 2 ) if ($opt{help});
 pod2usage( -exit => 1 , verbose => 1 ) if not ($url);
 
-my $handler = SOAP::WSDL::SAX::WSDLHandler->new();
+my $parser = SOAP::WSDL::Expat::WSDLParser->new();
-my $parser = XML::LibXML->new();
 
 local $ENV{HTTP_PROXY} = $opt{proxy} if $opt{proxy};
 my $lwp = LWP::UserAgent->new();
@@ -49,16 +45,13 @@ die $response->message(), "\n" if $response->code != 200;
 
 my $xml = $response->content();
 
-$parser->set_handler( $handler );
+my $wsdl = $parser->parse_string( $xml );
-$parser->parse_string( $xml );
-
-my $wsdl = $handler->get_data();
 
 if ($opt{typemap_include}) {
-  my $fh = IO::File->new($opt{typemap_include} , O_RDONLY)
+  open my $fh , $opt{typemap_include}
     or die "cannot open typemap_include file $opt{typemap_include}\n";
-  $opt{custom_types} = join q{}, $fh->getlines();
+  $opt{custom_types} .= join q{}, <$fh>;
-  $fh->close();
+  close $fh;
   delete $opt{typemap_include};
 }
 

example/lib/MyElements/GetCitiesByCountry.pm

@@ -3,6 +3,7 @@ use strict;
 use Class::Std::Storable;
 use SOAP::WSDL::XSD::Typelib::Element;
 
+
 # atomic complexType
 # <element name="GetCitiesByCountry"><complexType> definition
 use SOAP::WSDL::XSD::Typelib::ComplexType;
@@ -16,7 +17,7 @@ my %CountryName_of :ATTR(:get<CountryName>);
 
 
 __PACKAGE__->_factory(
-    [ qw( 
+    [ qw(
     CountryName
     ) ],
     { 
@@ -25,8 +26,8 @@ __PACKAGE__->_factory(
     },
     {
       
-        CountryName => 'SOAP::WSDL::XSD::Typelib::Builtin::string',        
+        CountryName => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
-         
+        
       
     }
 );
@@ -46,9 +47,16 @@ __PACKAGE__->__set_ref('');
 
 __END__
 
+
+
+
+
+
 =pod
 
-=head1 NAME MyElements::GetCitiesByCountry
+=head1 NAME 
+
+MyElements::GetCitiesByCountry
 
 =head1 SYNOPSIS
 

example/lib/MyElements/GetCitiesByCountryResponse.pm

@@ -3,6 +3,7 @@ use strict;
 use Class::Std::Storable;
 use SOAP::WSDL::XSD::Typelib::Element;
 
+
 # atomic complexType
 # <element name="GetCitiesByCountryResponse"><complexType> definition
 use SOAP::WSDL::XSD::Typelib::ComplexType;
@@ -16,7 +17,7 @@ my %GetCitiesByCountryResult_of :ATTR(:get<GetCitiesByCountryResult>);
 
 
 __PACKAGE__->_factory(
-    [ qw( 
+    [ qw(
     GetCitiesByCountryResult
     ) ],
     { 
@@ -25,8 +26,8 @@ __PACKAGE__->_factory(
     },
     {
       
-        GetCitiesByCountryResult => 'SOAP::WSDL::XSD::Typelib::Builtin::string',        
+        GetCitiesByCountryResult => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
-         
+        
       
     }
 );
@@ -46,9 +47,16 @@ __PACKAGE__->__set_ref('');
 
 __END__
 
+
+
+
+
+
 =pod
 
-=head1 NAME MyElements::GetCitiesByCountryResponse
+=head1 NAME 
+
+MyElements::GetCitiesByCountryResponse
 
 =head1 SYNOPSIS
 

example/lib/MyElements/GetWeather.pm

@@ -3,6 +3,7 @@ use strict;
 use Class::Std::Storable;
 use SOAP::WSDL::XSD::Typelib::Element;
 
+
 # atomic complexType
 # <element name="GetWeather"><complexType> definition
 use SOAP::WSDL::XSD::Typelib::ComplexType;
@@ -18,9 +19,9 @@ my %CountryName_of :ATTR(:get<CountryName>);
 
 
 __PACKAGE__->_factory(
-    [ qw( 
+    [ qw(
     CityName
-     
+    
     CountryName
     ) ],
     { 
@@ -30,11 +31,11 @@ __PACKAGE__->_factory(
     },
     {
       
-        CityName => 'SOAP::WSDL::XSD::Typelib::Builtin::string',        
+        CityName => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
-         
+        
       
-        CountryName => 'SOAP::WSDL::XSD::Typelib::Builtin::string',        
+        CountryName => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
-         
+        
       
     }
 );
@@ -54,9 +55,16 @@ __PACKAGE__->__set_ref('');
 
 __END__
 
+
+
+
+
+
 =pod
 
-=head1 NAME MyElements::GetWeather
+=head1 NAME 
+
+MyElements::GetWeather
 
 =head1 SYNOPSIS
 

example/lib/MyElements/GetWeatherResponse.pm

@@ -3,6 +3,7 @@ use strict;
 use Class::Std::Storable;
 use SOAP::WSDL::XSD::Typelib::Element;
 
+
 # atomic complexType
 # <element name="GetWeatherResponse"><complexType> definition
 use SOAP::WSDL::XSD::Typelib::ComplexType;
@@ -16,7 +17,7 @@ my %GetWeatherResult_of :ATTR(:get<GetWeatherResult>);
 
 
 __PACKAGE__->_factory(
-    [ qw( 
+    [ qw(
     GetWeatherResult
     ) ],
     { 
@@ -25,7 +26,8 @@ __PACKAGE__->_factory(
     },
     {
       
-        GetWeatherResult => 'SOAP::WSDL::XSD::Typelib::Builtin::string',        
+        GetWeatherResult => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        
       
     }
 );
@@ -45,9 +47,16 @@ __PACKAGE__->__set_ref('');
 
 __END__
 
+
+
+
+
+
 =pod
 
-=head1 NAME MyElements::GetWeatherResponse
+=head1 NAME 
+
+MyElements::GetWeatherResponse
 
 =head1 SYNOPSIS
 

example/lib/MyElements/string.pm

@@ -3,6 +3,7 @@ use strict;
 use Class::Std::Storable;
 use SOAP::WSDL::XSD::Typelib::Element;
 
+
 #
 # <element name="string" type="s:string"/> definition
 #
@@ -26,9 +27,16 @@ __PACKAGE__->__set_ref('');
 
 __END__
 
+
+
+
+
+
 =pod
 
-=head1 NAME MyElements::string
+=head1 NAME 
+
+MyElements::string
 
 =head1 SYNOPSIS
 

example/lib/MyInterfaces/GlobalWeather.pm

@@ -1,4 +1,5 @@
 package MyInterfaces::GlobalWeather;
+
 use strict;
 use warnings;
 use MyTypemaps::GlobalWeather;
@@ -16,15 +17,29 @@ sub new {
 }
 
 __PACKAGE__->__create_methods(
-              GetWeather => [ 'MyElements::GetWeather', ],
+        GetWeather => {
-              GetCitiesByCountry => [ 'MyElements::GetCitiesByCountry', ],
+            parts => [ 'MyElements::GetWeather', ],
-      
+            soap_action => 'http://www.webserviceX.NET/GetWeather',
+            style => 'document',
+            # use => '', # use not implemented yet 
+        },
+        GetCitiesByCountry => {
+            parts => [ 'MyElements::GetCitiesByCountry', ],
+            soap_action => 'http://www.webserviceX.NET/GetCitiesByCountry',
+            style => 'document',
+            # use => '', # use not implemented yet 
+        },
+
 );
 
 1;
 
 __END__
 
+
+
+
+
 =pod
 
 =head1 NAME 
@@ -64,5 +79,5 @@ SYNOPSIS:
 
 
 
-=cut
+=pod
 

example/weather.pl

@@ -14,6 +14,7 @@ use MyInterfaces::GlobalWeather;
 my $weather = MyInterfaces::GlobalWeather->new();
 my $result = $weather->GetWeather({ CountryName => 'Germany', CityName => 'Munich' });
 
-die $result->get_faultstring()->get_value() if not ($result);   # boolean comparison overloaded
+# boolean comparison overloaded
+die $result->get_faultstring()->get_value() if not ($result);   
 
 print $result->get_GetWeatherResult()->get_value() , "\n";

example/weather_wsdl.pl

@@ -22,4 +22,18 @@ my $som = $soap->wsdl("file:///$path/wsdl/globalweather.xml")
 
 die $som->message() if $som->fault();
 
-print $som->result();
+print $som->result();
+
+
+# SOAP::Lite variant:
+
+use SOAP::Lite;
+my $soap = SOAP::Lite->new()->on_action( sub { join'/', @_ } )
+  ->proxy("http://www.webservicex.net/globalweather.asmx");
+my $som = $soap->call(
+    SOAP::Data->name('GetWeather')->attr({ xmlns => 'http://www.webserviceX.NET' }), 
+    SOAP::Data->name('CountryName')->value('Germany'), 
+    SOAP::Data->name('CityName')->value('Munich') 
+);
+
+print $som->result();

example/weather_xml_compile.pl

@@ -0,0 +1,43 @@
+# Accessing the globalweather service at
+# www.webservicex.net/GlobalWeather/GlobalWeather.asmx
+#
+# Note that the GlobalWeather web service returns a (quoted) XML structure - 
+# don't be surprised by the response's format.
+#
+# I have no connection to www.webservicex.net
+# Use this script at your own risk.
+#
+# This script demonstrates the use of SOAP::WSDL in SOAP::Lite style.
+=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;

lib/SOAP/WSDL.pm

@@ -598,27 +598,14 @@ The following facets have no influence yet:
 
 =head1 SEE ALSO
 
-There are lots of SOAP Clients on CPAN, lately.
+=head2 Related projects
-
+
-You may wish to look at the following:
-
 =over
 
 =item * L<SOAP::Lite|SOAP::Lite>
 
 Full featured SOAP-library, little WSDL support. Supports rpc-encoded style only. Many protocols supported.
 
-=item * L<SOAP::Message|SOAP::Message>
-
-A very basic SOAP library without transport facilities.
-
-Handy if you got your XML message ready and just need an envelope around it.
-
-=item * L<SOAP::MySOAP|SOAP::MySOAP>
-
-An extremely basic SOAP client module - just HTTP support, no encoding / decoding, 
-HTTP headers have to be set as arguments to 'new'
-
 =item * <XML::Compile::WSDL|XML::Compile::WSDL>
 
 A promising-looking approach derived from a cool functional DOM-based XML schema parser.
@@ -629,6 +616,20 @@ Not yet finished at the time of writing - but you may wish to give it a try, esp
 if you need to adhere very closely to the XML Schema / WSDL specs. 
 
 =back
+
+=head2 Sources of documentation
+
+=over 
+
+=item * SOAP::WSDL homepage at sourceforge.net
+
+L<http://soap-wsdl.sourceforge.net>
+
+=item * SOAP::WSDL forum at CPAN::Forum
+
+L<http://www.cpanforum.com/dist/SOAP-WSDL>
+
+=back
 
 =head1 ACKNOWLEDGMENTS
 
@@ -661,9 +662,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 143 $
+ $Rev: 176 $
  $LastChangedBy: kutterma $
- $Id: WSDL.pm 143 2007-08-13 18:43:20Z kutterma $
+ $Id: WSDL.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.pm $
  
 =cut

lib/SOAP/WSDL/Base.pm

@@ -78,12 +78,15 @@ sub init {
     my @args = @_;
     foreach my $value (@args)
     {
-        die $value if (not defined ($value->{ Name }));
+        die @args if (not defined ($value->{ Name }));
         if ($value->{ Name } =~m{^xmlns\:}xms) {
             die $xmlns_of{ ident $self }
                 if ref $xmlns_of{ ident $self } ne 'HASH';
+
+            # add namespaces
             $xmlns_of{ ident $self }->{ $value->{ Value } } =
                 $value->{ LocalName };
+
             next;
         }
         elsif ($value->{ Name } =~m{^xmlns$}xms) {

lib/SOAP/WSDL/Client.pm

@@ -8,28 +8,42 @@ use LWP::UserAgent;
 use HTTP::Request;
 use Scalar::Util qw(blessed);
 
-use SOAP::WSDL::Envelope;
+use SOAP::WSDL::Factory::Serializer;
+use SOAP::WSDL::Factory::Transport;
 use SOAP::WSDL::Expat::MessageParser;
 use SOAP::WSDL::SOAP::Typelib::Fault11;
 
-# Package globals for speed...
+# Package global for speed and memory savings.
+# But should be factored out into serializer/deserializer...
 my $PARSER;
 
 my %class_resolver_of   :ATTR(:name<class_resolver> :default<()>);
 my %no_dispatch_of      :ATTR(:name<no_dispatch>    :default<()>);
 my %outputxml_of        :ATTR(:name<outputxml>      :default<()>);
-my %proxy_of            :ATTR(:name<proxy>          :default<()>);
+my %transport_of        :ATTR(:name<transport>      :default<()>);
+my %endpoint_of         :ATTR(:name<endpoint>       :default<()>);
 
+my %soap_version_of     :ATTR(:get<soap_version>    :init_attr<soap_version> :default<'1.1'>);
+
 my %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>);  
+my %content_type_of     :ATTR(:name<content_type>   :default<text/xml; charset=utf8>);  #/#trick editors
-
+my %serializer_of       :ATTR(:name<serializer>     :default<()>);
-#/#trick editors
 
 # TODO remove when preparing 2.01
 sub outputtree { warn 'outputtree is deprecated and'
     . 'will be removed before reaching v2.01 !' }
+
+sub BUILD {
+    my ($self, $ident, $attrs_of_ref) = @_;
+
+    if (exists $attrs_of_ref->{ proxy }) {
+        $self->set_proxy( $attrs_of_ref->{ proxy } );
+        delete $attrs_of_ref->{ proxy };
+    }
+       
+}
 
 sub get_trace {
     my $ident = ident $_[0];
@@ -39,6 +53,44 @@ sub get_trace {
         : sub { warn @_ }
     : ()
 }
+
+sub get_proxy {
+    return $_[0]->get_transport();
+}
+
+sub set_proxy {
+    my ($self, @args_from) = @_; 
+    my $ident = ident $self;
+
+    # remember old value to return it later - Class::Std does so, too
+    my $old_value = $transport_of{ $ident };
+
+    # accept both list and list ref args
+    @args_from =  @{ $args_from[0] } if ref $args_from[0];
+    
+    # remember endpoint
+    $endpoint_of{ $ident } = $args_from[0];
+
+    # set transport - SOAP::Lite works similar...
+    $transport_of{ $ident } =  SOAP::WSDL::Factory::Transport
+      ->get_transport( @args_from );
+
+    return $old_value;
+}
+
+sub set_soap_version {
+    my $ident = ident shift;
+
+    # remember old value to return it later - Class::Std does so, too
+    my $soap_version = $soap_version_of{ $ident };
+
+    # re-setting the soap version invalidates the 
+    # serializer object
+    delete $serializer_of{ $ident };
+    $soap_version_of{ $ident } = shift;   
+    
+    return $soap_version;
+}
 
 # Mimic SOAP::Lite's behaviour for getter/setter routines
 SUBFACTORY: {
@@ -69,60 +121,79 @@ sub call {
       : (@_>1) 
           ? { @_ }
           : $_[0];
+    my $header = {};
 
-    my $soap_action;
+    my ($soap_action, $operation);
     my $trace_sub = $self->get_trace();
-    my $envelope = SOAP::WSDL::Envelope->serialize( $method, $data );
+    
-
+    if (ref $method eq 'HASH') {
-    if (blessed $data
+        $soap_action = $method->{ soap_action };
-        && $data->isa('SOAP::WSDL::XSD::Typelib::Builtin::anyType'))
+        $operation = $method->{ operation }
-    {
+    }
-        # TODO replace by something derived from binding - this is just a
+    else {
-        # workaround...
+        $operation = $method;
-        $soap_action = join '/', $data->get_xmlns(), $method;
+    }
-    }
+    
-    else {
+    
-        $envelope = SOAP::WSDL::Envelope->serialize( $method, $data );
+    $serializer_of{ $ident } ||= SOAP::WSDL::Factory::Serializer->get_serializer({
-        # TODO add something like SOAP::Lite's on_action mechanism
+        soap_version => $self->get_soap_version(),
-        $soap_action = $on_action_of{$ident}->( $self, $method ) if ($on_action_of{$ident});
+    });
-    }   
+
+    my $envelope = $serializer_of{ $ident }->serialize({
+        method => $operation, 
+        body => $data,
+        header => $header,
+    });
 
     return $envelope if $self->no_dispatch();
 
-    # get response via transport layer
+    # try to guess soap_action if not given
-    # maybe we should return a result with the following methods:
+    if (not defined $soap_action) {
-    # - result: returns the result of the call (like SOAP::Lite, but as
+        $soap_action = (blessed $data 
-    #           object tree)
+            && $data->isa('SOAP::WSDL::XSD::Typelib::Builtin::anyType')) 
-    # - header: returns the content of the SOAP header
+            ? $soap_action = join '/', $data->get_xmlns(), $operation
-    # - fault:  returns the result of the call if a SOAP fault is sent back
+            : ($on_action_of{$ident}) 
-    #           by the server. Retuns undef (nothing) if the call has been
+                ? $soap_action = $on_action_of{$ident}->( $self, $operation )
-    #           processed without errors.
+                : "";
-    my $ua = LWP::UserAgent->new();
+    }
-    my $request = HTTP::Request->new( 'POST',
+
-        $self->get_proxy(),
+    # always quote SOAPAction header.
-        [   'Content-Type', $content_type_of{ $ident },
+    # WS-I BP 1.0 R1109
-            'Content-Length', length($envelope),
+    $soap_action =~s{\A(:?"|')?}{"}xms;
-            'SOAPAction', $soap_action,
+    $soap_action =~s{(:?"|')?\Z}{"}xms;
-        ],
+
-        $envelope );
+    # get response via transport layer.
-  
+    # Normally, SOAP::Lite's transport layer is used, though users 
-
+    # may provide their own.
-    $trace_sub->( $request->as_string() ) if $trace_of{ $ident };       # if for speed
+    my $transport = $self->get_transport(); 
-    my $response = $ua->request( $request );
+    my $response = $transport->send_receive(
-    $trace_sub->( $response->as_string() ) if $trace_of{ $ident };      # if for speed
+       endpoint => $self->get_endpoint(),
-
+       content_type => $content_type_of{ $ident },
-    return $response->content() if ($self->outputxml() );
+       envelope => $envelope,
+       action => $soap_action,
+       on_receive_chunk => sub {}     # optional, may be used for parsing large responses as they arrive.
+                                      # might not be supported by all transport layers...
+                                      # and, of course, only is of interest for chunk parsers - 
+                                      # namely ExpatNB and XML::LibXML's Push parser interface...
+    );
+
+    return $response if ($self->outputxml() );
 
     $PARSER->class_resolver( $self->get_class_resolver() );
 
-    # if we had no success (Transport layer error status code)
+    # if we had no success (Transport layer error status code)
     # or if transport layer failed
-    if ($response->code() != 200) {
+    if ( ! $transport->is_success() ) {
         # Try deserializing response - there may be some
-        if ($response->content) {
+        if ( $response ) {
-            eval { $PARSER->parse( $response->content() ); };           
+            eval { $PARSER->parse( $response ); };           
             return $PARSER->get_data() if (not $@);       
-            warn "could not deserialize response: $@";                    
+            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
@@ -131,11 +202,10 @@ sub call {
             faultcode => 'soap:Server',
             faultactor => 'urn:localhost',
             faultstring => 'Error sending / receiving message: '
-                . $response->message()
+                . $transport->message()
-                #$soap->transport->message()
         });
     }
-    eval { $PARSER->parse( $response->content() ) };
+    eval { $PARSER->parse( $response ) };
 
     # return fault if we cannot deserialize response
     if ($@) {
@@ -161,6 +231,31 @@ SOAP::WSDL::Client - SOAP::WSDL's SOAP Client
 =head1 METHODS
 
 =head2 call
+
+ $soap->call( \%method, \@parts );
+ 
+%method is a hash with the following keys:
+
+ Name           Description
+ ----------------------------------------------------
+ operation      operation name
+ soap_action    SOAPAction HTTP header to use
+ style          Operation style. One of (document|rpc)
+ use            SOAP body encoding. One of (literal|encoded) 
+
+The style and use keys have no influence yet.
+
+@parts is a list containing the elements of the message parts.
+
+For backward compatibility, call may also be called as below:
+
+ $soap->call( $method, \@parts );
+
+In this case, $method is the SOAP operation name, and the SOAPAction header 
+is guessed from the first part's namespace and the operation name (which is 
+mostly correct, but may fail). Operation style and body encoding are assumed to 
+be document/literal
+
 
 =head2 Configuration methods
 
@@ -286,9 +381,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 139 $
+ $Rev: 176 $
  $LastChangedBy: kutterma $
- $Id: Client.pm 139 2007-08-12 19:15:59Z kutterma $
+ $Id: Client.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/Client.pm $
  
 =cut

lib/SOAP/WSDL/Client/Base.pm

@@ -21,20 +21,35 @@ sub __create_new {
 }
 
 sub __create_methods {
-  my ($package, %parts_of) = @_;
+  my ($package, %info_of) = @_;
   
   no strict qw(refs);
   
-  for my $method (keys %parts_of){
+  for my $method (keys %info_of){
+      my ($soap_action, @parts); 
+      
+      # up to 2.00_10 we had list refs...
+      if (ref $info_of{ $method }eq 'HASH') {
+          @parts = @{ $info_of{ $method }->{ parts } };
+          $soap_action = $info_of{ $method }->{ soap_action };
+      }
+      else {
+          @parts = @{ $info_of{ $method } };
+          $soap_action = ();          
+      }
+      
       *{ "$package\::$method" } = sub {
           my $self = shift;
           my @param = map { 
             my $data = shift || {};
             eval "require $_";
             $_->new( $data );
-          } @{ $parts_of{ $method } };
+          } @parts;
           
-          return $self->SUPER::call( $method, @param );          
+          return $self->SUPER::call( { 
+              operation => $method, 
+              soap_action => $soap_action,
+          }, @param );          
       }
   }
 }
@@ -47,13 +62,40 @@ __END__
 
 =head1 NAME
 
-SOAP::WSDL::Client::Base - Base client for WSDL-based SOAP access
+SOAP::WSDL::Client::Base - Factory class for WSDL-based SOAP access
 
 =head1 SYNOPSIS
 
- package MySoapClient;
+ package MySoapInterface;
  use SOAP::WSDL::Client::Base;
+ __PACKAGE__->__create_new( 
+        proxy => 'http://somewhere.over.the.rainbow',
+        class_resolver => 'Typemap::MySoapInterface'
+ );
  __PACKAGE__->__create_methods( qw(one two three) );
  1;
 
-=cut
+=head1 DESCRIPTION
+
+Factory class for creating interface classes. Should probably be renamed to 
+SOAP::WSDL::Factory::Interface...
+
+=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: Base.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/Client/Base.pm $
+ 
+=cut

lib/SOAP/WSDL/Definitions.pm

@@ -4,7 +4,7 @@ use strict;
 use warnings;
 use Carp;
 use File::Basename;
-use File::Path;
+use File::Path;
 use List::Util qw(first);
 use Class::Std::Storable;
 use base qw(SOAP::WSDL::Base);
@@ -116,7 +116,17 @@ sub _create_interface {
     #
     my %operations = ();
     for my $operation ( @{ $operation_ref } ) {
-        my $operation_name = $operation->get_name();
+        my $operation_name = $operation->get_name();
+        my $soap_operation = $operation->first_operation();
+        
+        $operations{ $operation_name }->{ style } = $soap_operation 
+            ? $soap_operation->get_style()
+            : undef;
+            
+        $operations{ $operation_name }->{ soap_action } = $soap_operation 
+            ? $soap_operation->get_soapAction()
+            : undef; 
+        
         my $port_op = first { $_->get_name() eq $operation_name } @{ $port_operation_ref };
         
         $operations{ $operation_name }->{ documentation } = $port_op->get_documentation();
@@ -151,9 +161,6 @@ sub _create_interface {
         }
     }
 
-#    use Data::Dumper;
-#    die Dumper \%operations;
-
     my $template = <<'EOT';
 package [% interface_prefix %][% service.get_name.replace('\.', '::') %];
 
@@ -174,9 +181,14 @@ sub new {
 }
 
 __PACKAGE__->__create_methods(
-      [% FOREACH name = operations.keys -%]
+[% FOREACH name = operations.keys -%]
-        [% name %] => [ [% FOREACH class = operations.$name.input.class %]'[% class %]', [% END %]],
+        [% name %] => {
-      [% END %]
+            parts => [ [% FOREACH class = operations.$name.input.class %]'[% class %]', [% END %]],
+            soap_action => '[% operations.$name.soap_action %]',
+            style => '[% operations.$name.style %]',
+            # use => '', # use not implemented yet 
+        },
+[% END %]
 );
 
 1;

lib/SOAP/WSDL/Expat/MessageParser.pm

@@ -28,8 +28,7 @@ sub _initialize {
     my $current = undef;
     my $ignore = [ 'Envelope', 'Body' ];        # top level elements to ignore
     my $list = [];                              # node list
-    my $path = [];                              # current path (without 
+    my $path = [];                              # current path 
-                                                # number)     
     my $skip = 0;                               # skip elements
 
     # use "globals" for speed
@@ -84,7 +83,7 @@ sub _initialize {
             $current = $_class->new({ %_attrs });   # set new current object
         
             # remember top level element
-            defined $self->{ data } 
+            exists $self->{ data } 
                 or ($self->{ data } = $current); 
         },
         
@@ -143,6 +142,13 @@ sub parsefile {
     return $_[0]->{ data };     
 }
 
+# SAX-like aliases
+sub parse_string;
+*parse_string = \&parse;
+
+sub parse_file;
+*parse_file = \&parsefile;
+
 sub get_data {
     return $_[0]->{ data };
 }
@@ -202,9 +208,9 @@ This module may be used under the same terms as perl itself.
 
  $ID: $
 
- $LastChangedDate: $
+ $LastChangedDate: 2007-08-31 17:28:29 +0200 (Fr, 31 Aug 2007) $
- $LastChangedRevision: $
+ $LastChangedRevision: 176 $
- $LastChangedBy: $
+ $LastChangedBy: kutterma $
 
- $HeadURL: $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageParser.pm $
 

lib/SOAP/WSDL/Expat/MessageStreamParser.pm

@@ -67,9 +67,9 @@ This module may be used under the same terms as perl itself.
 
  $ID: $
 
- $LastChangedDate: $
+ $LastChangedDate: 2007-08-31 17:28:29 +0200 (Fr, 31 Aug 2007) $
- $LastChangedRevision: $
+ $LastChangedRevision: 176 $
- $LastChangedBy: $
+ $LastChangedBy: kutterma $
 
- $HeadURL: $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageStreamParser.pm $
 

lib/SOAP/WSDL/Expat/MessageSubParser.pm

@@ -0,0 +1,213 @@
+#!/usr/bin/perl
+package SOAP::WSDL::Expat::MessageSubParser;
+use strict;
+use warnings;
+use SOAP::WSDL::XSD::Typelib::Builtin;
+use XML::Parser::Expat;
+
+sub new {
+    my ($class, $args) = @_;
+    my $self = {};
+    bless $self, $class;
+    return $self;
+}
+
+# create handlers via currying - XML::Compiled is a good teacher...
+#
+# A handler has to know
+# - the order of it's child elements
+# - the classes for these child elements
+# - the handlers for these child elements (sub refs)
+
+# order is checked if provided
+
+sub start_tag {
+    my $self = shift;
+    my $arg_ref = shift;
+       
+    my $CHILD_ORDER = $arg_ref->{ order } || [];
+    my $CHILD_CLASS = $arg_ref->{ class_of } || {};
+    my $CHILD_HANDLER = $arg_ref->{ handler_of };
+    my $CHILD_OCCURS = $arg_ref->{ occurs_of } || {};
+    
+    my $CHILD_INDEX = 0;
+
+   
+    return sub {
+        # parser, element, attrs
+        my ($prefix, $localname) = split m{:}xms , $_[1];
+        $localname ||= $_[1];
+
+=pod
+
+#       # implement better checks...
+#        if (@{ $CHILD_ORDER }) {
+#            if ($CHILD_ORDER->[$CHILD_INDEX] ne $localname) {
+#                if (! $CHILD_ORDER->[++$CHILD_INDEX] 
+#                    ||  $CHILD_ORDER->[$CHILD_INDEX] ne $localname) {
+#                die "misplaced xml element " . $parser->recognized_string() 
+#                    . " at line "
+#                    . $parser->current_line()
+#                    . " column " . $parser->current_column() , "\n"
+#                    , "Element order: " . join(',' , @{ $CHILD_ORDER }), "\n"
+#                    }                        
+#            }
+#        }
+#
+#        if (%{ $CHILD_OCCURS }) {
+#            die "too many occurances of $localname at line "
+#                    . $parser->current_line()
+#                    . " column " . $parser->current_column() , "\n"
+#                if (not --$CHILD_OCCURS->{ $localname }->{ max });
+#
+#            # min must be checked in end_element !
+#            $CHILD_OCCURS->{ $localname }->{ min }-- 
+#                if ($CHILD_OCCURS->{ $localname }->{ min }); 
+#        }
+
+=cut
+
+        # remove this some day
+        return if ($localname eq 'Envelope');
+        return if ($localname eq 'Body');
+    
+        # step down in tree (remember current)
+        push @{ $self->{ list } }, $self->{ current };              
+        $self->{ current } = $CHILD_CLASS->{ $localname }->new({ @_[2..$#_] });
+            
+        # Set (and remember) next state
+        push @{ $self->{ handlers } }, $CHILD_HANDLER->{ $localname };
+        $_[0]->setHandlers( %{ $CHILD_HANDLER->{ $localname } } ); 
+    };
+}
+
+# characters is a good candidate for replacement when not needed -  
+# expat calls it for those whitespaces in non-mixed-content-elements, too
+sub characters {
+    my $self = shift;    
+    return sub { $self->{ characters } .= $_[1] };
+}
+
+# end_tag is a somewhat generic thingy - don't know whether we should 
+# curry it, and whether this will speed us up...
+sub end_tag {
+    my $self = shift;
+
+    return sub {
+        # step down handler hierarchy
+        pop @{ $self->{ handlers } };
+
+        # restore state: set handler to last handler
+        $_[0]->setHandlers( %{ $self->{ handlers }->[ -1 ] } );
+
+        my ($prefix, $localname) = split m{:}xms , $_[1];          
+        $localname ||= $_[1];          # for non-prefixed elements            
+
+        # we only have characters if we need them - if not Char handler 
+        # has to be set to undef       
+        $self->{ current }->set_value( $self->{ characters } ) 
+            if ($self->{ characters });
+        
+        # empty temp characters
+        undef $self->{ characters };
+
+        # return if we're top node
+        # This one easily handles ignores for us, too...
+        #
+        # Hmm... could be replaced by something else, maybe ???
+        # Maybe by defining an empty end_tag handler for the top node ?
+        # Can we do this ???
+        return if not defined $self->{ list }->[-1];
+
+        # set appropriate attribute in last element
+        # multiple values must be implemented in base class
+        my $method = "add_$localname";
+        $self->{ list }->[-1]->$method( $self->{ current } );
+
+        # step up in object hierarchy...
+        $self->{ current } = pop @{ $self->{ list } };                
+    };
+}
+
+sub end_top_tag {
+    my $self = shift;
+    return sub {};   
+}
+
+sub initialize {   
+    my ($self, $handler_of_ref, $parser ) = @_;
+    $parser ||= XML::Parser::Expat->new();
+    $self->{ list } = undef;   
+    $self->{ current } = undef;
+    $self->{ characters } = q{};      # empty characters
+    $self->{ handlers } = [ $handler_of_ref ];
+    $parser->setHandlers( %$handler_of_ref );
+    return $parser;
+}
+
+sub get_data {
+    return $_[0]->{ current };
+}
+
+1;
+
+=pod
+
+=head1 NAME
+
+SOAP::WSDL::Expat::MessageParser - Convert SOAP messages to custom object trees
+
+=head1 SYNOPSIS
+
+ my $parser = SOAP::WSDL::Expat::MessageParser->new({
+    class_resolver => 'My::Resolver'   
+ });
+ $parser->parse( $xml );
+ my $obj = $parser->get_data();
+
+=head1 DESCRIPTION
+
+Real fast expat based SOAP message parser.
+
+See L<SOAP::WSDL::Parser> for details.
+
+=head2 Skipping unwanted items
+
+Sometimes there's unneccessary information transported in SOAP messages.
+
+To skip XML nodes (including all child nodes), just edit the type map for 
+the message and set the type map entry to '__SKIP__'. 
+
+=head1 Bugs and Limitations
+
+=over
+
+=item * Ignores all namespaces
+
+=item * Does not handle mixed content
+
+=item * The SOAP header is ignored
+
+=back
+
+=head1 AUTHOR
+
+Replace the whitespace by @ for E-Mail Address.
+
+ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
+
+=head1 COPYING
+
+This module may be used under the same terms as perl itself.
+
+=head1 Repository information
+
+ $ID: $
+
+ $LastChangedDate: 2007-08-31 17:28:29 +0200 (Fr, 31 Aug 2007) $
+ $LastChangedRevision: 176 $
+ $LastChangedBy: kutterma $
+
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageSubParser.pm $
+
+

lib/SOAP/WSDL/Expat/SubParser.pm

@@ -0,0 +1,219 @@
+#!/usr/bin/perl
+package SOAP::WSDL::Expat::MessageSubParser;
+use strict;
+use warnings;
+use SOAP::WSDL::XSD::Typelib::Builtin;
+use XML::Parser::Expat;
+
+sub new {
+    my ($class, $args) = @_;
+    my $self = {
+        class_resolver => $args->{ class_resolver }
+    };
+    bless $self, $class;
+    return $self;
+}
+
+sub class_resolver {
+    my $self = shift;
+    $self->{ class_resolver } = shift;
+}
+
+sub _start;
+
+sub _initialize {
+	my ($self, $parser) = @_;
+
+	delete $self->{ data };
+    
+    my $characters;
+    my $current = undef;
+    my $ignore = [ 'Envelope', 'Body' ];        # top level elements to ignore
+    my $list = [];                              # node list
+    my $path = [];                              # current path (without 
+                                                # number)     
+    my $skip = 0;                               # skip elements
+
+    # use "globals" for speed
+    my ($_prefix, $_localname, $_element, $_method, 
+        $_class, $_parser, %_attrs) = ();
+
+    no strict qw(refs);  
+
+    my $start_sub = sub {
+            ($_parser, $_element, %_attrs) = @_;
+            ($_prefix, $_localname) = split m{:}xms , $_element;
+
+            # $parser->setHandlers( Start => \&_start );
+
+            $_localname ||= $_element;          # for non-prefixed elements
+
+            # ignore top level elements
+            if (@{ $ignore } && $_localname eq $ignore->[0]) {
+                shift @{ $ignore };
+                return;
+            }
+
+            push @{ $path }, $_localname;       # step down in path
+            return if $skip;                    # skip inside __SKIP__
+
+            # resolve class of this element
+            $_class = $self->{ class_resolver }->get_class( $path )
+                or die "Cannot resolve class for "
+                    . join('/', @{ $path }) . " via $self->{ class_resolver }";
+
+            # maybe write as "return $skip = join ... if (...)" ?
+            # would save a BLOCK...
+            return $skip = join('/', @{ $path }) if ($_class eq '__SKIP__');
+             
+            push @$list, $current;   # step down in tree ()remember current)
+                
+            $characters = q{};      # empty characters
+   
+            # Check whether we have a primitive - we implement them as classes
+            # We could replace this with UNIVERSAL->isa() - but it's slow...
+            # match is a bit faster if the string does not match, but WAY slower 
+            # if $class matches...
+                    
+            if (index $_class, 'SOAP::WSDL::XSD::Typelib::Builtin', 0 < 0) {           
+                # check wheter there is a CODE reference for $class::new.
+                # If not, require it - all classes required here MUST
+                # define new()
+                # This is the same as $class->can('new'), but it's way faster  
+                *{ "$_class\::new" }{ CODE } 
+                    or eval "require $_class"   ## no critic qw(ProhibitStringyEval)
+                        or die $@;                        
+            }
+
+            $current = $_class->new({ %_attrs });   # set new current object
+        
+            # remember top level element
+            defined $self->{ data } 
+                or ($self->{ data } = $current); 
+        };
+
+    my $char_sub = sub {
+            return if $skip;
+            $characters .= $_[1];       
+    };
+    
+    my $end_sub = sub {
+            $_element = $_[1];
+
+            ($_prefix, $_localname) = split m{:}xms , $_element;          
+            $_localname ||= $_element;          # for non-prefixed elements            
+
+            pop @{ $path };                     # step up in path
+       
+            if ($skip) {
+                return if $skip ne join '/', @{ $path }, $_localname;
+                $skip = 0;
+                return;
+            }
+      
+            # This one easily handles ignores for us, too...
+            return if not ref $$list[-1];
+    
+            # set characters in current if we are a simple type
+            # we may have characters in complexTypes with simpleContent,
+            # too - maybe we should rely on the presence of characters ?
+            # may get a speedup by defining a ident method in anySimpleType 
+            # and looking it up via exists &$class::ident;
+            if ( $current->isa('SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType') ) {
+                $current->set_value( $characters );
+            }
+        
+            # set appropriate attribute in last element
+            # multiple values must be implemented in base class
+            $_method = "add_$_localname";
+            $$list[-1]->$_method( $current );
+                   
+            $current = pop @$list;           # step up in object hierarchy...       
+    };
+
+    $parser->setHandlers(
+        Start => sub { 
+            $_[0]->setHandlers( Start => $start_sub );
+            $start_sub->(@_) },
+        Char => $char_sub,
+        End => $end_sub,
+    );
+    return $parser;
+}
+
+sub parse {
+    $_[0]->_initialize( XML::Parser::Expat->new() )->parse( $_[1] );
+    return $_[0]->{ data };     
+}
+
+sub parsefile {
+    $_[0]->_initialize( XML::Parser::Expat->new() )->parsefile( $_[1] );
+    return $_[0]->{ data };     
+}
+
+sub get_data {
+    return $_[0]->{ data };
+}
+
+1;
+
+=pod
+
+=head1 NAME
+
+SOAP::WSDL::Expat::MessageParser - Convert SOAP messages to custom object trees
+
+=head1 SYNOPSIS
+
+ my $parser = SOAP::WSDL::Expat::MessageParser->new({
+    class_resolver => 'My::Resolver'   
+ });
+ $parser->parse( $xml );
+ my $obj = $parser->get_data();
+
+=head1 DESCRIPTION
+
+Real fast expat based SOAP message parser.
+
+See L<SOAP::WSDL::Parser> for details.
+
+=head2 Skipping unwanted items
+
+Sometimes there's unneccessary information transported in SOAP messages.
+
+To skip XML nodes (including all child nodes), just edit the type map for 
+the message and set the type map entry to '__SKIP__'. 
+
+=head1 Bugs and Limitations
+
+=over
+
+=item * Ignores all namespaces
+
+=item * Does not handle mixed content
+
+=item * The SOAP header is ignored
+
+=back
+
+=head1 AUTHOR
+
+Replace the whitespace by @ for E-Mail Address.
+
+ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
+
+=head1 COPYING
+
+This module may be used under the same terms as perl itself.
+
+=head1 Repository information
+
+ $ID: $
+
+ $LastChangedDate: 2007-08-31 17:28:29 +0200 (Fr, 31 Aug 2007) $
+ $LastChangedRevision: 176 $
+ $LastChangedBy: kutterma $
+
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/SubParser.pm $
+
+

lib/SOAP/WSDL/Expat/WSDLParser.pm

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

lib/SOAP/WSDL/Factory/Serializer.pm

@@ -0,0 +1,128 @@
+package SOAP::WSDL::Factory::Serializer;
+use strict;
+use warnings;
+
+my %SERIALIZER = (
+    '1.1' => 'SOAP::WSDL::Serializer::SOAP11',
+);
+
+# class method
+sub register {
+    my ($class, $ref_type, $package) = @_;
+    $SERIALIZER{ $ref_type } = $package;
+}
+
+sub get_serializer {
+    my ($self, $args_of_ref) = @_;
+    eval "require $SERIALIZER{ $args_of_ref->{ soap_version } }" or die $@;
+    return $SERIALIZER{ $args_of_ref->{ soap_version } }->new();
+}
+
+1;
+
+=pod
+
+=head1 NAME
+
+SOAP::WSDL::Factory::Serializer - factory for retrieving serializer objects
+
+=head1 SYNOPSIS
+
+ # from SOAP::WSDL::Client:
+ $serializer = SOAP::WSDL::Factory::Serializer->get_serializer({
+     soap_version => $soap_version,
+ });
+
+ # in serializer class:
+ package MyWickedSerializer;
+ use SOAP::WSDL::Factory::Serializer;
+ 
+ # u don't know the SOAP 1.2 recommendation? poor boy...
+ SOAP::WSDL::Factory::Serializer->register( '1.2' , __PACKAGE__ );
+ 
+=head1 DESCRIPTION
+
+SOAP::WSDL::Factory::Serializer serves as factory for retrieving 
+serializer objects for SOAP::WSDL.
+
+The actual work is done by specific serializer classes.
+
+SOAP::WSDL::Serializer tries to load one of the following classes:
+
+ 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_serializer
+
+Returns an object of the serializer class for this endpoint.
+
+=head1 WRITING YOUR OWN SERIALIZER CLASS
+
+Serializer classes may register with SOAP::WSDL::Factory::Serializer.
+
+Serializer objects may also be passed directly to SOAP::WSDL::Client 
+by using the set_serializer method. Note that serializers objects set 
+via SOAP::WSDL::Client's set_serializer method are discarded when the 
+SOAP version is changed via set_soap_version.
+
+Registering a serializer class with SOAP::WSDL::Factory::Serializer 
+is done by executing the following code where $version is the 
+SOAP version the class should be used for, and $class is the class
+name.
+
+ SOAP::WSDL::Factory::Serializer->register( $version, $class);
+
+To auto-register your transport class on loading, execute register() 
+in your tranport class (see L<SYNOPSIS|SYNOPSIS> above).
+
+Serializer modules must be named equal to the serializer 
+class they contain. There can only be one serializer class per 
+serializer module.
+
+Serializer class must implement the following methods:
+
+=over 
+
+=item * new
+
+Constructor.
+
+=item * serialize
+
+Serializes data to XML. The following named parameters are passed to 
+the serialize method in a anonymous hash ref:
+
+ {
+   method => $operation_name,
+   header => $header_data,
+   body => $body_data,
+ }
+
+=back
+
+=head1 LICENSE
+
+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

lib/SOAP/WSDL/Factory/Transport.pm

@@ -0,0 +1,230 @@
+package SOAP::WSDL::Factory::Transport;
+use strict;
+use warnings;
+
+# class data
+my %registered_transport_of = ();
+
+# Local constants
+# Could be made readonly, but that's just for the paranoid...
+my %SOAP_LITE_TRANSPORT_OF = (
+    ftp => 'SOAP::Transport::FTP',
+    http => 'SOAP::Transport::HTTP',
+    https => 'SOAP::Transport::HTTPS',
+    mailto => 'SOAP::Transport::MAILTO',
+    'local' => 'SOAP::Transport::LOCAL',
+    jabber => 'SOAP::Transport::JABBER',
+    mq => 'SOAP::Transport::MQ',        
+);
+
+my %SOAP_WSDL_TRANSPORT_OF = (
+    http => 'SOAP::WSDL::Transport::HTTP',
+    https => 'SOAP::WSDL::Transport::HTTP',   
+);
+
+# class methods only
+sub register {
+    my ($class, $scheme, $package) = @_;
+    $registered_transport_of{ $scheme } = $package;
+}
+
+sub get_transport {
+    my ($class, $scheme, %attrs) = @_;
+
+    $scheme =~s{ \A ([^\:]+) \: .+ }{$1}smx;
+       
+    if (exists $registered_transport_of{ $scheme }) {
+        eval "require $registered_transport_of{ $scheme }" or die $@;
+        
+        # try "foo::Client" class first - SOAP::Tranport always requires 
+        # a package withoug the ::Client appended, and then
+        # instantiates a ::Client object...
+        # ... pretty weird ...
+        # ... must be from some time when the max number of files was a 
+        # sparse resource ...
+        # ... but we've decided to mimic SOAP::Lite...
+
+        my $protocol_class = $SOAP_LITE_TRANSPORT_OF{ $scheme } . '::Client';
+        my $transport;
+        eval {
+            $transport = $protocol_class->new( %attrs );
+        };
+        return $transport if not $@;
+        return $registered_transport_of{ $scheme }->new( %attrs );
+    }
+
+    # try SOAP::Lite's Transport module - just skip if not require'able
+    SOAP_Lite: {
+      if (exists $SOAP_LITE_TRANSPORT_OF{ $scheme }) {
+          eval "require $SOAP_LITE_TRANSPORT_OF{ $scheme }"
+            or last SOAP_Lite;
+          my $protocol_class = $SOAP_LITE_TRANSPORT_OF{ $scheme } . '::Client';
+          return $protocol_class->new( %attrs );
+      }
+    }
+
+    if (exists $SOAP_WSDL_TRANSPORT_OF{ $scheme }) {
+        eval "require $SOAP_WSDL_TRANSPORT_OF{ $scheme }" or die $@;
+        return $SOAP_WSDL_TRANSPORT_OF{ $scheme }->new( %attrs );
+    }
+
+    die "no transport class found for scheme <$scheme>";
+}
+
+1;
+
+=pod
+
+=head1 NAME
+
+SOAP::WSDL::Factory::Transport - factory for retrieving transport objects
+
+=head1 SYNOPSIS
+
+ # from SOAP::WSDL::Client:
+ $transport = SOAP::WSDL::Factory::Transport->get_transport( $url, @opt );
+
+ # in transport class:
+ package MyWickedTransport;
+ use SOAP::WSDL::Factory::Transport;
+ 
+ # u don't know the httpr protocol? poor boy...
+ SOAP::WSDL::Factory::Transport->register( 'httpr' , __PACKAGE__ );
+ SOAP::WSDL::Factory::Transport->register( 'https' , __PACKAGE__ );
+ 
+=head1 DESCRIPTION
+
+SOAP::WSDL::Transport serves as factory for retrieving 
+transport objects for SOAP::WSDL.
+
+The actual work is done by specific transport classes.
+
+SOAP::WSDL::Transport tries to load one of the following classes:
+
+ a) the class registered for the scheme via register()
+ b) the SOAP::Lite class matching the scheme
+ c) the SOAP::WSDL class matching the scheme
+
+=head1 METHODS
+
+=head2 register
+
+ SOAP::WSDL::Transport->register('https', 'MyWickedTransport');
+
+Globally registers a class for use as transport class.
+
+=head2 proxy
+
+ $trans->proxy('http://soap-wsdl.sourceforge.net');
+
+Sets the proxy (endpoint). 
+
+Returns the transport for this protocol.
+
+=head2 set_transport
+
+Sets the current transport object.
+
+=head2 get_transport
+
+Gets the current transport object.
+
+=head1 WRITING YOUR OWN TRANSPORT CLASS
+
+Transport classes must be registered with SOAP::WSDL::Factory::Transport. 
+
+This is done by executing the following code where $scheme is the 
+URL scheme the class should be used for, and $module is the class' 
+module name. 
+
+ SOAP::WSDL::Factory::Transport->register( $scheme, $module);
+
+To auto-register your transport class on loading, execute register() 
+in your tranport class (see L<SYNOPSIS|SYNOPSIS> above).
+
+Multiple protocols ore multiple classes are registered by multiple calls to 
+register().
+
+You may only use transport classes whose name is either 
+the module name or the module name with '::Client' appended.
+
+Transport classes must implement the interface required for 
+SOAP::Lite transport classes. 
+
+See L<SOAP::Lite::Transport> for details, 
+L<SOAP::WSDL::Transport::HTTP|SOAP::WSDL::Transport::HTTP> 
+for an example.
+
+Transport modules must implement the following methods:
+
+=over 
+
+=item * new
+
+=item * send_receive
+
+Dispatches a request and returns the content of the response.
+
+=item * code
+
+Returns the status code of the last send_receive call (if any).
+
+=item * message
+
+Returns the status message of the last send_receive call (if any).
+
+=item * status
+
+Returns the status of the last send_receive call (if any).
+
+=item * is_success
+
+Returns true after a send_receive was successful, false if it was not.
+
+=back
+
+SOAP::Lite requires transport modules to pack client and server 
+classes in one file, and to follow this naming scheme:
+
+ Module name: 
+   "SOAP::Transport::" . uc($scheme)
+   
+ Client class (additional package in module):
+   "SOAP::Transport::" . uc($scheme) . "::Client"
+ 
+ Server class (additional package in module):
+   "SOAP::Transport::" . uc($scheme) . "::Client"
+
+SOAP::WSDL does not require you to follow these restrictions.
+
+There is only one restriction in SOAP::WSDL:
+
+You may only use transport classes whose name is either 
+the module name or the module name with '::Client' appended.
+
+SOAP::WSDL will try to instantiate an object of your 
+transport class with '::Client' appended to allow using transport 
+classes written for SOAP::Lite.
+
+This may lead to errors when a different module with the name 
+of your transport module suffixed with ::Client is also loaded.
+
+=head1 LICENSE
+
+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: Transport.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/Transport.pm $
+ 
+=cut

lib/SOAP/WSDL/Manual/Glossary.pod

@@ -11,9 +11,12 @@ some internet protocol, typically via HTTP(S).
 
 =head2 SOAP
 
-SOAP (the Simple Object Access Protocol) is a specification for 
+SOAP is an acronym for Simple Object Access Protocol. 
-defining RPC interfaces, including (but not neccessarily limited to) 
+SOAP is a W3C recommendation. The latest version of the SOAP 
-web services. 
+specification may be found at L<http://www.w3.org/TR/soap/>.
+
+SOAP defines a protocoll for message exchange between applications. 
+The most popular usage is to use SOAP for remote procedure calls (RPC).
 
 While one of the constituting aspects of a web service is its 
 reachability via some internet protocol, you might as well define 
@@ -26,15 +29,52 @@ carry your pet.
 
 =head2 WSDL
 
-WSDL (Web Service Definition Language) is a XML-based markup language 
+WSDL is an acronym for Web Services Description Language. 
-for defining web service interfaces. 
+WSDL is a W3C recommendation. The latest version of the WSDL specification 
+may be found at L<http://www.w3.org/TR/wsdl20/>. 
+
+WSDL defines a XML-based language for describing web service interfaces, 
+including SOAP interfaces.
 
 =head2 WS-I
 
-WS-I (Web Service Interoperability) is a industry consortium dedicated 
+WS-I (Web Services Interoperability Organization) is an open industry 
-to finding interoperability rules for web services.
+organisation chartered to promote Web service interoperability across 
+platforms, operating systems, and programming languages.
 
-SOAP::WSDL aims to be a WS-I compliant SOAP client.
+WS-I publishes profiles, which provide implementation guidelines for 
+how related Web services specifications should be used together for 
+best interoperability. To date, WS-I has finalized the Basic Profile, 
+Attachments Profile and Simple SOAP Binding Profile. 
+
+SOAP::WSDL aims at complying to the Basic Profile (but does not 
+implement full support yet).
+
+=head2 SOAP message styles
+
+=head3 rpc
+
+Meant for transporting a RPC message. All contents of the SOAP body are 
+put into a top-level node named equal to the SOAP operation.
+
+WS-I Basic Profile allows the use of rpc message style.
+
+SOAP::WSDL does not support rpc message style yet.
+
+SOAP::Lite supports rpc message style only.
+
+=head3 document
+
+Meant for transporting arbitrary content. No additional nodes are inserted 
+between the SOAP body and the actual content.
+
+WS-I Basic Profile allows the use of document message style.
+
+=head2 SOAP encoding styles
+
+=head3 encoded
+
+=head3 literal
 
 =head1 LICENSE
 

lib/SOAP/WSDL/Parser.pod

@@ -6,8 +6,8 @@ SOAP::WSDL::Parser - How SOAP::WSDL parses XML messages
 
 =head1 Which XML message does SOAP::WSDL parse ?
 
-Naturally, there are two kinds of XMLdocuments (or messages) SOAP::WSDL 
+Naturally, there are two kinds of XML documents (or messages) 
-has to parse:
+SOAP::WSDL has to parse:
 
 =over
 
@@ -19,13 +19,55 @@ has to parse:
 
 =head1 Parser implementations
 
-There are different parser implementations available for SOAP messages - 
+There are different parser implementations available for SOAP messages 
-currently there's only one for WSDL definitions.
+and WSDL definitions.
+
+Historically, SOAP::WSDL used SAX for parsing XML. The SAX handlers 
+were implemented as L<XML::LibXML|XML::LibXML> handlers, which 
+also worked with L<XML::SAX::ParserFactory|XML::SAX::ParserFactory>.
+
+The use of SAX and L<XML::LibXML|XML::LibXML> in SOAP::WSDL is 
+deprecated for the following reasons:
+
+=over
+
+=item * Speed
+
+L<XML::Parser::Expat|XML::Parser::Expat> is faster than 
+L<XML::LibXML|XML::LibXML> - at least when optimized for speed.
+
+=item * Availability
+
+L<XML::Parser|XML::Parser> is more popular than 
+L<XML::LibXML|XML::LibXML>.
+
+=item * Stability
+
+XML::LibXML is based on the libxml2 library. Several versions of 
+libxml2 are known to have specific bugs. As a workaround, there are 
+often several versions of libxml2 installed on one system. This may 
+lead to problems on operating systems which cannot load more than 
+one version of a shared library simultaneously.
+
+=item * SOAP::Lite uses XML::Parser
+
+L<SOAP::Lite|SOAP::Lite> uses L<XML::Parser|XML::Parser> if available. 
+SOAP::WSDL should not require users to install both L<XML::Parser|XML::Parser> 
+and L<XML::LibXML|XML::LibXML>.
+
+=back
 
 =head2 WSDL definitions parser
 
 =over
 
+=item * SOAP::WSDL::Expat::WSDLParser
+
+A parser for WSDL definitions based on L<XML::Parser::Expat|XML::Parser::Expat>.
+
+ my $parser = SOAP::WSDL::Expat::WSDLParser->new();
+ my $wsdl = $parser->parse_file( $filename );
+
 =item * SOAP::WSDL::SAX::WSDLHandler
 
 This is a SAX handler for parsing WSDL files into object trees SOAP::WSDL 
@@ -132,6 +174,19 @@ L<SOAP::WSDL::XSD::Typelib::ComplexType> and L<SOAP::WSDL::XSD::Typelib::SimpleT
 
 =over
 
+=item * SOAP::WSDL::Expat::MessageParser
+
+A L<XML::Parser::Expat|XML::Parser::Expat> based parser. This is the fastest 
+parser for most SOAP messages and the default for SOAP::WSDL::Client.
+
+=item * SOAP::WSDL::Expat::MessageStreamParser
+
+A XML::Parser::ExpatNB based parser. Useful for parsing huge HTTP responses, 
+as you don't need to keep everything in memory.
+
+See L<SOAP::WSDL::Expat::MessageStreamParser|SOAP::WSDL::Expat::MessageStreamParser> 
+for details.
+
 =item * SOAP::WSDL::SAX::MessageHandler
 
 This is a SAX handler for parsing WSDL files into object trees SOAP::WSDL 
@@ -144,18 +199,6 @@ Can be used for parsing both streams (chunks) and documents.
 
 See L<SOAP::WSDL::SAX::MessageHandler> for details.
 
-=item * SOAP::WSDL::Expat::MessageParser
-
-A L<XML::Parser::Expat|XML::Parser::Expat> based parser. This is the fastest 
-parser for most SOAP messages and the default for SOAP::WSDL::Client.
-
-=item * SOAP::WSDL::Expat::MessageStreamParser
-
-A XML::Parser::ExpatNB based parser. Useful for parsing huge HTTP responses, 
-as you don't need to keep everything in memory.
-
-See L<SOAP::WSDL::Expat::MessageStreamParser|SOAP::WSDL::Expat::MessageStreamParser> for details.
-
 =back
 
 =head3 Performance

lib/SOAP/WSDL/RELEASE_NOTES

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

lib/SOAP/WSDL/SAX/MessageHandler.pm

@@ -273,9 +273,9 @@ This module may be used under the same terms as perl itself.
 
  $ID: $
 
- $LastChangedDate: $
+ $LastChangedDate: 2007-08-31 17:28:29 +0200 (Fr, 31 Aug 2007) $
- $LastChangedRevision: $
+ $LastChangedRevision: 176 $
- $LastChangedBy: $
+ $LastChangedBy: kutterma $
 
- $HeadURL: $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/SAX/MessageHandler.pm $
 

lib/SOAP/WSDL/Serializer/SOAP11.pm

@@ -1,13 +1,17 @@
 #!/usr/bin/perl -w
-package SOAP::WSDL::Envelope;
+package SOAP::WSDL::Serializer::SOAP11;
-use strict;
+use strict;
-use base qw/SOAP::WSDL::Base/;
+use warnings;
+use Class::Std::Storable;
+# use base qw/SOAP::WSDL::Base/;
 
 my $SOAP_NS = 'http://schemas.xmlsoap.org/soap/envelope/';
 my $XML_INSTANCE_NS = 'http://www.w3.org/2001/XMLSchema-instance';
 
 sub serialize {
-    my ($self, $name, $data, $opt) = @_;
+    my ($self, $args_of_ref) = @_;
+    
+    my $opt = $args_of_ref->{ options };   
 
     if (not $opt->{ namespace }->{ $SOAP_NS })
     {
@@ -32,8 +36,9 @@ sub serialize {
 
     # TODO insert encoding
     $xml.='>';
-    $xml .= $self->serialize_header($name, $data, $opt);
+    $xml .= $self->serialize_header($args_of_ref->{ method }, $args_of_ref->{ header }, $opt);
-    $xml .= $self->serialize_body($name, $data, $opt);
+    $xml .= "\n" if ($opt->{ readable });
+    $xml .= $self->serialize_body($args_of_ref->{ method }, $args_of_ref->{ body }, $opt);
     $xml .= "\n" if ($opt->{ readable });
     $xml .= '</' . $soap_prefix .':Envelope>';
     $xml .= "\n" if ($opt->{ readable });

lib/SOAP/WSDL/Transport/HTTP.pm

@@ -0,0 +1,107 @@
+package SOAP::WSDL::Transport::HTTP;
+use strict;
+use base qw(LWP::UserAgent);
+
+# create methods normally inherited from SOAP::Client
+SUBFACTORY: {
+    no strict qw(refs);
+    foreach my $method ( qw(code message status is_success) ) {
+        *{ $method } = sub { 
+            my $self = shift;
+            return $self->{ $method } if not @_;
+            return $self->{ $method } = shift;
+        };
+    }
+}
+
+sub send_receive {
+    my ($self, %parameters) = @_;
+    my ($envelope, $soap_action, $endpoint, $encoding, $content_type) =
+        @parameters{qw(envelope action endpoint encoding content_type)};
+
+    $encoding = defined($encoding) 
+        ? 'utf8' 
+        : lc($encoding);
+
+    # TODO check whether we need this with current LWP::UserAgent - we're 
+    # not here to fix LWP::UserAgent bugs...
+    #
+    # what's this all about?
+    # unfortunately combination of LWP and Perl 5.6.1 and later has bug
+    # in sending multibyte characters. LWP uses length() to calculate
+    # content-length header and starting 5.6.1 length() calculates chars
+    # instead of bytes. 'use bytes' in THIS file doesn't work, because
+    # it's lexically scoped. Unfortunately, content-length we calculate
+    # here doesn't work either, because LWP overwrites it with
+    # content-length it calculates (which is wrong) AND uses length()
+    # during syswrite/sysread, so we are in a bad shape anyway.
+    #
+    # what to do? we calculate proper content-length (using
+    # bytelength() function from SOAP::Utils) and then drop utf8 mark
+    # from string (doing pack with 'C0A*' modifier) if length and
+    # bytelength are not the same
+
+    # use bytes is lexically scoped
+    my $bytelength = do { use bytes; length $envelope };
+    $envelope = pack('C0A*', $envelope) 
+        if length($envelope) != $bytelength;
+
+    # END TODO
+
+    my $request = HTTP::Request->new( 'POST',
+        $endpoint,
+        [   'Content-Type', "$content_type; charset=$encoding",
+            'Content-Length', $bytelength,
+            'SOAPAction', $soap_action,
+        ],
+        $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);
+    $self->status($response->status_line);
+    
+    return $response->content();    
+}
+
+1;
+
+=pod
+
+=head1 NAME
+
+SOAP::WSDL::Transport::HTTP - Fallback http(s) transport class
+
+=head1 DESCRIPTION
+
+Provides a thin transport class used by SOAP::WSDL::Transport when 
+SOAP::Lite is not available.
+
+=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: HTTP.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/Transport/HTTP.pm $
+ 
+=cut
+

lib/SOAP/WSDL/XSD/ComplexType.pm

@@ -269,7 +269,7 @@ methods:
  [% element.get_name -%]
 [%      END %]
 
-=head1 Object structure
+[% head1 %] Object structure
 
 [% FOREACH element=self.get_element;
         IF (element.get_type);

lib/SOAP/WSDL/XSD/Typelib/Builtin/boolean.pm

@@ -1,6 +1,7 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::boolean;
 use strict;
 use warnings;
+use Class::Std::Storable;
 
 my %pattern_of          :ATTR(:name<pattern> :default<()>);
 my %whiteSpace_of       :ATTR(:name<whiteSpace> :default<()>);
@@ -9,7 +10,7 @@ my %value_of            :ATTR(:get<value> :init_attr<value> :default<()>);
 
 # Speed up. Class::Std::new is slow - and we don't need it's functionality...
 BEGIN {
-    use Class::Std::Storable;
+#    use Class::Std::Storable;
     use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
 
     no warnings qw(redefine);

lib/SOAP/WSDL/XSD/Typelib/Builtin/date.pm

@@ -53,7 +53,9 @@ sub set_value {
     # 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]);
+        my @time_from = map { ! defined $_ ? 0 : $_ } strptime($_[1]);
+#        use Data::Dumper;
+#        die Dumper \@time_from;
         my $time_str = strftime( '%Y-%m-%d%z', @time_from );
         substr $time_str, -2, 0, ':';
         $_[0]->SUPER::set_value($time_str);

lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm

@@ -14,6 +14,32 @@ my %ELEMENTS_FROM;
 my %ATTRIBUTES_OF;
 my %CLASSES_OF;
 
+# STORABLE_ methods for supporting Class::Std::Storable.
+# We could also handle them via AUTOMETHOD,
+# but AUTOMETHOD should always croak...
+sub STORABLE_freeze_pre {  
+}
+
+sub STORABLE_freeze_post {  
+}
+
+sub STORABLE_thaw_pre {  
+}
+
+sub STORABLE_thaw_post {  
+}
+
+# for error reporting. Eases working with data objects...
+sub AUTOMETHOD {
+    my ($self, $ident, @args_from) = @_;
+    
+    my $class = ref $self || $self;
+    confess "Can't locate object method \"$_\" via package \"$class\". \n"
+        . "Valid methods are: " 
+        . join(', ', map { ("get_$_" , "set_$_") } keys %{ $ATTRIBUTES_OF{ $class } })
+        . "\n"
+}
+
 # we store per-class elements.
 # call as __PACKAGE__->_factory
 sub _factory {

t/001_use.t

@@ -15,7 +15,6 @@ my @modules = qw(
     SOAP::WSDL::Port
     SOAP::WSDL::PortType
     SOAP::WSDL::Types
-    SOAP::WSDL::SAX::WSDLHandler
     SOAP::WSDL::XSD::Builtin
     SOAP::WSDL::XSD::ComplexType
     SOAP::WSDL::XSD::SimpleType

t/002_parse_wsdl.t

@@ -0,0 +1,333 @@
+#!/usr/bin/perl -w
+use strict;
+use warnings;
+use Test::More tests => 18; # qw/no_plan/; # TODO: change to tests => N;
+use lib '../lib';
+
+use XML::LibXML;
+
+eval {
+    require Test::XML;
+    import Test::XML;
+};
+
+use_ok(qw/SOAP::WSDL::SAX::WSDLHandler/);
+
+my $filter;
+
+ok($filter = SOAP::WSDL::SAX::WSDLHandler->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");
+
+my $types = $wsdl->first_types();
+
+is $types->get_parent(), $wsdl , 'types parent';
+
+my $serializer_options = {
+    readable => 1,
+    autotype => 1,
+    namespace => { 'urn:myNamespace' => 'tns',
+        "http://www.w3.org/2001/XMLSchema" => 'xsd' },
+    typelib => $wsdl->first_types(),
+    indent => "\t",
+};
+
+my $xml;
+my $type = $types->find_type( 'urn:myNamespace', 'testSimpleType1' );
+
+
+ok($xml = $type->serialize( 'test', 1 , $serializer_options ),
+    "serialize simple Type"
+);
+
+# print $xml;
+
+SKIP: {
+    skip_without_test_xml();
+    is_xml( $xml, '<test type="tns:testSimpleType1">1</test>',
+        "content compare" );
+};
+
+$type = $types->find_type( 'urn:myNamespace', 'testSimpleList' );
+ok($xml = $type->serialize( 'testList', [ 1, 2, 3 ] , $serializer_options ),
+    "serialize simple list type"
+);
+SKIP: {
+    skip_without_test_xml();
+    is_xml( $xml, '<testList type="tns:testSimpleList">1 2 3</testList>',
+        "content compare" );
+};
+
+$type = $types->find_element( 'urn:myNamespace', 'TestElement' );
+
+ok($xml = $type->serialize( undef, 1 , $serializer_options ),
+    "serialize simple element");
+SKIP: {
+    skip_without_test_xml();
+    is_xml( $xml, '<TestElement type="xsd:int">1</TestElement>',
+        "content compare" );
+};
+
+ok( $xml = $types->find_type( 'urn:myNamespace', 'length3')->serialize(
+        'TestComplex', { size => -13, unit => 'BLA' } ,
+        $serializer_options
+    ),
+    "serialize complex type");
+
+SKIP: {
+    skip_without_test_xml();
+    is_xml( $xml, q{
+        <TestComplex type="tns:length3">
+           <size type="xsd:non-positive-integer">-13</size>
+           <unit type="xsd:NMTOKEN">BLA</unit>
+        </TestComplex>},
+        "content compare" );
+};
+
+ok($xml = $types->find_element( 'urn:myNamespace', 'TestElementComplexType')
+    ->serialize(
+        undef, { size => -13, unit => 'BLA' } , $serializer_options ),
+        "serialize element with complex type"
+);
+SKIP: {
+    skip_without_test_xml();
+    is_xml( $xml, q{
+        <TestElementComplexType type="tns:length3">
+                <size type="xsd:non-positive-integer">-13</size>
+                <unit type="xsd:NMTOKEN">BLA</unit>
+        </TestElementComplexType>
+    },
+    "content compare" );
+};
+
+
+ok($xml = $types->find_type( 'urn:myNamespace', 'complex')->serialize(
+        'complexComplex',
+        { 'length' => {  size => -13, unit => 'BLA' }, 'int' => 1 },
+        $serializer_options ),
+        "serialize complex type with complex content"
+);
+SKIP: {
+    skip_without_test_xml();
+    is_xml( $xml, q{
+        <complexComplex type="tns:complex">
+                <length type="tns:length3">
+                        <size type="xsd:non-positive-integer">-13</size>
+                        <unit type="xsd:NMTOKEN">BLA</unit>
+                </length>
+                <int type="xsd:int">1</int>
+        </complexComplex>
+        },
+        "content compare" );
+}
+ok($xml = $wsdl->find_message('urn:myNamespace', 'testRequest')
+        ->get_part()->[0]->serialize(
+        undef, 
+        { test => { length => {  size => -13, unit => 'BLA' } , int => 3 } },
+    $serializer_options ),
+    "serialize part"
+);
+SKIP: {
+    skip_without_test_xml();
+    is_xml( $xml, q{
+        <test type="tns:complex">
+                <length type="tns:length3">
+                        <size type="xsd:non-positive-integer">-13</size>
+                        <unit type="xsd:NMTOKEN">BLA</unit>
+                </length>
+                <int type="xsd:int">3</int>
+        </test>
+    },
+    "content compare")
+};
+
+my $opt = {
+        typelib => $types,
+        readable => 1,
+        autotype => 0,
+        namespace => { 'urn:myNamespace' => 'tns',
+                'http://www.w3.org/2001/XMLSchema' => 'xsd',
+                'http://schemas.xmlsoap.org/wsdl/' => 'wsdl',
+        },
+        indent => "",
+        wsdl => $wsdl,
+};
+
+# ok $wsdl->explain($opt) =~ m/#optional/m;
+
+sub skip_without_test_xml {
+    skip("Test::XML not available", 1) if (not $Test::XML::VERSION);
+}
+
+sub xml
+{
+        return q{<?xml version="1.0"?>
+<definitions name="simpleType"
+        targetNamespace="urn:myNamespace"
+        xmlns="http://schemas.xmlsoap.org/wsdl/"
+        xmlns:tns="urn:myNamespace"
+        xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+        xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
+        xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
+>
+        <types>
+                <xsd:schema targetNamespace="urn:myNamespace">
+                <xsd:complexType name="length3">
+                         <xsd:all>
+                                  <xsd:element name="size" type="xsd:non-positive-integer"/>
+                                  <xsd:element name="unit" type="xsd:NMTOKEN"/>
+                         </xsd:all>
+                </xsd:complexType>
+
+                <xsd:complexType name="complex">
+                        <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">
+                        <xsd:restriction base="int">
+                                <xsd:enumeration value="1"/>
+                                <xsd:enumeration value="2"/>
+                                <xsd:enumeration value="3"/>
+                        </xsd:restriction>
+                </xsd:simpleType>
+
+                <xsd:simpleType name="testSimpleList">
+                        <xsd:annotation>
+                                <xsd:documentation>
+                                SimpleType Test
+                                </xsd:documentation>
+                        </xsd:annotation>
+                        <xsd:list itemType="int">
+                        </xsd:list>
+                </xsd:simpleType>
+                <xsd:simpleType name="testSimpleUnion">
+                        <xsd:annotation>
+                                <xsd:documentation>
+                                SimpleType Union test
+                                </xsd:documentation>
+                        </xsd:annotation>
+                        <xsd:union memberTypes="int float">
+                        </xsd:union>
+                </xsd:simpleType>
+                </xsd:schema>
+        </types>
+        <message name="testRequest">
+                <part name="test" type="tns:complex"/>
+        </message>
+        <message name="testResponse">
+                <part name="test" type="tns:testSimpleType1"/>
+        </message>
+        <message name="testRequest2">
+                <part name="test" type="tns:testSimpleType1"/>
+        </message>
+        <message name="testResponse2">
+                <part name="test" type="tns:testSimpleType1"/>
+        </message>
+        <portType name="testPort">
+                <operation name="test">
+                        <documentation>
+                                Test-Methode
+                        </documentation>
+
+                        <input message="tns:testRequest"/>
+                        <output message="tns:testResponse"/>
+                </operation>
+                <operation name="test2">
+                        <documentation>
+                                Test-Methode
+                        </documentation>
+
+                        <input message="tns:testRequest2"/>
+                        <output message="tns:testResponse2"/>
+                </operation>
+        </portType>
+        <portType name="testPort2">
+                <operation name="test">
+                        <documentation>
+                                Test-Methode
+                        </documentation>
+
+                        <input message="tns:testRequest"/>
+                        <output message="tns:testResponse"/>
+                </operation>
+        </portType>
+        <portType name="testPort3">
+                <operation name="test">
+                        <documentation>
+                                Test-Methode
+                        </documentation>
+                        <input message="tns:testRequest"/>
+                        <output message="tns:testResponse"/>
+                </operation>
+        </portType>
+
+        <binding type="tns:testPort" name="testBinding">
+        <operation name="test">
+                <soap:binding style="document" transport="http://schemas.xmlsoap.org/soap/http"/>
+                <soap:operation soapAction="test">
+                        <input>
+                                <soap:body use="literal"/>
+                        </input>
+                        <output>
+                                <soap:body use="literal"/>
+                        </output>
+                </soap:operation>
+        </operation>
+        </binding>
+        <binding type="tns:testPort2" name="testBinding2">
+                <soap:binding style="document" transport="http://schemas.xmlsoap.org/soap/http"/>
+        <operation name="test">
+                <soap:operation soapAction="test">
+                        <input>
+                                <soap:body use="literal"/>
+                        </input>
+                        <output>
+                                <soap:body use="literal"/>
+                        </output>
+                </soap:operation>
+        </operation>
+        </binding>
+        <binding type="tns:testPort3" name="testBinding3">
+                <soap:binding style="document" transport="http://schemas.xmlsoap.org/soap/http"/>
+        <operation name="test">
+                <soap:operation soapAction="test">
+                        <input>
+                                <soap:body use="literal"/>
+                        </input>
+                        <output>
+                                <soap:body use="literal"/>
+                        </output>
+                </soap:operation>
+        </operation>
+        </binding>
+        <service name="testService">
+                <port name="testPort" binding="tns:testBinding">
+                        <soap:address location="http://127.0.0.1/testPort" />
+                </port>
+                <port name="testPort2" binding="tns:testBinding2">
+                        <soap:address location="http://127.0.0.1/testPort2" />
+                </port>
+        </service>
+        <service name="testService2">
+                <port name="testPort3" binding="tns:testBinding3">
+                        <soap:address location="http://127.0.0.1/testPort3" />
+                </port>
+
+        </service>
+</definitions>
+};
+
+}
+

t/002_sax.t

@@ -1,9 +1,15 @@
 #!/usr/bin/perl -w
 use strict;
 use warnings;
-use Test::More tests => 18; # qw/no_plan/; # TODO: change to tests => N;
+use Test::More;
 use lib '../lib';
-use XML::SAX::ParserFactory;
+
+if (eval "require XML::LibXML") {
+     plan tests => 18;
+}
+else {
+    plan skip_all => "Cannot test without XML::LibXML";
+}
 
 eval {
     require Test::XML;
@@ -15,12 +21,10 @@ use_ok(qw/SOAP::WSDL::SAX::WSDLHandler/);
 my $filter;
 
 ok($filter = SOAP::WSDL::SAX::WSDLHandler->new(
-    { base => 'XML::SAX::Base' }
 ), "Object creation");
 
-my $parser = XML::SAX::ParserFactory->parser(
+my $parser = XML::LibXML->new();
-        Handler => $filter
+$parser->set_handler( $filter );
-);
 
 $parser->parse_string( xml() );
 

t/003_sax_serializer.t

@@ -1,7 +1,13 @@
-use Test::More tests => 11;
+use Test::More;
-use Data::Dumper;
 use lib '../lib';
-use XML::LibXML;
+
+if (eval "require XML::LibXML") {
+     plan tests => 11;
+}
+else {
+    plan skip_all => "Cannot test without XML::LibXML";
+}
+
 
 use_ok(qw/SOAP::WSDL::SAX::WSDLHandler/);
 

t/003_wsdl_based_serializer.t

@@ -0,0 +1,256 @@
+use Test::More tests => 11;
+use Data::Dumper;
+use lib '../lib';
+use XML::LibXML;
+
+use_ok(qw/SOAP::WSDL::SAX::WSDLHandler/);
+
+my $filter;
+
+ok($filter = SOAP::WSDL::SAX::WSDLHandler->new(), "Object creation");
+
+my $parser = XML::LibXML->new();
+$parser->set_handler( $filter );
+
+eval { $parser->parse_string( xml() ) };
+if ($@)
+{
+	fail("parsing WSDL");
+	die "Can't test without parsed WSDL";
+}
+else
+{
+	pass("parsing XML");
+}
+
+my $wsdl;
+ok( $wsdl = $filter->get_data() , "get object tree");
+
+
+my $schema = $wsdl->first_types();
+
+my $opt = {
+	readable => 0,
+	autotype => 1,
+    namespace => $wsdl->get_xmlns(),
+	indent => "\t",
+	typelib => $schema,
+};
+
+is( $schema->find_type( 'myNamespace', 'testSimpleType1' )->serialize(
+	'test', 1 , $opt ),
+	q{<test type="tns:testSimpleType1">1</test>} , "serialize simple type");
+
+is( $schema->find_type( 'myNamespace', 'testSimpleList' )->serialize(
+	'testList', [ 1, 2, 3 ] , $opt),
+	q{<testList type="tns:testSimpleList">1 2 3</testList>},
+	"serialize simple list type"
+);
+
+is( $schema->find_element( 'myNamespace', 'TestElement' )->serialize(
+	undef, 1 , $opt),
+	q{<TestElement type="xsd:int">1</TestElement>}, "Serialize element"
+);
+
+$opt->{ readable } = 0;
+
+is( $schema->find_type( 'myNamespace', 'length3')->serialize(
+	'TestComplex', { size => -13, unit => 'BLA' } ,
+	$opt ),
+	q{<TestComplex type="tns:length3" >}
+	. q{<size type="xsd:non-positive-integer">-13</size>}
+	. q{<unit type="xsd:NMTOKEN">BLA</unit></TestComplex>}
+	, "serialize complex type" );
+
+is( $schema->find_element( 'myNamespace', 'TestElementComplexType')->serialize(
+	undef, { size => -13, unit => 'BLA' } ,
+	$opt ),
+	q{<TestElementComplexType type="tns:length3" >}
+	. q{<size type="xsd:non-positive-integer">-13</size>}
+	. q{<unit type="xsd:NMTOKEN">BLA</unit></TestElementComplexType>},
+	"element with complex type"
+);
+
+is( $schema->find_type( 'myNamespace', 'complex')->serialize(
+	'complexComplex',
+	{ 'length' => {  size => -13, unit => 'BLA' }, 'int' => 1 },
+	$opt ),
+	q{<complexComplex type="tns:complex" >}
+	. q{<length type="tns:length3" >}
+	. q{<size type="xsd:non-positive-integer">-13</size>}
+	. q{<unit type="xsd:NMTOKEN">BLA</unit></length>}
+	. q{<int type="xsd:int">1</int></complexComplex>},
+	"nested complex type"
+);
+
+is( $wsdl->find_message('myNamespace', 'testRequest')->first_part()->serialize(
+	undef, { test => { length => {  size => -13, unit => 'BLA' } , int => 3 } },
+	$opt ),
+	q{<test type="tns:complex" >}
+	. q{<length type="tns:length3" >}
+	. q{<size type="xsd:non-positive-integer">-13</size>}
+	. q{<unit type="xsd:NMTOKEN">BLA</unit>}
+	. q{</length><int type="xsd:int">3</int></test>}
+	, "Message part"
+);
+
+
+exit;
+
+sub xml
+{
+	return q{<?xml version="1.0"?>
+<definitions name="simpleType"
+	targetNamespace="myNamespace"
+	xmlns="http://schemas.xmlsoap.org/wsdl/"
+	xmlns:tns="myNamespace"
+	xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+	xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
+	xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
+>
+	<types>
+		<xsd:schema targetNamespace="myNamespace">
+		<xsd:complexType name="length3">
+ 			<xsd:sequence>
+  				<xsd:element name="size" type="xsd:non-positive-integer"/>
+  				<xsd:element name="unit" type="xsd:NMTOKEN"/>
+ 			</xsd:sequence>
+		</xsd:complexType>
+
+		<xsd:complexType name="complex">
+			<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">
+			<xsd:restriction base="int">
+				<xsd:enumeration value="1"/>
+				<xsd:enumeration value="2"/>
+				<xsd:enumeration value="3"/>
+			</xsd:restriction>
+		</xsd:simpleType>
+
+		<xsd:simpleType name="testSimpleList">
+			<xsd:annotation>
+				<xsd:documentation>
+				SimpleType Test
+				</xsd:documentation>
+			</xsd:annotation>
+			<xsd:list itemType="int">
+			</xsd:list>
+		</xsd:simpleType>
+		<xsd:simpleType name="testSimpleUnion">
+			<xsd:annotation>
+				<xsd:documentation>
+				SimpleType Union test
+				</xsd:documentation>
+			</xsd:annotation>
+			<xsd:union memberTypes="int float">
+			</xsd:union>
+		</xsd:simpleType>
+		</xsd:schema>
+	</types>
+	<message name="testRequest">
+		<part name="test" type="tns:complex"/>
+	</message>
+	<message name="testResponse">
+		<part name="test" type="tns:testSimpleType1"/>
+	</message>
+	<message name="testRequest2">
+		<part name="test" type="tns:testSimpleType1"/>
+	</message>
+	<message name="testResponse2">
+		<part name="test" type="tns:testSimpleType1"/>
+	</message>
+	<portType name="testPort">
+		<operation name="test">
+			<documentation>
+				Test-Methode
+			</documentation>
+
+			<input message="testRequest"/>
+			<output message="testResponse"/>
+		</operation>
+		<operation name="test2">
+			<documentation>
+				Test-Methode
+			</documentation>
+
+			<input message="testRequest2"/>
+			<output message="testResponse2"/>
+		</operation>
+	</portType>
+	<portType name="testPort2">
+		<operation name="test">
+			<documentation>
+				Test-Methode
+			</documentation>
+
+			<input message="testRequest"/>
+			<output message="testResponse"/>
+		</operation>
+	</portType>
+	<portType name="testPort3">
+		<operation name="test">
+			<documentation>
+				Test-Methode
+			</documentation>
+			<input message="testRequest"/>
+			<output message="testResponse"/>
+		</operation>
+	</portType>
+
+	<binding type="testPort" name="testBinding">
+		<soap:binding style="document" transport="http://schemas.xmlsoap.org/soap/http"/>
+		<soap:operation soapAction="test">
+			<input>
+				<soap:body use="literal"/>
+			</input>
+			<output>
+				<soap:body use="literal"/>
+			</output>
+		</soap:operation>
+	</binding>
+	<binding type="testPort2" name="testBinding2">
+		<soap:binding style="document" transport="http://schemas.xmlsoap.org/soap/http"/>
+		<soap:operation soapAction="test">
+			<input>
+				<soap:body use="literal"/>
+			</input>
+			<output>
+				<soap:body use="literal"/>
+			</output>
+		</soap:operation>
+	</binding>
+	<binding type="testPort3" name="testBinding3">
+		<soap:binding style="document" transport="http://schemas.xmlsoap.org/soap/http"/>
+		<soap:operation soapAction="test">
+			<input>
+				<soap:body use="literal"/>
+			</input>
+			<output>
+				<soap:body use="literal"/>
+			</output>
+		</soap:operation>
+	</binding>
+	<service name="testService">
+		<port name="testPort" binding="testBinding">
+			<soap:address location="http://127.0.0.1/testPort" />
+		</port>
+		<port name="testPort2" binding="testBinding2">
+			<soap:address location="http://127.0.0.1/testPort2" />
+		</port>
+		<port name="testPort3" binding="testBinding3">
+			<soap:address location="http://127.0.0.1/testPort3" />
+		</port>
+
+	</service>
+</definitions>
+};
+
+}
+

t/004_parse_wsdl.t

@@ -0,0 +1,403 @@
+#!/usr/bin/perl -w
+use strict;
+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/);
+
+my $filter;
+
+ok($filter = SOAP::WSDL::SAX::WSDLHandler->new(), "Object creation");
+
+my $parser = XML::LibXML->new();
+$parser->set_handler( $filter );
+
+eval { $parser->parse_string( xml() ) };
+if ($@)
+{
+	fail("parsing WSDL");
+	die "Can't test without parsed WSDL: $@";
+}
+else
+{
+	pass("parsing XML");
+}
+
+my $wsdl;
+ok( $wsdl = $filter->get_data() , "get object tree");
+
+my $schema = $wsdl->get_types()->[0]->get_schema()->[0] || die "No schema !";
+
+my $opt = {
+	typelib => $wsdl->first_types,
+	readable => 1,
+	autotype => 0,
+	namespace => { 'http://www.example.org/MessageGateway2/' => 'tns',
+		'http://www.w3.org/2001/XMLSchema' => 'xsd',
+		'http://schemas.xmlsoap.org/wsdl/' => 'wsdl',
+	},
+	indent => "",
+};
+
+my $data = { EnqueueMessage => {
+	MMessage => {
+		MRecipientURI => 'anyURI',
+		MSenderAddress => 'a string',
+		MMessageContent => 'a string',
+		MSubject => 'a string',
+		MDeliveryReportRecipientURI => 'anyURI',
+		MKeepalive => {
+			MKeepaliveTimeout => 1234567,
+			MKeepaliveErrorPolicy => ' ( suppress | report ) ',
+		}
+	}
+}
+
+};
+ 
+
+SKIP: { skip_without_test_xml();
+    is_xml( $wsdl->find_message(
+        "http://www.example.org/MessageGateway2/" ,'EnqueueMessageRequest'
+        )->first_part()->serialize( 'test', $data, $opt ),
+        xml_message()
+        , "Serialized message part"
+    );
+}
+
+sub skip_without_test_xml {
+    skip("Test::XML not available", 1) if (not $Test::XML::VERSION);
+}
+
+sub xml_message {
+	return
+q{<EnqueueMessage xmlns="http://www.example.org/MessageGateway2/">
+	<MMessage>
+		<MRecipientURI>anyURI</MRecipientURI>
+		<MSenderAddress>a string</MSenderAddress>
+		<MMessageContent>a string</MMessageContent>
+		<MSubject>a string</MSubject>
+		<MDeliveryReportRecipientURI>anyURI</MDeliveryReportRecipientURI>
+		<MKeepalive>
+			<MKeepaliveTimeout>1234567</MKeepaliveTimeout>
+			<MKeepaliveErrorPolicy> ( suppress | report ) </MKeepaliveErrorPolicy>
+		</MKeepalive>
+	</MMessage>
+</EnqueueMessage>
+};
+
+}
+
+sub xml {
+	return q{<?xml version="1.0" encoding="UTF-8"?>
+<wsdl:definitions name="MessageGateway"
+  targetNamespace="http://www.example.org/MessageGateway2/"
+  xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
+  xmlns:tns="http://www.example.org/MessageGateway2/"
+  xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+  xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/">
+  <wsdl:types>
+    <xsd:schema xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+      targetNamespace="http://www.example.org/MessageGateway2/">
+
+      <xsd:element name="EnqueueMessage" type="tns:TEnqueueMessage"
+        xmlns:tns="http://www.example.org/MessageGateway2/">
+        <xsd:annotation>
+          <xsd:documentation>Enqueue message request element</xsd:documentation>
+        </xsd:annotation>
+      </xsd:element>
+
+      <xsd:complexType name="TMessage">
+        <xsd:annotation>
+          <xsd:documentation>
+            A type containing all elements of a message to enqueue.
+          </xsd:documentation>
+        </xsd:annotation>
+        <xsd:sequence>
+          <xsd:element name="MRecipientURI" type="xsd:anyURI" minOccurs="1"
+            maxOccurs="1">
+            <xsd:annotation>
+
+              <xsd:documentation>
+                The recipient in URI notaitions. Valid URI schemas are: mailto:, sms:,
+                phone:. Not all URI schemas need to be implemented at the current
+                implementation stage.
+              </xsd:documentation>
+            </xsd:annotation>
+          </xsd:element>
+          <xsd:element name="MSenderAddress" type="xsd:string" minOccurs="0"
+            maxOccurs="1">
+            <xsd:annotation>
+              <xsd:documentation>
+                E-Mail sender address. Ignored for all but mailto: recipient URIs.
+              </xsd:documentation>
+
+            </xsd:annotation>
+          </xsd:element>
+          <xsd:element name="MMessageContent" type="xsd:string" minOccurs="1"
+            maxOccurs="1">
+            <xsd:annotation>
+              <xsd:documentation>Message Content.</xsd:documentation>
+            </xsd:annotation>
+          </xsd:element>
+          <xsd:element name="MSubject" type="xsd:string" minOccurs="0" maxOccurs="1">
+
+            <xsd:annotation>
+              <xsd:documentation>
+                Message Subject. Ignored for all but mailto: URIs
+              </xsd:documentation>
+            </xsd:annotation>
+          </xsd:element>
+          <xsd:element name="MDeliveryReportRecipientURI" type="xsd:anyURI" minOccurs="0"
+            maxOccurs="1">
+            <xsd:annotation>
+              <xsd:documentation>
+
+                URI to send a delivery report to. May be of one of the following schemes:
+                mailto:, http:, https:. Reports to mailto: URIs are sent as plaintext,
+                reports to http(s) URIs are sent as SOAP requests following the
+                MessageGatewayClient service definition.
+              </xsd:documentation>
+            </xsd:annotation>
+          </xsd:element>
+          <xsd:element name="MKeepalive" type="tns:TKeepalive" minOccurs="0"
+            maxOccurs="1">
+            <xsd:annotation>
+              <xsd:documentation>
+                Container for keepalive information. May be missing.
+              </xsd:documentation>
+            </xsd:annotation>
+
+          </xsd:element>
+        </xsd:sequence>
+      </xsd:complexType>
+
+      <xsd:complexType name="TKeepalive">
+        <xsd:annotation>
+          <xsd:documentation>Type containing keeplive information.</xsd:documentation>
+        </xsd:annotation>
+        <xsd:sequence>
+
+          <xsd:element name="MKeepaliveTimeout" type="xsd:double">
+            <xsd:annotation>
+              <xsd:documentation>
+                Keepalive timeout. The keepalive timeout spezifies how long the sending of
+                a message will be delayed waiting for keepalive updates. If a keepalive
+                update is received during this period, the timeout will be reset. If not,
+                the message will be sent after the timeout has expired.
+              </xsd:documentation>
+            </xsd:annotation>
+          </xsd:element>
+          <xsd:element name="MKeepaliveErrorPolicy" minOccurs="0" maxOccurs="1">
+            <xsd:annotation>
+
+              <xsd:documentation>
+                Policy to comply to in case of system errors. Valid values are "suppress"
+                and "report". If the policy is set to "suppress", keepalive messages will
+                not be sent to their recipients in case of partial system failure, even if
+                the keepalive has expired. This may result in "false negatives", i.e.
+                messages may not be sent, even though their keepalive has expired. If the
+                value is "report", keepalive messages will be sent from any cluster node.
+                This may result in "false positive" alerts.
+              </xsd:documentation>
+            </xsd:annotation>
+            <xsd:simpleType>
+              <xsd:restriction base="xsd:string">
+                <xsd:enumeration value="suppress"></xsd:enumeration>
+                <xsd:enumeration value="report"></xsd:enumeration>
+              </xsd:restriction>
+            </xsd:simpleType>
+          </xsd:element>
+        </xsd:sequence>
+      </xsd:complexType>
+
+      <xsd:complexType name="TMessageID">
+        <xsd:annotation>
+          <xsd:documentation>Type containing a message ID.</xsd:documentation>
+        </xsd:annotation>
+
+        <xsd:sequence>
+          <xsd:element name="MMessageID" type="xsd:string" minOccurs="1" maxOccurs="1"></xsd:element>
+        </xsd:sequence>
+      </xsd:complexType>
+
+      <xsd:complexType name="TKeepliveMessage">
+        <xsd:annotation>
+          <xsd:documentation>
+            Type containing all elements of a keppalive update / remove request.
+          </xsd:documentation>
+        </xsd:annotation>
+        <xsd:sequence>
+          <xsd:element name="MMessageID" type="xsd:string" minOccurs="1" maxOccurs="1">
+            <xsd:annotation>
+              <xsd:documentation>
+                The ID for the message to update / remove
+              </xsd:documentation>
+            </xsd:annotation>
+          </xsd:element>
+
+          <xsd:element name="MAction" minOccurs="1" maxOccurs="1">
+            <xsd:annotation>
+              <xsd:documentation>
+                The action to perform. Valid values are: "remove", "update". On "remove",
+                the message with the ID specified will be removed from the queue, thus it
+                will never be sent, even if it's timeout expires. On "update" the
+                keepalive timeout of the corresponding message will be reset.
+              </xsd:documentation>
+            </xsd:annotation>
+            <xsd:simpleType>
+              <xsd:restriction base="xsd:string">
+                <xsd:enumeration value="remove"></xsd:enumeration>
+                <xsd:enumeration value="update"></xsd:enumeration>
+              </xsd:restriction>
+            </xsd:simpleType>
+          </xsd:element>
+        </xsd:sequence>
+      </xsd:complexType>
+      <xsd:element name="KeepaliveMessage" type="tns:TKeepaliveMessageRequest">
+        <xsd:annotation>
+          <xsd:documentation>Keepalive message request element</xsd:documentation>
+        </xsd:annotation>
+      </xsd:element>
+      <xsd:element name="KeepaliveMessageResponse" type="tns:TMessageID">
+        <xsd:annotation>
+          <xsd:documentation>Response element for a keepalive request</xsd:documentation>
+        </xsd:annotation>
+      </xsd:element>
+      <xsd:element name="EnqueueMessageResponse" type="tns:TMessageID">
+        <xsd:annotation>
+          <xsd:documentation>Enqueue message response element</xsd:documentation>
+        </xsd:annotation>
+      </xsd:element>
+
+
+      <xsd:complexType name="TEnqueueMessage">
+        <xsd:annotation>
+          <xsd:documentation>
+            A complex type containing one element: The message to enqueue.
+          </xsd:documentation>
+        </xsd:annotation>
+        <xsd:sequence>
+          <xsd:element name="MMessage" type="tns:TMessage">
+            <xsd:annotation>
+              <xsd:documentation>
+                Element containing a message to enqueue.
+              </xsd:documentation>
+            </xsd:annotation>
+
+          </xsd:element>
+        </xsd:sequence>
+      </xsd:complexType>
+
+
+      <xsd:complexType name="TKeepaliveMessageRequest">
+        <xsd:annotation>
+          <xsd:documentation>
+            A complex type containing one element: The keepalive message to process.
+          </xsd:documentation>
+
+        </xsd:annotation>
+        <xsd:sequence>
+          <xsd:element name="MKeepaliveMessage" type="tns:TKeepliveMessage">
+            <xsd:annotation>
+              <xsd:documentation>
+                Element containing a keepalive message to process.
+              </xsd:documentation>
+            </xsd:annotation>
+          </xsd:element>
+
+        </xsd:sequence>
+      </xsd:complexType>
+    </xsd:schema>
+  </wsdl:types>
+  <wsdl:message name="EnqueueMessageRequest">
+    <wsdl:part name="parameters" element="tns:EnqueueMessage">
+      <wsdl:documentation>inputparameters for EnqueueMessag</wsdl:documentation>
+    </wsdl:part>
+
+  </wsdl:message>
+  <wsdl:message name="EnqueueMessageResponse">
+    <wsdl:part name="parameters" element="tns:EnqueueMessageResponse">
+      <wsdl:documentation>outputparameters for EnqueueMessag</wsdl:documentation>
+    </wsdl:part>
+  </wsdl:message>
+  <wsdl:message name="KeepaliveMessageRequest">
+    <wsdl:part name="parameters" element="tns:KeepaliveMessage">
+
+      <wsdl:documentation>input parameters for KeepaliveMessag</wsdl:documentation>
+    </wsdl:part>
+  </wsdl:message>
+  <wsdl:message name="KeepaliveMessageResponse">
+    <wsdl:part name="parameters" element="tns:KeepaliveMessageResponse">
+      <wsdl:documentation>output parameters for KeepaliveMessag</wsdl:documentation>
+    </wsdl:part>
+  </wsdl:message>
+
+  <wsdl:portType name="MGWPortType">
+    <wsdl:documentation>
+      generic port type for all methods required for sending messages over the mosaic
+      message gatewa
+    </wsdl:documentation>
+    <wsdl:operation name="EnqueueMessage">
+      <wsdl:documentation>
+        This method is used to enqueue a normal (immediate send) or a delayed message with
+        keepalive functionality.
+      </wsdl:documentation>
+      <wsdl:input message="tns:EnqueueMessageRequest"></wsdl:input>
+      <wsdl:output message="tns:EnqueueMessageResponse"></wsdl:output>
+
+    </wsdl:operation>
+    <wsdl:operation name="KeepaliveMessage">
+      <wsdl:documentation>
+        This method is used to update or remove a
+        keepalive message.
+      </wsdl:documentation>
+      <wsdl:input message="tns:KeepaliveMessageRequest"></wsdl:input>
+      <wsdl:output message="tns:KeepaliveMessageResponse"></wsdl:output>
+    </wsdl:operation>
+  </wsdl:portType>
+
+  <wsdl:binding name="MGWBinding" type="tns:MGWPortType">
+    <wsdl:documentation>Generic binding for all (SOAP) port</wsdl:documentation>
+    <soap:binding style="document" transport="http://schemas.xmlsoap.org/soap/http" />
+    <wsdl:operation name="EnqueueMessage">
+      <soap:operation soapAction="http://www.example.org/MessageGateway2/EnqueueMessage" />
+      <wsdl:input>
+        <soap:body use="literal" />
+      </wsdl:input>
+      <wsdl:output>
+        <soap:body use="literal" />
+      </wsdl:output>
+    </wsdl:operation>
+    <wsdl:operation name="KeepaliveMessage">
+      <soap:operation
+        soapAction="http://www.example.org/MessageGateway2/KeepaliveMessage" />
+      <wsdl:input>
+        <soap:body use="literal" />
+      </wsdl:input>
+
+      <wsdl:output>
+        <soap:body use="literal" />
+      </wsdl:output>
+    </wsdl:operation>
+  </wsdl:binding>
+  <wsdl:service name="MessageGateway">
+    <wsdl:documentation>
+      Web Service for sending messages over the mosaic message gatewa
+    </wsdl:documentation>
+
+    <wsdl:port name="HTTPPort" binding="tns:MGWBinding">
+      <wsdl:documentation>HTTP(S) port for the mosaic message gatewa</wsdl:documentation>
+      <soap:address location="https://www.example.org/MessageGateway/" />
+    </wsdl:port>
+  </wsdl:service>
+</wsdl:definitions>};
+}

t/004_sax_wsdl.t

@@ -1,11 +1,15 @@
 #!/usr/bin/perl -w
 use strict;
 use warnings;
-use Test::More tests => 5;
+use Test::More;
 use lib '../lib';
-use XML::SAX::ParserFactory;
 
-use diagnostics;
+if (eval "require XML::LibXML") {
+     plan tests => 5;
+}
+else {
+    plan skip_all => "Cannot test without XML::LibXML";
+}
 
 eval {
     require Test::XML;
@@ -18,7 +22,6 @@ my $filter;
 
 ok($filter = SOAP::WSDL::SAX::WSDLHandler->new(), "Object creation");
 
-use XML::LibXML;
 my $parser = XML::LibXML->new();
 $parser->set_handler( $filter );
 

t/005_parse_contributed.t

@@ -0,0 +1,255 @@
+#!/usr/bin/perl -w
+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::SAX::WSDLHandler/);
+
+my $filter;
+
+ok($filter = SOAP::WSDL::SAX::WSDLHandler->new(), "Object creation");
+
+my $parser = XML::LibXML->new();
+$parser->set_handler( $filter );
+
+eval { $parser->parse_string( xml() ) };
+if ($@)
+{
+	fail("parsing WSDL");
+	die "Can't test without parsed WSDL: $@";
+}
+else
+{
+	pass("parsing XML");
+}
+
+my $wsdl;
+ok( $wsdl = $filter->get_data() , "get object tree");
+
+my $opt = {
+	namespace => $wsdl->get_xmlns(),
+	style => 'perl',
+	wsdl => $wsdl,
+	readable => 1,
+};
+
+my $txt;
+ok( $txt = $wsdl->explain( $opt ) , "explain WSDL" );
+
+# print $txt;
+
+sub xml {
+	return q{<?xml version="1.0" encoding="UTF-8"?>
+<wsdl:definitions targetNamespace="http://example.com/soap/services/ETest/impl"
+  xmlns="http://schemas.xmlsoap.org/wsdl/"
+  xmlns:apachesoap="http://xml.apache.org/xml-soap"
+  xmlns:impl="http://example.com/soap/services/ETest/impl"
+  xmlns:intf="http://example.com/soap/services/ETest"
+  xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"
+  xmlns:tns1="urn:ETest"
+  xmlns:tns2="urn:acquisition"
+  xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
+  xmlns:wsdlsoap="http://schemas.xmlsoap.org/wsdl/soap/"
+  xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+
+  <wsdl:types>
+    <schema targetNamespace="urn:ETest" xmlns="http://www.w3.org/2001/XMLSchema">
+      <import namespace="http://schemas.xmlsoap.org/soap/encoding/" />
+      <complexType name="CreationBaseData">
+        <sequence>
+          <element name="createdBy" nillable="true" type="xsd:long" />
+          <element name="creationDate" nillable="true" type="xsd:dateTime" />
+          <element name="updateDateCenter" nillable="true" type="xsd:dateTime" />
+          <element name="updateDateLocal" nillable="true" type="xsd:dateTime" />
+          <element name="updatedBy" nillable="true" type="xsd:long" />
+        </sequence>
+      </complexType>
+      <complexType name="CreationData">
+        <complexContent>
+          <extension base="tns1:CreationBaseData">
+            <sequence>
+              <element name="creatorFullName" nillable="true" type="xsd:string" />
+              <element name="modifierFullName" nillable="true" type="xsd:string" />
+            </sequence>
+          </extension>
+        </complexContent>
+      </complexType>
+      <complexType abstract="true" name="EProductData">
+        <sequence>
+          <element name="EStatus" nillable="true" type="xsd:string" />
+          <element name="EStatusUpdatedate" nillable="true" type="xsd:dateTime" />
+          <element name="SFXID" nillable="true" type="xsd:string" />
+          <element name="activationFromDate" nillable="true" type="xsd:dateTime" />
+          <element name="activationToDate" nillable="true" type="xsd:dateTime" />
+          <element name="activityStatusDateFrom" nillable="true" type="xsd:dateTime" />
+          <element name="activityStatusDateTo" nillable="true" type="xsd:dateTime" />
+          <element name="canEditSFXID" type="xsd:boolean" />
+          <element name="concurrentNumberOfUsers" nillable="true" type="xsd:int" />
+          <element name="creationData" nillable="true" type="tns1:CreationData" />
+          <element name="deleteable" type="xsd:boolean" />
+          <element name="ETestCode" nillable="true" type="xsd:string" />
+          <element name="id" nillable="true" type="xsd:long" />
+          <element name="instanceCode" nillable="true" type="xsd:string" />
+          <element name="mainContact" nillable="true" type="xsd:string" />
+          <element name="metaLibID" nillable="true" type="xsd:string" />
+          <element name="otherID" nillable="true" type="xsd:string" />
+          <element name="otherSource" nillable="true" type="xsd:string" />
+          <element name="privateNote" nillable="true" type="xsd:string" />
+          <element name="procurementStatus" nillable="true" type="xsd:string" />
+          <element name="procurementStatusUpdateDate" nillable="true" type="xsd:dateTime" />
+          <element name="procurementStatusUpdatedate" nillable="true" type="xsd:dateTime" />
+          <element name="sourceInstanceCode" nillable="true" type="xsd:string" />
+          <element name="sponseringLibraryCode" nillable="true" type="xsd:string" />
+          <element name="sponseringLibraryName" nillable="true" type="xsd:string" />
+          <element name="updateTarget" nillable="true" type="xsd:string" />
+          <element name="workExpressionCode" nillable="true" type="xsd:string" />
+        </sequence>
+      </complexType>
+      <complexType name="EProductInformation">
+        <sequence>
+          <element name="acquisitions" nillable="true"
+            type="impl:ArrayOf_tns2_AcquisitionData" />
+          <element name="data" nillable="true" type="tns1:EProductData" />
+        </sequence>
+      </complexType>
+    </schema>
+    <schema targetNamespace="urn:acquisition" xmlns="http://www.w3.org/2001/XMLSchema">
+      <import namespace="http://schemas.xmlsoap.org/soap/encoding/" />
+      <complexType name="AcquisitionCommonData">
+        <sequence>
+          <element name="budgets" nillable="true" type="xsd:string" />
+          <element name="campusCode" nillable="true" type="xsd:string" />
+          <element name="concurrentUsersNote" nillable="true" type="xsd:string" />
+          <element name="creationData" nillable="true" type="tns1:CreationData" />
+          <element name="id" nillable="true" type="xsd:long" />
+          <element name="instituteCode" nillable="true" type="xsd:string" />
+        </sequence>
+      </complexType>
+      <complexType name="AcquisitionData">
+        <sequence>
+          <element name="ILSSubscriptionNo" nillable="true" type="xsd:string" />
+          <element name="acquisitionCode" nillable="true" type="xsd:string" />
+          <element name="acquisitionCommonData" nillable="true"
+            type="tns2:AcquisitionCommonData" />
+          <element name="acquisitionMethod" nillable="true" type="xsd:string" />
+          <element name="acquisitionNumber" nillable="true" type="xsd:string" />
+          <element name="acquisitionStatus" nillable="true" type="xsd:string" />
+          <element name="acquisitionStatusDate" nillable="true" type="xsd:dateTime" />
+          <element name="advanceNoticeDate" nillable="true" type="xsd:dateTime" />
+          <element name="autoRenewal" nillable="true" type="xsd:boolean" />
+          <element name="consortialAgreement" type="xsd:boolean" />
+          <element name="discountOnPrice" nillable="true" type="xsd:int" />
+          <element name="id" nillable="true" type="xsd:long" />
+          <element name="instanceCode" nillable="true" type="xsd:string" />
+          <element name="materialType" nillable="true" type="xsd:string" />
+          <element name="noteForILS" nillable="true" type="xsd:string" />
+          <element name="noteForVendor" nillable="true" type="xsd:string" />
+          <element name="noticePeriodCode" nillable="true" type="xsd:string" />
+          <element name="numberOfCopies" nillable="true" type="xsd:int" />
+          <element name="orderDate" nillable="true" type="xsd:dateTime" />
+          <element name="orderForm" nillable="true" type="xsd:string" />
+          <element name="orderSendMethod" nillable="true" type="xsd:string" />
+          <element name="pooledConcurrentUsers" nillable="true" type="xsd:int" />
+          <element name="price" nillable="true" type="xsd:double" />
+          <element name="pricingCap" nillable="true" type="xsd:int" />
+          <element name="pricingCapFrom" nillable="true" type="xsd:dateTime" />
+          <element name="pricingCapTo" nillable="true" type="xsd:dateTime" />
+          <element name="pricingModel" nillable="true" type="xsd:string" />
+          <element name="printCancellationNote" nillable="true" type="xsd:string" />
+          <element name="printCancellationRestriction" type="xsd:boolean" />
+          <element name="printPurchaseOrderNo" nillable="true" type="xsd:string" />
+          <element name="purchaseOrderNo" nillable="true" type="xsd:string" />
+          <element name="renewallOrCancellationDate" nillable="true" type="xsd:dateTime" />
+          <element name="renewallOrCancellationDescisionNote" nillable="true"
+            type="xsd:string" />
+          <element name="renewallOrCancellationNoteForILS" nillable="true"
+            type="xsd:string" />
+          <element name="renewallOrCancellationNoteForVendor" nillable="true"
+            type="xsd:string" />
+          <element name="subscriptionNotification" nillable="true" type="xsd:int" />
+          <element name="subscriptionPeriodCode" nillable="true" type="xsd:string" />
+          <element name="subscriptionType" nillable="true" type="xsd:string" />
+          <element name="subscriptionTypeNote" nillable="true" type="xsd:string" />
+          <element name="vendorAdvancedNotice" nillable="true" type="xsd:int" />
+          <element name="vendorAdvancedNoticeVal" nillable="true" type="xsd:string" />
+          <element name="vendorCode" nillable="true" type="xsd:string" />
+          <element name="vendorName" nillable="true" type="xsd:string" />
+          <element name="vendorSubscriptionCode" nillable="true" type="xsd:string" />
+        </sequence>
+      </complexType>
+    </schema>
+    <schema targetNamespace="http://example.com/soap/services/ETest/impl"
+      xmlns="http://www.w3.org/2001/XMLSchema">
+      <import namespace="http://schemas.xmlsoap.org/soap/encoding/" />
+      <complexType name="ArrayOf_tns2_AcquisitionData">
+        <complexContent>
+          <restriction base="soapenc:Array">
+            <attribute ref="soapenc:arrayType" wsdl:arrayType="tns2:AcquisitionData[]" />
+          </restriction>
+        </complexContent>
+      </complexType>
+    </schema>
+  </wsdl:types>
+  <wsdl:message name="getETestResponse">
+    <wsdl:part name="getETestReturn" type="tns1:EProductInformation" />
+  </wsdl:message>
+  <wsdl:message name="getFixedETestResponse">
+    <wsdl:part name="getFixedETestReturn" type="tns1:EProductInformation" />
+  </wsdl:message>
+  <wsdl:message name="getFixedETestRequest"></wsdl:message>
+  <wsdl:message name="getETestRequest">
+    <wsdl:part name="indexName" type="xsd:string" />
+    <wsdl:part name="indexValue" type="xsd:string" />
+    <wsdl:part name="withStatus" type="xsd:string" />
+  </wsdl:message>
+  <wsdl:portType name="ETestWeb">
+    <wsdl:operation name="getETest" parameterOrder="indexName indexValue withStatus">
+      <wsdl:input message="impl:getETestRequest" name="getETestRequest" />
+      <wsdl:output message="impl:getETestResponse" name="getETestResponse" />
+    </wsdl:operation>
+    <wsdl:operation name="getFixedETest">
+      <wsdl:input message="impl:getFixedETestRequest" name="getFixedETestRequest" />
+      <wsdl:output message="impl:getFixedETestResponse"
+        name="getFixedETestResponse" />
+    </wsdl:operation>
+  </wsdl:portType>
+
+  <wsdl:binding name="ETestSoapBinding" type="impl:ETestWeb">
+    <wsdlsoap:binding style="rpc" transport="http://schemas.xmlsoap.org/soap/http" />
+    <wsdl:operation name="getETest">
+      <wsdlsoap:operation soapAction="" />
+      <wsdl:input name="getETestRequest">
+        <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+          namespace="http://example.com/soap/services/ETest" use="encoded" />
+      </wsdl:input>
+      <wsdl:output name="getETestResponse">
+        <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+          namespace="http://example.com/soap/services/ETest" use="encoded" />
+      </wsdl:output>
+    </wsdl:operation>
+    <wsdl:operation name="getFixedETest">
+      <wsdlsoap:operation soapAction="" />
+      <wsdl:input name="getFixedETestRequest">
+        <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+          namespace="http://example.com/soap/services/ETest" use="encoded" />
+      </wsdl:input>
+      <wsdl:output name="getFixedETestResponse">
+        <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+          namespace="http://example.com/soap/services/ETest" use="encoded" />
+      </wsdl:output>
+    </wsdl:operation>
+  </wsdl:binding>
+
+  <wsdl:service name="ETestWebService">
+    <wsdl:port binding="impl:ETestSoapBinding" name="ETest">
+      <wsdlsoap:address location="http://example.com/soap/services/ETest" />
+    </wsdl:port>
+  </wsdl:service>
+</wsdl:definitions>
+};
+}

t/005_sax_contributed_wsdl.t

@@ -1,10 +1,15 @@
 #!/usr/bin/perl -w
 use strict;
 use warnings;
-use Test::More qw/no_plan/; # TODO: change to tests => N;
+use Test::More; # TODO: change to tests => N;
-use Data::Dumper;
 use lib '../lib';
-use XML::LibXML;
+
+if (eval "require XML::LibXML") {
+     plan tests => 5;
+}
+else {
+    plan skip_all => "Cannot test without XML::LibXML";
+}
 
 use diagnostics;
 

t/006_client.t

@@ -1,10 +1,8 @@
 #!/usr/bin/perl -w
 use strict;
 use warnings;
-use Pod::Simple::Text;
 use Test::More qw/no_plan/; # TODO: change to tests => N;
 use lib '../lib';
-use XML::SAX::ParserFactory;
 
 eval {
     require Test::XML;
@@ -31,11 +29,17 @@ ok( $soap->no_dispatch( 1 ) , "Set no_dispatch" );
 ok( $soap->explain() );
 
 
-my $pod = Pod::Simple::Text->new();
+SKIP: {
-my $output;
+    
-$pod->output_string( \$output );
+    if (not eval "require Pod::Simple::Text") {
-$pod->parse_string_document( $soap->explain() );
+        skip "cannot test parsing pod without Pod::Test::Simple", 1;
-
+    };
+    
+    my $pod = Pod::Simple::Text->new();
+    my $output;
+    $pod->output_string( \$output );
+    ok $pod->parse_string_document( $soap->explain() ), 'parse explain pod';
+}
 # print $output;
 
 SKIP: {
@@ -60,6 +64,3 @@ sub skip_without_test_xml {
     my $number = shift || 1;
     skip("Test::XML not available", $number) if (not $Test::XML::VERSION);
 }
-
-__END__
-

t/009_data_classes.t

@@ -1,13 +1,14 @@
 #!/usr/bin/perl -w
 use strict;
+use warnings;
 use Test::More tests => 5;
 use lib 't/lib';
 use lib '../lib';
 use lib 'lib';
-use XML::Simple;
+
 use SOAP::WSDL::SAX::WSDLHandler;
 use Cwd;
-use XML::LibXML::SAX;
+
 use_ok(qw/SOAP::WSDL::SAX::MessageHandler/);
 
 use SOAP::WSDL;
@@ -15,22 +16,18 @@ use SOAP::WSDL::XSD::Typelib::Builtin;
 my $path = cwd;
 $path =~s|\/t\/?$||;      # allow running from t/ and above (Build test)
 
-$XML::Simple::PREFERRED_PARSER = 'XML::Parser';
 
-my $filter;
+my $parser; 
-ok($filter = SOAP::WSDL::SAX::MessageHandler->new( {
+
+ok $parser = SOAP::WSDL::Expat::MessageParser->new({
     class_resolver => FakeResolver->new(),
-} ), "Object creation");
+}), "Object creation";
 
-my $parser = XML::LibXML->new();
+# TODO factor out into bool test
-$parser->set_handler( $filter );
 
-$parser->parse_string( xml() );
+$parser->parse( xml() );
 
-# print $filter->get_data();
+if($parser->get_data()->get_MMessage()->get_MDeliveryReportRecipientURI()) {
-# print $filter->get_data()->get_MMessage()->_DUMP();
-
-if($filter->get_data()->get_MMessage()->get_MDeliveryReportRecipientURI()) {
     pass "bool context overloading";
 }
 else
@@ -38,6 +35,8 @@ else
     fail "bool context overloading"
 }
 
+# TODO factor out into different test
+
 my $soap = SOAP::WSDL->new(
     readable => 1,
     wsdl => 'file:///' . $path .'/t/acceptance/wsdl/006_sax_client.wsdl',
@@ -86,6 +85,4 @@ BEGIN {
                 : warn "no class found for $name";
         };
     };
-
-
 };

t/014_sax_typelib.t

@@ -1,11 +1,15 @@
 #!/usr/bin/perl -w
 use strict;
 use warnings;
-use Test::More tests => 16;
+use Test::More;
 use lib '../lib';
-use XML::SAX::ParserFactory;
 
-use diagnostics;
+if (eval "require XML::LibXML") {
+     plan tests => 16;
+}
+else {
+    plan skip_all => "Cannot test without XML::LibXML";
+}
 
 eval {
     require Test::XML;
@@ -18,7 +22,6 @@ my $filter;
 
 ok($filter = SOAP::WSDL::SAX::WSDLHandler->new(), "Object creation");
 
-use XML::LibXML;
 my $parser = XML::LibXML->new();
 $parser->set_handler( $filter );
 

t/015_to_typemap.t

@@ -1,11 +1,15 @@
 #!/usr/bin/perl -w
 use strict;
 use warnings;
-use Test::More tests => 5;
+use Test::More;
 use lib '../lib';
-use XML::SAX::ParserFactory;
 
-use diagnostics;
+if (eval "require XML::LibXML") {
+     plan tests => 5;
+}
+else {
+    plan skip_all => "Cannot test without XML::LibXML";
+}
 
 eval {
     require Test::XML;
@@ -18,7 +22,6 @@ my $filter;
 
 ok($filter = SOAP::WSDL::SAX::WSDLHandler->new(), "Object creation");
 
-use XML::LibXML;
 my $parser = XML::LibXML->new();
 $parser->set_handler( $filter );
 

t/017_generator_expat.t

@@ -0,0 +1,412 @@
+#!/usr/bin/perl -w
+use strict;
+use warnings;
+use Test::More tests => 19;
+use lib '../lib';
+use SOAP::WSDL::Expat::WSDLParser;
+use SOAP::WSDL::Expat::MessageParser;
+use File::Path;
+use File::Basename;
+
+my $path = dirname __FILE__;
+
+my $wsdl;
+ok( $wsdl = SOAP::WSDL::Expat::WSDLParser->new()
+    ->parse_string( xml() ) , "get object tree");
+
+$wsdl->create({
+  base_path => "$path/testlib",
+  typemap_prefix => "Test::Typemap::",
+  type_prefix => "Test::Type::",
+  element_prefix => "Test::Element::",
+  interface_prefix => "Test::Interface::",
+});
+
+eval "use lib '$path/testlib'";
+
+use_ok qw(Test::Element::EnqueueMessage);
+use_ok qw(Test::Type::TMessage);
+use_ok qw(Test::Typemap::MessageGateway);
+
+my $data = {
+    MMessage => {
+        MRecipientURI => 'anyURI',
+        MSenderAddress => 'a string',
+        MMessageContent => 'a string',
+        MSubject => 'a string',
+        MDeliveryReportRecipientURI => 'anyURI',
+        MKeepalive => {
+            MKeepaliveTimeout => 1234567,
+            MKeepaliveErrorPolicy => ' ( suppress | report ) ',
+        }
+    }
+};
+
+ok Test::Element::EnqueueMessage->new( $data ) , '(generated) object constructor';
+
+my $message_parser = SOAP::WSDL::Expat::MessageParser->new({
+    class_resolver => 'Test::Typemap::MessageGateway'
+});
+
+eval { $message_parser->parse_string( xml_message2() ) };
+ok ( !$@, 'parse XML message');
+
+
+TODO: {
+  local $TODO = 'support embedded atomic simpleType/complexType definitions';
+  eval { $message_parser->parse_string( xml_message() ) };
+  ok ( !$@, 'parse XML message using atomic type definitions');
+};
+
+SKIP: {
+    eval "require Test::Pod";
+    skip 'Cannot test generated POD without Test::POD' , 6 if $@;
+    
+    foreach my $module (Test::Pod::all_pod_files( "$path/testlib")) {
+        Test::Pod::pod_file_ok( $module )
+    }
+}
+
+# cleanup
+rmtree "$path/testlib";
+
+# print $wsdl->explain();
+
+sub xml_message {
+	return
+q{<EnqueueMessage xmlns="http://www.example.org/MessageGateway2/">
+	<MMessage>
+		<MRecipientURI>anyURI</MRecipientURI>
+		<MSenderAddress>a string</MSenderAddress>
+		<MMessageContent>a string</MMessageContent>
+		<MSubject>a string</MSubject>
+		<MDeliveryReportRecipientURI>anyURI</MDeliveryReportRecipientURI>
+		<MKeepalive>
+			<MKeepaliveTimeout>1234567</MKeepaliveTimeout>
+			<MKeepaliveErrorPolicy> ( suppress | report ) </MKeepaliveErrorPolicy>
+		</MKeepalive>
+	</MMessage>
+</EnqueueMessage>
+};
+}
+
+sub xml_message2 {
+	return
+q{<EnqueueMessage xmlns="http://www.example.org/MessageGateway2/">
+	<MMessage>
+		<MRecipientURI>anyURI</MRecipientURI>
+		<MSenderAddress>a string</MSenderAddress>
+		<MMessageContent>a string</MMessageContent>
+		<MSubject>a string</MSubject>
+		<MDeliveryReportRecipientURI>anyURI</MDeliveryReportRecipientURI>
+	</MMessage>
+</EnqueueMessage>
+};
+}
+
+
+sub xml {
+	return q{<?xml version="1.0" encoding="UTF-8"?>
+<wsdl:definitions name="MessageGateway"
+  targetNamespace="http://www.example.org/MessageGateway2/"
+  xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
+  xmlns:tns="http://www.example.org/MessageGateway2/"
+  xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+  xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/">
+  <wsdl:types>
+    <xsd:schema xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+      targetNamespace="http://www.example.org/MessageGateway2/">
+
+      <xsd:element name="EnqueueMessage" type="tns:TEnqueueMessage"
+        xmlns:tns="http://www.example.org/MessageGateway2/">
+        <xsd:annotation>
+          <xsd:documentation>Enqueue message request element</xsd:documentation>
+        </xsd:annotation>
+      </xsd:element>
+
+      <xsd:complexType name="TMessage">
+        <xsd:annotation>
+          <xsd:documentation>
+            A type containing all elements of a message to enqueue.
+          </xsd:documentation>
+        </xsd:annotation>
+        <xsd:sequence>
+          <xsd:element name="MRecipientURI" type="xsd:anyURI" minOccurs="1"
+            maxOccurs="1">
+            <xsd:annotation>
+
+              <xsd:documentation>
+                The recipient in URI notaitions. Valid URI schemas are: mailto:, sms:,
+                phone:. Not all URI schemas need to be implemented at the current
+                implementation stage.
+              </xsd:documentation>
+            </xsd:annotation>
+          </xsd:element>
+          <xsd:element name="MSenderAddress" type="xsd:string" minOccurs="0"
+            maxOccurs="1">
+            <xsd:annotation>
+              <xsd:documentation>
+                E-Mail sender address. Ignored for all but mailto: recipient URIs.
+              </xsd:documentation>
+
+            </xsd:annotation>
+          </xsd:element>
+          <xsd:element name="MMessageContent" type="xsd:string" minOccurs="1"
+            maxOccurs="1">
+            <xsd:annotation>
+              <xsd:documentation>Message Content.</xsd:documentation>
+            </xsd:annotation>
+          </xsd:element>
+          <xsd:element name="MSubject" type="xsd:string" minOccurs="0" maxOccurs="1">
+
+            <xsd:annotation>
+              <xsd:documentation>
+                Message Subject. Ignored for all but mailto: URIs
+              </xsd:documentation>
+            </xsd:annotation>
+          </xsd:element>
+          <xsd:element name="MDeliveryReportRecipientURI" type="xsd:anyURI" minOccurs="0"
+            maxOccurs="1">
+            <xsd:annotation>
+              <xsd:documentation>
+
+                URI to send a delivery report to. May be of one of the following schemes:
+                mailto:, http:, https:. Reports to mailto: URIs are sent as plaintext,
+                reports to http(s) URIs are sent as SOAP requests following the
+                MessageGatewayClient service definition.
+              </xsd:documentation>
+            </xsd:annotation>
+          </xsd:element>
+          <xsd:element name="MKeepalive" type="tns:TKeepalive" minOccurs="0"
+            maxOccurs="1">
+            <xsd:annotation>
+              <xsd:documentation>
+                Container for keepalive information. May be missing.
+              </xsd:documentation>
+            </xsd:annotation>
+
+          </xsd:element>
+        </xsd:sequence>
+      </xsd:complexType>
+
+      <xsd:complexType name="TKeepalive">
+        <xsd:annotation>
+          <xsd:documentation>Type containing keeplive information.</xsd:documentation>
+        </xsd:annotation>
+        <xsd:sequence>
+
+          <xsd:element name="MKeepaliveTimeout" type="xsd:double">
+            <xsd:annotation>
+              <xsd:documentation>
+                Keepalive timeout. The keepalive timeout spezifies how long the sending of
+                a message will be delayed waiting for keepalive updates. If a keepalive
+                update is received during this period, the timeout will be reset. If not,
+                the message will be sent after the timeout has expired.
+              </xsd:documentation>
+            </xsd:annotation>
+          </xsd:element>
+          <xsd:element name="MKeepaliveErrorPolicy" minOccurs="0" maxOccurs="1">
+            <xsd:annotation>
+
+              <xsd:documentation>
+                Policy to comply to in case of system errors. Valid values are "suppress"
+                and "report". If the policy is set to "suppress", keepalive messages will
+                not be sent to their recipients in case of partial system failure, even if
+                the keepalive has expired. This may result in "false negatives", i.e.
+                messages may not be sent, even though their keepalive has expired. If the
+                value is "report", keepalive messages will be sent from any cluster node.
+                This may result in "false positive" alerts.
+              </xsd:documentation>
+            </xsd:annotation>
+            <xsd:simpleType>
+              <xsd:restriction base="xsd:string">
+                <xsd:enumeration value="suppress"></xsd:enumeration>
+                <xsd:enumeration value="report"></xsd:enumeration>
+              </xsd:restriction>
+            </xsd:simpleType>
+          </xsd:element>
+        </xsd:sequence>
+      </xsd:complexType>
+
+      <xsd:complexType name="TMessageID">
+        <xsd:annotation>
+          <xsd:documentation>Type containing a message ID.</xsd:documentation>
+        </xsd:annotation>
+
+        <xsd:sequence>
+          <xsd:element name="MMessageID" type="xsd:string" minOccurs="1" maxOccurs="1"></xsd:element>
+        </xsd:sequence>
+      </xsd:complexType>
+
+      <xsd:complexType name="TKeepliveMessage">
+        <xsd:annotation>
+          <xsd:documentation>
+            Type containing all elements of a keppalive update / remove request.
+          </xsd:documentation>
+        </xsd:annotation>
+        <xsd:sequence>
+          <xsd:element name="MMessageID" type="xsd:string" minOccurs="1" maxOccurs="1">
+            <xsd:annotation>
+              <xsd:documentation>
+                The ID for the message to update / remove
+              </xsd:documentation>
+            </xsd:annotation>
+          </xsd:element>
+
+          <xsd:element name="MAction" minOccurs="1" maxOccurs="1">
+            <xsd:annotation>
+              <xsd:documentation>
+                The action to perform. Valid values are: "remove", "update". On "remove",
+                the message with the ID specified will be removed from the queue, thus it
+                will never be sent, even if it's timeout expires. On "update" the
+                keepalive timeout of the corresponding message will be reset.
+              </xsd:documentation>
+            </xsd:annotation>
+            <xsd:simpleType>
+              <xsd:restriction base="xsd:string">
+                <xsd:enumeration value="remove"></xsd:enumeration>
+                <xsd:enumeration value="update"></xsd:enumeration>
+              </xsd:restriction>
+            </xsd:simpleType>
+          </xsd:element>
+        </xsd:sequence>
+      </xsd:complexType>
+      <xsd:element name="KeepaliveMessage" type="tns:TKeepaliveMessageRequest">
+        <xsd:annotation>
+          <xsd:documentation>Keepalive message request element</xsd:documentation>
+        </xsd:annotation>
+      </xsd:element>
+      <xsd:element name="KeepaliveMessageResponse" type="tns:TMessageID">
+        <xsd:annotation>
+          <xsd:documentation>Response element for a keepalive request</xsd:documentation>
+        </xsd:annotation>
+      </xsd:element>
+      <xsd:element name="EnqueueMessageResponse" type="tns:TMessageID">
+        <xsd:annotation>
+          <xsd:documentation>Enqueue message response element</xsd:documentation>
+        </xsd:annotation>
+      </xsd:element>
+
+
+      <xsd:complexType name="TEnqueueMessage">
+        <xsd:annotation>
+          <xsd:documentation>
+            A complex type containing one element: The message to enqueue.
+          </xsd:documentation>
+        </xsd:annotation>
+        <xsd:sequence>
+          <xsd:element name="MMessage" type="tns:TMessage">
+            <xsd:annotation>
+              <xsd:documentation>
+                Element containing a message to enqueue.
+              </xsd:documentation>
+            </xsd:annotation>
+
+          </xsd:element>
+        </xsd:sequence>
+      </xsd:complexType>
+
+
+      <xsd:complexType name="TKeepaliveMessageRequest">
+        <xsd:annotation>
+          <xsd:documentation>
+            A complex type containing one element: The keepalive message to process.
+          </xsd:documentation>
+
+        </xsd:annotation>
+        <xsd:sequence>
+          <xsd:element name="MKeepaliveMessage" type="tns:TKeepliveMessage">
+            <xsd:annotation>
+              <xsd:documentation>
+                Element containing a keepalive message to process.
+              </xsd:documentation>
+            </xsd:annotation>
+          </xsd:element>
+
+        </xsd:sequence>
+      </xsd:complexType>
+    </xsd:schema>
+  </wsdl:types>
+  <wsdl:message name="EnqueueMessageRequest">
+    <wsdl:part name="parameters" element="tns:EnqueueMessage">
+      <wsdl:documentation>inputparameters for EnqueueMessag</wsdl:documentation>
+    </wsdl:part>
+
+  </wsdl:message>
+  <wsdl:message name="EnqueueMessageResponse">
+    <wsdl:part name="parameters" element="tns:EnqueueMessageResponse">
+      <wsdl:documentation>outputparameters for EnqueueMessag</wsdl:documentation>
+    </wsdl:part>
+  </wsdl:message>
+  <wsdl:message name="KeepaliveMessageRequest">
+    <wsdl:part name="parameters" element="tns:KeepaliveMessage">
+
+      <wsdl:documentation>input parameters for KeepaliveMessag</wsdl:documentation>
+    </wsdl:part>
+  </wsdl:message>
+  <wsdl:message name="KeepaliveMessageResponse">
+    <wsdl:part name="parameters" element="tns:KeepaliveMessageResponse">
+      <wsdl:documentation>output parameters for KeepaliveMessag</wsdl:documentation>
+    </wsdl:part>
+  </wsdl:message>
+
+  <wsdl:portType name="MGWPortType">
+    <wsdl:documentation>
+      generic port type for all methods required for sending messages over the mosaic
+      message gatewa
+    </wsdl:documentation>
+    <wsdl:operation name="EnqueueMessage">
+      <wsdl:documentation>
+        This method is used to enqueue a normal (immediate send) or a delayed message with
+        keepalive functionality.
+      </wsdl:documentation>
+      <wsdl:input message="tns:EnqueueMessageRequest"></wsdl:input>
+      <wsdl:output message="tns:EnqueueMessageResponse"></wsdl:output>
+
+    </wsdl:operation>
+    <wsdl:operation name="KeepaliveMessage">
+      <wsdl:documentation>
+        This method is used to update or remove a
+        keepalive message.
+      </wsdl:documentation>
+      <wsdl:input message="tns:KeepaliveMessageRequest"></wsdl:input>
+      <wsdl:output message="tns:KeepaliveMessageResponse"></wsdl:output>
+    </wsdl:operation>
+  </wsdl:portType>
+
+  <wsdl:binding name="MGWBinding" type="tns:MGWPortType">
+    <wsdl:documentation>Generic binding for all (SOAP) port</wsdl:documentation>
+    <soap:binding style="document" transport="http://schemas.xmlsoap.org/soap/http" />
+    <wsdl:operation name="EnqueueMessage">
+      <soap:operation soapAction="http://www.example.org/MessageGateway2/EnqueueMessage" />
+      <wsdl:input>
+        <soap:body use="literal" />
+      </wsdl:input>
+      <wsdl:output>
+        <soap:body use="literal" />
+      </wsdl:output>
+    </wsdl:operation>
+    <wsdl:operation name="KeepaliveMessage">
+      <soap:operation
+        soapAction="http://www.example.org/MessageGateway2/KeepaliveMessage" />
+      <wsdl:input>
+        <soap:body use="literal" />
+      </wsdl:input>
+
+      <wsdl:output>
+        <soap:body use="literal" />
+      </wsdl:output>
+    </wsdl:operation>
+  </wsdl:binding>
+  <wsdl:service name="MessageGateway">
+    <wsdl:documentation>
+      Web Service for sending messages over the message gatewa
+    </wsdl:documentation>
+
+    <wsdl:port name="HTTPPort" binding="tns:MGWBinding">
+      <wsdl:documentation>HTTP(S) port for the message gateway</wsdl:documentation>
+      <soap:address location="https://www.example.org/MessageGateway/" />
+    </wsdl:port>
+  </wsdl:service>
+</wsdl:definitions>};
+}

t/017_generator_libxml.t

@@ -1,13 +1,19 @@
 #!/usr/bin/perl -w
 use strict;
 use warnings;
-use Test::More tests => 18;
+use Test::More;
 use lib '../lib';
-use XML::LibXML;
 use SOAP::WSDL::SAX::WSDLHandler;
 use SOAP::WSDL::SAX::MessageHandler;
 use File::Path;
 use File::Basename;
+
+if (eval "require XML::LibXML") {
+     plan tests => 18;
+}
+else {
+    plan skip_all => "Cannot test without XML::LibXML";
+}
 
 my $path = dirname __FILE__;
 

t/018_generator_expat.t

@@ -0,0 +1,49 @@
+#!/usr/bin/perl -w
+use strict;
+use warnings;
+use Test::More tests => 12;
+use lib '../lib';
+use SOAP::WSDL::Expat::WSDLParser;
+use File::Find;
+use File::Basename;
+
+my $path = dirname __FILE__;
+my $wsdl;
+
+my $parser = SOAP::WSDL::Expat::WSDLParser->new();
+ok( $wsdl = $parser->parse_file( "$path/../example/wsdl/globalweather.xml" ) );
+
+$wsdl->create({
+  base_path => "$path/testlib",
+  typemap_prefix => "Test::Typemap::",
+  type_prefix => "Test::Type::",
+  element_prefix => "Test::Element::",
+  interface_prefix => "Test::Interface::",
+});
+
+# Check for created files (and dirs) - value is the number of entries
+# with this (local) name
+my %expected = (
+    'GetCitiesByCountry.pm' => 1,
+    'GetCitiesByCountryResponse.pm' => 1,
+    'GetWeather.pm' => 1,
+    'GetWeatherResponse.pm' => 1,
+    'string.pm' => 1,
+    'Element' => 1,
+    'Interface' => 1,
+    'GlobalWeather.pm' => 2,
+    'Typemap' => 1,
+    'Test' => 1,
+);
+
+File::Find::finddepth(
+    sub { 
+        return if $_ eq '.';
+        ok $expected{ $_ }--, $_;
+        unlink $_ if -f $_;
+        rmdir $_ if -d $_;      
+    },
+    "$path/testlib",
+);
+
+rmdir "$path/testlib";

t/018_generator_libxml.t

@@ -1,13 +1,19 @@
 #!/usr/bin/perl -w
 use strict;
 use warnings;
-use Test::More tests => 1;
+use Test::More;
 use lib '../lib';
-use XML::LibXML;
 use SOAP::WSDL::SAX::WSDLHandler;
 use SOAP::WSDL::SAX::MessageHandler;
 use File::Path;
 use File::Basename;
+
+if (eval "require XML::LibXML") {
+     plan tests => 1;
+}
+else {
+    plan skip_all => "Cannot test without XML::LibXML";
+}
 
 my $path = dirname __FILE__;
 

t/021_generator_element_ref_expat.t

@@ -0,0 +1,58 @@
+#!/usr/bin/perl -w
+use strict;
+use warnings;
+use Test::More tests => 10;
+use File::Path;
+use File::Basename;
+use lib '../lib';
+
+use_ok(qw/SOAP::WSDL::Expat::WSDLParser/);
+
+my $path = dirname __FILE__;
+
+my $parser = SOAP::WSDL::Expat::WSDLParser->new();
+
+eval { $parser->parsefile( "$path/acceptance/wsdl/03_complexType-element-ref.wsdl" ) };
+if ($@)
+{
+	fail("parsing WSDL");
+	die "Can't test without parsed WSDL: $@";
+}
+else
+{
+	pass("parsing XML");
+}
+
+my $definitions = $parser->get_data();
+
+
+my $type = $definitions->first_types()->find_type('urn:Test', 'testComplexTypeRef');
+my $element = $definitions->first_types()->find_element('urn:Test', 'TestElement');
+
+my $output = '';
+ok $element->to_class({ wsdl => $definitions, prefix => 'Test::', output => \$output })
+  , 'generate element code';
+ok eval $output, 'eval generated code';
+
+$output = '';
+ok $type->to_class({ wsdl => $definitions, prefix => 'Test::', output => \$output })
+  , 'generate complexType code with element ref=""';
+ok eval $output, 'eval generated code';
+
+my $obj = Test::testComplexTypeRef->new({
+  TestRef => 'test_ref',
+  Test2 => 'test2',
+});
+
+is $obj, '<TestRef >test_ref</TestRef><Test2 >test2</Test2 >', 'serialization';
+
+$element = $definitions->first_types()->find_element('urn:Test', 'TestRef');
+
+$output = '';
+
+ok $element->to_class({ wsdl => $definitions, prefix => 'Test::', output => \$output })
+  , 'generate top level element ref code';
+ok eval $output, 'eval generated code' . $@;
+
+$obj = Test::TestRef->new({ value => 'test_ref' });
+is $obj, '<TestRef xmlns="urn:Test" >test_ref</TestRef>', 'serialization';

t/021_generator_element_ref_libxml.t

@@ -0,0 +1,76 @@
+#!/usr/bin/perl -w
+use strict;
+use warnings;
+use Test::More;
+use File::Path;
+use File::Basename;
+use lib '../lib';
+
+if (eval "require XML::LibXML") {
+     plan tests => 11;
+}
+else {
+    plan skip_all => "Cannot test without XML::LibXML";
+}
+
+my $path = dirname __FILE__;
+
+
+use_ok(qw/SOAP::WSDL::SAX::WSDLHandler/);
+
+my $filter;
+my $parser = XML::LibXML->new();
+ok($filter = SOAP::WSDL::SAX::WSDLHandler->new(), "Object creation");
+$parser->set_handler( $filter );
+
+eval { $parser->parse_file( "$path/acceptance/wsdl/03_complexType-element-ref.wsdl" ) };
+if ($@)
+{
+	fail("parsing WSDL");
+	die "Can't test without parsed WSDL: $@";
+}
+else
+{
+	pass("parsing XML");
+}
+
+my $definitions = $filter->get_data();
+my $type = $definitions->first_types()->find_type('urn:Test', 'testComplexTypeRef');
+
+my $element = $definitions->first_types()->find_element('urn:Test', 'TestElement');
+
+my $output;
+
+ok $element->to_class({ wsdl => $definitions, prefix => 'Test::', output => \$output })
+  , 'generate element code';
+
+ok eval $output, 'eval generated code';
+
+$output = '';
+
+ok $type->to_class({ wsdl => $definitions, prefix => 'Test::', output => \$output })
+  , 'generate complexType code with element ref=""';
+
+ok eval $output, 'eval generated code';
+
+my $obj = Test::testComplexTypeRef->new({
+  TestRef => 'test_ref',
+  Test2 => 'test2',
+});
+
+is $obj, '<TestRef >test_ref</TestRef><Test2 >test2</Test2 >', 'serialization';
+
+$element = $definitions->first_types()->find_element('urn:Test', 'TestRef');
+
+$output = '';
+
+ok $element->to_class({ wsdl => $definitions, prefix => 'Test::', output => \$output })
+  , 'generate top level element ref code';
+  
+ok eval $output, 'eval generated code' . $@;
+
+# print $output;
+
+$obj = Test::TestRef->new({ value => 'test_ref' });
+
+is $obj, '<TestRef xmlns="urn:Test" >test_ref</TestRef>', 'serialization';

t/Expat/01_expat.t

@@ -5,7 +5,6 @@ use Test::More tests => 2;
 use lib '../lib';
 use lib 'lib';
 use lib 't/lib';
-use XML::LibXML;
 use SOAP::WSDL::SAX::MessageHandler;
 
 use_ok(qw/SOAP::WSDL::Expat::MessageParser/);
@@ -13,7 +12,6 @@ use_ok(qw/SOAP::WSDL::Expat::MessageParser/);
 use MyComplexType;
 use MyElement;
 use MySimpleType;
-use Benchmark;
 
 my $xml = q{<SOAP-ENV:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" 
     xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" >
@@ -26,13 +24,6 @@ my $parser = SOAP::WSDL::Expat::MessageParser->new({
     class_resolver => 'FakeResolver'
 });
 
-my $libxml = XML::LibXML->new();
-my $handler = SOAP::WSDL::SAX::MessageHandler->new({
-    class_resolver => 'FakeResolver',
-});
-$libxml->set_handler( $handler );
-
-
 $parser->parse( $xml );
 
 is $parser->get_data(), q{<MyAtomicComplexTypeElement xmlns="urn:Test" >}

t/Expat/02_sub_parser.t

@@ -0,0 +1,335 @@
+package TopElement;
+use Class::Std::Storable;
+use SOAP::WSDL::XSD::Typelib::Element;
+use SOAP::WSDL::XSD::Typelib::ComplexType;
+use Memoize;
+
+memoize('_get_handlers');
+
+use base qw(SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+{
+    my %TestElement_of :ATTR();
+    my $CLASS_OF_REF = { TestElement => 'TestElement' };
+    
+    __PACKAGE__->_factory( [ 'TestElement' ], 
+        { 'TestElement' => \%TestElement_of, },
+        { TestElement => 'TestElement' },
+    );
+    
+    sub get_xmlns { 'urn:Test' };
+    __PACKAGE__->__set_name('TopElement');
+    __PACKAGE__->__set_nillable(1);
+    
+    sub _get_handlers {
+         my $self = shift;
+         my $parser = shift;
+         
+         return {
+             Start => $parser->start_tag({
+                class_of => $CLASS_OF_REF,
+                handler_of => {
+                    TestElement => TestElement->_get_handlers( $parser ), 
+                }            
+             }),
+             End => $parser->end_top_tag( ),
+             Char => undef,
+         };
+    }
+}
+1;
+
+package TestElement;
+use Class::Std::Storable;
+use SOAP::WSDL::XSD::Typelib::Element;
+use SOAP::WSDL::XSD::Typelib::ComplexType;
+
+use Memoize;
+memoize('_get_handlers');
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+{
+    my %test_of :ATTR();
+    my %test2_of :ATTR();
+    
+    my $CLASS_OF_REF = { 
+          test => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+          test2 => 'SOAP::WSDL::XSD::Typelib::Builtin::string'
+    };
+    
+    __PACKAGE__->_factory( [ 'test', 'test2' ], 
+        { test => \%test_of, test2 => \%test2_of, },
+        $CLASS_OF_REF,
+    );
+    
+    sub get_xmlns { 'urn:Test' };
+    __PACKAGE__->__set_name('TestElement');
+    __PACKAGE__->__set_nillable(1);
+    
+    sub _get_handlers {
+         my $self = shift;
+         my $parser = shift;
+         
+         return {
+             Start => $parser->start_tag({
+                class_of => $CLASS_OF_REF,
+                handler_of => 
+                {
+                   map { ( $_ => $CLASS_OF_REF->{$_}->_get_handlers( $parser ) )} 
+                        keys %{ $CLASS_OF_REF }
+                }, 
+             }),
+             End => $parser->end_tag(),
+             Char => undef,
+         };
+    }
+}
+1;
+
+package TestResolver;
+
+sub get_class {
+    my $path = join('/', @{ $_[1] });
+    my $class = {
+        'TestElement' => 'TestElement',
+        'TestElement/test' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        'TestElement/test2' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        'TopElement' => 'TopElement',
+        'TopElement/TestElement' => 'TestElement',
+        'TopElement/TestElement/test' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        'TopElement/TestElement/test2' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+    };
+    return $class->{ $path }; 
+}
+
+1;
+
+package main;
+
+use Test::More qw/no_plan/; # TODO: change to tests => N;
+use strict;
+use warnings;
+use lib '../../lib';
+
+use_ok('SOAP::WSDL::Expat::MessageParser');
+use_ok('SOAP::WSDL::Expat::MessageSubParser');
+my $obj;
+
+ok($obj = SOAP::WSDL::Expat::MessageSubParser->new(), "Object creation");
+
+#my $test = $obj->start_tag({
+#    order => [],
+#    class_of => {
+#        test => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+#        test2 => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+#    },
+#    handler_of => {
+#        test => {
+#            Char => $obj->characters(),
+#        },
+#        test2 => {
+#            Char => $obj->characters(),
+#        },       
+#    }
+#});
+#
+#my $handlers = {
+#    Start => $test,
+#    End => $obj->end_tag(),
+#};
+#
+#my $parser = $obj->initialize( $handlers );
+#
+#$parser->parsestring('<test>Test</test>');
+#is $obj->get_data(), 'Test', 'Parse simple XML';
+#
+#my $element = $obj->start_tag({
+#    order => [],
+#    class_of => {
+#        TestElement => 'TestElement',
+#    },
+#    handler_of => {
+#        TestElement => {
+#            Start => $obj->start_tag({
+#                order => [],
+#                class_of => {
+#                    test => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+#                    test2 => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+#                },
+#                handler_of => {
+#                    test => {
+#                        Char => $obj->characters(),
+#                    },
+#                    test2 => {
+#                        Char => $obj->characters(),
+#                    },       
+#                }
+#            }),
+#            End => $obj->end_tag(),
+#            Char => undef,
+#        }
+#    }
+#});
+#
+#
+#$handlers = {
+#    Start => $element,
+#    End => $obj->end_tag(),
+#    Char => undef,
+#};
+#
+#$parser = $obj->initialize( TestElement->_get_parser( $obj ) );
+#
+#my $xml = '<TestElement xmlns="urn:Test">
+#    <test>Test</test>
+#    <test2>Test2</test2>
+#</TestElement>';
+#
+#$parser->parsestring($xml);
+#
+#is $obj->get_data()
+#    , '<TestElement xmlns="urn:Test" ><test >Test</test ><test2 >Test2</test2 ></TestElement>'
+#    , 'Parse && serialize ComplexType Element';
+#
+
+#my $mp = SOAP::WSDL::Expat::MessageParser->new({
+#    class_resolver => 'TestResolver',
+#});
+#
+#$mp->parse( $xml );
+
+#use Benchmark;
+#
+#timethese 1000 , {
+#    mp =>  sub { $mp->parse($xml) },
+#    'sub_p' => sub { $obj->initialize( $handlers )->parse( $xml ) },
+#
+#};
+
+#my $top = $obj->start_tag({
+#    order => [],
+#    class_of => {
+#        TopElement => 'TopElement',
+#    },
+#    handler_of => {
+#        TopElement => {
+#            Start => $obj->start_tag({
+#                order => [ 'TestElement', ],
+#                class_of => {
+#                    TestElement => 'TestElement',
+#                },
+#                handler_of => {
+#                    TestElement => {
+#                        Start => $obj->start_tag({
+#                            order => ['test', 'test2'],
+#                            class_of => {
+#                                test => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+#                                test2 => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+#                            },
+#                            handler_of => {
+#                                test => {
+#                                    Char => $obj->characters(),
+#                                },
+#                                test2 => {
+#                                    Char => $obj->characters(),
+#                                },       
+#                            },
+#                            occurs_of => {
+#                                test => { max => 1 },
+#                            }
+#                        }),
+#                        End => $obj->end_tag(),
+#                        Char => undef,
+#                    }
+#                }
+#            })
+#        }
+#    }
+#});
+
+my $top = $obj->start_tag({
+    class_of => {
+        TopElement => 'TopElement',
+    },
+    handler_of => {
+        TopElement => TopElement->_get_handlers( $obj ),
+    }
+});
+
+my $parser = $obj->initialize( { Start => $top , End => $obj->end_tag() , Char => undef } );
+
+my $xml = '
+<TopElement  xmlns="urn:Test">
+    <TestElement>
+        <test>Test</test>  
+        <test2>Test2</test2>    
+    </TestElement>
+    <TestElement>
+        <test>Test</test>
+        <test2>Test2</test2>    
+    </TestElement>
+    <TestElement>
+        <test>Test</test>
+        <test2>Test2</test2>    
+    </TestElement>
+    <TestElement>
+        <test>Test</test>  
+        <test2>Test2</test2>    
+    </TestElement>
+    <TestElement>
+        <test>Test</test>
+        <test2>Test2</test2>    
+    </TestElement>
+    <TestElement>
+        <test>Test</test>
+        <test2>Test2</test2>    
+    </TestElement>
+</TopElement>';
+
+$parser->parsestring($xml);
+
+# print $obj->get_data();
+
+__END__
+
+# TODO factor out into benchmark suite
+
+use XML::Simple;
+use Benchmark;
+
+my $mp = SOAP::WSDL::Expat::MessageParser->new({
+    class_resolver => 'TestResolver',
+});
+$mp->parse( $xml );
+
+$top = $obj->start_tag({
+    class_of => {
+        TopElement => 'TopElement',
+    },
+    handler_of => {
+        TopElement => TopElement->_get_handlers( $obj ),
+    }
+});
+my $top_end = $obj->end_top_tag();
+$parser = $obj->initialize( { Start => $top , End => $top_end, , Char => undef } );
+$parser->parse( $xml ),
+
+print "DATA:" . $obj->get_data(), "\n";
+
+
+# $XML::Simple::PREFERRED_PARSER = 'XML::SAX::Expat';
+$XML::Simple::PREFERRED_PARSER = 'XML::Parser';
+
+timethese 500 , {
+    'typemap' =>  sub { $mp->parse($xml) },
+    'sub_tree' => sub {            
+            my $parser = $obj->initialize( { Start => $top , End => $top_end, , Char => undef } );
+            $parser->parse( $xml ),
+     },
+     'XML::Simple' => sub { XMLin( $xml ); }
+};

t/Expat/03_wsdl.t

@@ -0,0 +1,411 @@
+#!/usr/bin/perl -w
+use strict;
+use warnings;
+use diagnostics;
+use Test::More tests => 7;
+use Data::Dumper;
+use lib '../lib';
+
+eval {
+    require Test::XML;
+    import Test::XML;
+};
+
+use_ok(qw/SOAP::WSDL::Expat::WSDLParser/);
+
+my $parser;
+ok $parser = SOAP::WSDL::Expat::WSDLParser->new(), "Object creation";
+
+$parser->parse( xml() );
+
+eval { $parser->parse( xml() ) };
+if ($@)
+{
+	fail("parsing WSDL");
+	die "Can't test without parsed WSDL: " , Dumper $@;
+}
+else
+{
+	pass("parsing XML");
+}
+
+my $wsdl;
+ok $wsdl = $parser->get_data() , "get object tree";
+
+my $schema = $wsdl->first_types()->get_schema()->[1] || die "No schema !";
+
+my $element = $schema->find_element(
+  'http://www.example.org/MessageGateway2/'
+  , 'EnqueueMessage'
+);
+
+ok $element, 'find element';
+is $element->get_xmlns()->{ 'http://www.example.org/MessageGateway2/' }, 'tns', 'Namespace definition';
+
+
+my $opt = {
+	typelib => $wsdl->first_types,
+	readable => 1,
+	autotype => 0,
+	namespace => { 'http://www.example.org/MessageGateway2/' => 'tns',
+		'http://www.w3.org/2001/XMLSchema' => 'xsd',
+		'http://schemas.xmlsoap.org/wsdl/' => 'wsdl',
+	},
+	indent => "",
+};
+
+my $data = { EnqueueMessage => {
+	MMessage => {
+		MRecipientURI => 'anyURI',
+		MSenderAddress => 'a string',
+		MMessageContent => 'a string',
+		MSubject => 'a string',
+		MDeliveryReportRecipientURI => 'anyURI',
+		MKeepalive => {
+			MKeepaliveTimeout => 1234567,
+			MKeepaliveErrorPolicy => ' ( suppress | report ) ',
+		}
+	}
+}
+
+};
+ 
+
+SKIP: { skip_without_test_xml();
+    is_xml( $wsdl->find_message(
+        "http://www.example.org/MessageGateway2/" ,'EnqueueMessageRequest'
+        )->first_part()->serialize( 'test', $data, $opt ),
+        xml_message()
+        , "Serialized message part"
+    );
+}
+
+sub skip_without_test_xml {
+    skip("Test::XML not available", 1) if (not $Test::XML::VERSION);
+}
+
+sub xml_message {
+	return
+q{<EnqueueMessage xmlns="http://www.example.org/MessageGateway2/">
+	<MMessage>
+		<MRecipientURI>anyURI</MRecipientURI>
+		<MSenderAddress>a string</MSenderAddress>
+		<MMessageContent>a string</MMessageContent>
+		<MSubject>a string</MSubject>
+		<MDeliveryReportRecipientURI>anyURI</MDeliveryReportRecipientURI>
+		<MKeepalive>
+			<MKeepaliveTimeout>1234567</MKeepaliveTimeout>
+			<MKeepaliveErrorPolicy> ( suppress | report ) </MKeepaliveErrorPolicy>
+		</MKeepalive>
+	</MMessage>
+</EnqueueMessage>
+};
+
+}
+
+sub xml {
+	return q{<?xml version="1.0" encoding="UTF-8"?>
+<wsdl:definitions name="MessageGateway"
+  targetNamespace="http://www.example.org/MessageGateway2/"
+  xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
+  xmlns:tns="http://www.example.org/MessageGateway2/"
+  xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+  xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/">
+  <wsdl:types>
+    <xsd:schema xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+      targetNamespace="http://www.example.org/MessageGateway2/">
+
+      <xsd:element name="EnqueueMessage" type="tns:TEnqueueMessage"
+        xmlns:tns="http://www.example.org/MessageGateway2/"
+        >
+        <xsd:annotation>
+          <xsd:documentation>Enqueue message request element</xsd:documentation>
+        </xsd:annotation>
+      </xsd:element>
+
+      <xsd:complexType name="TMessage">
+        <xsd:annotation>
+          <xsd:documentation>
+            A type containing all elements of a message to enqueue.
+          </xsd:documentation>
+        </xsd:annotation>
+        <xsd:sequence>
+          <xsd:element name="MRecipientURI" type="xsd:anyURI" minOccurs="1"
+            maxOccurs="1">
+            <xsd:annotation>
+
+              <xsd:documentation>
+                The recipient in URI notaitions. Valid URI schemas are: mailto:, sms:,
+                phone:. Not all URI schemas need to be implemented at the current
+                implementation stage.
+              </xsd:documentation>
+            </xsd:annotation>
+          </xsd:element>
+          <xsd:element name="MSenderAddress" type="xsd:string" minOccurs="0"
+            maxOccurs="1">
+            <xsd:annotation>
+              <xsd:documentation>
+                E-Mail sender address. Ignored for all but mailto: recipient URIs.
+              </xsd:documentation>
+
+            </xsd:annotation>
+          </xsd:element>
+          <xsd:element name="MMessageContent" type="xsd:string" minOccurs="1"
+            maxOccurs="1">
+            <xsd:annotation>
+              <xsd:documentation>Message Content.</xsd:documentation>
+            </xsd:annotation>
+          </xsd:element>
+          <xsd:element name="MSubject" type="xsd:string" minOccurs="0" maxOccurs="1">
+
+            <xsd:annotation>
+              <xsd:documentation>
+                Message Subject. Ignored for all but mailto: URIs
+              </xsd:documentation>
+            </xsd:annotation>
+          </xsd:element>
+          <xsd:element name="MDeliveryReportRecipientURI" type="xsd:anyURI" minOccurs="0"
+            maxOccurs="1">
+            <xsd:annotation>
+              <xsd:documentation>
+
+                URI to send a delivery report to. May be of one of the following schemes:
+                mailto:, http:, https:. Reports to mailto: URIs are sent as plaintext,
+                reports to http(s) URIs are sent as SOAP requests following the
+                MessageGatewayClient service definition.
+              </xsd:documentation>
+            </xsd:annotation>
+          </xsd:element>
+          <xsd:element name="MKeepalive" type="tns:TKeepalive" minOccurs="0"
+            maxOccurs="1">
+            <xsd:annotation>
+              <xsd:documentation>
+                Container for keepalive information. May be missing.
+              </xsd:documentation>
+            </xsd:annotation>
+
+          </xsd:element>
+        </xsd:sequence>
+      </xsd:complexType>
+
+      <xsd:complexType name="TKeepalive">
+        <xsd:annotation>
+          <xsd:documentation>Type containing keeplive information.</xsd:documentation>
+        </xsd:annotation>
+        <xsd:sequence>
+
+          <xsd:element name="MKeepaliveTimeout" type="xsd:double">
+            <xsd:annotation>
+              <xsd:documentation>
+                Keepalive timeout. The keepalive timeout spezifies how long the sending of
+                a message will be delayed waiting for keepalive updates. If a keepalive
+                update is received during this period, the timeout will be reset. If not,
+                the message will be sent after the timeout has expired.
+              </xsd:documentation>
+            </xsd:annotation>
+          </xsd:element>
+          <xsd:element name="MKeepaliveErrorPolicy" minOccurs="0" maxOccurs="1">
+            <xsd:annotation>
+
+              <xsd:documentation>
+                Policy to comply to in case of system errors. Valid values are "suppress"
+                and "report". If the policy is set to "suppress", keepalive messages will
+                not be sent to their recipients in case of partial system failure, even if
+                the keepalive has expired. This may result in "false negatives", i.e.
+                messages may not be sent, even though their keepalive has expired. If the
+                value is "report", keepalive messages will be sent from any cluster node.
+                This may result in "false positive" alerts.
+              </xsd:documentation>
+            </xsd:annotation>
+            <xsd:simpleType>
+              <xsd:restriction base="xsd:string">
+                <xsd:enumeration value="suppress"></xsd:enumeration>
+                <xsd:enumeration value="report"></xsd:enumeration>
+              </xsd:restriction>
+            </xsd:simpleType>
+          </xsd:element>
+        </xsd:sequence>
+      </xsd:complexType>
+
+      <xsd:complexType name="TMessageID">
+        <xsd:annotation>
+          <xsd:documentation>Type containing a message ID.</xsd:documentation>
+        </xsd:annotation>
+
+        <xsd:sequence>
+          <xsd:element name="MMessageID" type="xsd:string" minOccurs="1" maxOccurs="1"></xsd:element>
+        </xsd:sequence>
+      </xsd:complexType>
+
+      <xsd:complexType name="TKeepliveMessage">
+        <xsd:annotation>
+          <xsd:documentation>
+            Type containing all elements of a keppalive update / remove request.
+          </xsd:documentation>
+        </xsd:annotation>
+        <xsd:sequence>
+          <xsd:element name="MMessageID" type="xsd:string" minOccurs="1" maxOccurs="1">
+            <xsd:annotation>
+              <xsd:documentation>
+                The ID for the message to update / remove
+              </xsd:documentation>
+            </xsd:annotation>
+          </xsd:element>
+
+          <xsd:element name="MAction" minOccurs="1" maxOccurs="1">
+            <xsd:annotation>
+              <xsd:documentation>
+                The action to perform. Valid values are: "remove", "update". On "remove",
+                the message with the ID specified will be removed from the queue, thus it
+                will never be sent, even if it's timeout expires. On "update" the
+                keepalive timeout of the corresponding message will be reset.
+              </xsd:documentation>
+            </xsd:annotation>
+            <xsd:simpleType>
+              <xsd:restriction base="xsd:string">
+                <xsd:enumeration value="remove"></xsd:enumeration>
+                <xsd:enumeration value="update"></xsd:enumeration>
+              </xsd:restriction>
+            </xsd:simpleType>
+          </xsd:element>
+        </xsd:sequence>
+      </xsd:complexType>
+      <xsd:element name="KeepaliveMessage" type="tns:TKeepaliveMessageRequest">
+        <xsd:annotation>
+          <xsd:documentation>Keepalive message request element</xsd:documentation>
+        </xsd:annotation>
+      </xsd:element>
+      <xsd:element name="KeepaliveMessageResponse" type="tns:TMessageID">
+        <xsd:annotation>
+          <xsd:documentation>Response element for a keepalive request</xsd:documentation>
+        </xsd:annotation>
+      </xsd:element>
+      <xsd:element name="EnqueueMessageResponse" type="tns:TMessageID">
+        <xsd:annotation>
+          <xsd:documentation>Enqueue message response element</xsd:documentation>
+        </xsd:annotation>
+      </xsd:element>
+
+
+      <xsd:complexType name="TEnqueueMessage">
+        <xsd:annotation>
+          <xsd:documentation>
+            A complex type containing one element: The message to enqueue.
+          </xsd:documentation>
+        </xsd:annotation>
+        <xsd:sequence>
+          <xsd:element name="MMessage" type="tns:TMessage">
+            <xsd:annotation>
+              <xsd:documentation>
+                Element containing a message to enqueue.
+              </xsd:documentation>
+            </xsd:annotation>
+
+          </xsd:element>
+        </xsd:sequence>
+      </xsd:complexType>
+
+
+      <xsd:complexType name="TKeepaliveMessageRequest">
+        <xsd:annotation>
+          <xsd:documentation>
+            A complex type containing one element: The keepalive message to process.
+          </xsd:documentation>
+
+        </xsd:annotation>
+        <xsd:sequence>
+          <xsd:element name="MKeepaliveMessage" type="tns:TKeepliveMessage">
+            <xsd:annotation>
+              <xsd:documentation>
+                Element containing a keepalive message to process.
+              </xsd:documentation>
+            </xsd:annotation>
+          </xsd:element>
+
+        </xsd:sequence>
+      </xsd:complexType>
+    </xsd:schema>
+  </wsdl:types>
+  <wsdl:message name="EnqueueMessageRequest">
+    <wsdl:part name="parameters" element="tns:EnqueueMessage">
+      <wsdl:documentation>inputparameters for EnqueueMessag</wsdl:documentation>
+    </wsdl:part>
+
+  </wsdl:message>
+  <wsdl:message name="EnqueueMessageResponse">
+    <wsdl:part name="parameters" element="tns:EnqueueMessageResponse">
+      <wsdl:documentation>outputparameters for EnqueueMessag</wsdl:documentation>
+    </wsdl:part>
+  </wsdl:message>
+  <wsdl:message name="KeepaliveMessageRequest">
+    <wsdl:part name="parameters" element="tns:KeepaliveMessage">
+
+      <wsdl:documentation>input parameters for KeepaliveMessag</wsdl:documentation>
+    </wsdl:part>
+  </wsdl:message>
+  <wsdl:message name="KeepaliveMessageResponse">
+    <wsdl:part name="parameters" element="tns:KeepaliveMessageResponse">
+      <wsdl:documentation>output parameters for KeepaliveMessag</wsdl:documentation>
+    </wsdl:part>
+  </wsdl:message>
+
+  <wsdl:portType name="MGWPortType">
+    <wsdl:documentation>
+      generic port type for all methods required for sending messages over the mosaic
+      message gatewa
+    </wsdl:documentation>
+    <wsdl:operation name="EnqueueMessage">
+      <wsdl:documentation>
+        This method is used to enqueue a normal (immediate send) or a delayed message with
+        keepalive functionality.
+      </wsdl:documentation>
+      <wsdl:input message="tns:EnqueueMessageRequest"></wsdl:input>
+      <wsdl:output message="tns:EnqueueMessageResponse"></wsdl:output>
+
+    </wsdl:operation>
+    <wsdl:operation name="KeepaliveMessage">
+      <wsdl:documentation>
+        This method is used to update or remove a
+        keepalive message.
+      </wsdl:documentation>
+      <wsdl:input message="tns:KeepaliveMessageRequest"></wsdl:input>
+      <wsdl:output message="tns:KeepaliveMessageResponse"></wsdl:output>
+    </wsdl:operation>
+  </wsdl:portType>
+
+  <wsdl:binding name="MGWBinding" type="tns:MGWPortType">
+    <wsdl:documentation>Generic binding for all (SOAP) port</wsdl:documentation>
+    <soap:binding style="document" transport="http://schemas.xmlsoap.org/soap/http" />
+    <wsdl:operation name="EnqueueMessage">
+      <soap:operation soapAction="http://www.example.org/MessageGateway2/EnqueueMessage" />
+      <wsdl:input>
+        <soap:body use="literal" />
+      </wsdl:input>
+      <wsdl:output>
+        <soap:body use="literal" />
+      </wsdl:output>
+    </wsdl:operation>
+    <wsdl:operation name="KeepaliveMessage">
+      <soap:operation
+        soapAction="http://www.example.org/MessageGateway2/KeepaliveMessage" />
+      <wsdl:input>
+        <soap:body use="literal" />
+      </wsdl:input>
+
+      <wsdl:output>
+        <soap:body use="literal" />
+      </wsdl:output>
+    </wsdl:operation>
+  </wsdl:binding>
+  <wsdl:service name="MessageGateway">
+    <wsdl:documentation>
+      Web Service for sending messages over the mosaic message gatewa
+    </wsdl:documentation>
+
+    <wsdl:port name="HTTPPort" binding="tns:MGWBinding">
+      <wsdl:documentation>HTTP(S) port for the mosaic message gatewa</wsdl:documentation>
+      <soap:address location="https://www.example.org/MessageGateway/" />
+    </wsdl:port>
+  </wsdl:service>
+</wsdl:definitions>};
+}

t/SOAP/WSDL/03_complexType-element-ref.t

@@ -0,0 +1,43 @@
+use Test::More tests => 4;
+use strict;
+use warnings;
+use lib '../lib';
+use lib 't/lib';
+use lib 'lib';
+use Cwd;
+use File::Basename;
+
+my $path = cwd();
+my $name = basename $0;
+$name =~s/\.t$//;
+$name =~s/^t\///;
+
+$path =~s{(/t)?/SOAP/WSDL}{}xms;
+
+use_ok(qw/SOAP::WSDL/);
+
+print "# SOAP::WSDL Version: $SOAP::WSDL::VERSION\n";
+
+my $xml;
+my $soap;
+
+#2
+ok( $soap = SOAP::WSDL->new(
+	wsdl => 'file://' . $path . '/t/acceptance/wsdl/' . $name . '.wsdl',
+	readable => 1,
+    no_dispatch => 1,
+), 'Instantiated object' );
+
+ok ($xml = $soap->call('test',  
+			testAll => {
+				Test2 => 'Test2',
+				TestRef => 'TestRef'
+			}
+), 'Serialized complexType' );
+
+is $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><testAll>
+	<TestRef>TestRef</TestRef>
+	<Test2>Test2</Test2>
+</testAll>
+</SOAP-ENV:Body></SOAP-ENV:Envelope>}
+    , 'element ref="" serialization';

t/SOAP/WSDL/10_performance.t

@@ -1,83 +0,0 @@
-#!/usr/bin/perl -w
-use strict;
-use Test::More tests=> 5;
-use Time::HiRes qw( gettimeofday tv_interval );
-use lib '../..';
-use Data::Dumper;
-use Cwd;
-use File::Basename;
-use_ok qw/ SOAP::WSDL /;
-use Benchmark;
-
-print "# Testing SOAP::WSDL ". $SOAP::WSDL::VERSION."\n";
-print "# Performance test with simple WSDL file\n";
-my $soap;
-my $data = {
-    sayHello => {
-		name => 'Mein Name',
-		givenName => 'Vorname',
-    }		
-};
-
-my $name = basename( $0 );
-$name =~s/\.(t|pl)$//;
-
-my $path = cwd;
-
-$path=~s{(/t)?/SOAP/WSDL}{}xms;
-
-my $cacheDir;
-if ($^O =~ m/Win/)
-{
-	$cacheDir = 'C:/Temp/WSDL';
-}
-else
-{
-	$cacheDir = '/tmp/';
-}
-
-
-my $t0 = [gettimeofday];
-ok( 
-	$soap=SOAP::WSDL->new(
-		wsdl => "file://$path/t/acceptance/wsdl/10_helloworld.asmx.xml",
-		no_dispatch => 1
-	),
-    "Create SOAP::WSDL object (".tv_interval ( $t0, [gettimeofday]) ."ms)" );
-
-$soap->proxy('http://helloworld/helloworld.asmx');
-
-$t0 = [gettimeofday];
-eval{ 
-	$soap->wsdlinit(
-	   caching => 1,
-	   cache_directory => $cacheDir,
-	   servicename => 'Service1' ) };
-	
-unless ($@) {
-	pass("wsdl file init (".tv_interval ( $t0, [gettimeofday]) ."s)");
-} else {
-	fail( $@ );
-}
-$soap->readable(1);
-
-$t0 = [gettimeofday];
-ok( $soap->call("sayHello" , %{ $data }),
-	"1 x call pre-work (".tv_interval ( $t0, [gettimeofday]) ."s)") ;
-
-$t0 = [gettimeofday];
-ok($soap->call(sayHello => %{ $data }),
-	"1 x call pre-work (".tv_interval ( $t0, [gettimeofday]) ."s)" );
-
-timethis 1000, sub { $soap->call(sayHello => %{ $data }) };
-
-__END__
-
-$t0 = [gettimeofday];
-for (my $i=1; $i<100; $i++) 
-{
-	$soap->call(sayHello => %{ $data });
-}
-ok(1, "100 x call pre-work (".tv_interval ( $t0, [gettimeofday]) ."s)");
-
-chdir $cwd;

t/SOAP/WSDL/XSD/Typelib/Builtin/002_dateTime.t

@@ -13,6 +13,8 @@ sub timezone {
 }
 
 use_ok('SOAP::WSDL::XSD::Typelib::Builtin::dateTime');
+
+print "# timezone is " . timezone( scalar localtime(time) ) . "\n";
 my $obj;
 my %dates = (
     '2007-12-31 12:32' => '2007-12-31T12:32:00', 
@@ -25,14 +27,6 @@ while (my ($date, $converted) = each %dates ) {
     $obj = SOAP::WSDL::XSD::Typelib::Builtin::dateTime->new();
     $obj->set_value( $date );
     
-    is $obj->get_value() , $converted . timezone($date), 'conversion';
+    is $obj->get_value() , $converted . timezone($date), 'conversion with timezone';
 }
 $obj->set_value('2007-12-31T00:00:00.0000000+01:00');
-
-# exit;
-
-#~ use Benchmark;
-#~ timethese 10000, {
-    #~ xml => sub { $obj->set_value('2037-12-31T00:00:00.0000000+01:00') },
-    #~ string => sub { $obj->set_value('2037-12-31') },
-#~ }

t/acceptance/wsdl/03_complexType-element-ref.wsdl

@@ -0,0 +1,53 @@
+<?xml version="1.0"?>
+<definitions name="urn:Test" targetNamespace="urn:Test" xmlns:tns="urn:Test"
+  xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+  xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
+  xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
+  <types>
+    <xsd:schema targetNamespace="urn:Test">
+      <xsd:element name="TestElement" type="xsd:string" />
+      <xsd:element name="TestRef" ref="tns:TestElement" />
+      <xsd:complexType name="testComplexTypeRef">
+        <xsd:annotation>
+          <xsd:documentation>ComplexType Test</xsd:documentation>
+        </xsd:annotation>
+        <xsd:all>
+          <xsd:element name="TestRef" ref="tns:TestElement" />
+          <xsd:element name="Test2" type="xsd:string" minOccurs="1" />
+        </xsd:all>
+      </xsd:complexType>
+    </xsd:schema>
+  </types>
+  <message name="testRequest">
+    <part name="testAll" type="tns:testComplexTypeRef" />
+  </message>
+  <message name="testResponse">
+    <part name="testAll" type="tns:testComplexTypeRef" />
+  </message>
+  <portType name="testPort">
+    <operation name="test">
+      <documentation>Test-Methode</documentation>
+      <input message="tns:testRequest" />
+      <output message="tns:testResponse" />
+    </operation>
+  </portType>
+
+  <binding type="tns:testPort" name="testBinding">
+    <soap:binding style="document" transport="http://schemas.xmlsoap.org/soap/http" />
+    <operation name="test">
+      <soap:operation soapAction="test">
+        <input>
+          <soap:body use="literal" />
+        </input>
+        <output>
+          <soap:body use="literal" />
+        </output>
+      </soap:operation>
+    </operation>
+  </binding>
+  <service name="testService">
+    <port name="testPort" binding="tns:testBinding">
+      <soap:address location="http://127.0.0.1/testPort" />
+    </port>
+  </service>
+</definitions>