import SOAP-WSDL 2.00.06 from CPAN

git-cpan-module: SOAP-WSDL git-cpan-version: 2.00.06 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.06.tar.gz
import SOAP-WSDL 2.00.05 from CPAN
2009-12-12 19:48:54 -08:00 · 2009-12-12 19:48:45 -08:00
136 changed files with 1290 additions and 2244 deletions
--- a/Build.PL
+++ b/Build.PL
@@ -5,7 +5,7 @@ $build = Module::Build->new(
    create_makefile_pl => 'small',
    dist_abstract      => 'SOAP with WSDL support',
    dist_name          => 'SOAP-WSDL',
-    dist_version       => '2.00.04',
+    dist_version       => '2.00.06',
    module_name        => 'SOAP::WSDL',
    license            => 'artistic',
    requires           => {
--- a/52
+++ b/52
@@ -1,4 +1,4 @@
-Release notes for SOAP::WSDL 2.00.04
+Release notes for SOAP::WSDL 2.00.06
 -------

 I'm proud to present a new release of SOAP::WSDL.
@@ -27,7 +27,7 @@ Features:
    * SOAP::Lite like look and feel
          o Where possible, SOAP::WSDL mimics SOAP::Lite's API to allow easy migration
    * XML schema based class library for creating data objects
-    * High-performance XML parser
+    * High-performance SOAP Message parser
    * Plugin support. SOAP::WSDL can be extended through plugins in various aspects.
      The following plugins are supported:
          o Transport plugins via SOAP::WSDL::Factory::Transport
@@ -36,6 +36,53 @@ Features:

 The following changes have been made:

+2.00.06 - Dec 03 2008
+
+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/).
+
+    * #40658 wsdl2perl - prefix option
+    The prefix option is now changed to behave more practical
+    * #40802 wsdl2perl problems with special url
+    The "fixed" attribute caused an error.
+    * #40650 Deserialization on inherited types
+    The inherited complexType variety (sequence/all/choice...) did not get
+    propagated to derived complexTypes. Thus, derived complexTypes which did
+    not add elements lost all inherited elements.
+    * #40108 Test failure on Cygwin
+    Fixes a test failure on Cygwin due to a malformed file:// URL
+    * #40021 charset: utf-8
+    Removed duplicate charset in HTTP requests issued by
+    SOAP::WSDL::Transport::HTTP. Replaced the utf8 by utf-8 in HTTP requests
+    * #39715 Error with complexType extension base without child elements
+    A rather subtle error caused by a wrong init value (undef) for the list
+    of child elements in a complexType sequence.
+    * [ 2005693 ] <maxLength fixed ="true"> causes error
+    * [ 2023797 ] type extensions not handled correctly
+    ComplexType objects now test their elements with ->isa, not with ref
+    * [ 2021755 ] Generating nested complexType extensions throws errors
+
+2.00.05 - Jul 13 2008
+
+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/).
+
+    * [ 2014482 ] Big-O memory hole when parsing WSDL
+    SOAP::WSDL still leaks memory when using SOAP::Lite's transport backend
+    This is to be fixed in 0.710.08 in SOAP::Lite
+    * #36865 wsdl2perl.pl fails on Expat error
+    Resolved by dropping a note for Solaris in README
+    * [ 2005693 ] <maxLength fixed ="true"> causes error
+    The >fixed< attribute is now recognized (but has no effect yet)
+
+The following uncategorized improvements have been made:
+
+    * added missing Class::Std::Storable::Fast import flags to
+    SOAP::WSDL::XSD::Typelib::Builtin::IDREFS
+    * some code cleanup
+
 2.00.04

 The following bugs have been fixed (the numbers in square brackets are the
@@ -77,6 +124,7 @@ 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/).

+    * [ 1963613 ] ComplexTypes die on ->can('FOOBAR');
    * [ 1943667 ] Error parsing complexType/extension
    * [ 1960650 ] multi-level inheritance of complexTypes fails
    * [ 1960319 ] ComplexType as_hash_ref returns objects on maximum depth
--- a/8
+++ b/8
@@ -270,8 +270,6 @@ MANIFEST			This list of files
 META.yml
 MIGRATING
 README
-SOAP-WSDL-2.00.01.ppd
-SOAP-WSDL-2.00.01.zip
 t/002_parse_wsdl.t
 t/003_wsdl_based_serializer.t
 t/006_client.t
@@ -281,6 +279,7 @@ t/011_simpleType.t
 t/012_element.t
 t/013_complexType.t
 t/016_client_object.t
+t/094_cpan_meta.t
 t/095_copying.t
 t/096_characters.t
 t/097_kwalitee.t
@@ -332,9 +331,6 @@ t/acceptance/wsdl/WSDLParser/imported.xsd
 t/acceptance/wsdl/WSDLParser/xsd_import_no_location.wsdl
 t/acceptance/wsdl/WSDLParser_import_loop.wsdl
 t/contributed.wsdl
-t/covered-by.txt
-t/covered.txt
-t/covered/covered-0.01.db
 t/lib/Mod_Perl2Test.pm
 t/lib/MyComplexType.pm
 t/lib/MyElement.pm
@@ -364,6 +360,7 @@ t/SOAP/WSDL/05_simpleType-union.t
 t/SOAP/WSDL/06_keep_alive.t
 t/SOAP/WSDL/11_helloworld.NET.t
 t/SOAP/WSDL/12_binding.t
+t/SOAP/WSDL/Base.t
 t/SOAP/WSDL/Client.t
 t/SOAP/WSDL/Client/Base.t
 t/SOAP/WSDL/Definitions.t
@@ -461,4 +458,5 @@ t/SOAP/WSDL_NO_MESSAGE.wsdl
 t/SOAP/WSDL_NO_PORTTYPE.wsdl
 t/test.wsdl
 TEST_COVERAGE
+test_html.pl
 TODO
--- a/META.yml
+++ b/META.yml
@@ -1,6 +1,6 @@
 ---
 name: SOAP-WSDL
-version: 2.00.04
+version: 2.00.06
 author:
  - 'Martin Kutter <martin.kutter@fen-net.de>'
 abstract: SOAP with WSDL support
@@ -41,220 +41,220 @@ build_requires:
 provides:
  SOAP::WSDL:
    file: lib/SOAP/WSDL.pm
-    version: 2.00.03
+    version: 2.00.06
  SOAP::WSDL::Base:
    file: lib/SOAP/WSDL/Base.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::Binding:
    file: lib/SOAP/WSDL/Binding.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::Client:
    file: lib/SOAP/WSDL/Client.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::Client::Base:
    file: lib/SOAP/WSDL/Client/Base.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::Definitions:
    file: lib/SOAP/WSDL/Definitions.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::Deserializer::Hash:
    file: lib/SOAP/WSDL/Deserializer/Hash.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::Deserializer::SOM:
    file: lib/SOAP/WSDL/Deserializer/SOM.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::Deserializer::XSD:
    file: lib/SOAP/WSDL/Deserializer/XSD.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::Expat::Base:
    file: lib/SOAP/WSDL/Expat/Base.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::Expat::Message2Hash:
    file: lib/SOAP/WSDL/Expat/Message2Hash.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::Expat::MessageParser:
    file: lib/SOAP/WSDL/Expat/MessageParser.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::Expat::MessageStreamParser:
    file: lib/SOAP/WSDL/Expat/MessageStreamParser.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::Expat::WSDLParser:
    file: lib/SOAP/WSDL/Expat/WSDLParser.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::Factory::Deserializer:
    file: lib/SOAP/WSDL/Factory/Deserializer.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::Factory::Generator:
    file: lib/SOAP/WSDL/Factory/Generator.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::Factory::Serializer:
    file: lib/SOAP/WSDL/Factory/Serializer.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::Factory::Transport:
    file: lib/SOAP/WSDL/Factory/Transport.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::Generator::Iterator::WSDL11:
    file: lib/SOAP/WSDL/Generator/Iterator/WSDL11.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::Generator::PrefixResolver:
    file: lib/SOAP/WSDL/Generator/PrefixResolver.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::Generator::Template:
    file: lib/SOAP/WSDL/Generator/Template.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::Generator::Template::Plugin::XSD:
    file: lib/SOAP/WSDL/Generator/Template/Plugin/XSD.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::Generator::Template::XSD:
    file: lib/SOAP/WSDL/Generator/Template/XSD.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::Generator::Visitor:
    file: lib/SOAP/WSDL/Generator/Visitor.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::Generator::Visitor::Typelib:
    file: lib/SOAP/WSDL/Generator/Visitor/Typelib.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::Generator::Visitor::Typemap:
    file: lib/SOAP/WSDL/Generator/Visitor/Typemap.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::Message:
    file: lib/SOAP/WSDL/Message.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::OpMessage:
    file: lib/SOAP/WSDL/OpMessage.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::Operation:
    file: lib/SOAP/WSDL/Operation.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::Part:
    file: lib/SOAP/WSDL/Part.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::Port:
    file: lib/SOAP/WSDL/Port.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::PortType:
    file: lib/SOAP/WSDL/PortType.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::SOAP::Address:
    file: lib/SOAP/WSDL/SOAP/Address.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::SOAP::Body:
    file: lib/SOAP/WSDL/SOAP/Body.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::SOAP::Header:
    file: lib/SOAP/WSDL/SOAP/Header.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::SOAP::HeaderFault:
    file: lib/SOAP/WSDL/SOAP/HeaderFault.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::SOAP::Operation:
    file: lib/SOAP/WSDL/SOAP/Operation.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::SOAP::Typelib::Fault11:
    file: lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::Serializer::XSD:
    file: lib/SOAP/WSDL/Serializer/XSD.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::Server:
    file: lib/SOAP/WSDL/Server.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::Server::CGI:
    file: lib/SOAP/WSDL/Server/CGI.pm
-    version: 2.00.03
+    version: 2.00.06
  SOAP::WSDL::Server::Mod_Perl2:
    file: lib/SOAP/WSDL/Server/Mod_Perl2.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::Service:
    file: lib/SOAP/WSDL/Service.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::Transport::HTTP:
    file: lib/SOAP/WSDL/Transport/HTTP.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::Transport::Loopback:
    file: lib/SOAP/WSDL/Transport/Loopback.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::Transport::Test:
    file: lib/SOAP/WSDL/Transport/Test.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::TypeLookup:
    file: lib/SOAP/WSDL/TypeLookup.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::Types:
    file: lib/SOAP/WSDL/Types.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::XSD::Annotation:
    file: lib/SOAP/WSDL/XSD/Annotation.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::XSD::Attribute:
    file: lib/SOAP/WSDL/XSD/Attribute.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::XSD::AttributeGroup:
    file: lib/SOAP/WSDL/XSD/AttributeGroup.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::XSD::Builtin:
    file: lib/SOAP/WSDL/XSD/Builtin.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::XSD::ComplexType:
    file: lib/SOAP/WSDL/XSD/ComplexType.pm
-    version: 2.00.03
+    version: 2.00.06
  SOAP::WSDL::XSD::Element:
    file: lib/SOAP/WSDL/XSD/Element.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::XSD::Enumeration:
    file: lib/SOAP/WSDL/XSD/Enumeration.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::XSD::FractionDigits:
    file: lib/SOAP/WSDL/XSD/FractionDigits.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::XSD::Group:
    file: lib/SOAP/WSDL/XSD/Group.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::XSD::Length:
    file: lib/SOAP/WSDL/XSD/Length.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::XSD::MaxExclusive:
    file: lib/SOAP/WSDL/XSD/MaxExclusive.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::XSD::MaxInclusive:
    file: lib/SOAP/WSDL/XSD/MaxInclusive.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::XSD::MaxLength:
    file: lib/SOAP/WSDL/XSD/MaxLength.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::XSD::MinExclusive:
    file: lib/SOAP/WSDL/XSD/MinExclusive.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::XSD::MinInclusive:
    file: lib/SOAP/WSDL/XSD/MinInclusive.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::XSD::MinLength:
    file: lib/SOAP/WSDL/XSD/MinLength.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::XSD::Pattern:
    file: lib/SOAP/WSDL/XSD/Pattern.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::XSD::Schema:
    file: lib/SOAP/WSDL/XSD/Schema.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::XSD::Schema::Builtin:
    file: lib/SOAP/WSDL/XSD/Schema/Builtin.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::XSD::SimpleType:
    file: lib/SOAP/WSDL/XSD/SimpleType.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::XSD::TotalDigits:
    file: lib/SOAP/WSDL/XSD/TotalDigits.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::XSD::Typelib::Attribute:
    file: lib/SOAP/WSDL/XSD/Typelib/Attribute.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::XSD::Typelib::AttributeSet:
    file: lib/SOAP/WSDL/XSD/Typelib/AttributeSet.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::XSD::Typelib::Builtin:
    file: lib/SOAP/WSDL/XSD/Typelib/Builtin.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::XSD::Typelib::Builtin::ENTITY:
    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/ENTITY.pm
  SOAP::WSDL::XSD::Typelib::Builtin::ID:
@@ -279,14 +279,14 @@ provides:
    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/anySimpleType.pm
  SOAP::WSDL::XSD::Typelib::Builtin::anyType:
    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/anyType.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::XSD::Typelib::Builtin::anyURI:
    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/anyURI.pm
  SOAP::WSDL::XSD::Typelib::Builtin::base64Binary:
    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/base64Binary.pm
  SOAP::WSDL::XSD::Typelib::Builtin::boolean:
    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/boolean.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::XSD::Typelib::Builtin::byte:
    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/byte.pm
  SOAP::WSDL::XSD::Typelib::Builtin::date:
@@ -339,7 +339,7 @@ provides:
    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/string.pm
  SOAP::WSDL::XSD::Typelib::Builtin::time:
    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/time.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::XSD::Typelib::Builtin::token:
    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/token.pm
  SOAP::WSDL::XSD::Typelib::Builtin::unsignedByte:
@@ -352,20 +352,20 @@ provides:
    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/unsignedShort.pm
  SOAP::WSDL::XSD::Typelib::ComplexType:
    file: lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm
-    version: 2.1.0
+    version: 2.00.05
  SOAP::WSDL::XSD::Typelib::Element:
    file: lib/SOAP/WSDL/XSD/Typelib/Element.pm
-    version: 2.00.04
+    version: 2.00.05
  SOAP::WSDL::XSD::Typelib::SimpleType:
    file: lib/SOAP/WSDL/XSD/Typelib/SimpleType.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::XSD::Typelib::SimpleType::restriction:
    file: lib/SOAP/WSDL/XSD/Typelib/SimpleType.pm
-    version: 2.00.03
+    version: 2.00.05
  SOAP::WSDL::XSD::WhiteSpace:
    file: lib/SOAP/WSDL/XSD/WhiteSpace.pm
-    version: 2.00.04
-generated_by: Module::Build version 0.2808
+    version: 2.00.05
+generated_by: Module::Build version 0.3
 meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.2.html
  version: 1.2
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -1,4 +1,5 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.03
+# Note: this file was auto-generated by Module::Build::Compat version 0.30
+require 5.8.0;
    use Module::Build::Compat 0.02;
    
    Module::Build::Compat->run_build_pl(args => \@ARGV);
--- a/11
+++ b/11
@@ -41,4 +41,13 @@ If you don't have Module::Build installed, you may also use
 make install

 Note that Module::Build is the recommended installer - make will not run
-all tests provided with SOAP-WSDL.
+all tests provided with SOAP-WSDL.
+
+SOLARIS INSTALLATION NOTES
+--------------------------
+According to a CPAN RT report http://rt.cpan.org/Ticket/Display.html?id=36865
+it may be necessary to check (and possibly update) the expat libraries
+required by XML::Parser.
+
+SOAP::WSDL's metadata includes XML::Parser, but it seems that the expat
+libraries XML::Parser depends on may slip through missing or outdated.
--- a/SOAP-WSDL-2.00.01.ppd
+++ b/SOAP-WSDL-2.00.01.ppd
@@ -1,16 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<SOFTPKG NAME="SOAP-WSDL-2.00.01" VERSION="2,00,01,0">
-  <TITLE>SOAP-WSDL-2.00.01</TITLE>
-  <ABSTRACT>SOAP with WSDL support</ABSTRACT>
-  <AUTHOR>Martin Kutter &lt;martin.kutter@fen-net.de&gt;</AUTHOR>
-  <IMPLEMENTATION>
-    <DEPENDENCY NAME="Data-Dumper" VERSION="0,0,0,0" />
-    <DEPENDENCY NAME="Scalar-List-Utils" VERSION="0,0,0,0" />
-    <DEPENDENCY NAME="Class-Std-Fast" VERSION="0,0,5,0" />
-    <DEPENDENCY NAME="Template-Toolkit" VERSION="0,0,0,0" />
-    <DEPENDENCY NAME="TimeDate" VERSION="0,0,0,0" />
-    <OS NAME="linux" />
-    <ARCHITECTURE NAME="i486-linux-gnu-thread-multi-5.8" />
-    <CODEBASE HREF="SOAP-WSDL-2.00.01.zip" />
-  </IMPLEMENTATION>
-</SOFTPKG>
--- a/SOAP-WSDL-2.00.01.zip
+++ b/SOAP-WSDL-2.00.01.zip
--- a/16
+++ b/16
@@ -6,12 +6,18 @@
 # Note that this shell script requires Devel::CoverX::Covered - if you
 # don't have it, comment out the line noted below
 #
-cd t/
-cover -delete
-find . -type f -name '*.t' | xargs -n 1 /usr/bin/perl -MDevel::Cover=-silent,1,-summary,0 -I../lib > /dev/null
+
+perl -Ilib -It/lib -MTAP::Harness -MFile::Find::Rule -e '
+    local $ENV{TEST_VERBOSE} = 1;
+    TAP::Harness->new({
+         merge => 1,
+         lib => [ q{t/lib}, q{lib} ],
+         switches => [ q{-MDevel::Cover=-ignore,.,-select,^lib/.+,-coverage,statement,-coverage,subroutine,-coverage,condition,-coverage,branch} ],
+    })->runtests( sort { $a cmp $b } File::Find::Rule->file()->name( q{*.t} )->in( q{t/} ) );
+'

 # Devel::CoverX::Covered
-covered runs
+# covered runs

-cover -ignore_re \.t$ -ignore_re ^lib -coverage="statement" -coverage=condition -coverage=subroutine -coverage="branch"
+cover -coverage="statement" -coverage=condition -coverage=subroutine -coverage="branch"

--- a/bin/wsdl2perl.pl
+++ b/bin/wsdl2perl.pl
@@ -10,13 +10,13 @@ use Term::ReadKey;

 my %opt = (
  url => '',
-  prefix => undef,
-  attribute_prefix => 'MyAttributes',
-  type_prefix => 'MyTypes',
-  element_prefix => 'MyElements',
-  typemap_prefix => 'MyTypemaps',
-  interface_prefix => 'MyInterfaces',
-  server_prefix => 'MyServer',
+  prefix            => 'My',
+  attribute_prefix  => undef,
+  type_prefix       => undef,
+  element_prefix    => undef,
+  typemap_prefix    => undef,
+  interface_prefix  => undef,
+  server_prefix     => undef,
  base_path => 'lib/',
  proxy => undef,
  generator => 'XSD',
@@ -91,6 +91,20 @@ my $parser = SOAP::WSDL::Expat::WSDLParser->new({
    user_agent => $lwp,
 });

+# resolve the default prefix options
+map {
+    my $opt_key = $_;
+    if ( $opt_key =~ / (\w+) _prefix $/xms # relevant option
+            && !$opt{ $opt_key }           # that hasn't already been explicitly set
+        )
+    {
+        my $prefix_type = $1;
+        $opt{ $opt_key } = $opt{prefix} .                           # My
+                           ucfirst( $prefix_type ) .                # Typemap
+                           ( $prefix_type eq 'server' ? '' : 's' ); # s
+    }
+} keys %opt;
+
 my $definitions = $parser->parse_uri( $url );

 my %typemap = ();
@@ -150,7 +164,9 @@ wsdl2perl.pl - create perl bindings for SOAP webservices.

 NAME            SHORT  DESCRITPION
 ----------------------------------------------------------------------------
- prefix            p   Prefix for both type and element classes.
+ prefix            p   Prefix for all generated classes. If you set "-p=Foo",
+                       you will get "FooAttributes", "FooTypes", 
+					   "FooElements" and so on.
 attribute_prefix  a   Prefix for XML attribute classes.
                       Default: MyAttributes
 type_prefix       t   Prefix for type classes.
--- a/example/lib/MyElements/CountCookies.pm
+++ b/example/lib/MyElements/CountCookies.pm
@@ -1,3 +1,4 @@
+
 package MyElements::CountCookies;
 use strict;
 use warnings;
@@ -17,13 +18,30 @@ use base qw(
    SOAP::WSDL::XSD::Typelib::ComplexType
 );

+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+
+
+# There's no variety - empty complexType
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+__PACKAGE__->_factory();
+



 } # end of BLOCK
+
+
+
 1;

-# __END__

 =pod

@@ -36,6 +54,21 @@ MyElements::CountCookies
 Perl data type class for the XML Schema defined element
 CountCookies from the namespace http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.

+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+
 =head1 METHODS

 =head2 new
--- a/example/lib/MyElements/CountCookiesResponse.pm
+++ b/example/lib/MyElements/CountCookiesResponse.pm
@@ -1,3 +1,4 @@
+
 package MyElements::CountCookiesResponse;
 use strict;
 use warnings;
@@ -16,6 +17,14 @@ use base qw(
    SOAP::WSDL::XSD::Typelib::Element
    SOAP::WSDL::XSD::Typelib::ComplexType
 );
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
 use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);

@@ -26,14 +35,18 @@ Class::Std::initialize();
 my %CountCookiesResult_of :ATTR(:get<CountCookiesResult>);

 __PACKAGE__->_factory(
-    [ qw(
-        CountCookiesResult
+    [ qw(        CountCookiesResult
+
    ) ],
    {
-        CountCookiesResult => \%CountCookiesResult_of,
+        'CountCookiesResult' => \%CountCookiesResult_of,
    },
    {
-        CountCookiesResult => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+        'CountCookiesResult' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+    },
+    {
+
+        'CountCookiesResult' => 'CountCookiesResult',
    }
 );

@@ -44,11 +57,12 @@ __PACKAGE__->_factory(



-
 } # end of BLOCK
+
+
+
 1;

-# __END__

 =pod

@@ -61,6 +75,30 @@ MyElements::CountCookiesResponse
 Perl data type class for the XML Schema defined element
 CountCookiesResponse from the namespace http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.

+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * CountCookiesResult
+
+ $element->set_CountCookiesResult($data);
+ $element->get_CountCookiesResult();
+
+
+
+
+=back
+
+
 =head1 METHODS

 =head2 new
--- a/example/lib/MyElements/GetFortuneCookie.pm
+++ b/example/lib/MyElements/GetFortuneCookie.pm
@@ -1,3 +1,4 @@
+
 package MyElements::GetFortuneCookie;
 use strict;
 use warnings;
@@ -17,13 +18,30 @@ use base qw(
    SOAP::WSDL::XSD::Typelib::ComplexType
 );

+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+
+
+# There's no variety - empty complexType
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+__PACKAGE__->_factory();
+



 } # end of BLOCK
+
+
+
 1;

-# __END__

 =pod

@@ -36,6 +54,21 @@ MyElements::GetFortuneCookie
 Perl data type class for the XML Schema defined element
 GetFortuneCookie from the namespace http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.

+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+
 =head1 METHODS

 =head2 new
--- a/example/lib/MyElements/GetFortuneCookieResponse.pm
+++ b/example/lib/MyElements/GetFortuneCookieResponse.pm
@@ -1,3 +1,4 @@
+
 package MyElements::GetFortuneCookieResponse;
 use strict;
 use warnings;
@@ -16,6 +17,14 @@ use base qw(
    SOAP::WSDL::XSD::Typelib::Element
    SOAP::WSDL::XSD::Typelib::ComplexType
 );
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
 use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);

@@ -26,14 +35,18 @@ Class::Std::initialize();
 my %GetFortuneCookieResult_of :ATTR(:get<GetFortuneCookieResult>);

 __PACKAGE__->_factory(
-    [ qw(
-        GetFortuneCookieResult
+    [ qw(        GetFortuneCookieResult
+
    ) ],
    {
-        GetFortuneCookieResult => \%GetFortuneCookieResult_of,
+        'GetFortuneCookieResult' => \%GetFortuneCookieResult_of,
    },
    {
-        GetFortuneCookieResult => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        'GetFortuneCookieResult' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+    },
+    {
+
+        'GetFortuneCookieResult' => 'GetFortuneCookieResult',
    }
 );

@@ -44,11 +57,12 @@ __PACKAGE__->_factory(



-
 } # end of BLOCK
+
+
+
 1;

-# __END__

 =pod

@@ -61,6 +75,30 @@ MyElements::GetFortuneCookieResponse
 Perl data type class for the XML Schema defined element
 GetFortuneCookieResponse from the namespace http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.

+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * GetFortuneCookieResult
+
+ $element->set_GetFortuneCookieResult($data);
+ $element->get_GetFortuneCookieResult();
+
+
+
+
+=back
+
+
 =head1 METHODS

 =head2 new
--- a/example/lib/MyElements/GetSpecificCookie.pm
+++ b/example/lib/MyElements/GetSpecificCookie.pm
@@ -1,3 +1,4 @@
+
 package MyElements::GetSpecificCookie;
 use strict;
 use warnings;
@@ -16,6 +17,14 @@ use base qw(
    SOAP::WSDL::XSD::Typelib::Element
    SOAP::WSDL::XSD::Typelib::ComplexType
 );
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
 use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);

@@ -26,14 +35,18 @@ Class::Std::initialize();
 my %index_of :ATTR(:get<index>);

 __PACKAGE__->_factory(
-    [ qw(
-        index
+    [ qw(        index
+
    ) ],
    {
-        index => \%index_of,
+        'index' => \%index_of,
    },
    {
-        index => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+        'index' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+    },
+    {
+
+        'index' => 'index',
    }
 );

@@ -44,11 +57,12 @@ __PACKAGE__->_factory(



-
 } # end of BLOCK
+
+
+
 1;

-# __END__

 =pod

@@ -61,6 +75,30 @@ MyElements::GetSpecificCookie
 Perl data type class for the XML Schema defined element
 GetSpecificCookie from the namespace http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.

+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * index
+
+ $element->set_index($data);
+ $element->get_index();
+
+
+
+
+=back
+
+
 =head1 METHODS

 =head2 new
--- a/example/lib/MyElements/GetSpecificCookieResponse.pm
+++ b/example/lib/MyElements/GetSpecificCookieResponse.pm
@@ -1,3 +1,4 @@
+
 package MyElements::GetSpecificCookieResponse;
 use strict;
 use warnings;
@@ -16,6 +17,14 @@ use base qw(
    SOAP::WSDL::XSD::Typelib::Element
    SOAP::WSDL::XSD::Typelib::ComplexType
 );
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
 use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);

@@ -26,14 +35,18 @@ Class::Std::initialize();
 my %GetSpecificCookieResult_of :ATTR(:get<GetSpecificCookieResult>);

 __PACKAGE__->_factory(
-    [ qw(
-        GetSpecificCookieResult
+    [ qw(        GetSpecificCookieResult
+
    ) ],
    {
-        GetSpecificCookieResult => \%GetSpecificCookieResult_of,
+        'GetSpecificCookieResult' => \%GetSpecificCookieResult_of,
    },
    {
-        GetSpecificCookieResult => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        'GetSpecificCookieResult' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+    },
+    {
+
+        'GetSpecificCookieResult' => 'GetSpecificCookieResult',
    }
 );

@@ -44,11 +57,12 @@ __PACKAGE__->_factory(



-
 } # end of BLOCK
+
+
+
 1;

-# __END__

 =pod

@@ -61,6 +75,30 @@ MyElements::GetSpecificCookieResponse
 Perl data type class for the XML Schema defined element
 GetSpecificCookieResponse from the namespace http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.

+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * GetSpecificCookieResult
+
+ $element->set_GetSpecificCookieResult($data);
+ $element->get_GetSpecificCookieResult();
+
+
+
+
+=back
+
+
 =head1 METHODS

 =head2 new
--- a/example/lib/MyElements/int.pm
+++ b/example/lib/MyElements/int.pm
@@ -1,3 +1,4 @@
+
 package MyElements::int;
 use strict;
 use warnings;
@@ -14,14 +15,12 @@ __PACKAGE__->__set_ref();
 use base qw(
    SOAP::WSDL::XSD::Typelib::Element
    SOAP::WSDL::XSD::Typelib::Builtin::int
-
 );

+}

-} # end of BLOCK
 1;

-# __END__

 =pod

@@ -34,6 +33,12 @@ MyElements::int
 Perl data type class for the XML Schema defined element
 int from the namespace http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.

+
+
+
+
+
+
 =head1 METHODS

 =head2 new
--- a/example/lib/MyElements/readNodeCount.pm
+++ b/example/lib/MyElements/readNodeCount.pm
@@ -1,3 +1,4 @@
+
 package MyElements::readNodeCount;
 use strict;
 use warnings;
@@ -17,13 +18,30 @@ use base qw(
    SOAP::WSDL::XSD::Typelib::ComplexType
 );

+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+
+
+# There's no variety - empty complexType
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+__PACKAGE__->_factory();
+



 } # end of BLOCK
+
+
+
 1;

-# __END__

 =pod

@@ -36,6 +54,21 @@ MyElements::readNodeCount
 Perl data type class for the XML Schema defined element
 readNodeCount from the namespace http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.

+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+
 =head1 METHODS

 =head2 new
--- a/example/lib/MyElements/readNodeCountResponse.pm
+++ b/example/lib/MyElements/readNodeCountResponse.pm
@@ -1,3 +1,4 @@
+
 package MyElements::readNodeCountResponse;
 use strict;
 use warnings;
@@ -16,6 +17,14 @@ use base qw(
    SOAP::WSDL::XSD::Typelib::Element
    SOAP::WSDL::XSD::Typelib::ComplexType
 );
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
 use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);

@@ -26,14 +35,18 @@ Class::Std::initialize();
 my %readNodeCountResult_of :ATTR(:get<readNodeCountResult>);

 __PACKAGE__->_factory(
-    [ qw(
-        readNodeCountResult
+    [ qw(        readNodeCountResult
+
    ) ],
    {
-        readNodeCountResult => \%readNodeCountResult_of,
+        'readNodeCountResult' => \%readNodeCountResult_of,
    },
    {
-        readNodeCountResult => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+        'readNodeCountResult' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
+    },
+    {
+
+        'readNodeCountResult' => 'readNodeCountResult',
    }
 );

@@ -44,11 +57,12 @@ __PACKAGE__->_factory(



-
 } # end of BLOCK
+
+
+
 1;

-# __END__

 =pod

@@ -61,6 +75,30 @@ MyElements::readNodeCountResponse
 Perl data type class for the XML Schema defined element
 readNodeCountResponse from the namespace http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.

+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * readNodeCountResult
+
+ $element->set_readNodeCountResult($data);
+ $element->get_readNodeCountResult();
+
+
+
+
+=back
+
+
 =head1 METHODS

 =head2 new
--- a/example/lib/MyElements/string.pm
+++ b/example/lib/MyElements/string.pm
@@ -1,27 +1,26 @@
+
 package MyElements::string;
 use strict;
 use warnings;

 { # BLOCK to scope variables

-sub get_xmlns { 'http://www.webserviceX.NET' }
+sub get_xmlns { 'http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx' }

 __PACKAGE__->__set_name('string');
-__PACKAGE__->__set_nillable(true);
+__PACKAGE__->__set_nillable(1);
 __PACKAGE__->__set_minOccurs();
 __PACKAGE__->__set_maxOccurs();
 __PACKAGE__->__set_ref();
 use base qw(
    SOAP::WSDL::XSD::Typelib::Element
    SOAP::WSDL::XSD::Typelib::Builtin::string
-
 );

+}

-} # end of BLOCK
 1;

-# __END__

 =pod

@@ -32,7 +31,13 @@ MyElements::string
 =head1 DESCRIPTION

 Perl data type class for the XML Schema defined element
-string from the namespace http://www.webserviceX.NET.
+string from the namespace http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx.
+
+
+
+
+
+

 =head1 METHODS

--- a/example/lib/MyInterfaces/FullerData_x0020_Fortune_x0020_Cookie/FullerData_x0020_Fortune_x0020_CookieSoap.pm
+++ b/example/lib/MyInterfaces/FullerData_x0020_Fortune_x0020_Cookie/FullerData_x0020_Fortune_x0020_CookieSoap.pm
@@ -13,6 +13,8 @@ sub START {
    $_[0]->set_proxy('http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx') if not $_[2]->{proxy};
    $_[0]->set_class_resolver('MyTypemaps::FullerData_x0020_Fortune_x0020_Cookie')
        if not $_[2]->{class_resolver};
+
+    $_[0]->set_prefix($_[2]->{use_prefix}) if exists $_[2]->{use_prefix};
 }

 sub readNodeCount {
@@ -24,10 +26,11 @@ sub readNodeCount {
        style => 'document',
        body => {
            
-           'use' => 'literal',
-            namespace => '',
-            encodingStyle => '',
-            parts => [qw( MyElements::readNodeCount )],
+
+           'use'            => 'literal',
+            namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
+            encodingStyle   => '',
+            parts           =>  [qw( MyElements::readNodeCount )],
        },
        header => {
            
@@ -38,6 +41,7 @@ sub readNodeCount {
    }, $body, $header);
 }

+
 sub GetFortuneCookie {
    my ($self, $body, $header) = @_;
    die "GetFortuneCookie must be called as object method (\$self is <$self>)" if not blessed($self);
@@ -47,10 +51,11 @@ sub GetFortuneCookie {
        style => 'document',
        body => {
            
-           'use' => 'literal',
-            namespace => '',
-            encodingStyle => '',
-            parts => [qw( MyElements::GetFortuneCookie )],
+
+           'use'            => 'literal',
+            namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
+            encodingStyle   => '',
+            parts           =>  [qw( MyElements::GetFortuneCookie )],
        },
        header => {
            
@@ -61,6 +66,7 @@ sub GetFortuneCookie {
    }, $body, $header);
 }

+
 sub CountCookies {
    my ($self, $body, $header) = @_;
    die "CountCookies must be called as object method (\$self is <$self>)" if not blessed($self);
@@ -70,10 +76,11 @@ sub CountCookies {
        style => 'document',
        body => {
            
-           'use' => 'literal',
-            namespace => '',
-            encodingStyle => '',
-            parts => [qw( MyElements::CountCookies )],
+
+           'use'            => 'literal',
+            namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
+            encodingStyle   => '',
+            parts           =>  [qw( MyElements::CountCookies )],
        },
        header => {
            
@@ -84,6 +91,7 @@ sub CountCookies {
    }, $body, $header);
 }

+
 sub GetSpecificCookie {
    my ($self, $body, $header) = @_;
    die "GetSpecificCookie must be called as object method (\$self is <$self>)" if not blessed($self);
@@ -93,10 +101,11 @@ sub GetSpecificCookie {
        style => 'document',
        body => {
            
-           'use' => 'literal',
-            namespace => '',
-            encodingStyle => '',
-            parts => [qw( MyElements::GetSpecificCookie )],
+
+           'use'            => 'literal',
+            namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
+            encodingStyle   => '',
+            parts           =>  [qw( MyElements::GetSpecificCookie )],
        },
        header => {
            
@@ -109,6 +118,7 @@ sub GetSpecificCookie {



+
 1;


@@ -119,21 +129,20 @@ __END__

 =head1 NAME

-
 MyInterfaces::FullerData_x0020_Fortune_x0020_Cookie::FullerData_x0020_Fortune_x0020_CookieSoap - SOAP Interface for the FullerData_x0020_Fortune_x0020_Cookie Web Service

 =head1 SYNOPSIS

 use MyInterfaces::FullerData_x0020_Fortune_x0020_Cookie::FullerData_x0020_Fortune_x0020_CookieSoap;
 my $interface = MyInterfaces::FullerData_x0020_Fortune_x0020_Cookie::FullerData_x0020_Fortune_x0020_CookieSoap->new();
- 
+
 my $response;
 $response = $interface->readNodeCount();
 $response = $interface->GetFortuneCookie();
 $response = $interface->CountCookies();
 $response = $interface->GetSpecificCookie();

- 
+

 =head1 DESCRIPTION

@@ -168,42 +177,58 @@ 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.

+List items (i.e. multiple occurences) are not displayed in the synopsis.
+You may generally pass a list ref of hash refs (or objects) instead of a hash
+ref - this may result in invalid XML if used improperly, though. Note that
+SOAP::WSDL always expects list references at maximum depth position.
+
+XML attributes are not displayed in this synopsis and cannot be set using
+hash refs. See the respective class' documentation for additional information.
+


 =head3 readNodeCount

 Display the number of nodes specified in fortune XML document

- $interface->readNodeCount(,,
+Returns a L<MyElements::readNodeCountResponse|MyElements::readNodeCountResponse> object.
+
+ $response = $interface->readNodeCount(,,
 );
- 
+
 =head3 GetFortuneCookie

 Get a random fortune cookie from the XML document

- $interface->GetFortuneCookie(,,
+Returns a L<MyElements::GetFortuneCookieResponse|MyElements::GetFortuneCookieResponse> object.
+
+ $response = $interface->GetFortuneCookie(,,
 );
- 
+
 =head3 CountCookies

 Count the actual number of nodes in the XML document of fortunes

- $interface->CountCookies(,,
+Returns a L<MyElements::CountCookiesResponse|MyElements::CountCookiesResponse> object.
+
+ $response = $interface->CountCookies(,,
 );
- 
+
 =head3 GetSpecificCookie

 Get a specific cookie by the XML node number

- $interface->GetSpecificCookie(  {
+Returns a L<MyElements::GetSpecificCookieResponse|MyElements::GetSpecificCookieResponse> object.
+
+ $response = $interface->GetSpecificCookie( {
    index =>  $some_value, # int
  },,
 );
- 
+


 =head1 AUTHOR

-Generated by SOAP::WSDL on Sun Dec 16 19:58:30 2007
+Generated by SOAP::WSDL on Wed Dec  3 22:05:20 2008

-=pod
+=cut
--- a/example/lib/MyTypemaps/FullerData_x0020_Fortune_x0020_Cookie.pm
+++ b/example/lib/MyTypemaps/FullerData_x0020_Fortune_x0020_Cookie.pm
@@ -1,3 +1,4 @@
+
 package MyTypemaps::FullerData_x0020_Fortune_x0020_Cookie;
 use strict;
 use warnings;
@@ -38,11 +39,13 @@ sub get_typemap {

 __END__

+__END__
+
 =pod

 =head1 NAME

-MyTypemaps::FullerData_x0020_Fortune_x0020_Cookie; - typemap for ::FullerData_x0020_Fortune_x0020_Cookie;
+MyTypemaps::FullerData_x0020_Fortune_x0020_Cookie - typemap for FullerData_x0020_Fortune_x0020_Cookie

 =head1 DESCRIPTION

--- a/lib/SOAP/WSDL.pm
+++ b/lib/SOAP/WSDL.pm
@@ -14,7 +14,7 @@ use Class::Std::Fast constructor => 'none';
 use SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;
 use LWP::UserAgent;

-use version; our $VERSION= qv('2.00.03');
+use version; our $VERSION = qv('2.00.06');

 my %no_dispatch_of      :ATTR(:name<no_dispatch>);
 my %wsdl_of             :ATTR(:name<wsdl>);
@@ -270,7 +270,7 @@ sub _wsdl_init_methods :PRIVATE {

 # on_action is a no-op and just here for compatibility reasons.
 # It returns the first parameter to allow method chaining.
-sub on_action { return shift };
+sub on_action { return shift }

 sub call {
    my ($self, $method, @data_from) = @_;
@@ -299,7 +299,7 @@ sub call {
      && ( ! $no_dispatch_of{ $ident } ) ) {
        require SOAP::WSDL::Deserializer::SOM;
        $client->set_deserializer( SOAP::WSDL::Deserializer::SOM->new() );
-    };
+    }

    my $method_info = $method_info_of{ $ident }->{ $method };

@@ -830,9 +830,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>

 =head1 REPOSITORY INFORMATION

- $Rev: 694 $
+ $Rev: 755 $
 $LastChangedBy: kutterma $
- $Id: WSDL.pm 694 2008-05-25 21:06:56Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL.pm $
+ $Id: WSDL.pm 755 2008-12-03 21:36:54Z kutterma $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL.pm $

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

-use version; our $VERSION = qv('2.00.04');
+use version; our $VERSION = qv('2.00.05');

 my %id_of               :ATTR(:name<id> :default<()>);
 my %lang_of             :ATTR(:name<lang> :default<()>);
@@ -15,7 +15,7 @@ my %documentation_of    :ATTR(:name<documentation> :default<()>);
 my %annotation_of       :ATTR(:name<annotation> :default<()>);
 my %targetNamespace_of  :ATTR(:name<targetNamespace> :default<()>);
 my %xmlns_of            :ATTR(:name<xmlns> :default<{}>);
-my %parent_of           :ATTR(:name<parent> :default<()>);
+my %parent_of           :ATTR(:get<parent> :default<()>);

 my %namespaces_of       :ATTR(:default<{}>);

@@ -23,34 +23,42 @@ sub namespaces {
    return shift->get_xmlns();
 }

+sub BUILD {
+    my ($self, $ident, $arg_ref) = @_;
+    if (defined $arg_ref->{ parent }) {
+        $parent_of{ $ident } = delete $arg_ref->{ parent },
+        Scalar::Util::weaken($parent_of{ $ident });
+    }
+}
+
 sub START {
    my ($self, $ident, $arg_ref) = @_;
    $xmlns_of{ $ident }->{ 'xml' } = 'http://www.w3.org/XML/1998/namespace';
    $namespaces_of{ $ident }->{ '#default' } = $self->get_xmlns()->{ '#default' };
    $namespaces_of{ $ident }->{ 'xml' } = 'http://www.w3.org/XML/1998/namespace';
-
-}
-
-sub DEMOLISH {
-  my $self = shift;
-  # delete upward references
-  delete $parent_of{ ${ $self } };
-  return;
 }

 #
-#sub STORABLE_freeze_pre :CUMULATIVE {};
-#sub STORABLE_freeze_post :CUMULATIVE {};
-#sub STORABLE_thaw_pre :CUMULATIVE {};
-#sub STORABLE_thaw_post :CUMULATIVE { return $_[0] };
+# set_parent is hand-implemented to break up (weaken) the circular reference
+# between an object and it's parent
+#
+sub set_parent {
+    $parent_of{ ${ $_[0]} } = $_[1];
+    Scalar::Util::weaken($parent_of{ ${ $_[0]} });
+}

+# _accept is here to be called by visitor.
+# The visitor pattern is a level of indirection - here the visitor calls
+# $object->_accept($visitor) on each object, which in turn calls
+# $visitor->visit_$class( $object ) where $class is the object's class.
+#
 sub _accept {
    my $self = shift;
    my $class = ref $self;
    $class =~ s{ \A SOAP::WSDL:: }{}xms;
    $class =~ s{ (:? :: ) }{_}gxms;
    my $method = "visit_$class";
-    no strict qw(refs); ## no critic ProhibitNoStrict
+    no strict qw(refs);
    return shift->$method( $self );
 }

@@ -65,13 +73,12 @@ sub AUTOMETHOD {
    if ($subname =~s{^push_}{}xms) {
        my $getter = "get_$subname";
        my $setter = "set_$subname";
-        ## Checking here is paranoid - will fail fatally if
-        ## there is no setter...
-        ## And we would have to check getters, too.
-        ## Maybe do it the Conway way via the Symbol table...
-        ## ... can is way slow...
+        # Checking here is paranoid - will fail fatally if there is no setter.
+        # And we would have to check getters, too.
+        # Maybe do it the Conway way via the Symbol table...
+        # ... can is way slow...
        return sub {
-            no strict qw(refs);                 ## no critic ProhibitNoStrict
+            no strict qw(refs);
            my $old_value = $self->$getter();
            # Listify if not a list ref
            $old_value = $old_value ? [ $old_value ] : [] if not ref $old_value;
@@ -85,7 +92,7 @@ sub AUTOMETHOD {
    elsif ($subname =~s {^find_}{get_}xms) {
        @values = @{ $values[0] } if ref $values[0] eq 'ARRAY';
        return sub {
-            return first {
+            return List::Util::first {
                $_->get_targetNamespace() eq $values[0] &&
                $_->get_name() eq $values[1]
            }
@@ -101,10 +108,6 @@ sub AUTOMETHOD {
        };
    }

-    # return if called from can();
-    my @caller = caller(2);
-    return if ($caller[3] eq 'Class::Std::Fast::__ANON__');
-    # confess "$subname not found in class " . ref $self;
    return;
 }

--- a/lib/SOAP/WSDL/Binding.pm
+++ b/lib/SOAP/WSDL/Binding.pm
@@ -2,10 +2,10 @@ package SOAP::WSDL::Binding;
 use strict;
 use warnings;
 use Class::Std::Fast::Storable;
-use List::Util qw(first);
+
 use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.04');
+use version; our $VERSION = qv('2.00.05');

 my %operation_of    :ATTR(:name<operation> :default<()>);
 my %type_of         :ATTR(:name<type> :default<()>);
--- a/lib/SOAP/WSDL/Client.pm
+++ b/lib/SOAP/WSDL/Client.pm
@@ -11,7 +11,7 @@ use SOAP::WSDL::Factory::Serializer;
 use SOAP::WSDL::Factory::Transport;
 use SOAP::WSDL::Expat::MessageParser;

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 my %class_resolver_of   :ATTR(:name<class_resolver> :default<()>);
 my %no_dispatch_of      :ATTR(:name<no_dispatch>    :default<()>);
@@ -20,10 +20,10 @@ my %outputxml_of        :ATTR(:name<outputxml>      :default<()>);
 my %transport_of        :ATTR(:name<transport>      :default<()>);
 my %endpoint_of         :ATTR(:name<endpoint>       :default<()>);

-my %soap_version_of     :ATTR(:get<soap_version>    :init_attr<soap_version> :default<'1.1'>);
+my %soap_version_of     :ATTR(:get<soap_version>    :init_attr<soap_version> :default<1.1>);

 my %on_action_of        :ATTR(:name<on_action>      :default<()>);
-my %content_type_of     :ATTR(:name<content_type>   :default<text/xml; charset=utf8>);  #/#trick editors
+my %content_type_of     :ATTR(:name<content_type>   :default<text/xml; charset=utf-8>);  #/#trick editors
 my %serializer_of       :ATTR(:name<serializer>     :default<()>);
 my %deserializer_of     :ATTR(:name<deserializer>   :default<()>);

@@ -395,10 +395,10 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>

 =head1 REPOSITORY INFORMATION

- $Rev: 677 $
+ $Rev: 744 $
 $LastChangedBy: kutterma $
- $Id: Client.pm 677 2008-05-18 20:17:56Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client.pm $
+ $Id: Client.pm 744 2008-10-15 16:58:45Z kutterma $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client.pm $

 =cut

--- a/lib/SOAP/WSDL/Client/Base.pm
+++ b/lib/SOAP/WSDL/Client/Base.pm
@@ -4,7 +4,7 @@ use warnings;
 use base 'SOAP::WSDL::Client';
 use Scalar::Util qw(blessed);

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 sub call {
    my ($self, $method, $body, $header) = @_;
@@ -22,7 +22,7 @@ sub call {
        # parameters given
        my @part_from = ();
        foreach my $class (@{ $method->{ body }->{ parts } }) {
-            eval "require $class" || die $@;
+            eval "require $class" || die $@;    ## no critic (ProhibitStringyEval)
            push @part_from, $class->new(shift(@body_from) || {});
        }

@@ -33,10 +33,10 @@ sub call {
    # if we have a header
    if (%{ $method->{ header } }) {

-        # trat non object special - as above, but only for one
+        # treat non object special - as above, but only for one
        if (not blessed $header) {
            my $class = $method->{ header }->{ parts }->[0];
-            eval "require $class" || die $@;
+            eval "require $class" || die $@;    ## no critic (ProhibitStringyEval)
            $header = $class->new($header);
        }
    }
@@ -85,9 +85,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>

 =head1 REPOSITORY INFORMATION

- $Rev: 689 $
+ $Rev: 728 $
 $LastChangedBy: kutterma $
- $Id: Base.pm 689 2008-05-23 22:11:46Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client/Base.pm $
+ $Id: Base.pm 728 2008-07-13 19:28:50Z kutterma $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client/Base.pm $

 =cut
--- a/lib/SOAP/WSDL/Definitions.pm
+++ b/lib/SOAP/WSDL/Definitions.pm
@@ -1,26 +1,22 @@
 package SOAP::WSDL::Definitions;
-use utf8;
 use strict;
 use warnings;
-use Carp;
-use File::Basename;
-use File::Path;
 use List::Util qw(first);
 use Class::Std::Fast::Storable;
 use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 my %types_of        :ATTR(:name<types>      :default<[]>);
 my %message_of      :ATTR(:name<message>    :default<[]>);
 my %portType_of     :ATTR(:name<portType>   :default<[]>);
 my %binding_of      :ATTR(:name<binding>    :default<[]>);
 my %service_of      :ATTR(:name<service>    :default<[]>);
-my %namespace_of    :ATTR(:name<namespace> :default<()>);
+my %namespace_of    :ATTR(:name<namespace>  :default<()>);

 # must be attr for Class::Std::Fast::Storable
-my %attributes_of :ATTR();
-%attributes_of = (
+#my %attributes_of :ATTR();
+my %attributes_of = (
    binding     => \%binding_of,
    message     => \%message_of,
    portType    => \%portType_of,
@@ -44,6 +40,7 @@ BLOCK: {
  }
 }

+
 1;

 =pod
@@ -118,10 +115,10 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>

 =head1 REPOSITORY INFORMATION

- $Rev: 689 $
+ $Rev: 728 $
 $LastChangedBy: kutterma $
- $Id: Definitions.pm 689 2008-05-23 22:11:46Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Definitions.pm $
+ $Id: Definitions.pm 728 2008-07-13 19:28:50Z kutterma $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Definitions.pm $

 =cut

--- a/lib/SOAP/WSDL/Deserializer/Hash.pm
+++ b/lib/SOAP/WSDL/Deserializer/Hash.pm
@@ -8,7 +8,7 @@ use SOAP::WSDL::Expat::Message2Hash;
 use SOAP::WSDL::Factory::Deserializer;
 SOAP::WSDL::Factory::Deserializer->register( '1.1', __PACKAGE__ );

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 sub BUILD {
    my ($self, $ident, $args_of_ref) = @_;
@@ -163,9 +163,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>

 =head1 REPOSITORY INFORMATION

- $Rev: 689 $
+ $Rev: 728 $
 $LastChangedBy: kutterma $
- $Id: Hash.pm 689 2008-05-23 22:11:46Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/Hash.pm $
+ $Id: Hash.pm 728 2008-07-13 19:28:50Z kutterma $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/Hash.pm $

 =cut
--- a/lib/SOAP/WSDL/Deserializer/SOM.pm
+++ b/lib/SOAP/WSDL/Deserializer/SOM.pm
@@ -2,7 +2,7 @@ package SOAP::WSDL::Deserializer::SOM;
 use strict;
 use warnings;

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');
 our @ISA;

 eval {
@@ -13,6 +13,18 @@ or die "Cannot load SOAP::Lite.
 Cannot deserialize to SOM object without SOAP::Lite.
 Please install SOAP::Lite.";

+sub deserialize {
+    my $self = shift;
+    my $result = eval { $self->SUPER::deserialize(@_) };
+    if ($@) {
+        return SOAP::Fault->new(
+            faultactor => 'soap:Server',
+            faultstring => $@,
+        );
+    }
+    return $result;
+}
+
 sub generate_fault {
    my ($self, $args_from_ref) = @_;
    # code, message, detail, actor
@@ -66,6 +78,17 @@ This may be XML including mixed content, attachements and other XML data not
 SOAP::WSDL::Deserializer::SOM is a subclass of L<SOAP::Deserializer|SOAP::Deserializer>
 from the L<SOAP::Lite|SOAP::Lite> package.

+=head1 METHODS
+
+=head2 deserialize
+
+Deserializes a XML sting into a SOAP::SOM object. Returns a SOAP::Fault object
+on deserialization errors.
+
+=head2 generate_fault
+
+Dies with a SOAP::Fault object.
+
 =head1 USAGE

 SOAP::WSDL::Deserializer will not autoregister itself - to use it for a particular
@@ -85,8 +108,8 @@ SOAP version just use the following lines:

 =item * No on_fault handler

-You cannot specify what to do when an error occurs - SOAP::WSDL will die
-with a SOAP::Fault object on transport errors.
+You cannot specify what to do when an error occurs - SOAP::WSDL will return
+a SOAP::Fault object on transport errors.

 =back

@@ -99,6 +122,9 @@ with a SOAP::Fault object on transport errors.
 SOAP::WSDL::Deserializer::SOM will die with a SOAP::Fault object on calls
 to generate_fault.

+This also means that a SOAP::Fault may be thrown as exception when using
+
+
 =back

 =head1 LICENSE AND COPYRIGHT
@@ -114,9 +140,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>

 =head1 REPOSITORY INFORMATION

- $Rev: 677 $
+ $Rev: 728 $
 $LastChangedBy: kutterma $
- $Id: SOM.pm 677 2008-05-18 20:17:56Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/SOM.pm $
+ $Id: SOM.pm 728 2008-07-13 19:28:50Z kutterma $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/SOM.pm $

 =cut
--- a/lib/SOAP/WSDL/Deserializer/XSD.pm
+++ b/lib/SOAP/WSDL/Deserializer/XSD.pm
@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
 use SOAP::WSDL::SOAP::Typelib::Fault11;
 use SOAP::WSDL::Expat::MessageParser;

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 my %class_resolver_of :ATTR(:name<class_resolver> :default<()>);

@@ -99,9 +99,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>

 =head1 REPOSITORY INFORMATION

- $Rev: 677 $
+ $Rev: 728 $
 $LastChangedBy: kutterma $
- $Id: XSD.pm 677 2008-05-18 20:17:56Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/XSD.pm $
+ $Id: XSD.pm 728 2008-07-13 19:28:50Z kutterma $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/XSD.pm $

 =cut
--- a/lib/SOAP/WSDL/Expat/Base.pm
+++ b/lib/SOAP/WSDL/Expat/Base.pm
@@ -6,7 +6,7 @@ use XML::Parser::Expat;

 # TODO: convert to Class::Std::Fast based class - hash based classes suck.

-use version; our $VERSION = qv('2.00.04');
+use version; our $VERSION = qv('2.00.05');

 sub new {
    my ($class, $arg_ref) = @_;
@@ -35,17 +35,23 @@ sub get_uri { return $_[0]->{ uri }; }
 sub set_user_agent { $_[0]->{ user_agent } = $_[1]; }
 sub get_user_agent { return $_[0]->{ user_agent }; }

+# Mark a URI as "already parsed"
 sub set_parsed {
    my ($self, $uri) = @_;
    $self->{ parsed }->{ $uri } = 1;
    return;
 }

+
+# returns true if a specific URI has already been parsed
 sub is_parsed {
    my ($self, $uri) = @_;
    return exists $self->{ parsed }->{ $uri };
 }

+
+# parse a URI. This is the preferred parsing method for WSDL files, as it's
+# the only one allowing automatic import resolution
 sub parse_uri {
    my $self = shift;
    my $uri = shift;
@@ -74,6 +80,7 @@ sub parse {
        $_[0]->{ parser }->release();
    };
    $_[0]->{ parser }->xpcroak( $@ ) if $@;
+    delete $_[0]->{ parser };
    return $_[0]->{ data };
 }

@@ -83,6 +90,7 @@ sub parsefile {
        $_[0]->{ parser }->release();
    };
    $_[0]->{ parser }->xpcroak( $@ ) if $@;
+    delete $_[0]->{ parser };
    return $_[0]->{ data };
 }

--- a/lib/SOAP/WSDL/Expat/Message2Hash.pm
+++ b/lib/SOAP/WSDL/Expat/Message2Hash.pm
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 use base qw(SOAP::WSDL::Expat::Base);

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 sub _initialize {
    my ($self, $parser) = @_;
--- a/lib/SOAP/WSDL/Expat/MessageParser.pm
+++ b/lib/SOAP/WSDL/Expat/MessageParser.pm
@@ -1,19 +1,20 @@
 #!/usr/bin/perl
 package SOAP::WSDL::Expat::MessageParser;
-use strict;
-use warnings;
-use Carp qw(croak confess);
-
-use version; our $VERSION = qv('2.00.03');
+use strict; use warnings;

 use SOAP::WSDL::XSD::Typelib::Builtin;
 use SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;

 use base qw(SOAP::WSDL::Expat::Base);

-require Class::Std::Fast;
+BEGIN { require Class::Std::Fast };
+
+use version; our $VERSION = qv('2.00.05');
+
+# GLOBALS
 my $OBJECT_CACHE_REF = Class::Std::Fast::OBJECT_CACHE_REF();

+# keep track of classes loaded
 my %LOADED_OF = ();

 sub new {
@@ -46,7 +47,10 @@ sub class_resolver {
 sub load_classes {
    my $self = shift;

-    for (values %{ $self->{ class_resolver }->get_typemap }) {
+    return if $LOADED_OF{ $self->{ class_resolver } };
+
+    # requires sorting to make sub-packages load after their parent
+    for (sort values %{ $self->{ class_resolver }->get_typemap }) {
        no strict qw(refs);
        my $class = $_;

@@ -54,9 +58,10 @@ sub load_classes {
        next if $class eq '__SKIP__';
        next if defined *{ "$class\::" }; # check if namespace exists

+        # Require takes a bareword or a file name - we have to take
+        # the filname road here...
        $class =~s{ :: }{/}xmsg;
-        $class .= '.pm';
-        require $class;
+        require "$class.pm";    ## no critic (RequireBarewordIncludes)
    }
    $LOADED_OF{ $self->{ class_resolver } } = 1;
 }
@@ -106,16 +111,12 @@ sub _initialize {
        : ();

    # use "globals" for speed
-    my ($_prefix, $_method,
-        $_class, $_leaf) = ();
+    my ($_prefix, $_method, $_class, $_leaf) = ();

    my $char_handler = sub {
-            return if (!$_leaf);    # we only want characters in leaf nodes
-
-            $characters .= $_[1];
-#                if $_[1] =~m{ [^\s] }xms;
-
-            return;
+        return if (!$_leaf);    # we only want characters in leaf nodes
+        $characters .= $_[1];   # add to characters
+        return;                 # return void
    };

    no strict qw(refs);
@@ -194,6 +195,9 @@ sub _initialize {
                }
            }
            $depth++;
+
+            # TODO: Skip content of anyType / any stuff
+
            return;
        },

@@ -319,11 +323,11 @@ the same terms as perl itself

 =head1 Repository information

- $Id: MessageParser.pm 677 2008-05-18 20:17:56Z kutterma $
+ $Id: MessageParser.pm 728 2008-07-13 19:28:50Z kutterma $

- $LastChangedDate: 2008-05-18 22:17:56 +0200 (So, 18 Mai 2008) $
- $LastChangedRevision: 677 $
+ $LastChangedDate: 2008-07-13 21:28:50 +0200 (So, 13 Jul 2008) $
+ $LastChangedRevision: 728 $
 $LastChangedBy: kutterma $

- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageParser.pm $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageParser.pm $

--- a/lib/SOAP/WSDL/Expat/MessageStreamParser.pm
+++ b/lib/SOAP/WSDL/Expat/MessageStreamParser.pm
@@ -6,7 +6,7 @@ use XML::Parser::Expat;
 use SOAP::WSDL::Expat::MessageParser;
 use base qw(SOAP::WSDL::Expat::MessageParser);

-use version; our $VERSION = qv('2.00.04');
+use version; our $VERSION = qv('2.00.05');

 sub parse_start {
    my $self = shift;
@@ -69,9 +69,9 @@ the same terms as perl itself

 =head1 REPOSITORY INFORMATION

- $Rev: 701 $
+ $Rev: 728 $
 $LastChangedBy: kutterma $
- $Id: MessageStreamParser.pm 701 2008-06-05 19:19:16Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageStreamParser.pm $
+ $Id: MessageStreamParser.pm 728 2008-07-13 19:28:50Z kutterma $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageStreamParser.pm $

 =cut
--- a/lib/SOAP/WSDL/Expat/WSDLParser.pm
+++ b/lib/SOAP/WSDL/Expat/WSDLParser.pm
@@ -5,7 +5,17 @@ use Carp;
 use SOAP::WSDL::TypeLookup;
 use base qw(SOAP::WSDL::Expat::Base);

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');
+
+#
+# Import child elements of a WSDL / XML Schema tree into the current tree
+#
+# Set the targetNamespace of the imported nodes to $import_namespace
+#
+# SYNOPSIS
+#
+# $self->_import_children($name, $imported, $imported, $import_namespace)
+#

 sub _import_children {
    my ($self, $name, $imported, $importer, $import_namespace) = @_;
@@ -140,6 +150,8 @@ sub _initialize {
    # TODO skip non-XML Schema namespace tags
    $parser->setHandlers(
        Start => sub {
+            # handle attrs as list - expat uses dual-vars for looking
+            # up namespace information, and hash keys don't allow dual vars...
            my ($parser, $localname, @attrs) = @_;
            $characters = q{};

@@ -174,9 +186,7 @@ sub _initialize {
                    # remember element for stepping back
                    push @{ $list }, $current;
                }
-                else {
-                    $self->{ data } = $obj;
-                }
+
                # set new element (step down)
                $current = $obj;
            }
@@ -228,6 +238,11 @@ sub _initialize {
                $localname
            ) || {};

+            if (! defined $list->[-1]) {
+                $self->{ data } = $current;
+                return;
+            }
+
            return if not ($action->{ type });
            if ( $action->{ type } eq 'CLASS' ) {
               $current = pop @{ $list };
@@ -275,7 +290,6 @@ sub _fixup_attrs {
    } $parser->new_ns_prefixes();

    push @attrs_from, map {
-        $_ =
        {
            Name => defined $parser->namespace($_)
                ? $parser->namespace($_) . '|' . $_
@@ -322,11 +336,11 @@ the same terms as perl itself

 =head1 Repository information

- $Id: WSDLParser.pm 688 2008-05-23 21:01:54Z kutterma $
+ $Id: WSDLParser.pm 728 2008-07-13 19:28:50Z kutterma $

- $LastChangedDate: 2008-05-23 23:01:54 +0200 (Fr, 23 Mai 2008) $
- $LastChangedRevision: 688 $
+ $LastChangedDate: 2008-07-13 21:28:50 +0200 (So, 13 Jul 2008) $
+ $LastChangedRevision: 728 $
 $LastChangedBy: kutterma $

- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/WSDLParser.pm $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/WSDLParser.pm $

--- a/lib/SOAP/WSDL/Factory/Deserializer.pm
+++ b/lib/SOAP/WSDL/Factory/Deserializer.pm
@@ -2,7 +2,7 @@ package SOAP::WSDL::Factory::Deserializer;
 use strict;
 use warnings;

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 my %DESERIALIZER = (
    '1.1' => 'SOAP::WSDL::Deserializer::XSD',
--- a/lib/SOAP/WSDL/Factory/Generator.pm
+++ b/lib/SOAP/WSDL/Factory/Generator.pm
@@ -2,7 +2,7 @@ package SOAP::WSDL::Factory::Generator;
 use strict;
 use warnings;

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 my %GENERATOR = (
    'XSD' => 'SOAP::WSDL::Generator::Template::XSD',
--- a/lib/SOAP/WSDL/Factory/Serializer.pm
+++ b/lib/SOAP/WSDL/Factory/Serializer.pm
@@ -2,7 +2,7 @@ package SOAP::WSDL::Factory::Serializer;
 use strict;
 use warnings;

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 my %SERIALIZER = (
    '1.1' => 'SOAP::WSDL::Serializer::XSD',
@@ -138,9 +138,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>

 =head1 REPOSITORY INFORMATION

- $Rev: 677 $
+ $Rev: 728 $
 $LastChangedBy: kutterma $
- $Id: Serializer.pm 677 2008-05-18 20:17:56Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Serializer.pm $
+ $Id: Serializer.pm 728 2008-07-13 19:28:50Z kutterma $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Serializer.pm $

 =cut
--- a/lib/SOAP/WSDL/Factory/Transport.pm
+++ b/lib/SOAP/WSDL/Factory/Transport.pm
@@ -1,7 +1,7 @@
 package SOAP::WSDL::Factory::Transport;
 use strict;
 use warnings;
-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 my %registered_transport_of = ();

@@ -243,9 +243,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>

 =head1 REPOSITORY INFORMATION

- $Rev: 679 $
+ $Rev: 728 $
 $LastChangedBy: kutterma $
- $Id: Transport.pm 679 2008-05-18 21:18:03Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Transport.pm $
+ $Id: Transport.pm 728 2008-07-13 19:28:50Z kutterma $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Transport.pm $

 =cut
--- a/lib/SOAP/WSDL/Generator/Iterator/WSDL11.pm
+++ b/lib/SOAP/WSDL/Generator/Iterator/WSDL11.pm
@@ -2,7 +2,7 @@ package SOAP::WSDL::Generator::Iterator::WSDL11;
 use strict; use warnings;
 use Class::Std::Fast;

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 my %definitions_of  :ATTR(:name<definitions>    :default<[]>);
 my %nodes_of        :ATTR(:name<nodes>          :default<[]>);
@@ -74,7 +74,8 @@ my %METHOD_OF = (
                ? do {
                    die "unsupported global type <"
                        . $node->get_type . "> found in part ". $node->get_name();
-                    $types->find_type( $node->expand($node->get_type) )
+                    ## use this once we can auto-generate an element for RPC bindings
+                    # $types->find_type( $node->expand($node->get_type) )
                }
                : (),
            $node->get_element()
--- a/lib/SOAP/WSDL/Generator/PrefixResolver.pm
+++ b/lib/SOAP/WSDL/Generator/PrefixResolver.pm
@@ -3,7 +3,7 @@ use strict; use warnings;

 use Class::Std::Fast::Storable;

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 my %namespace_prefix_map_of :ATTR(:name<namespace_prefix_map>   :default<{}>);
 my %namespace_map_of        :ATTR(:name<namespace_map>          :default<{}>);
--- a/lib/SOAP/WSDL/Generator/Template.pm
+++ b/lib/SOAP/WSDL/Generator/Template.pm
@@ -1,11 +1,11 @@
 package SOAP::WSDL::Generator::Template;
-use strict;
+use strict; use warnings;
 use Template;
 use Class::Std::Fast::Storable;
 use Carp;
 use SOAP::WSDL::Generator::PrefixResolver;

-use version; our $VERSION = qv('2.00.04');
+use version; our $VERSION = qv('2.00.05');

 my %tt_of               :ATTR(:get<tt>);
 my %definitions_of      :ATTR(:name<definitions>        :default<()>);
@@ -39,7 +39,8 @@ sub _process :PROTECTED {
        INCLUDE_PATH => $INCLUDE_PATH_of{ $ident },
        OUTPUT_PATH => $OUTPUT_PATH_of{ $ident },
        PLUGIN_BASE => 'SOAP::WSDL::Generator::Template::Plugin',
-    );
+    )
+        or die Template->error();

    $tt->process( $template,
    {
@@ -68,4 +69,4 @@ sub _process :PROTECTED {
        or croak $INCLUDE_PATH_of{ $ident }, '\\', $template, ' ', $tt->error();
 }

-1;
+1;
--- a/lib/SOAP/WSDL/Generator/Template/Plugin/XSD.pm
+++ b/lib/SOAP/WSDL/Generator/Template/Plugin/XSD.pm
@@ -3,8 +3,8 @@ use strict;
 use warnings;
 use Carp qw(confess);
 use Class::Std::Fast::Storable constructor => 'none';
-
-use version; our $VERSION = qv('2.00.04');
+use Scalar::Util qw(blessed);
+use version; our $VERSION = qv('2.00.05');

 my %namespace_prefix_map_of :ATTR(:name<namespace_prefix_map>   :default<{}>);
 my %namespace_map_of        :ATTR(:name<namespace_map>          :default<{}>);
@@ -155,6 +155,8 @@ sub element_name {
    my $self = shift;
    my $element = shift;

+    confess "no element object" unless blessed $element;
+
    my $name = $element->get_name();
    if (! $name) {
        while (my $ref = $element->get_ref()) {
--- a/lib/SOAP/WSDL/Generator/Template/XSD.pm
+++ b/lib/SOAP/WSDL/Generator/Template/XSD.pm
@@ -1,11 +1,11 @@
 package SOAP::WSDL::Generator::Template::XSD;
-use strict;
+use strict; use warnings;
 use Template;
 use Class::Std::Fast::Storable;
 use File::Basename;
 use File::Spec;

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 use SOAP::WSDL::Generator::Visitor::Typemap;
 use SOAP::WSDL::Generator::Visitor::Typelib;
@@ -205,6 +205,7 @@ sub visit_XSD_Element {
    my $output = defined $output_of{ ident $self }
        ? $output_of{ ident $self }
        : $self->_generate_filename( $self->get_name_resolver()->create_xsd_name($element) );
+    warn "Creating element class $output \n";
    $self->_process('element.tt', { element => $element } , $output);
 }

@@ -213,6 +214,7 @@ sub visit_XSD_SimpleType {
    my $output = defined $output_of{ ident $self }
        ? $output_of{ ident $self }
        : $self->_generate_filename( $self->get_name_resolver()->create_xsd_name($type) );
+    warn "Creating simpleType class $output \n";
    $self->_process('simpleType.tt', { simpleType => $type } , $output);
 }

@@ -221,6 +223,7 @@ sub visit_XSD_ComplexType {
    my $output = defined $output_of{ ident $self }
        ? $output_of{ ident $self }
        : $self->_generate_filename( $self->get_name_resolver()->create_xsd_name($type) );
+    warn "Creating complexType class $output \n";
    $self->_process('complexType.tt', { complexType => $type } , $output);
 }

--- a/lib/SOAP/WSDL/Generator/Template/XSD/Interface/POD/Operation.tt
+++ b/lib/SOAP/WSDL/Generator/Template/XSD/Interface/POD/Operation.tt
@@ -4,6 +4,16 @@

 [%     type = definitions.find_portType( binding.expand( binding.get_type ) );
    port_op = type.find_operation( definitions.get_targetNamespace, operation.get_name );
-port_op.get_documentation %]
+    port_op.get_documentation();

- $interface->[% operation.get_name %]([% INCLUDE Interface/POD/Message.tt %] );
+    # for now we only document the first response part - document/literal
+    # doesn't allow more.
+    response_name = port_op.first_output.get_message();
+    response_part = definitions.find_message( port_op.first_output.expand( response_name ) ).get_part();
+    response_body_element = definitions.first_types.find_element( response_part.0.expand( response_part.0.get_element ) );
+    response_body_class = XSD.create_xsd_name(response_body_element);
+%]
+
+Returns a L<[% response_body_class %]|[% response_body_class %]> object.
+
+ $response = $interface->[% operation.get_name %]([% INCLUDE Interface/POD/Message.tt %] );
--- a/lib/SOAP/WSDL/Generator/Template/XSD/complexType/POD/complexContent.tt
+++ b/lib/SOAP/WSDL/Generator/Template/XSD/complexType/POD/complexContent.tt
@@ -1,12 +1,12 @@
-[% IF (complexType.get_variety == 'restriction');
+[% IF (complexType.get_derivation == 'restriction');
    INCLUDE complexType/POD/restriction.tt(complexType = complexType);
-ELSIF (complexType.get_variety == 'extension');
+ELSIF (complexType.get_derivation == 'extension');
    #THROW NOT_IMPLEMENTED, "${ complexType.get_name } - complexType complexContent extension not implemented yet";
 %]
 # No documentation generated for complexContent / extension yet
 [%
 ELSE;
-    THROW UNKNOWN, "unknown variety ${ complexType.get_variety }";
+    THROW UNKNOWN, "unknown derivation ${ complexType.get_derivation }";
 END;

 %]
--- a/lib/SOAP/WSDL/Generator/Template/XSD/complexType/complexContent.tt
+++ b/lib/SOAP/WSDL/Generator/Template/XSD/complexType/complexContent.tt
@@ -7,6 +7,10 @@ ELSIF (complexType.get_variety == 'sequence');
 ELSIF (complexType.get_variety == 'all');
    INCLUDE complexType/extension.tt(complexType = complexType);
 ELSE;
-    THROW UNKNOWN, "unknown variety ${ complexType.get_variety }";
+    IF (complexType.get_variety);
+        THROW UNKNOWN, "unknown variety ${ complexType.get_variety }";
+    ELSE -%]
+# empty variety
+[%  END;
 END;
 %]
--- a/lib/SOAP/WSDL/Generator/Template/XSD/complexType/extension.tt
+++ b/lib/SOAP/WSDL/Generator/Template/XSD/complexType/extension.tt
@@ -22,7 +22,7 @@ element_list = [];

 # copy complexType ref
 base_type = complexType;
-base_name=base_type.expand( base_type.get_base );
+base_name = base_type.expand( base_type.get_base );
 base_type = definitions.first_types.find_type( base_name );

 # add a use base for first to setup inheritance
@@ -31,13 +31,17 @@ use base qw([% XSD.create_xsd_name( base_type ) %]);
 [%
 # loop forever
 WHILE (1);
+    IF (complexType.get_variety == 'extension');
+        # wrap statement in IF to avoid printing
+        IF (complexType.set_variety( base_type.get_variety )); END;
+    END;
    # make a copy. We don't want to modify the original list here...
    FOREACH element = base_type.get_element.reverse;
        element_list.unshift(element);
    END;
-
-    # get next base type
-    IF (base_name=base_type.expand( base_type.get_base ));
+    # get next base type if there is one...
+    IF (base_type.get_base);
+        base_name=base_type.expand( base_type.get_base );
        # set new base_type
        base_type = definitions.first_types.find_type( base_name );
    ELSE;
@@ -59,8 +63,11 @@ END;

 # set derived element list
 # wrap in IF; END; to prevent it getting printed
-IF (complexType.set_element( element_list )); END;
+IF ( complexType.set_element( element_list ) ); END;

+-%]
+# Variety: [% complexType.get_variety %]
+[%
 INCLUDE complexType/variety.tt(complexType = complexType);

 # restore original element list
--- a/lib/SOAP/WSDL/Generator/Template/XSD/element.tt
+++ b/lib/SOAP/WSDL/Generator/Template/XSD/element.tt
@@ -76,6 +76,38 @@ Perl data type class for the XML Schema defined element

 [% INCLUDE POD/annotation.tt(node = element) %]

+[% IF (complexType = element.first_complexType);
+    IF (complexType.get_element); %]
+
+[% head1 %] PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+[%      FOREACH child_element = complexType.get_element -%]
+=item * [% XSD.perl_var_name(XSD.element_name(child_element)) %]
+
+ $element->set_[% XSD.perl_var_name(XSD.element_name(child_element)) %]($data);
+ $element->get_[% XSD.perl_var_name(XSD.element_name(child_element)) %]();
+
+[%          IF (XSD.perl_var_name(XSD.element_name(child_element)) == child_element.get_name); %]
+[%          ELSE %]
+Note: The name of this property has been altered, because it didn't match
+perl's notion of variable/subroutine names. The altered name is used in
+perl code only, XML output uses the original name:
+
+ [% child_element.get_name %]
+
+[%          END %]
+
+=back
+[%      END;
+    END;
+END; -%]
+
+
 [% head1 %] METHODS

 [% head2 %] new
--- a/lib/SOAP/WSDL/Generator/Visitor.pm
+++ b/lib/SOAP/WSDL/Generator/Visitor.pm
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use Class::Std::Fast::Storable;

-use version; our $VERSION = qv('2.00.04');
+use version; our $VERSION = qv('2.00.05');

 my %definitions_of :ATTR(:name<definitions> :default<()>);
 my %type_prefix_of :ATTR(:name<type_prefix> :default<()>);
--- a/lib/SOAP/WSDL/Generator/Visitor/Typelib.pm
+++ b/lib/SOAP/WSDL/Generator/Visitor/Typelib.pm
@@ -5,7 +5,7 @@ use base qw(SOAP::WSDL::Generator::Visitor
    SOAP::WSDL::Generator::Template
 );

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 1;

--- a/lib/SOAP/WSDL/Generator/Visitor/Typemap.pm
+++ b/lib/SOAP/WSDL/Generator/Visitor/Typemap.pm
@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;

 use base qw(SOAP::WSDL::Generator::Visitor);

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 my %path_of             :ATTR(:name<path>           :default<[]>);
 my %typemap_of          :ATTR(:name<typemap>        :default<()>);
--- a/lib/SOAP/WSDL/Manual/Cookbook.pod
+++ b/lib/SOAP/WSDL/Manual/Cookbook.pod
@@ -32,6 +32,15 @@ this backend:

 =head3 Accessing HTTP(S) webservices protected by NTLM authentication

+You need the L<NTLM|NTLM> distribution installed to access webservices protected
+by NTLM authentication. More specifically, you need the Authen::NTLM module
+from this distribution. Note that this is different from the Authen::NTML
+distribution by Yee Man Chan also available from CPAN.
+
+Your user credentials usually need to include the windows domain like this:
+
+ testdomain\testuser
+
 Besides passing user credentials as when accessing a web service protected
 by basic or digest authentication, you also need to enforce connection
 keep_alive on the transport backens.
@@ -130,4 +139,4 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 $Id: $
 $HeadURL: $

-=cut
+=cut
--- a/lib/SOAP/WSDL/Manual/Glossary.pod
+++ b/lib/SOAP/WSDL/Manual/Glossary.pod
@@ -93,7 +93,7 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 $Rev: 391 $
 $LastChangedBy: kutterma $
 $Id: Glossary.pod 391 2007-11-17 21:56:13Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Manual/Glossary.pod $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Manual/Glossary.pod $

 =cut

--- a/lib/SOAP/WSDL/Manual/Parser.pod
+++ b/lib/SOAP/WSDL/Manual/Parser.pod
@@ -241,7 +241,7 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 $Rev: 391 $
 $LastChangedBy: kutterma $
 $Id: Parser.pod 391 2007-11-17 21:56:13Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Manual/Parser.pod $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Manual/Parser.pod $

 =cut

--- a/lib/SOAP/WSDL/Manual/WS_I.pod
+++ b/lib/SOAP/WSDL/Manual/WS_I.pod
@@ -1255,7 +1255,7 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
 $Rev: 562 $
 $LastChangedBy: kutterma $
 $Id: WS_I.pod 562 2008-02-22 20:32:17Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Manual/WS_I.pod $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Manual/WS_I.pod $

 =cut

--- a/lib/SOAP/WSDL/Manual/XSD.pod
+++ b/lib/SOAP/WSDL/Manual/XSD.pod
@@ -90,10 +90,8 @@ can just say

 Of course this will only work if MyTypes::NewType has a superset of the old
 object class' elements.
-.

-Future versions will restrict the data returned to the child element's data -
-you should not expect XML attributes to be returned through hash refs.
+Note that XML attribute data is not included in the hash ref output yet.

 =head1 HOW IT WORKS

@@ -405,7 +403,7 @@ supported (yet).

 =item * import

-The import includion element requires the schemaLocation attribute for
+The import inclusion element requires the schemaLocation attribute for
 resolving the XML schema to import. Support for the import element is
 implemented in L<SOAP::WSDL::Expat::WSDLParser|SOAP::WSDL::Expat::WSDLParser>,
 so alternative parsers may or may not support the import element.
--- a/lib/SOAP/WSDL/Message.pm
+++ b/lib/SOAP/WSDL/Message.pm
@@ -4,7 +4,7 @@ use warnings;
 use Class::Std::Fast::Storable;
 use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.04');
+use version; our $VERSION = qv('2.00.05');

 my %part_of :ATTR(:name<part> :default<[]>);

--- a/lib/SOAP/WSDL/OpMessage.pm
+++ b/lib/SOAP/WSDL/OpMessage.pm
@@ -4,7 +4,7 @@ use warnings;
 use Class::Std::Fast::Storable;
 use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 my %body_of         :ATTR(:name<body>           :default<[]>);
 my %header_of       :ATTR(:name<header>         :default<[]>);
--- a/lib/SOAP/WSDL/Operation.pm
+++ b/lib/SOAP/WSDL/Operation.pm
@@ -4,7 +4,7 @@ use warnings;
 use Class::Std::Fast::Storable;
 use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 my %operation_of :ATTR(:name<operation> :default<()>);
 my %input_of :ATTR(:name<input> :default<[]>);
--- a/lib/SOAP/WSDL/Part.pm
+++ b/lib/SOAP/WSDL/Part.pm
@@ -6,7 +6,7 @@ use Class::Std::Fast::Storable;

 use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 my %element_of  :ATTR(:name<element>    :default<()>);
 my %type_of     :ATTR(:name<type>       :default<()>);
--- a/lib/SOAP/WSDL/Port.pm
+++ b/lib/SOAP/WSDL/Port.pm
@@ -4,7 +4,7 @@ use warnings;
 use Class::Std::Fast::Storable;
 use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 my %binding_of :ATTR(:name<binding> :default<()>);
 my %address_of :ATTR(:name<address> :default<()>);
--- a/lib/SOAP/WSDL/PortType.pm
+++ b/lib/SOAP/WSDL/PortType.pm
@@ -2,33 +2,26 @@ package SOAP::WSDL::PortType;
 use strict;
 use warnings;
 use Class::Std::Fast::Storable;
+use List::Util;
 use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 my %operation_of :ATTR(:name<operation> :default<()>);

-my %attributes_of :ATTR();
+#
+#=head2 find_operation
+#
+#$port_type->find_operation($namespace, $name)
+#
+#Returns the PortType's operation object matching the given namespace and
+#name
+#

-%attributes_of = (
-    operation => \%operation_of,
-);
-
-# Function factory - we could be writing this method for all %attribute
-# keys, too, but that's just C&P (eehm, Copy & Paste...)
-foreach my $method(keys %attributes_of ) {
-    no strict qw(refs);             ## no critic ProhibitNoStrict
-
-    # ... btw, we mean this method here...
-    *{ "find_$method" } = sub {
-        my ($self, @args) = @_;
-        my @found_at = grep {
-            $_->get_targetNamespace() eq $args[0] &&
-            $_->get_name() eq $args[1]
-        }
-        @{ $attributes_of{ $method }->{ ident $self } };
-        return $found_at[0];
-    };
-}
+sub find_operation {
+    return List::Util::first {
+        ( $_->get_targetNamespace() eq $_[1] ) && ( $_->get_name() eq $_[2] )
+    } @{ $operation_of{ ${ $_[0] } } };
+};

 1;
--- a/lib/SOAP/WSDL/SOAP/Address.pm
+++ b/lib/SOAP/WSDL/SOAP/Address.pm
@@ -4,7 +4,7 @@ use warnings;
 use base qw(SOAP::WSDL::Base);
 use Class::Std::Fast::Storable;

-use version; our $VERSION = qv('2.00.04');
+use version; our $VERSION = qv('2.00.05');

 my %location   :ATTR(:name<location> :default<()>);
 1;
--- a/lib/SOAP/WSDL/SOAP/Body.pm
+++ b/lib/SOAP/WSDL/SOAP/Body.pm
@@ -4,7 +4,7 @@ use warnings;
 use base qw(SOAP::WSDL::Base);
 use Class::Std::Fast::Storable;

-use version; our $VERSION = qv('2.00.04');
+use version; our $VERSION = qv('2.00.05');

 my %use_of              :ATTR(:name<use>            :default<q{}>);
 my %namespace_of        :ATTR(:name<namespace>      :default<q{}>);
--- a/lib/SOAP/WSDL/SOAP/Header.pm
+++ b/lib/SOAP/WSDL/SOAP/Header.pm
@@ -4,7 +4,7 @@ use warnings;
 use base qw(SOAP::WSDL::Base);
 use Class::Std::Fast::Storable;

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 my %use_of              :ATTR(:name<use>            :default<q{}>);
 my %namespace_of        :ATTR(:name<namespace>      :default<q{}>);
--- a/lib/SOAP/WSDL/SOAP/HeaderFault.pm
+++ b/lib/SOAP/WSDL/SOAP/HeaderFault.pm
@@ -3,6 +3,6 @@ use strict;
 use warnings;
 use base qw(SOAP::WSDL::Header);

-use version; our $VERSION = qv('2.00.04');
+use version; our $VERSION = qv('2.00.05');

 1;
--- a/lib/SOAP/WSDL/SOAP/Operation.pm
+++ b/lib/SOAP/WSDL/SOAP/Operation.pm
@@ -4,7 +4,7 @@ use warnings;
 use Class::Std::Fast::Storable;
 use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 my %style_of :ATTR(:name<style> :default<()>);
 my %soapAction_of :ATTR(:name<soapAction> :default<()>);
--- a/lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm
+++ b/lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use Class::Std::Fast::Storable constructor => 'none';

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 use SOAP::WSDL::XSD::Typelib::ComplexType;
 use SOAP::WSDL::XSD::Typelib::Element;
@@ -37,7 +37,7 @@ __PACKAGE__->_factory(
 sub get_xmlns { return 'http://schemas.xmlsoap.org/soap/envelope/' };

 __PACKAGE__->__set_name('Fault');
-__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_nillable(0);
 __PACKAGE__->__set_minOccurs();
 __PACKAGE__->__set_maxOccurs();
 __PACKAGE__->__set_ref('');
@@ -101,10 +101,10 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>

 =head1 REPOSITORY INFORMATION

- $Rev: 677 $
+ $Rev: 728 $
 $LastChangedBy: kutterma $
- $Id: Fault11.pm 677 2008-05-18 20:17:56Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm $
+ $Id: Fault11.pm 728 2008-07-13 19:28:50Z kutterma $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm $

 =cut

--- a/lib/SOAP/WSDL/Serializer/XSD.pm
+++ b/lib/SOAP/WSDL/Serializer/XSD.pm
@@ -5,7 +5,7 @@ use warnings;
 use Class::Std::Fast::Storable;
 use Scalar::Util qw(blessed);

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 use SOAP::WSDL::Factory::Serializer;

@@ -50,7 +50,7 @@ sub serialize {
 }

 sub serialize_header {
-    my ($self, $name, $data, $opt) = @_;
+    my ($self, $method, $data, $opt) = @_;

    # header is optional. Leave out if there's no header data
    return q{} if not $data;
@@ -62,8 +62,11 @@ sub serialize_header {
 }

 sub serialize_body {
-    my ($self, $name, $data, $opt) = @_;
-    $data->__set_name("$opt->{prefix}:$name") if $opt->{prefix};
+    my ($self, $method, $data, $opt) = @_;
+
+    # TODO This one wipes out the old class' XML name globally
+    # Fix in some more appropriate place...
+    $data->__set_name("$opt->{prefix}:" . $data->__get_name() ) if $opt->{prefix};

    # Body is NOT optional. Serialize to empty body
    # if we have no data.
@@ -129,10 +132,10 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>

 =head1 REPOSITORY INFORMATION

- $Rev: 677 $
+ $Rev: 735 $
 $LastChangedBy: kutterma $
- $Id: XSD.pm 677 2008-05-18 20:17:56Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Serializer/XSD.pm $
+ $Id: XSD.pm 735 2008-08-14 07:36:54Z kutterma $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Serializer/XSD.pm $

 =cut

--- a/lib/SOAP/WSDL/Server.pm
+++ b/lib/SOAP/WSDL/Server.pm
@@ -6,7 +6,7 @@ use Scalar::Util qw(blessed);
 use SOAP::WSDL::Factory::Deserializer;
 use SOAP::WSDL::Factory::Serializer;

-use version; our $VERSION = qv('2.00.04');
+use version; our $VERSION = qv('2.00.05');

 my %dispatch_to_of      :ATTR(:name<dispatch_to> :default<()>);
 my %action_map_ref_of   :ATTR(:name<action_map_ref> :default<{}>);
--- a/lib/SOAP/WSDL/Server/CGI.pm
+++ b/lib/SOAP/WSDL/Server/CGI.pm
@@ -2,6 +2,8 @@ package SOAP::WSDL::Server::CGI;
 use strict;
 use warnings;

+use Encode;
+
 use HTTP::Request;
 use HTTP::Response;
 use HTTP::Status;
@@ -12,7 +14,7 @@ use Class::Std::Fast::Storable;

 use base qw(SOAP::WSDL::Server);

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.06');

 # 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,7 +82,7 @@ sub handle {
    else {
        $response = HTTP::Response->new(200);
        $response->header('Content-type' => 'text/xml; charset="utf-8"');
-        $response->content( $response_message );
+        $response->content( encode('utf8', $response_message ) );
        {
            use bytes;
            $response->header('Content-length', length $response_message);
--- a/lib/SOAP/WSDL/Server/Mod_Perl2.pm
+++ b/lib/SOAP/WSDL/Server/Mod_Perl2.pm
@@ -16,7 +16,7 @@ use Apache2::Const -compile => qw(
                                    HTTP_LENGTH_REQUIRED
                                );

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 my %LOADED_OF = ();

--- a/lib/SOAP/WSDL/Service.pm
+++ b/lib/SOAP/WSDL/Service.pm
@@ -4,7 +4,7 @@ use warnings;
 use Class::Std::Fast::Storable;
 use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.04');
+use version; our $VERSION = qv('2.00.05');

 my %port_of    :ATTR(:name<port>   :default<[]>);

--- a/lib/SOAP/WSDL/Transport/HTTP.pm
+++ b/lib/SOAP/WSDL/Transport/HTTP.pm
@@ -1,8 +1,8 @@
 package SOAP::WSDL::Transport::HTTP;
-use strict;
+use strict; use warnings;
 use base qw(LWP::UserAgent);

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 # create methods normally inherited from SOAP::Client
 SUBFACTORY: {
@@ -23,9 +23,10 @@ sub send_receive {

    $encoding = defined($encoding)
        ? lc($encoding)
-        : 'utf8';
+        : 'utf-8';

-    $content_type = 'text/xml' if not defined($content_type);
+    $content_type = "text/xml; charset=$encoding"
+        if not defined($content_type);
    # what's this all about?
    # unfortunately combination of LWP and Perl 5.6.1 and later has bug
    # in sending multibyte characters. LWP uses length() to calculate
@@ -48,7 +49,7 @@ sub send_receive {

    my $request = HTTP::Request->new( 'POST',
        $endpoint,
-        [   'Content-Type', "$content_type; charset=$encoding",
+        [   'Content-Type', "$content_type",
            'Content-Length', $bytelength,
            'SOAPAction', $soap_action,
        ],
@@ -90,10 +91,10 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>

 =head1 REPOSITORY INFORMATION

- $Rev: 677 $
+ $Rev: 744 $
 $LastChangedBy: kutterma $
- $Id: HTTP.pm 677 2008-05-18 20:17:56Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Transport/HTTP.pm $
+ $Id: HTTP.pm 744 2008-10-15 16:58:45Z kutterma $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Transport/HTTP.pm $

 =cut

--- a/lib/SOAP/WSDL/Transport/Loopback.pm
+++ b/lib/SOAP/WSDL/Transport/Loopback.pm
@@ -4,7 +4,7 @@ use warnings;
 use Class::Std::Fast::Storable constructor => 'basic';
 use SOAP::WSDL::Factory::Transport;

-use version; our $VERSION = qv('2.00.04');
+use version; our $VERSION = qv('2.00.05');

 # register on loading
 SOAP::WSDL::Factory::Transport->register( http => __PACKAGE__ );
--- a/lib/SOAP/WSDL/Transport/Test.pm
+++ b/lib/SOAP/WSDL/Transport/Test.pm
@@ -4,7 +4,7 @@ use warnings;
 use Class::Std::Fast::Storable;
 use SOAP::WSDL::Factory::Transport;

-use version; our $VERSION = qv('2.00.04');
+use version; our $VERSION = qv('2.00.05');

 SOAP::WSDL::Factory::Transport->register( http => __PACKAGE__ );
 SOAP::WSDL::Factory::Transport->register( https => __PACKAGE__ );
--- a/lib/SOAP/WSDL/TypeLookup.pm
+++ b/lib/SOAP/WSDL/TypeLookup.pm
@@ -2,7 +2,7 @@ package SOAP::WSDL::TypeLookup;
 use strict;
 use warnings;

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 my %TYPE_FROM = (
    # wsdl:
--- a/lib/SOAP/WSDL/Types.pm
+++ b/lib/SOAP/WSDL/Types.pm
@@ -5,7 +5,7 @@ use SOAP::WSDL::XSD::Schema::Builtin;
 use Class::Std::Fast::Storable;
 use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.04');
+use version; our $VERSION = qv('2.00.05');

 my %schema_of :ATTR(:name<schema> :default<[]>);

--- a/lib/SOAP/WSDL/XSD/Annotation.pm
+++ b/lib/SOAP/WSDL/XSD/Annotation.pm
@@ -4,7 +4,7 @@ use warnings;
 use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.04');
+use version; our $VERSION = qv('2.00.05');

 #<enumeration value="">

--- a/lib/SOAP/WSDL/XSD/Attribute.pm
+++ b/lib/SOAP/WSDL/XSD/Attribute.pm
@@ -4,7 +4,7 @@ use warnings;
 use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 #<attribute
 #  default = string
--- a/lib/SOAP/WSDL/XSD/AttributeGroup.pm
+++ b/lib/SOAP/WSDL/XSD/AttributeGroup.pm
@@ -4,7 +4,7 @@ use warnings;
 use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 #<attributeGroup
 #  id = ID
--- a/lib/SOAP/WSDL/XSD/Builtin.pm
+++ b/lib/SOAP/WSDL/XSD/Builtin.pm
@@ -4,7 +4,7 @@ use warnings;
 use Class::Std::Fast::Storable;
 use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 # only used in SOAP::WSDL - will be obsolete once SOAP::WSDL uses the
 # generative approach, too
--- a/lib/SOAP/WSDL/XSD/ComplexType.pm
+++ b/lib/SOAP/WSDL/XSD/ComplexType.pm
@@ -1,12 +1,11 @@
 package SOAP::WSDL::XSD::ComplexType;
 use strict;
 use warnings;
-use Carp;
 use Class::Std::Fast::Storable;
 use Scalar::Util qw(blessed);
-use base qw/SOAP::WSDL::Base/;
+use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.06');

 # id provided by Base
 # name provided by Base
@@ -26,12 +25,13 @@ my %maxInclusive        :ATTR(:name<maxInclusive>   :default<[]>);


 my %attribute_of    :ATTR(:name<attribute>  :default<()>);
-my %element_of      :ATTR(:name<element>    :default<()>);
+my %element_of      :ATTR(:name<element>    :default<[]>);
 my %group_of        :ATTR(:name<group>      :default<()>);
 my %variety_of      :ATTR(:name<variety>    :default<()>);
 my %base_of         :ATTR(:name<base>       :default<()>);
 my %itemType_of     :ATTR(:name<itemType>   :default<()>);
 my %abstract_of     :ATTR(:name<abstract>   :default<()>);
+my %final_of        :ATTR(:name<final>      :default<()>);
 my %mixed_of        :ATTR(:name<mixed>      :default<()>);      # default is false

 my %derivation_of   :ATTR(:name<derivation> :default<()>);
--- a/lib/SOAP/WSDL/XSD/Element.pm
+++ b/lib/SOAP/WSDL/XSD/Element.pm
@@ -4,7 +4,7 @@ use warnings;
 use Class::Std::Fast::Storable;
 use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.04');
+use version; our $VERSION = qv('2.00.05');

 # id provided by Base
 # name provided by Base
--- a/lib/SOAP/WSDL/XSD/Enumeration.pm
+++ b/lib/SOAP/WSDL/XSD/Enumeration.pm
@@ -4,7 +4,7 @@ use warnings;
 use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.04');
+use version; our $VERSION = qv('2.00.05');

 #<enumeration value="">

--- a/lib/SOAP/WSDL/XSD/FractionDigits.pm
+++ b/lib/SOAP/WSDL/XSD/FractionDigits.pm
@@ -4,8 +4,7 @@ use warnings;
 use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.04');
-
+use version; our $VERSION = qv('2.00.05');
 #<pattern value="">

 # id provided by Base
--- a/lib/SOAP/WSDL/XSD/Group.pm
+++ b/lib/SOAP/WSDL/XSD/Group.pm
@@ -4,7 +4,7 @@ use warnings;
 use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 #<xs:group name="myModelGroup">
 # <xs:sequence>
--- a/lib/SOAP/WSDL/XSD/Length.pm
+++ b/lib/SOAP/WSDL/XSD/Length.pm
@@ -4,7 +4,7 @@ use warnings;
 use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.04');
+use version; our $VERSION = qv('2.00.05');

 #<minExclusive value="">

--- a/lib/SOAP/WSDL/XSD/MaxExclusive.pm
+++ b/lib/SOAP/WSDL/XSD/MaxExclusive.pm
@@ -4,7 +4,7 @@ use warnings;
 use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.04');
+use version; our $VERSION = qv('2.00.05');

 #<minExclusive value="">

--- a/lib/SOAP/WSDL/XSD/MaxInclusive.pm
+++ b/lib/SOAP/WSDL/XSD/MaxInclusive.pm
@@ -4,7 +4,7 @@ use warnings;
 use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 #<minExclusive value="">

--- a/lib/SOAP/WSDL/XSD/MaxLength.pm
+++ b/lib/SOAP/WSDL/XSD/MaxLength.pm
@@ -4,7 +4,7 @@ use warnings;
 use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 #<maxLength value="">

@@ -14,5 +14,6 @@ use version; our $VERSION = qv('2.00.03');

 # may be defined as atomic simpleType
 my %value_of        :ATTR(:name<value> :default<()>);
+my %fixed_of        :ATTR(:name<fixed> :default<()>);

 1;
--- a/lib/SOAP/WSDL/XSD/MinExclusive.pm
+++ b/lib/SOAP/WSDL/XSD/MinExclusive.pm
@@ -4,7 +4,7 @@ use warnings;
 use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 #<minExclusive value="">

--- a/lib/SOAP/WSDL/XSD/MinInclusive.pm
+++ b/lib/SOAP/WSDL/XSD/MinInclusive.pm
@@ -4,7 +4,7 @@ use warnings;
 use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.04');
+use version; our $VERSION = qv('2.00.05');

 #<minExclusive value="">

--- a/lib/SOAP/WSDL/XSD/MinLength.pm
+++ b/lib/SOAP/WSDL/XSD/MinLength.pm
@@ -4,7 +4,7 @@ use warnings;
 use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 #<minExclusive value="">

--- a/lib/SOAP/WSDL/XSD/Pattern.pm
+++ b/lib/SOAP/WSDL/XSD/Pattern.pm
@@ -4,7 +4,7 @@ use warnings;
 use Class::Std::Fast::Storable constructor => 'none';
 use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 #<pattern value="">

--- a/lib/SOAP/WSDL/XSD/Schema.pm
+++ b/lib/SOAP/WSDL/XSD/Schema.pm
@@ -4,7 +4,7 @@ use warnings;
 use Class::Std::Fast::Storable;
 use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.03');
+use version; our $VERSION = qv('2.00.05');

 # child elements
 my %attributeGroup_of   :ATTR(:name<attributeGroup>  :default<[]>);
--- a/lib/SOAP/WSDL/XSD/Schema/Builtin.pm
+++ b/lib/SOAP/WSDL/XSD/Schema/Builtin.pm
@@ -6,10 +6,12 @@ use SOAP::WSDL::XSD::Schema;
 use SOAP::WSDL::XSD::Builtin;
 use base qw(SOAP::WSDL::XSD::Schema);

-use version; our $VERSION = qv('2.00.04');
+use version; our $VERSION = qv('2.00.05');

 # all builtin types - add validation (e.g. content restrictions) later...
 my %BUILTINS = (
+    'anyType'           => {},
+    'anySimpleType'     => {},
    'anyURI'            => {},
    'boolean'           => {},
    'base64Binary'      => {},
@@ -98,10 +100,10 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>

 =head1 REPOSITORY INFORMATION

- $Rev: 701 $
+ $Rev: 728 $
 $LastChangedBy: kutterma $
- $Id: Builtin.pm 701 2008-06-05 19:19:16Z kutterma $
- $HeadURL: http://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Schema/Builtin.pm $
+ $Id: Builtin.pm 728 2008-07-13 19:28:50Z kutterma $
+ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Schema/Builtin.pm $

 =cut

--- a/lib/SOAP/WSDL/XSD/SimpleType.pm
+++ b/lib/SOAP/WSDL/XSD/SimpleType.pm
@@ -4,7 +4,7 @@ use warnings;
 use Class::Std::Fast::Storable;
 use base qw(SOAP::WSDL::Base);

-use version; our $VERSION = qv('2.00.04');
+use version; our $VERSION = qv('2.00.05');

 my %length_of           :ATTR(:name<length>         :default<[]>);
 my %minLength_of        :ATTR(:name<minLength>      :default<[]>);
--- a/Show More
+++ b/Show More