import SOAP-WSDL 2.00_27 from CPAN

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

Build.PL

@@ -5,7 +5,7 @@ $build = Module::Build->new(
     create_makefile_pl => 'passthrough',
     dist_abstract      => 'SOAP with WSDL support',
     dist_name          => 'SOAP-WSDL',
-    dist_version       => '2.00_25',
+    dist_version       => '2.00_27',
     module_name        => 'SOAP::WSDL',
     license            => 'artistic',
     requires           => {

Changes

@@ -1,4 +1,4 @@
-Release notes for SOAP::WSDL 2.00_24
+Release notes for SOAP::WSDL 2.00_27
 -------
 
 I'm proud to present a new pre-release version of SOAP::WSDL.
@@ -34,6 +34,47 @@ Features:
 
 The following changes have been made:
 
+2.00_27
+
+The following features were added (the numbers in square brackets are the 
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660924):
+
+   * [ 1850793 ] Add a to_hash_ref method
+   * [ 1844427 ] Support multiple parts in body
+
+The following bugs have been fixed (the numbers in square brackets are the 
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660921):
+The numbers with # are CPAN RT IDs (http://rt.cpan.org/).
+
+   * [ 1850795 ] attributes referencing types in default namespace throw
+   * [ 1844458 ] Add warning when generating Interface with multiple parts
+   * [ 1843841 ] Grammar/typos in Manual.pod
+   * [ 1843799 ] ./Build test fails due to testcount mismatch not IO::Scalar
+   * [ 1845077 ] Top level simpleType elements don't serialize correctly
+
+The following uncategorized improvements have been made:
+
+   * Fixed serializing complexType elements with no elements to empty element
+   * Enhanced test suite
+   * Documentation improvements
+
+2.00_26
+
+The following features were added (the numbers in square brackets are the 
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660924):
+
+The following bugs have been fixed (the numbers in square brackets are the 
+tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660921):
+The numbers with # are CPAN RT IDs (http://rt.cpan.org/).
+
+   * [ 1843195 ] t/013_complexType.t still requires Class::Std::Storable
+   * [ 1843590 ] Tests broken on Cygwin
+
+The following uncategorized improvements have been made:
+
+   * Added examples
+   * Added Content-length header to CGI output
+
 2.00_25
 ---
 WARNING: INCOMPATIBLE CHANGE:

MANIFEST

@@ -1,5 +1,7 @@
 benchmark/01_expat.t
 benchmark/hello.pl
+benchmark/person.pl
+benchmark/person.xml
 benchmark/XSD/01_anyType.t
 benchmark/XSD/02_anySimpleType.t
 benchmark/XSD/03_string.t
@@ -7,6 +9,7 @@ bin/wsdl2perl.pl
 Build.PL
 Changes
 example/cgi-bin/helloworld.pl
+example/cgi-bin/person.pl
 example/fortune.pl
 example/genericbarcode.pl
 example/hello.pl
@@ -25,6 +28,8 @@ example/lib/MyElements/GetSpecificCookieResponse.pm
 example/lib/MyElements/GetWeather.pm
 example/lib/MyElements/GetWeatherResponse.pm
 example/lib/MyElements/int.pm
+example/lib/MyElements/ListPerson.pm
+example/lib/MyElements/ListPersonResponse.pm
 example/lib/MyElements/readNodeCount.pm
 example/lib/MyElements/readNodeCountResponse.pm
 example/lib/MyElements/sayHello.pm
@@ -34,13 +39,31 @@ example/lib/MyInterfaces/BarCode/BarCodeSoap.pm
 example/lib/MyInterfaces/FullerData_x0020_Fortune_x0020_Cookie/FullerData_x0020_Fortune_x0020_CookieSoap.pm
 example/lib/MyInterfaces/GlobalWeather/GlobalWeatherSoap.pm
 example/lib/MyInterfaces/HelloWorld/HelloWorldSoap.pm
+example/lib/MyInterfaces/TestService/TestPort.pm
 example/lib/MyServer/HelloWorld/HelloWorldSoap.pm
+example/lib/MyServer/TestService/TestPort.pm
 example/lib/MyTypemaps/BarCode.pm
 example/lib/MyTypemaps/FullerData_x0020_Fortune_x0020_Cookie.pm
 example/lib/MyTypemaps/GlobalWeather.pm
 example/lib/MyTypemaps/HelloWorld.pm
+example/lib/MyTypemaps/TestService.pm
+example/lib/MyTypes/Address.pm
+example/lib/MyTypes/ArrayOfContract.pm
+example/lib/MyTypes/ArrayOfPerson.pm
+example/lib/MyTypes/BarCodeData.pm
+example/lib/MyTypes/BarcodeOption.pm
+example/lib/MyTypes/BarcodeType.pm
+example/lib/MyTypes/CheckSumMethod.pm
+example/lib/MyTypes/Contract.pm
+example/lib/MyTypes/ImageFormats.pm
+example/lib/MyTypes/Person.pm
+example/lib/MyTypes/PersonID.pm
+example/lib/MyTypes/PhoneNumber.pm
+example/lib/MyTypes/ShowTextPosition.pm
 example/lib/MyTypes/test2.pm
 example/lib/MyTypes/testExtended.pm
+example/person.pl
+example/person_compile.pl
 example/visitor/visitor.pl
 example/weather.pl
 example/weather_wsdl.pl
@@ -48,6 +71,7 @@ example/wsdl/11_helloworld.wsdl
 example/wsdl/FortuneCookie.xml
 example/wsdl/genericbarcode.xml
 example/wsdl/globalweather.xml
+example/wsdl/Person.wsdl
 HACKING
 lib/SOAP/WSDL.pm
 lib/SOAP/WSDL/Base.pm
@@ -250,6 +274,7 @@ t/acceptance/wsdl/email_account.wsdl
 t/acceptance/wsdl/generator_test.wsdl
 t/acceptance/wsdl/generator_unsupported_test.wsdl
 t/acceptance/wsdl/message_gateway.wsdl
+t/contributed.wsdl
 t/Expat/01_expat.t
 t/Expat/03_wsdl.t
 t/lib/MyComplexType.pm
@@ -292,6 +317,8 @@ t/SOAP/WSDL/Generator/Visitor/Typemap.t
 t/SOAP/WSDL/Generator/XCS.t
 t/SOAP/WSDL/Generator/XSD.t
 t/SOAP/WSDL/Generator/XSD_unsupported.t
+t/SOAP/WSDL/Part.t
+t/SOAP/WSDL/Serializer/XSD.t
 t/SOAP/WSDL/Server.t
 t/SOAP/WSDL/Server/CGI.t
 t/SOAP/WSDL/Transport/01_Test.t
@@ -299,6 +326,9 @@ t/SOAP/WSDL/Transport/02_HTTP.t
 t/SOAP/WSDL/Transport/acceptance/test2.xml
 t/SOAP/WSDL/Transport/acceptance/test3.xml
 t/SOAP/WSDL/Typelib/Fault11.t
+t/SOAP/WSDL/XSD/ComplexType.t
+t/SOAP/WSDL/XSD/Element.t
+t/SOAP/WSDL/XSD/SimpleType.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/01_constructors.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/anySimpleType.t
 t/SOAP/WSDL/XSD/Typelib/Builtin/anyType.t

META.yml

@@ -1,6 +1,6 @@
 ---
 name: SOAP-WSDL
-version: 2.00_25
+version: 2.00_27
 author:
   - 'Martin Kutter <martin.kutter@fen-net.de>'
 abstract: SOAP with WSDL support
@@ -33,12 +33,12 @@ provides:
     version: 2.00_25
   SOAP::WSDL::Base:
     file: lib/SOAP/WSDL/Base.pm
-    version: 2.00_25
+    version: 2.00_27
   SOAP::WSDL::Binding:
     file: lib/SOAP/WSDL/Binding.pm
   SOAP::WSDL::Client:
     file: lib/SOAP/WSDL/Client.pm
-    version: 2.00_25
+    version: 2.00_27
   SOAP::WSDL::Client::Base:
     file: lib/SOAP/WSDL/Client/Base.pm
     version: 2.00_25
@@ -126,7 +126,7 @@ provides:
     version: 2.00_25
   SOAP::WSDL::Server::CGI:
     file: lib/SOAP/WSDL/Server/CGI.pm
-    version: 2.00_25
+    version: 2.00_26
   SOAP::WSDL::Service:
     file: lib/SOAP/WSDL/Service.pm
   SOAP::WSDL::Transport::HTTP:

TODO

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

benchmark/person.pl

@@ -0,0 +1,114 @@
+use lib '../lib';
+use lib '../example/lib';
+use lib '../../SOAP-WSDL_XS/blib/lib';
+use lib '../../SOAP-WSDL_XS/blib/arch';
+use strict;
+
+package MyData;
+my $XML;
+sub xml {
+    return $XML if ($XML);
+
+    open my $fh, 'person.xml' or die 'cannot open data file';
+    $XML = join '', <$fh>;
+    close $fh;
+    return $XML;
+}
+
+package MyTransport;
+use SOAP::WSDL::Factory::Transport;
+SOAP::WSDL::Factory::Transport->register( http => __PACKAGE__ );
+sub send_receive {
+    return MyData::xml();
+}
+sub new { return bless {}, 'MyTransport' };
+
+package main;
+
+use Benchmark qw(cmpthese);
+
+# Do this BEFORE the client SOAP handlers are compiled!
+use XML::Compile::Transport::SOAPHTTP();
+use XML::Compile::SOAP::Tester ();
+use XML::Compile::Util;#use Data::Dumper;
+#print Dumper $result;
+use XML::Compile::WSDL11;
+use XML::Simple;
+
+use SOAP::WSDL::Deserializer::XSD_XS;
+use SOAP::WSDL::Factory::Deserializer;
+
+$XML::Simple::PREFERRED_PARSER = 'XML::Parser';
+use SOAP::Lite;
+
+use MyInterfaces::TestService::TestPort;
+
+my $tester = XML::Compile::SOAP::Tester->new();
+my $action = pack_type 'http://example.org', 'ListPerson';
+my $compile = XML::Compile::WSDL11->new('../example/wsdl/Person.wsdl');
+
+$tester->actionCallback($action, \&MyData::xml);
+
+my $call = $compile->compileClient('ListPerson');
+my $result = $call->({ in => undef});
+
+# Initialize SOAP::Lite
+my $deserializer = SOAP::Deserializer->new();
+
+# Initialize SOAP::WSDL interface
+my $soap = MyInterfaces::TestService::TestPort->new();
+# Load all classes - XML::Compile has created everything before, too
+$soap->ListPerson({});
+
+# # register for SOAP 1.1
+SOAP::WSDL::Factory::Deserializer->register('1.1' => 'SOAP::WSDL::Deserializer::XSD_XS' );
+
+my $wsdl_xs = MyInterfaces::TestService::TestPort->new();
+
+# trigger loading of XML Data
+{
+    use bytes;
+    print "XML length (bytes): " . length( MyData::xml() ), "\n";
+}
+
+my @data = ();
+my $n = 0;
+print "Benchmark conducted with
+SOAP::Lite - $SOAP::Lite::VERSION
+SOAP::WSDL - $SOAP::WSDL::Client::VERSION
+SOAP::WSDL_XS - $SOAP::WSDL::Deserializer::XSD_XS::VERSION;
+XML::Compile::SOAP - $XML::Compile::SOAP::VERSION
+XML::Simple - $XML::Simple::VERSION
+
+Benchmark $n: Store result in private variable and destroy it
+";
+$n++;
+cmpthese 300, {
+    'XML::Simple' => sub { my $result = XMLin( MyData::xml() )},
+    'SOAP::WSDL' => sub { my $result = $soap->ListPerson({}) },
+    'XML::Compile::SOAP' => sub { my $result = $call->() },
+    'SOAP::WSDL_XS' => sub { my $result = @data, $wsdl_xs->ListPerson({}) },
+    'SOAP::Lite' => sub { my $result = $deserializer->deserialize( MyData::xml() )}
+};
+
+print "Benchmark $n: Push result on list\n";
+$n++;
+cmpthese 500, {
+    'XML::Simple' => sub { push @data, XMLin( MyData::xml() )},
+    'SOAP::WSDL' => sub { push @data, $soap->ListPerson({}) },
+    'XML::Compile::SOAP' => sub { push @data, $call->() },
+    'SOAP::WSDL_XS' => sub { push @data, $wsdl_xs->ListPerson({}) },
+    'SOAP::Lite' => sub { push @data, $deserializer->deserialize( MyData::xml() )}
+};
+
+@data = ();
+print "Benchmark $n: Play it again, Sam\n";
+
+cmpthese 500, {
+    'XML::Simple' => sub { push @data, XMLin( MyData::xml() )},
+    'SOAP::WSDL' => sub { push @data, $soap->ListPerson({}) },
+    'SOAP::WSDL_XS' => sub { push @data, $wsdl_xs->ListPerson({}) },
+    'XML::Compile::SOAP' => sub { push @data, $call->() },
+    'SOAP::Lite' => sub { push @data, $deserializer->deserialize( MyData::xml() )}
+};
+

benchmark/person.xml

@@ -0,0 +1,437 @@
+<SOAP-ENV:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"><SOAP-ENV:Body>
+	<ListPersonResponse xmlns="http://www.example.org/benchmark/">
+		<out>
+			<NewElement>
+				<PersonID>
+					<ID>1</ID>
+				</PersonID>
+				<Salutation>Salutation0</Salutation>
+				<Name>Name0</Name>
+				<GivenName>Martin</GivenName>
+				<DateOfBirth>1970-01-01</DateOfBirth>
+				<HomeAddress>
+					<Street>Street 0</Street>
+					<ZIP>00000</ZIP>
+					<City>City0</City>
+					<Country>Country0</Country>
+					<PhoneNumber>++499131123456</PhoneNumber>
+					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+				</HomeAddress>
+				<WorkAddress>
+					<Street>Somestreet 23</Street>
+					<ZIP>12345</ZIP>
+					<City>SomeCity</City>
+					<Country>Germany</Country>
+					<PhoneNumber>++499131123456</PhoneNumber>
+					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+				</WorkAddress>
+				<Contracts>
+					<Contract>
+						<ContractID>100000</ContractID>
+						<ContractName>SomeContract0</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100001</ContractID>
+						<ContractName>SomeContract1</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100002</ContractID>
+						<ContractName>SomeContract2</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100003</ContractID>
+						<ContractName>SomeContract3</ContractName>
+					</Contract>
+				</Contracts>
+			</NewElement>
+			<NewElement>
+				<PersonID>
+					<ID>1</ID>
+				</PersonID>
+				<Salutation>Salutation0</Salutation>
+				<Name>Name0</Name>
+				<GivenName>Martin</GivenName>
+				<DateOfBirth>1970-01-01</DateOfBirth>
+				<HomeAddress>
+					<Street>Street 0</Street>
+					<ZIP>00000</ZIP>
+					<City>City0</City>
+					<Country>Country0</Country>
+					<PhoneNumber>++499131123456</PhoneNumber>
+					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+				</HomeAddress>
+				<WorkAddress>
+					<Street>Somestreet 23</Street>
+					<ZIP>12345</ZIP>
+					<City>SomeCity</City>
+					<Country>Germany</Country>
+					<PhoneNumber>++499131123456</PhoneNumber>
+					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+				</WorkAddress>
+				<Contracts>
+					<Contract>
+						<ContractID>100000</ContractID>
+						<ContractName>SomeContract0</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100001</ContractID>
+						<ContractName>SomeContract1</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100002</ContractID>
+						<ContractName>SomeContract2</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100003</ContractID>
+						<ContractName>SomeContract3</ContractName>
+					</Contract>
+				</Contracts>
+			</NewElement>
+			<NewElement>
+				<PersonID>
+					<ID>1</ID>
+				</PersonID>
+				<Salutation>Salutation0</Salutation>
+				<Name>Name0</Name>
+				<GivenName>Martin</GivenName>
+				<DateOfBirth>1970-01-01</DateOfBirth>
+				<HomeAddress>
+					<Street>Street 0</Street>
+					<ZIP>00000</ZIP>
+					<City>City0</City>
+					<Country>Country0</Country>
+					<PhoneNumber>++499131123456</PhoneNumber>
+					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+				</HomeAddress>
+				<WorkAddress>
+					<Street>Somestreet 23</Street>
+					<ZIP>12345</ZIP>
+					<City>SomeCity</City>
+					<Country>Germany</Country>
+					<PhoneNumber>++499131123456</PhoneNumber>
+					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+				</WorkAddress>
+				<Contracts>
+					<Contract>
+						<ContractID>100000</ContractID>
+						<ContractName>SomeContract0</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100001</ContractID>
+						<ContractName>SomeContract1</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100002</ContractID>
+						<ContractName>SomeContract2</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100003</ContractID>
+						<ContractName>SomeContract3</ContractName>
+					</Contract>
+				</Contracts>
+			</NewElement>
+			<NewElement>
+				<PersonID>
+					<ID>1</ID>
+				</PersonID>
+				<Salutation>Salutation0</Salutation>
+				<Name>Name0</Name>
+				<GivenName>Martin</GivenName>
+				<DateOfBirth>1970-01-01</DateOfBirth>
+				<HomeAddress>
+					<Street>Street 0</Street>
+					<ZIP>00000</ZIP>
+					<City>City0</City>
+					<Country>Country0</Country>
+					<PhoneNumber>++499131123456</PhoneNumber>
+					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+				</HomeAddress>
+				<WorkAddress>
+					<Street>Somestreet 23</Street>
+					<ZIP>12345</ZIP>
+					<City>SomeCity</City>
+					<Country>Germany</Country>
+					<PhoneNumber>++499131123456</PhoneNumber>
+					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+				</WorkAddress>
+				<Contracts>
+					<Contract>
+						<ContractID>100000</ContractID>
+						<ContractName>SomeContract0</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100001</ContractID>
+						<ContractName>SomeContract1</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100002</ContractID>
+						<ContractName>SomeContract2</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100003</ContractID>
+						<ContractName>SomeContract3</ContractName>
+					</Contract>
+				</Contracts>
+			</NewElement>
+			<NewElement>
+				<PersonID>
+					<ID>1</ID>
+				</PersonID>
+				<Salutation>Salutation0</Salutation>
+				<Name>Name0</Name>
+				<GivenName>Martin</GivenName>
+				<DateOfBirth>1970-01-01</DateOfBirth>
+				<HomeAddress>
+					<Street>Street 0</Street>
+					<ZIP>00000</ZIP>
+					<City>City0</City>
+					<Country>Country0</Country>
+					<PhoneNumber>++499131123456</PhoneNumber>
+					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+				</HomeAddress>
+				<WorkAddress>
+					<Street>Somestreet 23</Street>
+					<ZIP>12345</ZIP>
+					<City>SomeCity</City>
+					<Country>Germany</Country>
+					<PhoneNumber>++499131123456</PhoneNumber>
+					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+				</WorkAddress>
+				<Contracts>
+					<Contract>
+						<ContractID>100000</ContractID>
+						<ContractName>SomeContract0</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100001</ContractID>
+						<ContractName>SomeContract1</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100002</ContractID>
+						<ContractName>SomeContract2</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100003</ContractID>
+						<ContractName>SomeContract3</ContractName>
+					</Contract>
+				</Contracts>
+			</NewElement>
+			<NewElement>
+				<PersonID>
+					<ID>1</ID>
+				</PersonID>
+				<Salutation>Salutation0</Salutation>
+				<Name>Name0</Name>
+				<GivenName>Martin</GivenName>
+				<DateOfBirth>1970-01-01</DateOfBirth>
+				<HomeAddress>
+					<Street>Street 0</Street>
+					<ZIP>00000</ZIP>
+					<City>City0</City>
+					<Country>Country0</Country>
+					<PhoneNumber>++499131123456</PhoneNumber>
+					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+				</HomeAddress>
+				<WorkAddress>
+					<Street>Somestreet 23</Street>
+					<ZIP>12345</ZIP>
+					<City>SomeCity</City>
+					<Country>Germany</Country>
+					<PhoneNumber>++499131123456</PhoneNumber>
+					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+				</WorkAddress>
+				<Contracts>
+					<Contract>
+						<ContractID>100000</ContractID>
+						<ContractName>SomeContract0</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100001</ContractID>
+						<ContractName>SomeContract1</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100002</ContractID>
+						<ContractName>SomeContract2</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100003</ContractID>
+						<ContractName>SomeContract3</ContractName>
+					</Contract>
+				</Contracts>
+			</NewElement>
+			<NewElement>
+				<PersonID>
+					<ID>1</ID>
+				</PersonID>
+				<Salutation>Salutation0</Salutation>
+				<Name>Name0</Name>
+				<GivenName>Martin</GivenName>
+				<DateOfBirth>1970-01-01</DateOfBirth>
+				<HomeAddress>
+					<Street>Street 0</Street>
+					<ZIP>00000</ZIP>
+					<City>City0</City>
+					<Country>Country0</Country>
+					<PhoneNumber>++499131123456</PhoneNumber>
+					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+				</HomeAddress>
+				<WorkAddress>
+					<Street>Somestreet 23</Street>
+					<ZIP>12345</ZIP>
+					<City>SomeCity</City>
+					<Country>Germany</Country>
+					<PhoneNumber>++499131123456</PhoneNumber>
+					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+				</WorkAddress>
+				<Contracts>
+					<Contract>
+						<ContractID>100000</ContractID>
+						<ContractName>SomeContract0</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100001</ContractID>
+						<ContractName>SomeContract1</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100002</ContractID>
+						<ContractName>SomeContract2</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100003</ContractID>
+						<ContractName>SomeContract3</ContractName>
+					</Contract>
+				</Contracts>
+			</NewElement>
+			<NewElement>
+				<PersonID>
+					<ID>1</ID>
+				</PersonID>
+				<Salutation>Salutation0</Salutation>
+				<Name>Name0</Name>
+				<GivenName>Martin</GivenName>
+				<DateOfBirth>1970-01-01</DateOfBirth>
+				<HomeAddress>
+					<Street>Street 0</Street>
+					<ZIP>00000</ZIP>
+					<City>City0</City>
+					<Country>Country0</Country>
+					<PhoneNumber>++499131123456</PhoneNumber>
+					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+				</HomeAddress>
+				<WorkAddress>
+					<Street>Somestreet 23</Street>
+					<ZIP>12345</ZIP>
+					<City>SomeCity</City>
+					<Country>Germany</Country>
+					<PhoneNumber>++499131123456</PhoneNumber>
+					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+				</WorkAddress>
+				<Contracts>
+					<Contract>
+						<ContractID>100000</ContractID>
+						<ContractName>SomeContract0</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100001</ContractID>
+						<ContractName>SomeContract1</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100002</ContractID>
+						<ContractName>SomeContract2</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100003</ContractID>
+						<ContractName>SomeContract3</ContractName>
+					</Contract>
+				</Contracts>
+			</NewElement>
+			<NewElement>
+				<PersonID>
+					<ID>1</ID>
+				</PersonID>
+				<Salutation>Salutation0</Salutation>
+				<Name>Name0</Name>
+				<GivenName>Martin</GivenName>
+				<DateOfBirth>1970-01-01</DateOfBirth>
+				<HomeAddress>
+					<Street>Street 0</Street>
+					<ZIP>00000</ZIP>
+					<City>City0</City>
+					<Country>Country0</Country>
+					<PhoneNumber>++499131123456</PhoneNumber>
+					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+				</HomeAddress>
+				<WorkAddress>
+					<Street>Somestreet 23</Street>
+					<ZIP>12345</ZIP>
+					<City>SomeCity</City>
+					<Country>Germany</Country>
+					<PhoneNumber>++499131123456</PhoneNumber>
+					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+				</WorkAddress>
+				<Contracts>
+					<Contract>
+						<ContractID>100000</ContractID>
+						<ContractName>SomeContract0</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100001</ContractID>
+						<ContractName>SomeContract1</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100002</ContractID>
+						<ContractName>SomeContract2</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100003</ContractID>
+						<ContractName>SomeContract3</ContractName>
+					</Contract>
+				</Contracts>
+			</NewElement>
+			<NewElement>
+				<PersonID>
+					<ID>1</ID>
+				</PersonID>
+				<Salutation>Salutation0</Salutation>
+				<Name>Name0</Name>
+				<GivenName>Martin</GivenName>
+				<DateOfBirth>1970-01-01</DateOfBirth>
+				<HomeAddress>
+					<Street>Street 0</Street>
+					<ZIP>00000</ZIP>
+					<City>City0</City>
+					<Country>Country0</Country>
+					<PhoneNumber>++499131123456</PhoneNumber>
+					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+				</HomeAddress>
+				<WorkAddress>
+					<Street>Somestreet 23</Street>
+					<ZIP>12345</ZIP>
+					<City>SomeCity</City>
+					<Country>Germany</Country>
+					<PhoneNumber>++499131123456</PhoneNumber>
+					<MobilePhoneNumber>++49150123456</MobilePhoneNumber>
+				</WorkAddress>
+				<Contracts>
+					<Contract>
+						<ContractID>100000</ContractID>
+						<ContractName>SomeContract0</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100001</ContractID>
+						<ContractName>SomeContract1</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100002</ContractID>
+						<ContractName>SomeContract2</ContractName>
+					</Contract>
+					<Contract>
+						<ContractID>100003</ContractID>
+						<ContractName>SomeContract3</ContractName>
+					</Contract>
+				</Contracts>
+			</NewElement>
+		</out>
+	</ListPersonResponse>
+</SOAP-ENV:Body>
+</SOAP-ENV:Envelope>

example/cgi-bin/helloworld.pl

@@ -52,4 +52,5 @@ Then run the helloworld.pl from the examples directory. It should print
 
 =head1 DESCRIPTION
 
-=cut
+=cut
+

example/cgi-bin/person.pl

@@ -0,0 +1,83 @@
+#!/usr/bin/perl -w
+use strict;
+use warnings;
+use lib qw(../lib ../../lib);
+use MyElements::ListPersonResponse;
+use MyServer::TestService::TestPort;
+my $server = MyServer::TestService::TestPort->new({
+   dispatch_to => 'main',
+   transport_class => 'SOAP::WSDL::Server::CGI',   # optional, default
+});
+$server->handle();
+
+sub ListPerson {
+    my ($self, $body, $header) = @_;
+    # body is a ??? object - sorry, POD not implemented yet
+    # header is a ??? object - sorry, POD not implemented yet
+    
+    # do something with body and header...
+
+    my %person = (
+        PersonID =>         { # MyTypes::PersonID
+          ID =>  1, # int
+        },
+        Salutation => 'Salutation0', # string
+        Name =>  'Name0', # string
+        GivenName =>  'Martin', # string
+        DateOfBirth =>  '1970-01-01', # date
+        HomeAddress =>         { # MyTypes::Address
+          Street => 'Street 0', # string
+          ZIP =>  '00000', # string
+          City =>  'City0', # string
+          Country =>  'Country0', # string
+          PhoneNumber => '++499131123456', # PhoneNumber
+          MobilePhoneNumber => '++49150123456', # PhoneNumber
+        },
+        WorkAddress =>         { # MyTypes::Address
+          Street => 'Somestreet 23', # string
+          ZIP =>  '12345', # string
+          City =>  'SomeCity', # string
+          Country =>  'Germany', # string
+          PhoneNumber => '++499131123456', # PhoneNumber
+          MobilePhoneNumber => '++49150123456', # PhoneNumber
+        },
+        Contracts =>         { # MyTypes::ArrayOfContract
+          Contract => [          
+          { # MyTypes::Contract
+            ContractID =>  100000, # long
+            ContractName =>  'SomeContract0', # string
+          },
+          { # MyTypes::Contract
+            ContractID =>  100001, # long
+            ContractName =>  'SomeContract1', # string
+          },
+          { # MyTypes::Contract
+            ContractID =>  100002, # long
+            ContractName =>  'SomeContract2', # string
+          },
+          { # MyTypes::Contract
+            ContractID =>  100003, # long
+            ContractName =>  'SomeContract3', # string
+          },
+          ],
+        },
+    );
+
+    return  MyElements::ListPersonResponse->new(  {
+    out => { # MyTypes::ArrayOfPerson
+            NewElement => [
+                { %person },
+                { %person },
+                { %person },
+                { %person },
+                { %person },
+                { %person },
+                { %person },
+                { %person },
+                { %person },
+                { %person },
+            ],
+        },
+    }
+ );
+ }

example/hello.pl

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

example/hello_compile.pl

@@ -4,18 +4,22 @@ use warnings;
 use XML::Compile::WSDL11;
 use XML::Compile::Transport::SOAPHTTP;
 
+# I need access to the WSDL around - or use Data::Dumper::Streamer 
+# for serializing the generated closures into (big) perl files
 my $wsdl = XML::Compile::WSDL11->new('wsdl/11_helloworld.wsdl');
 
-# I have to lookup the methods from the WSDL
+# I compile a interface method for a single SOAP method from the WSDL
+# I have to lookup the method names from the WSDL
 my $call = $wsdl->compileClient('sayHello');
 
-# I have to lookup the parameters from the WSDL
+# I have to lookup the parameters from the WSDL - can be quite tricky
 my $result = $call->(
     name => $ARGV[1] || '"Your name"',
     givenName => $ARGV[0] || '"Your given name"',
 );
 
+# XML::Compile::SOAP's client just returns undef in case of failure
 die "Error calling soap method" if not defined $result;
 
-# I have to lookup the output parameters from the WSDL - or try Dumper
+# I have to lookup the output parameters from the WSDL - or try Data::Dumper
-print $result->{ parameters }->{ sayHelloResult }, "\n";
+print $result->{ parameters }->{ sayHelloResult }, "\n";

example/lib/MyElements/CountCookies.pm

@@ -13,8 +13,8 @@ __PACKAGE__->__set_maxOccurs();
 __PACKAGE__->__set_ref();
 
 use base qw(
-	SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::Element
-	SOAP::WSDL::XSD::Typelib::ComplexType
+    SOAP::WSDL::XSD::Typelib::ComplexType
 );
 
 
@@ -44,7 +44,7 @@ CountCookies from the namespace http://www.fullerdata.com/FortuneCookie/FortuneC
 
 Constructor. The following data structure may be passed to new():
 
-
+,
 
 =head1 AUTHOR
 

example/lib/MyElements/CountCookiesResponse.pm

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

example/lib/MyElements/GenerateBarCode.pm

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

example/lib/MyElements/GenerateBarCodeResponse.pm

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

example/lib/MyElements/GetCitiesByCountry.pm

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

example/lib/MyElements/GetCitiesByCountryResponse.pm

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

example/lib/MyElements/GetFortuneCookie.pm

@@ -13,8 +13,8 @@ __PACKAGE__->__set_maxOccurs();
 __PACKAGE__->__set_ref();
 
 use base qw(
-	SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::Element
-	SOAP::WSDL::XSD::Typelib::ComplexType
+    SOAP::WSDL::XSD::Typelib::ComplexType
 );
 
 
@@ -44,7 +44,7 @@ GetFortuneCookie from the namespace http://www.fullerdata.com/FortuneCookie/Fort
 
 Constructor. The following data structure may be passed to new():
 
-
+,
 
 =head1 AUTHOR
 

example/lib/MyElements/GetFortuneCookieResponse.pm

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

example/lib/MyElements/GetSpecificCookie.pm

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

example/lib/MyElements/GetSpecificCookieResponse.pm

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

example/lib/MyElements/GetWeather.pm

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

example/lib/MyElements/GetWeatherResponse.pm

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

example/lib/MyElements/ListPerson.pm

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

example/lib/MyElements/ListPersonResponse.pm

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

example/lib/MyElements/int.pm

@@ -12,8 +12,8 @@ __PACKAGE__->__set_minOccurs();
 __PACKAGE__->__set_maxOccurs();
 __PACKAGE__->__set_ref();
 use base qw(
-	SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::Element
-	SOAP::WSDL::XSD::Typelib::Builtin::int
+    SOAP::WSDL::XSD::Typelib::Builtin::int
 
 );
 

example/lib/MyElements/readNodeCount.pm

@@ -13,8 +13,8 @@ __PACKAGE__->__set_maxOccurs();
 __PACKAGE__->__set_ref();
 
 use base qw(
-	SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::Element
-	SOAP::WSDL::XSD::Typelib::ComplexType
+    SOAP::WSDL::XSD::Typelib::ComplexType
 );
 
 
@@ -44,7 +44,7 @@ readNodeCount from the namespace http://www.fullerdata.com/FortuneCookie/Fortune
 
 Constructor. The following data structure may be passed to new():
 
-
+,
 
 =head1 AUTHOR
 

example/lib/MyElements/readNodeCountResponse.pm

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

example/lib/MyElements/string.pm

@@ -12,8 +12,8 @@ __PACKAGE__->__set_minOccurs();
 __PACKAGE__->__set_maxOccurs();
 __PACKAGE__->__set_ref();
 use base qw(
-	SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::Element
-	SOAP::WSDL::XSD::Typelib::Builtin::string
+    SOAP::WSDL::XSD::Typelib::Builtin::string
 
 );
 

example/lib/MyInterfaces/BarCode/BarCodeSoap.pm

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

example/lib/MyInterfaces/FullerData_x0020_Fortune_x0020_Cookie/FullerData_x0020_Fortune_x0020_CookieSoap.pm

@@ -1,12 +1,13 @@
 package MyInterfaces::FullerData_x0020_Fortune_x0020_Cookie::FullerData_x0020_Fortune_x0020_CookieSoap;
 use strict;
 use warnings;
-use Class::Std::Storable;
+use Class::Std::Fast::Storable;
+use Scalar::Util qw(blessed);
 use base qw(SOAP::WSDL::Client::Base);
 
 # only load if it hasn't been loaded before
 require MyTypemaps::FullerData_x0020_Fortune_x0020_Cookie
-	if not MyTypemaps::FullerData_x0020_Fortune_x0020_Cookie->can('get_class');
+    if not MyTypemaps::FullerData_x0020_Fortune_x0020_Cookie->can('get_class');
 
 sub START {
     $_[0]->set_proxy('http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx') if not $_[2]->{proxy};
@@ -16,11 +17,12 @@ sub START {
 
 sub readNodeCount {
     my ($self, $body, $header) = @_;
+    die "readNodeCount must be called as object method (\$self is <$self>)" if not blessed($self);
     return $self->SUPER::call({
-    	operation => 'readNodeCount',
+        operation => 'readNodeCount',
         soap_action => 'http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx/readNodeCount',
         style => 'document',
-        body => { 
+        body => {
             
            'use' => 'literal',
             namespace => '',
@@ -38,11 +40,12 @@ sub readNodeCount {
 
 sub GetFortuneCookie {
     my ($self, $body, $header) = @_;
+    die "GetFortuneCookie must be called as object method (\$self is <$self>)" if not blessed($self);
     return $self->SUPER::call({
-    	operation => 'GetFortuneCookie',
+        operation => 'GetFortuneCookie',
         soap_action => 'http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx/GetFortuneCookie',
         style => 'document',
-        body => { 
+        body => {
             
            'use' => 'literal',
             namespace => '',
@@ -60,11 +63,12 @@ sub GetFortuneCookie {
 
 sub CountCookies {
     my ($self, $body, $header) = @_;
+    die "CountCookies must be called as object method (\$self is <$self>)" if not blessed($self);
     return $self->SUPER::call({
-    	operation => 'CountCookies',
+        operation => 'CountCookies',
         soap_action => 'http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx/CountCookies',
         style => 'document',
-        body => { 
+        body => {
             
            'use' => 'literal',
             namespace => '',
@@ -82,11 +86,12 @@ sub CountCookies {
 
 sub GetSpecificCookie {
     my ($self, $body, $header) = @_;
+    die "GetSpecificCookie must be called as object method (\$self is <$self>)" if not blessed($self);
     return $self->SUPER::call({
-    	operation => 'GetSpecificCookie',
+        operation => 'GetSpecificCookie',
         soap_action => 'http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx/GetSpecificCookie',
         style => 'document',
-        body => { 
+        body => {
             
            'use' => 'literal',
             namespace => '',
@@ -117,9 +122,22 @@ __END__
 
 MyInterfaces::FullerData_x0020_Fortune_x0020_Cookie::FullerData_x0020_Fortune_x0020_CookieSoap - SOAP Interface for the FullerData_x0020_Fortune_x0020_Cookie Web Service
 
+=head1 SYNOPSIS
+
+ use MyInterfaces::FullerData_x0020_Fortune_x0020_Cookie::FullerData_x0020_Fortune_x0020_CookieSoap;
+ my $interface = MyInterfaces::FullerData_x0020_Fortune_x0020_Cookie::FullerData_x0020_Fortune_x0020_CookieSoap->new();
+ 
+ my $response;
+ $response = $interface->readNodeCount();
+ $response = $interface->GetFortuneCookie();
+ $response = $interface->CountCookies();
+ $response = $interface->GetSpecificCookie();
+
+ 
+
 =head1 DESCRIPTION
 
-SOAP Interface for the FullerData_x0020_Fortune_x0020_Cookie web service 
+SOAP Interface for the FullerData_x0020_Fortune_x0020_Cookie web service
 located at http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.
 
 =head1 SERVICE FullerData_x0020_Fortune_x0020_Cookie
@@ -142,12 +160,12 @@ All arguments are forwarded to L<SOAP::WSDL::Client|SOAP::WSDL::Client>.
 
 =head2 SOAP Service methods
 
-Method synopsis is displayed with hash refs as parameters. 
+Method synopsis is displayed with hash refs as parameters.
 
-The commented class names in the method's parameters denote that objects 
+The commented class names in the method's parameters denote that objects
 of the corresponding class can be passed instead of the marked hash ref.
 
-You may pass any combination of objects, hash and list refs to these 
+You may pass any combination of objects, hash and list refs to these
 methods, as long as you meet the structure.
 
 
@@ -156,21 +174,21 @@ methods, as long as you meet the structure.
 
 Display the number of nodes specified in fortune XML document
 
- $interface->readNodeCount(,
+ $interface->readNodeCount(,,
  );
  
 =head3 GetFortuneCookie
 
 Get a random fortune cookie from the XML document
 
- $interface->GetFortuneCookie(,
+ $interface->GetFortuneCookie(,,
  );
  
 =head3 CountCookies
 
 Count the actual number of nodes in the XML document of fortunes
 
- $interface->CountCookies(,
+ $interface->CountCookies(,,
  );
  
 =head3 GetSpecificCookie
@@ -179,13 +197,13 @@ Get a specific cookie by the XML node number
 
  $interface->GetSpecificCookie(  {
     index =>  $some_value, # int
-  },
+  },,
  );
  
-	
+
 
 =head1 AUTHOR
 
-Generated by SOAP::WSDL on Tue Nov  6 20:56:46 2007
+Generated by SOAP::WSDL on Sun Dec 16 19:58:30 2007
 
 =pod

example/lib/MyInterfaces/GlobalWeather/GlobalWeatherSoap.pm

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

example/lib/MyInterfaces/HelloWorld/HelloWorldSoap.pm

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

example/lib/MyInterfaces/TestService/TestPort.pm

@@ -0,0 +1,146 @@
+package MyInterfaces::TestService::TestPort;
+use strict;
+use warnings;
+use Class::Std::Fast::Storable;
+use Scalar::Util qw(blessed);
+use base qw(SOAP::WSDL::Client::Base);
+
+# only load if it hasn't been loaded before
+require MyTypemaps::TestService
+    if not MyTypemaps::TestService->can('get_class');
+
+sub START {
+    $_[0]->set_proxy('http://localhost:81/soap-wsdl-test/person.pl') if not $_[2]->{proxy};
+    $_[0]->set_class_resolver('MyTypemaps::TestService')
+        if not $_[2]->{class_resolver};
+}
+
+sub ListPerson {
+    my ($self, $body, $header) = @_;
+    die "ListPerson must be called as object method (\$self is <$self>)" if not blessed($self);
+    return $self->SUPER::call({
+        operation => 'ListPerson',
+        soap_action => 'http://www.example.org/benchmark/ListPerson',
+        style => 'document',
+        body => {
+            
+           'use' => 'literal',
+            namespace => '',
+            encodingStyle => '',
+            parts => [qw( MyElements::ListPerson )],
+        },
+        header => {
+            
+        },
+        headerfault => {
+            
+        }
+    }, $body, $header);
+}
+
+
+
+1;
+
+
+
+__END__
+
+=pod
+
+=head1 NAME
+
+
+MyInterfaces::TestService::TestPort - SOAP Interface for the TestService Web Service
+
+=head1 SYNOPSIS
+
+ use MyInterfaces::TestService::TestPort;
+ my $interface = MyInterfaces::TestService::TestPort->new();
+ 
+ my $response;
+ $response = $interface->ListPerson();
+
+ 
+
+=head1 DESCRIPTION
+
+SOAP Interface for the TestService web service
+located at http://localhost:81/soap-wsdl-test/person.pl.
+
+=head1 SERVICE TestService
+
+
+
+=head2 Port TestPort
+
+
+
+=head1 METHODS
+
+=head2 General methods
+
+=head3 new
+
+Constructor.
+
+All arguments are forwarded to L<SOAP::WSDL::Client|SOAP::WSDL::Client>.
+
+=head2 SOAP Service methods
+
+Method synopsis is displayed with hash refs as parameters.
+
+The commented class names in the method's parameters denote that objects
+of the corresponding class can be passed instead of the marked hash ref.
+
+You may pass any combination of objects, hash and list refs to these
+methods, as long as you meet the structure.
+
+
+
+=head3 ListPerson
+
+
+
+ $interface->ListPerson(  {
+    in =>     { # MyTypes::Person
+      PersonID =>       { # MyTypes::PersonID
+        ID =>  $some_value, # int
+      },
+      Salutation =>  $some_value, # string
+      Name =>  $some_value, # string
+      GivenName =>  $some_value, # string
+      DateOfBirth =>  $some_value, # date
+      HomeAddress =>       { # MyTypes::Address
+        Street =>  $some_value, # string
+        ZIP =>  $some_value, # string
+        City =>  $some_value, # string
+        Country =>  $some_value, # string
+        PhoneNumber => $some_value, # PhoneNumber
+        MobilePhoneNumber => $some_value, # PhoneNumber
+      },
+      WorkAddress =>       { # MyTypes::Address
+        Street =>  $some_value, # string
+        ZIP =>  $some_value, # string
+        City =>  $some_value, # string
+        Country =>  $some_value, # string
+        PhoneNumber => $some_value, # PhoneNumber
+        MobilePhoneNumber => $some_value, # PhoneNumber
+      },
+      Contracts =>       { # MyTypes::ArrayOfContract
+        Contract =>         { # MyTypes::Contract
+          ContractID =>  $some_value, # long
+          ContractName =>  $some_value, # string
+        },
+      },
+    },
+  },,
+ );
+ 
+
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL on Mon Dec  3 22:20:49 2007
+
+=pod

example/lib/MyServer/TestService/TestPort.pm

@@ -0,0 +1,145 @@
+package MyServer::TestService::TestPort;
+use strict;
+use warnings;
+use Class::Std::Fast::Storable;
+use Scalar::Util qw(blessed);
+use base qw(SOAP::WSDL::Client::Base);
+
+# only load if it hasn't been loaded before
+require MyTypemaps::TestService
+    if not MyTypemaps::TestService->can('get_class');
+
+my %transport_class_of :ATTR(:name<transport_class> :default<SOAP::WSDL::Server::CGI>);
+my %transport_of :ATTR(:name<transport> :default<()>);
+my %dispatch_to :ATTR(:name<dispatch_to>);
+
+my $action_map_ref = {
+    'http://www.example.org/benchmark/ListPerson' => 'ListPerson',
+
+};
+
+sub START {
+    my ($self, $ident, $arg_ref) = @_;
+    eval "require $transport_class_of{ $ident }" 
+        or die "Cannot load transport class $transport_class_of{ $ident }: $@";
+    $transport_of{ $ident } = $transport_class_of{ $ident }->new({
+        action_map_ref => $action_map_ref,
+        class_resolver => 'MyTypemaps::TestService',
+        dispatch_to => $dispatch_to{ $ident },
+    });
+}
+
+sub handle {
+    $transport_of{ ${ $_[0] } }->handle();
+}
+
+1;
+
+
+
+__END__
+
+=pod
+
+=head1 NAME
+
+MyInterfaces::TestService::TestPort - SOAP Server Class for the TestService Web Service
+
+=head1 SYNOPSIS
+
+ use MyServer::TestService::TestPort;
+ my $server = MyServer::TestService::TestPort->new({
+    dispatch_to => 'My::Handler::Class',
+    transport_class => 'SOAP::WSDL::Server::CGI',   # optional, default
+ });
+ $server->handle();
+
+
+=head1 DESCRIPTION
+
+SOAP Server handler for the TestService web service
+located at http://localhost:81/soap-wsdl-test/person.pl.
+
+=head1 SERVICE TestService
+
+
+
+=head2 Port TestPort
+
+
+
+=head1 METHODS
+
+=head2 General methods
+
+=head3 new
+
+Constructor.
+
+The C<dispatch_to> argument is mandatory. It must be a class or object 
+implementing the SOAP Service methods listed below.
+
+=head2 SOAP Service methods
+
+Your dispatch_to class has to implement the following methods:
+
+The examples below serve as copy-and-paste prototypes to use in your
+class.
+
+=head3 ListPerson
+
+
+
+ sub ListPerson {
+    my ($self, $body, $header) = @_;
+    # body is a ??? object - sorry, POD not implemented yet
+    # header is a ??? object - sorry, POD not implemented yet
+    
+    # do something with body and header...
+    
+    return  MyElements::ListPersonResponse->new(  {
+    out =>     { # MyTypes::ArrayOfPerson
+      NewElement =>       { # MyTypes::Person
+        PersonID =>         { # MyTypes::PersonID
+          ID =>  $some_value, # int
+        },
+        Salutation =>  $some_value, # string
+        Name =>  $some_value, # string
+        GivenName =>  $some_value, # string
+        DateOfBirth =>  $some_value, # date
+        HomeAddress =>         { # MyTypes::Address
+          Street =>  $some_value, # string
+          ZIP =>  $some_value, # string
+          City =>  $some_value, # string
+          Country =>  $some_value, # string
+          PhoneNumber => $some_value, # PhoneNumber
+          MobilePhoneNumber => $some_value, # PhoneNumber
+        },
+        WorkAddress =>         { # MyTypes::Address
+          Street =>  $some_value, # string
+          ZIP =>  $some_value, # string
+          City =>  $some_value, # string
+          Country =>  $some_value, # string
+          PhoneNumber => $some_value, # PhoneNumber
+          MobilePhoneNumber => $some_value, # PhoneNumber
+        },
+        Contracts =>         { # MyTypes::ArrayOfContract
+          Contract =>           { # MyTypes::Contract
+            ContractID =>  $some_value, # long
+            ContractName =>  $some_value, # string
+          },
+        },
+      },
+    },
+  },
+ );
+
+ }
+
+
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL on Mon Dec  3 22:20:32 2007
+
+=pod

example/lib/MyTypemaps/BarCode.pm

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

example/lib/MyTypemaps/FullerData_x0020_Fortune_x0020_Cookie.pm

@@ -13,7 +13,7 @@ our $typemap_1 = {
                'GetFortuneCookieResponse' => 'MyElements::GetFortuneCookieResponse',
                'Fault' => 'SOAP::WSDL::SOAP::Typelib::Fault11',
                'GetSpecificCookie' => 'MyElements::GetSpecificCookie',
-               'Fault/faultactor' => 'SOAP::WSDL::XSD::Typelib::Builtin::TOKEN',
+               'Fault/faultactor' => 'SOAP::WSDL::XSD::Typelib::Builtin::token',
                'CountCookies' => 'MyElements::CountCookies',
                'GetSpecificCookie/index' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
                'Fault/detail' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
@@ -24,12 +24,16 @@ our $typemap_1 = {
              };
 ;
 
-sub get_class { 
+sub get_class {
   my $name = join '/', @{ $_[1] };
   exists $typemap_1->{ $name } or die "Cannot resolve $name via " . __PACKAGE__;
   return $typemap_1->{ $name };
 }
 
+sub get_typemap {
+    return $typemap_1;
+}
+
 1;
 
 __END__

example/lib/MyTypemaps/GlobalWeather.pm

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

example/lib/MyTypemaps/TestService.pm

@@ -0,0 +1,92 @@
+package MyTypemaps::TestService;
+use strict;
+use warnings;
+
+our $typemap_1 = {
+               'ListPersonResponse/out/NewElement/WorkAddress/Street' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPerson/in/Contracts' => 'MyTypes::ArrayOfContract',
+               'ListPerson/in/HomeAddress/PhoneNumber' => 'MyTypes::PhoneNumber',
+               'ListPersonResponse/out/NewElement/HomeAddress' => 'MyTypes::Address',
+               'ListPersonResponse/out/NewElement/Contracts/Contract' => 'MyTypes::Contract',
+               'ListPersonResponse/out/NewElement/HomeAddress/ZIP' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPerson/in/WorkAddress/City' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPerson/in/HomeAddress' => 'MyTypes::Address',
+               'Fault/faultcode' => 'SOAP::WSDL::XSD::Typelib::Builtin::anyURI',
+               'ListPerson/in/HomeAddress/City' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPersonResponse/out/NewElement/WorkAddress/PhoneNumber' => 'MyTypes::PhoneNumber',
+               'ListPerson/in/WorkAddress/ZIP' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPersonResponse/out/NewElement/Contracts' => 'MyTypes::ArrayOfContract',
+               'ListPerson/in/WorkAddress/Street' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPerson/in' => 'MyTypes::Person',
+               'ListPersonResponse/out/NewElement/GivenName' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPersonResponse/out/NewElement/HomeAddress/PhoneNumber' => 'MyTypes::PhoneNumber',
+               'ListPersonResponse/out/NewElement/HomeAddress/City' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPersonResponse/out/NewElement' => 'MyTypes::Person',
+               'ListPerson/in/PersonID/ID' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+               'ListPerson/in/HomeAddress/Street' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPersonResponse/out/NewElement/PersonID/ID' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+               'ListPerson/in/HomeAddress/Country' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPerson/in/GivenName' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPerson/in/HomeAddress/MobilePhoneNumber' => 'MyTypes::PhoneNumber',
+               'ListPerson/in/Name' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPersonResponse/out/NewElement/PersonID' => 'MyTypes::PersonID',
+               'ListPersonResponse/out/NewElement/WorkAddress/MobilePhoneNumber' => 'MyTypes::PhoneNumber',
+               'ListPersonResponse/out' => 'MyTypes::ArrayOfPerson',
+               'ListPerson/in/Contracts/Contract' => 'MyTypes::Contract',
+               'ListPersonResponse/out/NewElement/Name' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPersonResponse/out/NewElement/WorkAddress/ZIP' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPerson/in/DateOfBirth' => 'SOAP::WSDL::XSD::Typelib::Builtin::date',
+               'ListPersonResponse/out/NewElement/HomeAddress/MobilePhoneNumber' => 'MyTypes::PhoneNumber',
+               'ListPersonResponse/out/NewElement/HomeAddress/Country' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'Fault/faultstring' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPersonResponse/out/NewElement/HomeAddress/Street' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPersonResponse/out/NewElement/Contracts/Contract/ContractName' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'Fault' => 'SOAP::WSDL::SOAP::Typelib::Fault11',
+               'ListPerson/in/Contracts/Contract/ContractName' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPersonResponse' => 'MyElements::ListPersonResponse',
+               'ListPersonResponse/out/NewElement/Salutation' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPersonResponse/out/NewElement/WorkAddress/City' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'Fault/faultactor' => 'SOAP::WSDL::XSD::Typelib::Builtin::token',
+               'ListPerson' => 'MyElements::ListPerson',
+               'ListPerson/in/Salutation' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPerson/in/WorkAddress/MobilePhoneNumber' => 'MyTypes::PhoneNumber',
+               'Fault/detail' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPerson/in/WorkAddress/Country' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPerson/in/PersonID' => 'MyTypes::PersonID',
+               'ListPerson/in/HomeAddress/ZIP' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPersonResponse/out/NewElement/WorkAddress' => 'MyTypes::Address',
+               'ListPersonResponse/out/NewElement/DateOfBirth' => 'SOAP::WSDL::XSD::Typelib::Builtin::date',
+               'ListPerson/in/WorkAddress/PhoneNumber' => 'MyTypes::PhoneNumber',
+               'ListPersonResponse/out/NewElement/WorkAddress/Country' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+               'ListPersonResponse/out/NewElement/Contracts/Contract/ContractID' => 'SOAP::WSDL::XSD::Typelib::Builtin::long',
+               'ListPerson/in/Contracts/Contract/ContractID' => 'SOAP::WSDL::XSD::Typelib::Builtin::long',
+               'ListPerson/in/WorkAddress' => 'MyTypes::Address'
+             };
+;
+
+sub get_class {
+  my $name = join '/', @{ $_[1] };
+  exists $typemap_1->{ $name } or die "Cannot resolve $name via " . __PACKAGE__;
+  return $typemap_1->{ $name };
+}
+
+sub get_typemap {
+    return $typemap_1;
+}
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+MyTypemaps::TestService; - typemap for ::TestService;
+
+=head1 DESCRIPTION
+
+Typemap created by SOAP::WSDL for map-based SOAP message parsers.
+
+=cut
+

example/lib/MyTypes/Address.pm

@@ -0,0 +1,98 @@
+package MyTypes::Address;
+use strict;
+use warnings;
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %Street_of :ATTR(:get<Street>);
+my %ZIP_of :ATTR(:get<ZIP>);
+my %City_of :ATTR(:get<City>);
+my %Country_of :ATTR(:get<Country>);
+my %PhoneNumber_of :ATTR(:get<PhoneNumber>);
+my %MobilePhoneNumber_of :ATTR(:get<MobilePhoneNumber>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        Street
+        ZIP
+        City
+        Country
+        PhoneNumber
+        MobilePhoneNumber
+    ) ],
+    {
+        Street => \%Street_of,
+        ZIP => \%ZIP_of,
+        City => \%City_of,
+        Country => \%Country_of,
+        PhoneNumber => \%PhoneNumber_of,
+        MobilePhoneNumber => \%MobilePhoneNumber_of,
+    },
+    {
+        Street => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        ZIP => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        City => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        Country => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        PhoneNumber => 'MyTypes::PhoneNumber',
+        MobilePhoneNumber => 'MyTypes::PhoneNumber',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+1;
+
+=pod
+
+=head1 NAME
+
+MyTypes::Address
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined complextype
+Address from the namespace http://www.example.org/benchmark/.
+
+=head2 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+ Street
+ ZIP
+ City
+ Country
+ PhoneNumber
+ MobilePhoneNumber
+
+
+=head1 METHODS
+
+=head2 new
+
+Constructor. The following data structure may be passed to new():
+
+ { # MyTypes::Address
+   Street =>  $some_value, # string
+   ZIP =>  $some_value, # string
+   City =>  $some_value, # string
+   Country =>  $some_value, # string
+   PhoneNumber => $some_value, # PhoneNumber
+   MobilePhoneNumber => $some_value, # PhoneNumber
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

example/lib/MyTypes/ArrayOfContract.pm

@@ -0,0 +1,71 @@
+package MyTypes::ArrayOfContract;
+use strict;
+use warnings;
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %Contract_of :ATTR(:get<Contract>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        Contract
+    ) ],
+    {
+        Contract => \%Contract_of,
+    },
+    {
+        Contract => 'MyTypes::Contract',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+1;
+
+=pod
+
+=head1 NAME
+
+MyTypes::ArrayOfContract
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined complextype
+ArrayOfContract from the namespace http://www.example.org/benchmark/.
+
+=head2 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+ Contract
+
+
+=head1 METHODS
+
+=head2 new
+
+Constructor. The following data structure may be passed to new():
+
+ { # MyTypes::ArrayOfContract
+   Contract =>    { # MyTypes::Contract
+     ContractID =>  $some_value, # long
+     ContractName =>  $some_value, # string
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

example/lib/MyTypes/ArrayOfPerson.pm

@@ -0,0 +1,98 @@
+package MyTypes::ArrayOfPerson;
+use strict;
+use warnings;
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %NewElement_of :ATTR(:get<NewElement>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        NewElement
+    ) ],
+    {
+        NewElement => \%NewElement_of,
+    },
+    {
+        NewElement => 'MyTypes::Person',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+1;
+
+=pod
+
+=head1 NAME
+
+MyTypes::ArrayOfPerson
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined complextype
+ArrayOfPerson from the namespace http://www.example.org/benchmark/.
+
+=head2 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+ NewElement
+
+
+=head1 METHODS
+
+=head2 new
+
+Constructor. The following data structure may be passed to new():
+
+ { # MyTypes::ArrayOfPerson
+   NewElement =>    { # MyTypes::Person
+     PersonID =>      { # MyTypes::PersonID
+       ID =>  $some_value, # int
+     },
+     Salutation =>  $some_value, # string
+     Name =>  $some_value, # string
+     GivenName =>  $some_value, # string
+     DateOfBirth =>  $some_value, # date
+     HomeAddress =>      { # MyTypes::Address
+       Street =>  $some_value, # string
+       ZIP =>  $some_value, # string
+       City =>  $some_value, # string
+       Country =>  $some_value, # string
+       PhoneNumber => $some_value, # PhoneNumber
+       MobilePhoneNumber => $some_value, # PhoneNumber
+     },
+     WorkAddress =>      { # MyTypes::Address
+       Street =>  $some_value, # string
+       ZIP =>  $some_value, # string
+       City =>  $some_value, # string
+       Country =>  $some_value, # string
+       PhoneNumber => $some_value, # PhoneNumber
+       MobilePhoneNumber => $some_value, # PhoneNumber
+     },
+     Contracts =>      { # MyTypes::ArrayOfContract
+       Contract =>        { # MyTypes::Contract
+         ContractID =>  $some_value, # long
+         ContractName =>  $some_value, # string
+       },
+     },
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

example/lib/MyTypes/BarCodeData.pm

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

example/lib/MyTypes/BarcodeOption.pm

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

example/lib/MyTypes/BarcodeType.pm

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

example/lib/MyTypes/CheckSumMethod.pm

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

example/lib/MyTypes/Contract.pm

@@ -0,0 +1,74 @@
+package MyTypes::Contract;
+use strict;
+use warnings;
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %ContractID_of :ATTR(:get<ContractID>);
+my %ContractName_of :ATTR(:get<ContractName>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        ContractID
+        ContractName
+    ) ],
+    {
+        ContractID => \%ContractID_of,
+        ContractName => \%ContractName_of,
+    },
+    {
+        ContractID => 'SOAP::WSDL::XSD::Typelib::Builtin::long',
+        ContractName => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+1;
+
+=pod
+
+=head1 NAME
+
+MyTypes::Contract
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined complextype
+Contract from the namespace http://www.example.org/benchmark/.
+
+=head2 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+ ContractID
+ ContractName
+
+
+=head1 METHODS
+
+=head2 new
+
+Constructor. The following data structure may be passed to new():
+
+ { # MyTypes::Contract
+   ContractID =>  $some_value, # long
+   ContractName =>  $some_value, # string
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

example/lib/MyTypes/ImageFormats.pm

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

example/lib/MyTypes/Person.pm

@@ -0,0 +1,131 @@
+package MyTypes::Person;
+use strict;
+use warnings;
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %PersonID_of :ATTR(:get<PersonID>);
+my %Salutation_of :ATTR(:get<Salutation>);
+my %Name_of :ATTR(:get<Name>);
+my %GivenName_of :ATTR(:get<GivenName>);
+my %DateOfBirth_of :ATTR(:get<DateOfBirth>);
+my %HomeAddress_of :ATTR(:get<HomeAddress>);
+my %WorkAddress_of :ATTR(:get<WorkAddress>);
+my %Contracts_of :ATTR(:get<Contracts>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        PersonID
+        Salutation
+        Name
+        GivenName
+        DateOfBirth
+        HomeAddress
+        WorkAddress
+        Contracts
+    ) ],
+    {
+        PersonID => \%PersonID_of,
+        Salutation => \%Salutation_of,
+        Name => \%Name_of,
+        GivenName => \%GivenName_of,
+        DateOfBirth => \%DateOfBirth_of,
+        HomeAddress => \%HomeAddress_of,
+        WorkAddress => \%WorkAddress_of,
+        Contracts => \%Contracts_of,
+    },
+    {
+        PersonID => 'MyTypes::PersonID',
+        Salutation => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        Name => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        GivenName => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        DateOfBirth => 'SOAP::WSDL::XSD::Typelib::Builtin::date',
+        HomeAddress => 'MyTypes::Address',
+        WorkAddress => 'MyTypes::Address',
+        Contracts => 'MyTypes::ArrayOfContract',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+1;
+
+=pod
+
+=head1 NAME
+
+MyTypes::Person
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined complextype
+Person from the namespace http://www.example.org/benchmark/.
+
+=head2 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+ PersonID
+ Salutation
+ Name
+ GivenName
+ DateOfBirth
+ HomeAddress
+ WorkAddress
+ Contracts
+
+
+=head1 METHODS
+
+=head2 new
+
+Constructor. The following data structure may be passed to new():
+
+ { # MyTypes::Person
+   PersonID =>    { # MyTypes::PersonID
+     ID =>  $some_value, # int
+   },
+   Salutation =>  $some_value, # string
+   Name =>  $some_value, # string
+   GivenName =>  $some_value, # string
+   DateOfBirth =>  $some_value, # date
+   HomeAddress =>    { # MyTypes::Address
+     Street =>  $some_value, # string
+     ZIP =>  $some_value, # string
+     City =>  $some_value, # string
+     Country =>  $some_value, # string
+     PhoneNumber => $some_value, # PhoneNumber
+     MobilePhoneNumber => $some_value, # PhoneNumber
+   },
+   WorkAddress =>    { # MyTypes::Address
+     Street =>  $some_value, # string
+     ZIP =>  $some_value, # string
+     City =>  $some_value, # string
+     Country =>  $some_value, # string
+     PhoneNumber => $some_value, # PhoneNumber
+     MobilePhoneNumber => $some_value, # PhoneNumber
+   },
+   Contracts =>    { # MyTypes::ArrayOfContract
+     Contract =>      { # MyTypes::Contract
+       ContractID =>  $some_value, # long
+       ContractName =>  $some_value, # string
+     },
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

example/lib/MyTypes/PersonID.pm

@@ -0,0 +1,68 @@
+package MyTypes::PersonID;
+use strict;
+use warnings;
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %ID_of :ATTR(:get<ID>);
+
+__PACKAGE__->_factory(
+    [ qw(
+        ID
+    ) ],
+    {
+        ID => \%ID_of,
+    },
+    {
+        ID => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+1;
+
+=pod
+
+=head1 NAME
+
+MyTypes::PersonID
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined complextype
+PersonID from the namespace http://www.example.org/benchmark/.
+
+=head2 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+ ID
+
+
+=head1 METHODS
+
+=head2 new
+
+Constructor. The following data structure may be passed to new():
+
+ { # MyTypes::PersonID
+   ID =>  $some_value, # int
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

example/lib/MyTypes/PhoneNumber.pm

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

example/lib/MyTypes/ShowTextPosition.pm

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

example/person.pl

@@ -0,0 +1,10 @@
+use lib 'lib';
+use MyInterfaces::TestService::TestPort;
+
+my $soap = MyInterfaces::TestService::TestPort->new();
+$soap->outputxml(1);
+my $result = $soap->ListPerson({});
+
+# print "Found " . scalar @{ $result->get_out->get_NewElement } . " persons\n";
+
+print $result;

example/person_compile.pl

@@ -0,0 +1,21 @@
+#!/usr/bin/perl -w
+use strict;
+use warnings;
+use XML::Compile::WSDL11;
+use XML::Compile::Transport::SOAPHTTP;
+
+my $wsdl = XML::Compile::WSDL11->new('wsdl/Person.wsdl');
+
+# I have to lookup the methods from the WSDL
+my $call = $wsdl->compileClient('ListPerson');
+
+# I have to lookup the parameters from the WSDL
+my $result = $call->({ in => undef});
+
+die "Error calling soap method" if not defined $result;
+
+# I have to lookup the output parameters from the WSDL - or try Dumper
+#use Data::Dumper;
+#print Dumper $result;
+
+print "Found ", scalar @{ $result->{ parameters }->{ out }->{ seq_NewElement }->[0]->{ NewElement } } , " persons\n";

example/wsdl/Person.wsdl

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

lib/SOAP/WSDL.pm

@@ -669,16 +669,16 @@ The following facets have no influence yet:
 
 =item * L<SOAP::Lite|SOAP::Lite>
 
-Full featured SOAP-library, little WSDL support. Supports rpc-encoded style only. Many protocols supported.
+Full featured SOAP-library, little WSDL support. Supports rpc-encoded style 
+only. Many protocols supported.
 
 =item * L<XML::Compile::WSDL|XML::Compile::WSDL> / L<XML::Compile::SOAP|XML::Compile::SOAP>
 
-A promising-looking approach derived from a cool functional DOM-based XML schema parser.
+Creates parser/generator functions for SOAP messages. Includes SOAP Client 
+and Server implementatios.
 
-Will support encoding/decoding of SOAP messages based on WSDL definitions.
+You might want to give it a try, especially if you need to adhere very
-
+closely to the XML Schema / WSDL specs.
-Not yet finished at the time of writing - but you may wish to give it a try, especially
-if you need to adhere very closely to the XML Schema / WSDL specs.
 
 =back
 
@@ -730,9 +730,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 427 $
+ $Rev: 457 $
  $LastChangedBy: kutterma $
- $Id: WSDL.pm 427 2007-12-02 22:20:24Z kutterma $
+ $Id: WSDL.pm 457 2007-12-16 08:02:06Z kutterma $
  $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL.pm $
 
 =cut

lib/SOAP/WSDL/Base.pm

@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
 use List::Util qw(first);
 use Carp qw(croak carp confess);
 
-our $VERSION='2.00_25';
+our $VERSION='2.00_27';
 
 my %id_of :ATTR(:name<id> :default<()>);
 my %name_of :ATTR(:name<name> :default<()>);
@@ -14,6 +14,11 @@ my %targetNamespace_of :ATTR(:name<targetNamespace> :default<()>);
 my %xmlns_of :ATTR(:name<xmlns> :default<{}>);
 my %parent_of :ATTR(:name<parent> :default<()>);
 
+sub START {
+    my ($self, $ident, $arg_ref) = @_;
+    $xmlns_of{ $ident }->{ '#default' } = $self->get_xmlns()->{ '#default' };
+}
+
 sub DEMOLISH {
   my $self = shift;
   # delete upward references
@@ -82,7 +87,7 @@ sub AUTOMETHOD {
             return $result_ref->[0];
         };
     }
-    confess "$subname not found in class " . (ref $self || $self) ;
+    confess "$subname not found in class " . ref $self;
 }
 
 sub init {
@@ -95,11 +100,6 @@ sub init {
             $xmlns_of{ ident $self }->{ $value->{ LocalName } } = $value->{ Value };
             next;
         }
-        elsif ($value->{ Name } =~m{^xmlns$}xms) {
-            # just ignore xmlns = for now
-            # TODO handle xmlns correctly - maybe via setting a prefix ?
-            next;
-        }
 
         my $name = $value->{ LocalName };
         my $method = "set_$name";
@@ -110,16 +110,23 @@ sub init {
 
 sub expand {
     my ($self, , $qname) = @_;
+    my $ns_of = $self->get_xmlns();
+    if (not $qname=~m{:}xm) {
+        die "un-prefixed element name <$qname> found, but no default namespace set\n"
+            if not defined $ns_of->{ '#default' };
+        return $ns_of->{ '#default' }, $qname;
+    }
+
     my ($prefix, $localname) = split /:/x, $qname;
-    # my %ns_map = reverse %{ $self->get_xmlns() };
+
-    my %ns_map = %{ $self->get_xmlns() };
+
-    return ($ns_map{ $prefix }, $localname) if ($ns_map{ $prefix });
+    return ($ns_of->{ $prefix }, $localname) if ($ns_of->{ $prefix });
 
     if (my $parent = $self->get_parent()) {
         return $parent->expand($qname);
     }
     confess "unbound prefix $prefix found for $prefix:$localname. Bound prefixes are"
-        . join(', ', keys %ns_map);
+        . join(', ', keys %{ $ns_of });
 }
 sub _expand;
 *_expand = \&expand;

lib/SOAP/WSDL/Client.pm

@@ -11,7 +11,7 @@ use SOAP::WSDL::Factory::Serializer;
 use SOAP::WSDL::Factory::Transport;
 use SOAP::WSDL::Expat::MessageParser;
 
-our $VERSION = '2.00_25';
+our $VERSION = '2.00_27';
 
 my %class_resolver_of   :ATTR(:name<class_resolver> :default<()>);
 my %no_dispatch_of      :ATTR(:name<no_dispatch>    :default<()>);
@@ -268,17 +268,6 @@ Default:
 
  text/xml; charset: utf8
 
-=head3 set_trace
-
- $soap->set_trace(1);
- $soap->set_trace( sub { Log::Log4perl::get_logger()->debug( @_ ) } );
-
-When set to a true value, tracing (via warn) is enabled.
-
-When set to a code reference, this function will be called on every
-trace call, making it really easy for you to set up log4perl logging
-or whatever you need.
-
 =head2 Features different from SOAP::Lite
 
 SOAP::WSDL does not aim to be a complete replacement for SOAP::Lite - the
@@ -371,9 +360,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 427 $
+ $Rev: 455 $
  $LastChangedBy: kutterma $
- $Id: Client.pm 427 2007-12-02 22:20:24Z kutterma $
+ $Id: Client.pm 455 2007-12-14 15:50:16Z kutterma $
  $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client.pm $
 
 =cut

lib/SOAP/WSDL/Client/Base.pm

@@ -10,9 +10,16 @@ sub call {
     my ($self, $method, $body, $header) = @_;
     if (not blessed $body) {
         $body = {} if not defined $body;
-        my $class = $method->{ body }->{ parts }->[0];
+        $body = ref $body eq 'ARRAY' ? $body : [ $body ];
-        eval "require $class" || die $@;
+        my $index = 0;
-        $body = $class->new($body);
+        my @part_from;
+        foreach my $part (@{ $body }) {
+            my $class = $method->{ body }->{ parts }->[$index];
+            eval "require $class" || die $@;
+            push @part_from, $class->new($part);
+            $index++;
+        }
+        $body = $#part_from ? \@part_from : $part_from[0];
     }
 
     # if we have a header
@@ -94,9 +101,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 427 $
+ $Rev: 440 $
  $LastChangedBy: kutterma $
- $Id: Base.pm 427 2007-12-02 22:20:24Z kutterma $
+ $Id: Base.pm 440 2007-12-04 22:24:33Z kutterma $
  $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client/Base.pm $
 
 =cut

lib/SOAP/WSDL/Definitions.pm

@@ -18,7 +18,7 @@ my %binding_of  :ATTR(:name<binding>    :default<()>);
 my %service_of  :ATTR(:name<service>    :default<()>);
 my %namespace_of  :ATTR(:name<namespace> :default<()>);
 
-# must be attr for Class::Std::Storable
+# must be attr for Class::Std::Fast::Storable
 my %attributes_of :ATTR();
 %attributes_of = (
     binding => \%binding_of,
@@ -118,9 +118,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 427 $
+ $Rev: 431 $
  $LastChangedBy: kutterma $
- $Id: Definitions.pm 427 2007-12-02 22:20:24Z kutterma $
+ $Id: Definitions.pm 431 2007-12-03 19:39:11Z kutterma $
  $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Definitions.pm $
 
 =cut

lib/SOAP/WSDL/Expat/MessageParser.pm

@@ -48,7 +48,7 @@ sub load_classes {
 
         # a bad test - do you know a better one?
         next if $class eq '__SKIP__';
-        next if defined @{ "$class\::ISA"}; # check if namespace exists
+        next if defined *{ "$class\::" }; # check if namespace exists
 
         $class =~s{ :: }{/}xmsg;
         $class .= '.pm';
@@ -289,8 +289,8 @@ This module may be used under the same terms as perl itself.
 
  $ID: $
 
- $LastChangedDate: 2007-12-02 23:20:24 +0100 (So, 02 Dez 2007) $
+ $LastChangedDate: 2007-12-07 21:04:06 +0100 (Fr, 07 Dez 2007) $
- $LastChangedRevision: 427 $
+ $LastChangedRevision: 444 $
  $LastChangedBy: kutterma $
 
  $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageParser.pm $

lib/SOAP/WSDL/Expat/WSDLParser.pm

@@ -5,7 +5,7 @@ use Carp;
 use SOAP::WSDL::TypeLookup;
 use base qw(SOAP::WSDL::Expat::Base);
 
-our $VERSION = q{2.00_25};
+our $VERSION = q{2.00_27};
 
 sub _initialize {
     my ($self, $parser) = @_;
@@ -36,7 +36,9 @@ sub _initialize {
                 eval "require $action->{ class }";
                 croak $@ if ($@);
 
-                my $obj = $action->{ class }->new({ parent => $current })
+                my $obj = $action->{ class }->new({ parent => $current,
+                    xmlns => { '#default' => $parser->namespace($localname) }
+                    })
                   ->init( _fixup_attrs( $parser, %attrs ) );
 
                 if ($current) {

lib/SOAP/WSDL/Factory/Transport.pm

@@ -37,8 +37,10 @@ sub get_transport {
     $scheme =~s{ \A ([^\:]+) \: .+ }{$1}smx;
 
     if ($registered_transport_of{ $scheme }) {
-        eval "require $registered_transport_of{ $scheme }"
+        no strict qw(refs);
-            or die "Cannot load transport class $registered_transport_of{ $scheme } : $@";
+        defined %{ "$registered_transport_of{ $scheme }::" }
+            or eval "require $registered_transport_of{ $scheme }"
+                or die "Cannot load transport class $registered_transport_of{ $scheme } : $@";
 
         # try "foo::Client" class first - SOAP::Tranport always requires
         # a package withoug the ::Client appended, and then
@@ -68,8 +70,10 @@ sub get_transport {
     }
 
     if (exists $SOAP_WSDL_TRANSPORT_OF{ $scheme }) {
-        eval "require $SOAP_WSDL_TRANSPORT_OF{ $scheme }"
+        no strict qw(refs);
-            or die "Cannot load transport class $SOAP_WSDL_TRANSPORT_OF{ $scheme } : $@";
+        defined %{ "$SOAP_WSDL_TRANSPORT_OF{ $scheme }::" }
+            or eval "require $SOAP_WSDL_TRANSPORT_OF{ $scheme }"
+                or die "Cannot load transport class $SOAP_WSDL_TRANSPORT_OF{ $scheme } : $@";
         return $SOAP_WSDL_TRANSPORT_OF{ $scheme }->new( %attrs );
     }
 
@@ -236,9 +240,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 427 $
+ $Rev: 459 $
  $LastChangedBy: kutterma $
- $Id: Transport.pm 427 2007-12-02 22:20:24Z kutterma $
+ $Id: Transport.pm 459 2007-12-16 16:00:14Z kutterma $
  $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Transport.pm $
  
 =cut

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

@@ -55,9 +55,11 @@ sub generate {
 }
 
 sub generate_typelib {
-    my ($self) = @_;
+    my ($self, $arg_ref) = @_;
     # $output_of{ ident $self } = "";
-    my @schema = @{ $self->get_definitions()->first_types()->get_schema() };
+    my @schema = exists $arg_ref->{ schema } 
+        ? @{ $arg_ref->{schema} } 
+        : @{ $self->get_definitions()->first_types()->get_schema() };
     for my $type (map { @{ $_->get_type() } , @{ $_->get_element() } } @schema[1..$#schema] ) {
         $type->_accept( $self );
     }
@@ -164,6 +166,7 @@ sub _generate_filename :PRIVATE {
     my ($self, @parts) = @_;
     my $name = join '::', @parts;
     $name =~s{ \. }{::}xmsg;
+    $name =~s{ \- }{_}xmsg;
     $name =~s{ :: }{/}xmsg;
     return "$name.pm";
 }

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

@@ -1,4 +1,4 @@
-package [% interface_prefix %]::[% service.get_name.replace('\.', '::') %]::[% port.get_name.replace('^.+\.','') %];
+package [% interface_prefix %]::[% service.get_name.replace('\.', '::').replace('-', '_') %]::[% port.get_name.replace('^.+\.','').replace('-', '_') %];
 use strict;
 use warnings;
 use Class::Std::Fast::Storable;
@@ -6,12 +6,12 @@ use Scalar::Util qw(blessed);
 use base qw(SOAP::WSDL::Client::Base);
 
 # only load if it hasn't been loaded before
-require [% typemap_prefix %]::[% service.get_name.replace('\.', '::') %]
+require [% typemap_prefix %]::[% service.get_name.replace('\.', '::').replace('-', '_') %]
-    if not [% typemap_prefix %]::[% service.get_name.replace('\.', '::') %]->can('get_class');
+    if not [% typemap_prefix %]::[% service.get_name.replace('\.', '::').replace('-', '_') %]->can('get_class');
 
 sub START {
     $_[0]->set_proxy('[% port.first_address.get_location %]') if not $_[2]->{proxy};
-    $_[0]->set_class_resolver('[% typemap_prefix %]::[% service.get_name.replace('\.', '::') %]')
+    $_[0]->set_class_resolver('[% typemap_prefix %]::[% service.get_name.replace('\.', '::').replace('-', '_') %]')
         if not $_[2]->{class_resolver};
 }
 
@@ -34,12 +34,12 @@ __END__
 =head1 NAME
 
 
-[% interface_prefix %]::[% service.get_name.replace('\.', '::') %]::[% port.get_name.replace('\.', '::') %] - SOAP Interface for the [% service.get_name %] Web Service
+[% interface_prefix %]::[% service.get_name.replace('\.', '::').replace('-', '_') %]::[% port.get_name.replace('\.', '::').replace('-', '_') %] - SOAP Interface for the [% service.get_name %] Web Service
 
 =head1 SYNOPSIS
 
- use [% interface_prefix %]::[% service.get_name.replace('\.', '::') %]::[% port.get_name.replace('\.', '::') %];
+ use [% interface_prefix %]::[% service.get_name.replace('\.', '::').replace('-', '_') %]::[% port.get_name.replace('\.', '::').replace('-', '_') %];
- my $interface = [% interface_prefix %]::[% service.get_name.replace('\.', '::') %]::[% port.get_name.replace('\.', '::') %]->new();
+ my $interface = [% interface_prefix %]::[% service.get_name.replace('\.', '::').replace('-', '_') %]::[% port.get_name.replace('\.', '::').replace('-', '_') %]->new();
  
  my $response;
 [%      FOREACH operation = binding.get_operation;

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

@@ -55,6 +55,11 @@
                     : die "input must have either type or element";
         } @{ $part_from };
     }
+
+    warn "Multiple parts detected in message " . $stash->{ message }->get_name() . ".\n",
+        "WS-I BP demands 0 to 1 parts in message body\n"
+        if (@parts > 1);
+
     $stash->{ parts } = \@parts;
 
 [% END %]

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

@@ -4,7 +4,7 @@
     port_op = type.find_operation( definitions.get_targetNamespace, operation.get_name );
 port_op.get_documentation %]
 
- sub [% operation.get_name %](
+ sub [% operation.get_name %] {
     my ($self, $body, $header) = @_;
     # body is a ??? object - sorry, POD not implemented yet
     # header is a ??? object - sorry, POD not implemented yet

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

@@ -22,7 +22,7 @@ __END__
 
 =head1 NAME
 
-[% typemap_prefix %]::[% service.get_name.replace('\.','::') %]; - typemap for ::[% service.get_name %];
+[% typemap_prefix %]::[% service.get_name.replace('\.','::').replace('-', '_') %]; - typemap for ::[% service.get_name %];
 
 =head1 DESCRIPTION
 

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

@@ -1,4 +1,4 @@
-package [% type_prefix %]::[% complexType.get_name %];
+package [% type_prefix %]::[% complexType.get_name.replace('\.','::').replace('-','_') %];
 use strict;
 use warnings;
 [% INCLUDE complexType/contentModel.tt %]
@@ -12,7 +12,7 @@ use warnings;
 
 =head1 NAME
 
-[% type_prefix %]::[% complexType.get_name %]
+[% type_prefix %]::[% complexType.get_name.replace('\.','::').replace('-','_') %]
 
 =head1 DESCRIPTION
 

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

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

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

@@ -1,4 +1,4 @@
-package [% element_prefix %]::[% element.get_name %];
+package [% element_prefix %]::[% element.get_name.replace('\.','::') %];
 use strict;
 use warnings;
 

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

@@ -1,4 +1,4 @@
-package [% type_prefix %]::[% simpleType.get_name %];
+package [% type_prefix %]::[% simpleType.get_name.replace('\.','::').replace('-','_') %];
 use strict;
 use warnings;
 
@@ -13,7 +13,7 @@ sub get_xmlns { '[% simpleType.get_targetNamespace %]'};
 
 =pod
 
-=head1 [% type_prefix %]::[% simpleType.get_name %]
+=head1 [% type_prefix %]::[% simpleType.get_name.replace('\.','::').replace('-','_') %]
 
 =head1 DESCRIPTION
 

lib/SOAP/WSDL/Generator/Visitor/Typemap.pm

@@ -123,7 +123,7 @@ sub visit_Part {
     # TODO: auto-generate element for RPC bindings
     if ( my $type_name = $part->get_type ) {
         # FIXME support RPC-style calls
-        die "unsupported global type <$type_name> found in part";
+        die "unsupported global type <$type_name> found in part ". $part->get_name();
     }
 
     # TODO factor out iterator or replace by lookup (probably better)
@@ -211,6 +211,8 @@ sub visit_XSD_Element {
 
         # for atomic and complex types , and ref elements
         my $typeclass = join q{::}, $element_prefix_of{$ident}, $element->get_name();
+        $typeclass =~s{\.}{::}g;
+        $typeclass =~s{\-}{_}g;
         $self->set_typemap_entry($typeclass);
 
         $self->process_atomic_type( $element->first_complexType()
@@ -225,6 +227,8 @@ sub visit_XSD_Element {
     if (not defined($parent)) {
         # for atomic and complex types , and ref elements
         my $typeclass = join q{::}, $element_prefix_of{$ident}, $element->get_name();
+        $typeclass =~s{\.}{::}g;
+        $typeclass =~s{\-}{_}g;
         $self->set_typemap_entry($typeclass);
     }
 

lib/SOAP/WSDL/Manual.pod

@@ -12,7 +12,7 @@ SOAP::WSDL::Manual - Accessing WSDL based web services
 
 =item * Create WSDL bindings
 
- perl wsdl2perl.pl -b base_dir URL
+  perl wsdl2perl.pl -b base_dir URL
 
 =item * Look what has been generated
 
@@ -37,7 +37,7 @@ The results of all calls to your service object's methods (except new) are
 objects based on SOAP::WSDL's XML schema implementation.
 
 To access the object's properties use get_NAME / set_NAME getter/setter
-methods whith NAME corresponding to the XML tag name / the hash structure as
+methods with NAME corresponding to the XML tag name / the hash structure as
 showed in the generated pod.
 
 =item  * Run script
@@ -91,7 +91,7 @@ and you may even want to add custom typemap elements.
 
 There should be a bunch of classes for types (in the MyTypes:: namespace by
 default), elements (in MyElements::), and at least one typemap (in
-MyTypemaps::) and one ore more interface classes (in MyInterfaces::).
+MyTypemaps::) and one or more interface classes (in MyInterfaces::).
 
 If you don't already know the details of the web service you're going to
 instrument, it's now time to read the perldoc of the generated interface
@@ -111,7 +111,7 @@ included perldoc will be, too - if not, blame the web service author.
  print $result;
 
 The above handling of errors ("die $result if not $result") may look a bit
-strange - it is due to the nature of
+strange - it is due to the nature of the 
 L<SOAP::WSDL::SOAP::Typelib::Fault11|SOAP::WSDL::SOAP::Typelib::Fault11>
 objects SOAP::WSDL uses for signalling failure.
 
@@ -144,12 +144,12 @@ generated classes - while generated classes may be many, you probably will
 only implement a few by hand. These (precious) few classes may get lost in
 the mass of (cheap) generated ones. Just imagine one of your co-workers (or
 even yourself) deleting the whole bunch and re-generating everything - oops
-- almost everything. You got the point.
+- almost everything. You get the point.
 
 For simplicity, you probably just want to use builtin types wherever possible
 - you are probably not interested in whether a fault detail's error code is
 presented to you as a simpleType ranging from 1 to 10 (which you have to
-write) or as a int (which is a builtin type ready to use).
+write) or as an int (which is a builtin type ready to use).
 
 Using builtin types for simpleType definitions may greatly reduce the number
 of additional classes you need to implement.
@@ -230,6 +230,17 @@ L<SOAP::WSDL::Manual::Parser> will tell you how to create a typemap class.
 
 =back
 
+=head1 Creating a SOAP Server
+
+Creating a SOAP server works just like creating a client - just add the 
+C<--server> or C<-s> option to the call to C<wsdl2perl.pl>.
+
+ perl wsdl2perl.pl -s -b BASE_DIR URL
+
+Note that SOAP::WSDL only includes a basic CGI based SOAP servers by now -
+while more advanced servers (like standalone or mod_perl based) are no big
+deal, no base implementation is included yet.
+
 =head1 Troubleshooting
 
 =head2 Accessing HTTPS webservices

lib/SOAP/WSDL/Serializer/XSD.pm

@@ -3,7 +3,7 @@ package SOAP::WSDL::Serializer::XSD;
 use strict;
 use warnings;
 use Class::Std::Fast::Storable;
-
+use Scalar::Util qw(blessed);
 our $VERSION=q{2.00_25};
 
 my $SOAP_NS = 'http://schemas.xmlsoap.org/soap/envelope/';
@@ -49,7 +49,7 @@ sub serialize_header {
     return q{} if not $data;
     return join ( q{},
         "<$opt->{ namespace }->{ $SOAP_NS }\:Header>",
-        "$data",
+        blessed $data ? $data->serialize_qualified : (),
         "</$opt->{ namespace }->{ $SOAP_NS }\:Header>",
     );
 }
@@ -61,7 +61,13 @@ sub serialize_body {
     # if we have no data.
     return join ( q{},
         "<$opt->{ namespace }->{ $SOAP_NS }\:Body>",
-        defined $data ? "$data" : (),
+        defined $data
+            ? ref $data eq 'ARRAY' 
+                ? join q{}, map { blessed $_ ? $_->serialize_qualified() : () } @{ $data }
+                : blessed $data 
+                    ? $data->serialize_qualified 
+                    : ()
+            : (),
         "</$opt->{ namespace }->{ $SOAP_NS }\:Body>",
     );
 }
@@ -113,9 +119,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 427 $
+ $Rev: 444 $
  $LastChangedBy: kutterma $
- $Id: XSD.pm 427 2007-12-02 22:20:24Z kutterma $
+ $Id: XSD.pm 444 2007-12-07 20:04:06Z kutterma $
  $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Serializer/XSD.pm $
  
 =cut

lib/SOAP/WSDL/Server/CGI.pm

@@ -9,11 +9,10 @@ use HTTP::Headers;
 use Scalar::Util qw(blessed);
 
 use Class::Std::Fast::Storable;
-# use Class::Std::Storable;
 
 use base qw(SOAP::WSDL::Server);
 
-our $VERSION=q{2.00_25};
+our $VERSION=q{2.00_26};
 
 # mostly copied from SOAP::Lite. Unfortunately we can't use SOAP::Lite's CGI
 # server directly - we would have to swap out it's base class...
@@ -80,6 +79,10 @@ sub handle {
             'Content-type' => 'text/xml; charset="utf-8"'
         );
         $response->content( $response_message );
+        {
+            use bytes;
+            $response->header('Content-length', length $response_message);
+        }
     }
 
     $self->_output($response);

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

@@ -7,9 +7,12 @@ sub get_xmlns { 'http://www.w3.org/2001/XMLSchema' };
 
 # use $_[1] for performance
 sub start_tag {
-    my $opt = $_[1] ||= {};
+    return q{} if not $#_;          # return if no second argument ($opt)
-    return '<' . $opt->{name} . ' >' if $opt->{ name };
+    if ($_[1]->{ name }) {
-    return q{}
+        return "<$_[1]->{name} />" if $_[1]->{ empty };
+        return "<$_[1]->{name} >";
+    }
+    return q{};
 }
 
 # use $_[1] for performance

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

@@ -39,6 +39,34 @@ sub AUTOMETHOD {
         . "\n"
 }
 
+sub as_hash_ref {
+    my $self = shift;
+    my $attributes_ref = $ATTRIBUTES_OF{ ref $self };
+    my $ident = ident $self;
+
+    my $hash_of_ref = {};
+    foreach my $attribute (keys %{ $attributes_ref }) {
+        next if not defined $attributes_ref->{ $attribute }->{ $ident };
+        my $value = $attributes_ref->{ $attribute }->{ $ident };
+
+        $hash_of_ref->{ $attribute } = blessed $value
+            ? $value->isa('SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType')
+                ? $value
+                : $value->as_hash_ref()
+            : ref $value eq 'ARRAY'
+                ? [
+                    map {
+                        $_->isa('SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType')
+                            ? $_
+                            : $_->as_hash_ref()
+                    } @{ $value }
+                ]
+                : die "Neither blessed obj nor list ref";
+    };
+
+    return $hash_of_ref;
+}
+
 # we store per-class elements.
 # call as __PACKAGE__->_factory
 sub _factory {
@@ -352,6 +380,10 @@ This means you may set element properties by passing
 
 Examples are similar to the examples provided for new() above.
 
+=head2 as_hash_ref
+
+Returns a hash ref representation of the complexType object
+
 =head1 Bugs and limitations
 
 =over
@@ -391,9 +423,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 412 $
+ $Rev: 452 $
  $LastChangedBy: kutterma $
- $Id: ComplexType.pm 412 2007-11-27 22:57:52Z kutterma $
+ $Id: ComplexType.pm 452 2007-12-12 14:46:54Z kutterma $
  $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm $
 
 =cut

t/008_client_wsdl_complexType.t

@@ -3,16 +3,19 @@ use strict;
 use warnings;
 use Test::More qw/no_plan/; # TODO: change to tests => N;
 use lib '../lib';
+use File::Basename;
+use File::Spec;
 
-use Cwd;
+my $path = File::Spec->rel2abs( dirname __FILE__ );
-
+my ($volume, $dir) = File::Spec->splitpath($path, 1);
-my $path = cwd;
+my @dir_from = File::Spec->splitdir($dir);
-$path =~s|\/t\/?$||;      # allow running from t/ and above (Build test)
+unshift @dir_from, $volume if $volume;
+my $url = join '/', @dir_from;
 
 use_ok(qw/SOAP::WSDL/);
 
 my $soap = SOAP::WSDL->new(
-    wsdl => 'file:///' . $path .'/t/acceptance/wsdl/008_complexType.wsdl'
+    wsdl => 'file://' . $url .'/acceptance/wsdl/008_complexType.wsdl'
 )->wsdlinit();
 
 my $wsdl = $soap->get_definitions;

t/009_data_classes.t

@@ -11,8 +11,14 @@ use Cwd;
 
 use SOAP::WSDL;
 use SOAP::WSDL::XSD::Typelib::Builtin;
-my $path = cwd;
+use File::Basename;
-$path =~s|\/t\/?$||;      # allow running from t/ and above (Build test)
+use File::Spec;
+
+my $path = File::Spec->rel2abs( dirname __FILE__ );
+my ($volume, $dir) = File::Spec->splitpath($path, 1);
+my @dir_from = File::Spec->splitdir($dir);
+unshift @dir_from, $volume if $volume;
+my $url = join '/', @dir_from;
 
 my $parser; 
 
@@ -37,7 +43,7 @@ else
 # TODO factor out into different test
 
 my $soap = SOAP::WSDL->new(
-    wsdl => 'file:///' . $path .'/t/acceptance/wsdl/006_sax_client.wsdl',
+    wsdl => 'file://' . $url .'/acceptance/wsdl/006_sax_client.wsdl',
 )->wsdlinit();
 
 $soap->servicename('MessageGateway');

t/013_complexType.t

@@ -23,7 +23,7 @@ is $obj, '<MyTestName >test</MyTestName ><MyTestName >test2</MyTestName >',
 # try on the fly factory
 @MyComplexType2::ISA = ('SOAP::WSDL::XSD::Typelib::ComplexType');
 {
-    use Class::Std::Storable;
+    use Class::Std::Fast::Storable;
     my %MyTestName_of;
 
     MyComplexType2->_factory(

t/SOAP/WSDL/02_port.t

@@ -3,17 +3,23 @@ use strict;
 use warnings;
 use diagnostics;
 use Cwd;
+use lib '../lib';
+
 use File::Basename;
 use File::Spec;
-use lib '../lib';
+
+my $path = File::Spec->rel2abs( dirname __FILE__ );
+my ($volume, $dir) = File::Spec->splitpath($path, 1);
+my @dir_from = File::Spec->splitdir($dir);
+unshift @dir_from, $volume if $volume;
+my $url = join '/', @dir_from;
 
 use_ok(qw/SOAP::WSDL/);
 
-my $path = File::Spec->rel2abs( dirname __FILE__ );
 my $soap;
 #2
 ok( $soap = SOAP::WSDL->new(
-	wsdl => 'file:///' . $path . '/../../acceptance/wsdl/02_port.wsdl'
+	wsdl => 'file://' . $url . '/../../acceptance/wsdl/02_port.wsdl'
 ), 'Instantiated object' );
 
 ok( ($soap->servicename('testService')  ), 'set service' );

t/SOAP/WSDL/04_element-simpleType.t

@@ -6,16 +6,21 @@ use lib 't/lib';
 
 use File::Basename;
 use File::Spec;
+
+my $path = File::Spec->rel2abs( dirname __FILE__ );
+my ($volume, $dir) = File::Spec->splitpath($path, 1);
+my @dir_from = File::Spec->splitdir($dir);
+unshift @dir_from, $volume if $volume;
+my $url = join '/', @dir_from;
+
 use_ok(qw/SOAP::WSDL/);
 
 my $xml;
 
 my $soap = undef;
 
-my $path = File::Spec->rel2abs( dirname __FILE__ );
-
 ok( $soap = SOAP::WSDL->new(
-	wsdl => 'file:///' . $path . '/../../acceptance/wsdl/04_element-simpleType.wsdl'
+	wsdl => 'file://' . $url . '/../../acceptance/wsdl/04_element-simpleType.wsdl'
 ), 'Instantiated object' );
 
 # won't work without - would require SOAP::WSDL::Deserializer::SOM,

t/SOAP/WSDL/05_simpleType-list.t

@@ -2,19 +2,22 @@ use Test::More tests => 8;
 use strict;
 use lib '../lib';
 use lib 't/lib';
-use File::Spec;
 use File::Basename;
+use File::Spec;
+
+my $path = File::Spec->rel2abs( dirname __FILE__ );
+my ($volume, $dir) = File::Spec->splitpath($path, 1);
+my @dir_from = File::Spec->splitdir($dir);
+unshift @dir_from, $volume if $volume;
+my $url = join '/', @dir_from;
 
 use_ok(qw/SOAP::WSDL/);
 
 my ($soap, $xml, $xml2);
 
-# chdir to my location
-my $path = File::Spec->rel2abs( dirname __FILE__ );
-
 #2
 ok( $soap = SOAP::WSDL->new(
-	wsdl => 'file:///' . $path . '/../../acceptance/wsdl/05_simpleType-list.wsdl'
+    wsdl => 'file://' . $url . '/../../acceptance/wsdl/05_simpleType-list.wsdl'
 ), 'Instantiated object' );
 
 # won't work without - would require SOAP::WSDL::Deserializer::SOM,

t/SOAP/WSDL/05_simpleType-restriction.t

@@ -7,16 +7,23 @@ use File::Basename;
 use lib '../lib';
 use lib 't/lib';
 
+use File::Basename;
+use File::Spec;
+
+my $path = File::Spec->rel2abs( dirname __FILE__ );
+my ($volume, $dir) = File::Spec->splitpath($path, 1);
+my @dir_from = File::Spec->splitdir($dir);
+unshift @dir_from, $volume if $volume;
+my $url = join '/', @dir_from;
+
 use_ok(qw/SOAP::WSDL/);
 
 my $xml;
 
-my $path = File::Spec->rel2abs( dirname __FILE__ );
-
 my $soap;
 #2
 ok( $soap = SOAP::WSDL->new(
-	wsdl => 'file:///' . $path . '/../../acceptance/wsdl/05_simpleType-restriction.wsdl'
+    wsdl => 'file://' . $url . '/../../acceptance/wsdl/05_simpleType-restriction.wsdl'
 ), 'Instantiated object' );
 
 #3

t/SOAP/WSDL/06_keep_alive.t

@@ -2,19 +2,23 @@ use Test::More tests => 6;
 use strict;
 use warnings;
 use diagnostics;
-use Cwd;
+use lib '../lib';
 use File::Basename;
 use File::Spec;
-use lib '../lib';
+
+my $path = File::Spec->rel2abs( dirname __FILE__ );
+my ($volume, $dir) = File::Spec->splitpath($path, 1);
+my @dir_from = File::Spec->splitdir($dir);
+unshift @dir_from, $volume if $volume;
+my $url = join '/', @dir_from;
 
 use_ok(qw/SOAP::WSDL/);
 
-my $path = File::Spec->rel2abs( dirname __FILE__ );
 my $soap;
 #2
 ok( $soap = SOAP::WSDL->new(
-	wsdl => 'file:///' . $path . '/../../acceptance/wsdl/02_port.wsdl',
+    wsdl => 'file://' . $url . '/../../acceptance/wsdl/02_port.wsdl',
-	keep_alive => 1,
+    keep_alive => 1,
 ), 'Instantiated object' );
 
 ok( ($soap->servicename('testService')  ), 'set service' );

t/SOAP/WSDL/11_helloworld.NET.t

@@ -13,9 +13,14 @@
 use strict;
 use Test::More tests => 4;
 use lib '../../../lib/';
-use File::Spec;
 use File::Basename;
+use File::Spec;
 
+my $path = File::Spec->rel2abs( dirname __FILE__ );
+my ($volume, $dir) = File::Spec->splitpath($path, 1);
+my @dir_from = File::Spec->splitdir($dir);
+unshift @dir_from, $volume if $volume;
+my $url = join '/', @dir_from;
 
 use_ok q/SOAP::WSDL/;
 
@@ -23,19 +28,16 @@ use_ok q/SOAP::WSDL/;
 print "# Testing SOAP::WSDL ". $SOAP::WSDL::VERSION."\n";
 print "# Acceptance test against sample output with simple WSDL\n";
 
-
-
 my $data = {
-	name => 'test',
+    name => 'test',
-	givenName => 'test',
+    givenName => 'test',
 };
 
 my $soap = undef;
-my $path = File::Spec->rel2abs( dirname __FILE__ );
 
 ok $soap = SOAP::WSDL->new(
-	wsdl => 'file:///'.$path.'/../../acceptance/wsdl/11_helloworld.wsdl',
+    wsdl => 'file://'.$url.'/../../acceptance/wsdl/11_helloworld.wsdl',
-	no_dispatch => 1
+    no_dispatch => 1
 ), 'Create SOAP::WSDL object'; 
 
 # won't work without - would require SOAP::WSDL::Deserializer::SOM,

t/SOAP/WSDL/12_binding.t

@@ -2,9 +2,15 @@ use strict;
 use lib '../../../lib';
 use Test::More tests => 4;
 use SOAP::WSDL;
-use File::Spec;
-use Data::Dumper;
 use File::Basename;
+use File::Spec;
+
+my $path = File::Spec->rel2abs( dirname __FILE__ );
+my ($volume, $dir) = File::Spec->splitpath($path, 1);
+my @dir_from = File::Spec->splitdir($dir);
+unshift @dir_from, $volume if $volume;
+my $url = join '/', @dir_from;
+
 
 print "# Using SOAP::WSDL Version $SOAP::WSDL::VERSION\n";
 
@@ -13,13 +19,13 @@ my $soap = undef;
 
 my $path = File::Spec->rel2abs( dirname __FILE__ );
 
-my $url = 'http://127.0.0.1/testPort';
+my $proxy = 'http://127.0.0.1/testPort';
 
 
 ok( $soap = SOAP::WSDL->new(
-	wsdl => 'file:///' . $path . '/../../acceptance/wsdl/02_port.wsdl'
+	wsdl => 'file://' . $url . '/../../acceptance/wsdl/02_port.wsdl'
 ) );
 
-ok $soap->wsdlinit( url => $url );
+ok $soap->wsdlinit( url => $proxy );
 ok $soap->servicename('testService');
 ok $soap->portname('testPort');

t/SOAP/WSDL/Generator/XSD.t

@@ -1,4 +1,4 @@
-use Test::More tests => 37;
+use Test::More tests => 38;
 use File::Basename qw(dirname);
 use File::Spec;
 use File::Path;
@@ -11,6 +11,7 @@ use_ok qw(SOAP::WSDL::Generator::Template::XSD);
 use SOAP::WSDL::Expat::WSDLParser;
 
 my $parser = SOAP::WSDL::Expat::WSDLParser->new();
+
 my $definitions = $parser->parse_file( 
      "$path/../../../acceptance/wsdl/generator_test.wsdl"
     #"$path/../../../acceptance/wsdl/elementAtomicComplexType.xml"
@@ -34,6 +35,7 @@ $generator->generate_typelib();
 }
 # print $code;
 
+
 $generator->set_type_prefix('MyTypes');
 $generator->set_element_prefix('MyElements');
 $generator->set_typemap_prefix('MyTypemaps');
@@ -43,7 +45,15 @@ $generator->set_output(undef);
 $generator->generate();
 #$generator->generate_typelib();
 #$generator->generate_typemap();
-$generator->generate_interface();
+
+if (eval { require Test::Warn; }) {
+   Test::Warn::warning_like( sub { $generator->generate_interface() }, 
+    qr{\A Multiple \s parts \s detected \s in \s message \s testMultiPartWarning}xms);
+} 
+else {
+    $generator->generate_interface();
+    SKIP: { skip 'Cannot test warnings without Test::Warn', 1 };
+}
 
 $generator->generate_server();
 

t/SOAP/WSDL/Part.t

@@ -0,0 +1,44 @@
+package MyTypelib;
+use strict;
+use warnings;
+
+
+sub find_element {};
+sub find_type {};
+
+package main;
+
+use strict;
+use warnings;
+use Test::More tests => 5;
+
+use_ok qw(SOAP::WSDL::Part);
+
+my $typelib = {};
+
+eval { SOAP::WSDL::Part->serialize() };
+like $@, qr{No typelib};
+
+my $opt = {
+    typelib => 'MyTypelib',
+    namespace => { foo => 'bar'}
+};
+
+my $data = {};
+
+my $part = SOAP::WSDL::Part->new();
+
+eval { $part->serialize('name', $data, $opt ) };
+like $@, qr{Neither type nor element};
+
+$part->set_type('foo:Foo');
+
+eval { $part->serialize('name', $data, $opt ) };
+like $@, qr{type foo:Foo};
+
+$part->set_type(undef);
+
+$part->set_element('foo:Foo');
+
+eval { $part->serialize('name', $data, $opt ) };
+like $@, qr{element foo:Foo};

t/SOAP/WSDL/Serializer/XSD.t

@@ -0,0 +1,13 @@
+use strict;
+use warnings;
+use Test::More qw(no_plan);
+
+use_ok qw(SOAP::WSDL::Serializer::XSD);
+
+my $serializer = SOAP::WSDL::Serializer::XSD->new();
+
+like $serializer->serialize(), qr{<SOAP-ENV:Body></SOAP-ENV:Body>}, 'empty body';
+like $serializer->serialize({ body => {} }), qr{<SOAP-ENV:Body></SOAP-ENV:Body>}, 'empty body';
+like $serializer->serialize({ body => [] }), qr{<SOAP-ENV:Body></SOAP-ENV:Body>}, 'empty body';
+like $serializer->serialize({ header => {}, body => [] }), 
+    qr{<SOAP-ENV:Header></SOAP-ENV:Header><SOAP-ENV:Body></SOAP-ENV:Body>}, 'empty header and body';

t/SOAP/WSDL/Server/CGI.t

@@ -7,7 +7,11 @@ sub bar {
     return "Verdammte Axt";
 }
 package main;
-use Test::More tests => 4;
+use Test::More;
+eval "require IO::Scalar"
+    or plan skip_all => 'IO::Scalar required for testing...';
+
+plan tests => 8;
 
 use_ok(SOAP::WSDL::Server);
 use_ok(SOAP::WSDL::Server::CGI);
@@ -19,8 +23,6 @@ $server->set_action_map_ref({
     'testaction' => 'testmethod',
 });
 
-eval "require IO::Scalar"
-    or exit 0;
 {
     no warnings qw(once);
     *IO::Scalar::BINMODE = sub {};
@@ -48,17 +50,31 @@ $server->set_action_map_ref({
 $server->set_dispatch_to( 'HandlerClass' );
 
 $server->handle();
+like $output, qr{no \s element \s found}xms;
+$output = q{};
 
-print "\n";
+$ENV{REQUEST_METHOD} = 'POST';
-
+$ENV{HTTP_SOAPACTION} = 'test';
-$ENV{HTTP_SOAPAction} = 'test';
 $server->handle();
+like $output, qr{no \s element \s found}xms;
+$output = q{};
 
-print "\n";
+delete $ENV{HTTP_SOAPACTION};
 
+$ENV{EXPECT} = 'Foo';
 $ENV{HTTP_SOAPAction} = 'foo';
 $server->handle();
 
+like $output, qr{no \s element \s found}xms;
+$output = q{};
+
+$ENV{EXPECT} = '100-Continue';
+$ENV{HTTP_SOAPAction} = 'foo';
+$server->handle();
+like $output, qr{100 \s Continue}xms;
+$output = q{};
+
+
 *STDOUT = $stdout;
 
 # print $output;

t/SOAP/WSDL/XSD/ComplexType.t

@@ -0,0 +1,11 @@
+use strict;
+use warnings;
+use Test::More tests => 2; #qw(no_plan);
+
+use_ok qw(SOAP::WSDL::XSD::ComplexType);
+
+my $obj = SOAP::WSDL::XSD::ComplexType->new();
+$obj->set_flavor('extension');
+
+eval { $obj->serialize('foo') };
+like $@, qr{sorry, \s we \s just}xsm;

t/SOAP/WSDL/XSD/Element.t

@@ -0,0 +1,43 @@
+package Foo;
+sub serialize {
+    return "serialized $_[1] $_[2]";
+}
+package main;
+use strict;
+use warnings;
+use Test::More tests => 12;
+
+use_ok qw(SOAP::WSDL::XSD::Element);
+
+my $element = SOAP::WSDL::XSD::Element->new();
+
+is $element->first_simpleType(), undef;
+
+$element->set_simpleType('Foo');
+is $element->first_simpleType(), 'Foo';
+
+$element->set_simpleType( [ 'Foo', 'Bar' ]);
+is $element->first_simpleType(), 'Foo';
+
+is $element->first_complexType(), undef;
+
+$element->set_complexType('Foo');
+is $element->first_complexType(), 'Foo';
+
+$element->set_complexType( [ 'Foo', 'Bar' ]);
+is $element->first_complexType(), 'Foo';
+
+$element->set_default('Foo');
+is $element->serialize('Foobar', undef, { namespace => {} } ), 'serialized Foobar Foo';
+
+$element->set_name('Bar');
+is $element->serialize(undef, undef, { namespace => {} } ), 'serialized Bar Foo';
+
+$element->set_fixed('Foobar');
+is $element->serialize(undef, undef, { namespace => {} } ), 'serialized Bar Foobar';
+
+$element->set_abstract('1');
+is $element->serialize('Bar', undef, { namespace => {} } ), 'serialized Bar Foobar';
+
+eval { $element->serialize(undef, undef, { namespace => {} } ) };
+like $@, qr{cannot \s serialize \s abstract}xms;

t/SOAP/WSDL/XSD/SimpleType.t

@@ -0,0 +1,33 @@
+use strict;
+use warnings;
+use Test::More tests => 11;
+
+use_ok qw(SOAP::WSDL::XSD::SimpleType);
+
+my $obj = SOAP::WSDL::XSD::SimpleType->new();
+
+$obj->set_list({ LocalName => 'foo', Value => 'bar'},
+    { LocalName => 'itemType', Value => 'xsd:int'} );
+is $obj->get_flavor(), 'list';
+is $obj->get_itemType(), 'xsd:int';
+
+is $obj->serialize('Foo', ['Foo', 'Bar']), '<Foo>Foo Bar</Foo>';
+
+$obj->set_union({ LocalName => 'foo', Value => 'bar'},
+    { LocalName => 'memberTypes', Value => 'xsd:int'} );
+is $obj->get_flavor(), 'union';
+is $obj->get_base()->[0], 'xsd:int';
+
+$obj->set_union({ LocalName => 'foo', Value => 'bar'},
+    { LocalName => 'memberTypes', Value => 'xsd:int xsd:string'} );
+is $obj->get_flavor(), 'union';
+is $obj->get_base()->[1], 'xsd:string';
+
+is $obj->serialize('Foo', 'Foobar'), '<Foo>Foobar</Foo>';
+
+$obj->set_flavor('enumeration');
+is $obj->serialize('Foo', 'Foobar'), '<Foo>Foobar</Foo>';
+
+# TODO die on non-serializable content...
+$obj->set_flavor('');
+is $obj->serialize('Foo', 'Foobar'), '';

t/SOAP/WSDL/XSD/Typelib/ComplexType.t

@@ -1,6 +1,14 @@
 use strict;
 use warnings;
 
+package MyEmptyType;
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+__PACKAGE__->_factory([],{},{});
+
+package MyEmptyType2;
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+__PACKAGE__->_factory();
+
 package MyType;
 
 use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
@@ -34,15 +42,34 @@ __PACKAGE__->_factory(
 );
 
 package main;
-use Test::More tests => 89;
+use Test::More tests => 100;
-use Data::Dumper;
 use Storable;
+
+my $have_warn = eval { use Test::Warn; 1; };
+
 my $obj;
 
+$obj = MyEmptyType->new();
+is $obj->serialize, '';
+is $obj->serialize({ name => 'test'}), '<test />';
+
+$obj = MyEmptyType2->new();
+is $obj->serialize, '';
+is $obj->serialize({ name => 'test'}), '<test />';
+
+
 $obj = MyType->new({});
 isa_ok $obj, 'MyType';
 is $obj->get_test, undef, 'undefined element content';
 
+my $hash_of_ref = $obj->as_hash_ref();
+is scalar keys %{ $hash_of_ref }, 0;
+
+SKIP: {
+    skip 'Cannot test warnings without Test::Warn', 1 if not $have_warn;
+    warning_is { $obj->add_test() } 'attempting to add empty value to MyType';
+}
+
 $obj = MyType->new({ test => 'Test1'});
 isa_ok $obj, 'MyType';
 isa_ok $obj->get_test, 'SOAP::WSDL::XSD::Typelib::Builtin::string';
@@ -64,6 +91,9 @@ isa_ok $obj, 'MyType';
 isa_ok $obj->get_test, 'SOAP::WSDL::XSD::Typelib::Builtin::string';
 is $obj->get_test, 'Test2', 'element content';
 
+$hash_of_ref = $obj->as_hash_ref();
+is $hash_of_ref->{ test }, 'Test2';
+
 $obj = MyType->new({ 
     test => [
         SOAP::WSDL::XSD::Typelib::Builtin::string->new({ 
@@ -80,6 +110,10 @@ isa_ok $obj->get_test, 'ARRAY';
 is $obj->get_test()->[0], 'Test', 'element content (list content [0])';
 is $obj->get_test()->[1], 'Test2', 'element content (list content [1])';
 
+$hash_of_ref = $obj->as_hash_ref();
+is $hash_of_ref->{ test }->[0], 'Test';
+is $hash_of_ref->{ test }->[1], 'Test2';
+
 my $nested = MyType2->new({
     test => $obj,
 });
@@ -106,6 +140,10 @@ $nested = MyType2->new({
 });
 
 
+$hash_of_ref = $nested->as_hash_ref();
+is $hash_of_ref->{ test }->{ test }->[1], 'Test2';
+
+
 # isnt $nested->get_test->[0], $obj, 'element identity';
 
 $obj = MyType->new();
@@ -203,6 +241,14 @@ eval {
 like $@, qr{cannot \s use \s CODE}xms;
 
 
+eval {
+    $obj = MyType->new({ 
+        foobar => 'fubar'
+    });
+};
+like $@, qr{unknown \s field \s foobar \s in \s MyType }xms;
+
+
 eval { $obj->set_FOO(42) };
 like $@, qr{Can't \s locate \s object \s method}x;
 

t/acceptance/wsdl/generator_test.wsdl

@@ -161,7 +161,7 @@
                         (Inclusive constraints) </xsd:documentation>
                 </xsd:annotation>
                 <xsd:all>
-                    <xsd:element name="test1" type="xsd:int"/>
+                    <xsd:element name="test1" type="int"/>
                     <xsd:element name="test2" type="xsd:string"/>
                 </xsd:all>
             </xsd:complexType>
@@ -204,6 +204,10 @@
     <message name="testResponse">
         <part name="testAll" element="tns:testElementString"/>        
     </message>
+    <message name="testMultiPartWarning">
+        <part name="testAll" element="tns:testElementString"/>
+        <part name="parameters" element="tns:testChoice"/>
+    </message>
     <message name="testHeaderRequest">
         <part name="testBody" element="tns:testHeader"/>
         <part name="testHeader" element="tns:Header"/>
@@ -233,6 +237,14 @@
 			<input message="tns:testChoice"/>
 			<output message="tns:testChoice"/>
 		</operation>
+        <operation name="testMultiPartWarning">
+            <documentation>
+                Test-Methode
+            </documentation>
+            <input message="tns:testMultiPartWarning"/>
+            <output message="tns:testMultiPartWarning"/>
+        </operation>
+
 	</portType>
 
 	<binding type="tns:testPort" name="testBinding">
@@ -257,15 +269,25 @@
 					</output>
 		    </operation>
             <operation name="testHeader">
-        		<soap:operation soapAction="testHeader"/>
+                <soap:operation soapAction="testHeader"/>
 				<input>
 					<soap:body use="literal" parts="tns:testBody"/>
 					<soap:header use="literal" part="tns:testHeader" message="tns:testHeaderRequest"/>
-				</input>
+                </input>
-				<output>
+                <output>
-					<soap:body use="literal"/>
+                    <soap:body use="literal"/>
-		        </output>
+                </output>
-         </operation>
+            </operation>
+            <operation name="testMultiPartWarning">
+                <soap:operation soapAction="testHeader"/>
+                <input>
+                    <soap:body use="literal"/>
+                </input>
+                <output>
+                    <soap:body use="literal"/>
+                </output>
+            </operation>
+
     </binding>
     <service name="testService">
 		<port name="testPort" binding="tns:testBinding">

t/contributed.wsdl

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