bump version to 3.003

missing asterisk fixes pod error

Build.PL

@@ -1,55 +0,0 @@
-use Module::Build;
-use version;
-$build = Module::Build->new(
-    dist_author        => 'Martin Kutter <martin.kutter@fen-net.de>',
-    create_makefile_pl => 'small',
-    dist_abstract      => 'SOAP with WSDL support',
-    dist_name          => 'SOAP-WSDL',
-    dist_version       => '2.00.10',
-    module_name        => 'SOAP::WSDL',
-    license            => 'artistic',
-    requires           => {
-        # 5.6.x is way too buggy and has no unicode support
-        # for us. SOAP-WSDL relies on unicode (WS-I demands it)
-        # and triggers several 5.6 bugs...
-        'perl'                    => q(5.8.0),
-        'Class::Std::Fast'        => q(0.0.5),
-        'Data::Dumper'            => 0,
-        'Date::Parse'             => 0,
-        'Date::Format'            => 0,
-        'File::Basename'          => 0,
-        'File::Path'              => 0,
-        'Getopt::Long'            => 0,
-        'List::Util'              => 0,
-        'LWP::UserAgent'          => 0,
-        'Template'                => q(2.18),
-        'Term::ReadKey'           => 0,
-        'URI'                     => 0,
-        'XML::Parser::Expat'      => 0,
-    },
-    build_requires => {
-        'Class::Std::Fast'        => q(0.0.5),
-        'Cwd'                     => 0,
-        'Date::Parse'             => 0,
-        'Date::Format'            => 0,
-        'Getopt::Long'            => 0,
-        'List::Util'              => 0,
-        'LWP::UserAgent'          => 0,
-        'Module::Build'           => 0,
-        'File::Basename'          => 0,
-        'File::Path'              => 0,
-        'File::Spec'              => 0,
-        'Storable'                => 0,
-        'Test::More'              => 0,
-        'Template'                => q(2.18),
-        'XML::Parser::Expat'      => 0,
-    },
-    recursive_test_files => 1,
-    meta_add => {
-        no_index => {
-            directory => 'lib/SOAP/WSDL/Generator/Template/XSD/',
-        },
-    }
-);
-$build->add_build_element('tt');
-$build->create_build_script;

Changes

@@ -1,3 +1,70 @@
+
+Release notes for SOAP::WSDL 3.003
+-------
+
+o. change the base module for SOAP::WSDL::SOAP::HeaderFault to SOAP::WSDL::SOAP::Header instead of inexisting module SOAP::WSDL::Header
+
+Release notes for SOAP::WSDL 3.002
+
+o. change each file from having their own version number to referring to $SOAP::WSDL::VERSION since they aren't really individually versions anyway but just copies of that numbe
+o. Declare dependency on Class::Load -- thanks ANDYK
+o. link to GitHub from META files -- thanks szabgab
+
+Release notes for SOAP::WSDL 3.00.00_1
+-------
+
+o.  fix a hash randomization bug that was causing random failures in t/SOAP/WSDL/05_simpleType-list.t
+
+o.  2624a9 for #86142, adding the XML declaration to the output, broke another part of the system, so work around that.
+    I accidentally stopped doing "recursive" tests (tests in subdirs) at some point and missed some of this fun breakage.
+
+o.  dam@cpan.org's fix for using not using ->usa('UNIVERSAL') to test if something loaded apparently works in a situation
+    where mine doesn't, that was causing tests to fail; use that version instead.
+
+Release notes for SOAP::WSDL 3.00.00_1
+-------
+
+Scott Walters has assumed co-maint of this module and is ashamed to release 3.00.00_1.
+Numerous fixes have been made to get tests to pass again on newer perls.
+Please see the git log at http://github.com/scrottie/SOAP-WSDL for additional detail.
+
+o.  applied patch from ticket #86142: Missing XML declaration in request
+    https://rt.cpan.org/Public/Bug/Display.html?id=86142
+    tests still pass, so, good enough, right?
+
+o.  Huh.  Between 5.12 and 5.16 somewhere, the behavior of ClassName->isa('UNIVERSAL') changed.
+    It used to be that that would return true if and only if that namespace existed.
+    Now it always returns true for any random non-existant made up name.
+    Changed this to do ->can() on a known existing method modules with this API have (serialize)
+    instead after floundering around for a bit.  exists ${"main::"}{$type.'::'} worked a little
+    bit but made it barf for some reason I didn't investigate.
+    This is the problem apparently behind the previous "haunted house level shit" fixes and
+    reversions.  This thing does automatically load these modules on the fly.  Would be nice
+    if the unit tests had some comments in them.
+
+o.  There were two calls to get_port() right next to
+    each other, in the very same ? :, and one of them had a ->[0]
+    tacked on the end and the other one didn't.  Well guess what...
+    the one without was returning an arrayref, which caused these
+    failures in the unit tests:
+    Can't call method "get_binding" on unblessed reference at /home/scott/projects/SOAP-WSDL/blib/lib/SOAP/WSDL.pm line 186.
+
+o.  protip:  reverse %hash with '#default' => 'urn:myNamespace', 'tns' =>
+    'urn:myNamespace' results in misery.  random hash ordering made a pile of
+    tests in t/003_wsdl_based_serializer.t randomly pass and fail in unison.
+
+o.  "vectors" (totally not the same thing as a vector in other languages or on a Cray 1)
+    have been deprecated and removed.  pretend like they never existed.
+
+o.  fix two instances of the "Can't modify non-lvalue subroutine call at lib/SOAP/WSDL.pm line 167." error.
+    it looks like the author wrote
+        return $a ? $b : $c = $d
+    Intending it to mean:
+        return $a ? $b : ($c = $d);
+    ... but perl parses it as:
+        return ( $a ? $b : $c) = $d;
+    ... and perl 5.16 is more astute about lvalue errors like that.
+
 Release notes for SOAP::WSDL 2.00.10
 -------
 

META.yml

@@ -1,378 +0,0 @@
----
-name: SOAP-WSDL
-version: 2.00.10
-author:
-  - 'Martin Kutter <martin.kutter@fen-net.de>'
-abstract: SOAP with WSDL support
-license: artistic
-resources:
-  license: http://opensource.org/licenses/artistic-license.php
-requires:
-  Class::Std::Fast: 0.0.5
-  Data::Dumper: 0
-  Date::Format: 0
-  Date::Parse: 0
-  File::Basename: 0
-  File::Path: 0
-  Getopt::Long: 0
-  LWP::UserAgent: 0
-  List::Util: 0
-  Template: 2.18
-  Term::ReadKey: 0
-  URI: 0
-  XML::Parser::Expat: 0
-  perl: 5.8.0
-build_requires:
-  Class::Std::Fast: 0.0.5
-  Cwd: 0
-  Date::Format: 0
-  Date::Parse: 0
-  File::Basename: 0
-  File::Path: 0
-  File::Spec: 0
-  Getopt::Long: 0
-  LWP::UserAgent: 0
-  List::Util: 0
-  Module::Build: 0
-  Storable: 0
-  Template: 2.18
-  Test::More: 0
-  XML::Parser::Expat: 0
-provides:
-  SOAP::WSDL:
-    file: lib/SOAP/WSDL.pm
-    version: 2.00.10
-  SOAP::WSDL::Base:
-    file: lib/SOAP/WSDL/Base.pm
-    version: 2.00.10
-  SOAP::WSDL::Binding:
-    file: lib/SOAP/WSDL/Binding.pm
-    version: 2.00.10
-  SOAP::WSDL::Client:
-    file: lib/SOAP/WSDL/Client.pm
-    version: 2.00.10
-  SOAP::WSDL::Client::Base:
-    file: lib/SOAP/WSDL/Client/Base.pm
-    version: 2.00.10
-  SOAP::WSDL::Definitions:
-    file: lib/SOAP/WSDL/Definitions.pm
-    version: 2.00.10
-  SOAP::WSDL::Deserializer::Hash:
-    file: lib/SOAP/WSDL/Deserializer/Hash.pm
-    version: 2.00.10
-  SOAP::WSDL::Deserializer::SOM:
-    file: lib/SOAP/WSDL/Deserializer/SOM.pm
-    version: 2.00.10
-  SOAP::WSDL::Deserializer::XSD:
-    file: lib/SOAP/WSDL/Deserializer/XSD.pm
-    version: 2.00.10
-  SOAP::WSDL::Expat::Base:
-    file: lib/SOAP/WSDL/Expat/Base.pm
-    version: 2.00.10
-  SOAP::WSDL::Expat::Message2Hash:
-    file: lib/SOAP/WSDL/Expat/Message2Hash.pm
-    version: 2.00.10
-  SOAP::WSDL::Expat::MessageParser:
-    file: lib/SOAP/WSDL/Expat/MessageParser.pm
-    version: 2.00.10
-  SOAP::WSDL::Expat::MessageStreamParser:
-    file: lib/SOAP/WSDL/Expat/MessageStreamParser.pm
-    version: 2.00.10
-  SOAP::WSDL::Expat::WSDLParser:
-    file: lib/SOAP/WSDL/Expat/WSDLParser.pm
-    version: 2.00.10
-  SOAP::WSDL::Factory::Deserializer:
-    file: lib/SOAP/WSDL/Factory/Deserializer.pm
-    version: 2.00.10
-  SOAP::WSDL::Factory::Generator:
-    file: lib/SOAP/WSDL/Factory/Generator.pm
-    version: 2.00.10
-  SOAP::WSDL::Factory::Serializer:
-    file: lib/SOAP/WSDL/Factory/Serializer.pm
-    version: 2.00.10
-  SOAP::WSDL::Factory::Transport:
-    file: lib/SOAP/WSDL/Factory/Transport.pm
-    version: 2.00.10
-  SOAP::WSDL::Generator::Iterator::WSDL11:
-    file: lib/SOAP/WSDL/Generator/Iterator/WSDL11.pm
-    version: 2.00.10
-  SOAP::WSDL::Generator::PrefixResolver:
-    file: lib/SOAP/WSDL/Generator/PrefixResolver.pm
-    version: 2.00.10
-  SOAP::WSDL::Generator::Template:
-    file: lib/SOAP/WSDL/Generator/Template.pm
-    version: 2.00.10
-  SOAP::WSDL::Generator::Template::Plugin::XSD:
-    file: lib/SOAP/WSDL/Generator/Template/Plugin/XSD.pm
-    version: 2.00.10
-  SOAP::WSDL::Generator::Template::XSD:
-    file: lib/SOAP/WSDL/Generator/Template/XSD.pm
-    version: 2.00.10
-  SOAP::WSDL::Generator::Visitor:
-    file: lib/SOAP/WSDL/Generator/Visitor.pm
-    version: 2.00.10
-  SOAP::WSDL::Generator::Visitor::Typemap:
-    file: lib/SOAP/WSDL/Generator/Visitor/Typemap.pm
-    version: 2.00.10
-  SOAP::WSDL::Message:
-    file: lib/SOAP/WSDL/Message.pm
-    version: 2.00.10
-  SOAP::WSDL::OpMessage:
-    file: lib/SOAP/WSDL/OpMessage.pm
-    version: 2.00.10
-  SOAP::WSDL::Operation:
-    file: lib/SOAP/WSDL/Operation.pm
-    version: 2.00.10
-  SOAP::WSDL::Part:
-    file: lib/SOAP/WSDL/Part.pm
-    version: 2.00.10
-  SOAP::WSDL::Port:
-    file: lib/SOAP/WSDL/Port.pm
-    version: 2.00.10
-  SOAP::WSDL::PortType:
-    file: lib/SOAP/WSDL/PortType.pm
-    version: 2.00.10
-  SOAP::WSDL::SOAP::Address:
-    file: lib/SOAP/WSDL/SOAP/Address.pm
-    version: 2.00.10
-  SOAP::WSDL::SOAP::Body:
-    file: lib/SOAP/WSDL/SOAP/Body.pm
-    version: 2.00.10
-  SOAP::WSDL::SOAP::Header:
-    file: lib/SOAP/WSDL/SOAP/Header.pm
-    version: 2.00.10
-  SOAP::WSDL::SOAP::HeaderFault:
-    file: lib/SOAP/WSDL/SOAP/HeaderFault.pm
-    version: 2.00.10
-  SOAP::WSDL::SOAP::Operation:
-    file: lib/SOAP/WSDL/SOAP/Operation.pm
-    version: 2.00.10
-  SOAP::WSDL::SOAP::Typelib::Fault:
-    file: lib/SOAP/WSDL/SOAP/Typelib/Fault.pm
-    version: 2.00.10
-  SOAP::WSDL::SOAP::Typelib::Fault11:
-    file: lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm
-    version: 2.00.10
-  SOAP::WSDL::SOAP::Typelib::Fault11Detail:
-    file: lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm
-  SOAP::WSDL::Serializer::XSD:
-    file: lib/SOAP/WSDL/Serializer/XSD.pm
-    version: 2.00.10
-  SOAP::WSDL::Server:
-    file: lib/SOAP/WSDL/Server.pm
-    version: 2.00.10
-  SOAP::WSDL::Server::CGI:
-    file: lib/SOAP/WSDL/Server/CGI.pm
-    version: 2.00.10
-  SOAP::WSDL::Server::Mod_Perl2:
-    file: lib/SOAP/WSDL/Server/Mod_Perl2.pm
-    version: 2.00.10
-  SOAP::WSDL::Server::Simple:
-    file: lib/SOAP/WSDL/Server/Simple.pm
-    version: 2.00.10
-  SOAP::WSDL::Service:
-    file: lib/SOAP/WSDL/Service.pm
-    version: 2.00.10
-  SOAP::WSDL::Transport::HTTP:
-    file: lib/SOAP/WSDL/Transport/HTTP.pm
-    version: 2.00.10
-  SOAP::WSDL::Transport::Loopback:
-    file: lib/SOAP/WSDL/Transport/Loopback.pm
-    version: 2.00.10
-  SOAP::WSDL::Transport::Test:
-    file: lib/SOAP/WSDL/Transport/Test.pm
-    version: 2.00.10
-  SOAP::WSDL::TypeLookup:
-    file: lib/SOAP/WSDL/TypeLookup.pm
-    version: 2.00.10
-  SOAP::WSDL::Types:
-    file: lib/SOAP/WSDL/Types.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::Annotation:
-    file: lib/SOAP/WSDL/XSD/Annotation.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::Attribute:
-    file: lib/SOAP/WSDL/XSD/Attribute.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::AttributeGroup:
-    file: lib/SOAP/WSDL/XSD/AttributeGroup.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::Builtin:
-    file: lib/SOAP/WSDL/XSD/Builtin.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::ComplexType:
-    file: lib/SOAP/WSDL/XSD/ComplexType.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::Element:
-    file: lib/SOAP/WSDL/XSD/Element.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::Enumeration:
-    file: lib/SOAP/WSDL/XSD/Enumeration.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::FractionDigits:
-    file: lib/SOAP/WSDL/XSD/FractionDigits.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::Group:
-    file: lib/SOAP/WSDL/XSD/Group.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::Length:
-    file: lib/SOAP/WSDL/XSD/Length.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::MaxExclusive:
-    file: lib/SOAP/WSDL/XSD/MaxExclusive.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::MaxInclusive:
-    file: lib/SOAP/WSDL/XSD/MaxInclusive.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::MaxLength:
-    file: lib/SOAP/WSDL/XSD/MaxLength.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::MinExclusive:
-    file: lib/SOAP/WSDL/XSD/MinExclusive.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::MinInclusive:
-    file: lib/SOAP/WSDL/XSD/MinInclusive.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::MinLength:
-    file: lib/SOAP/WSDL/XSD/MinLength.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::Pattern:
-    file: lib/SOAP/WSDL/XSD/Pattern.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::Schema:
-    file: lib/SOAP/WSDL/XSD/Schema.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::Schema::Builtin:
-    file: lib/SOAP/WSDL/XSD/Schema/Builtin.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::SimpleType:
-    file: lib/SOAP/WSDL/XSD/SimpleType.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::TotalDigits:
-    file: lib/SOAP/WSDL/XSD/TotalDigits.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::Typelib::Attribute:
-    file: lib/SOAP/WSDL/XSD/Typelib/Attribute.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::Typelib::AttributeSet:
-    file: lib/SOAP/WSDL/XSD/Typelib/AttributeSet.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::Typelib::Builtin:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::Typelib::Builtin::ENTITY:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/ENTITY.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::ID:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/ID.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::IDREF:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/IDREF.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::IDREFS:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/IDREFS.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::NCName:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/NCName.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::NMTOKEN:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/NMTOKEN.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::NMTOKENS:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/NMTOKENS.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::NOTATION:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/NOTATION.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::Name:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/Name.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::QName:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/QName.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/anySimpleType.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::anyType:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/anyType.pm
-    version: 2.00.10
-  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.10
-  SOAP::WSDL::XSD::Typelib::Builtin::byte:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/byte.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::date:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/date.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::dateTime:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/dateTime.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::decimal:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/decimal.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::double:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/double.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::duration:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/duration.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::float:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/float.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::gDay:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/gDay.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::gMonth:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/gMonth.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::gMonthDay:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/gMonthDay.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::gYear:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/gYear.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::gYearMonth:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/gYearMonth.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::hexBinary:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/hexBinary.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::int:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/int.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::integer:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/integer.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::language:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/language.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::list:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/list.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::long:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/long.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::negativeInteger:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/negativeInteger.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::nonNegativeInteger:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/nonNegativeInteger.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::nonPositiveInteger:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/nonPositiveInteger.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::normalizedString:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/normalizedString.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::positiveInteger:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/positiveInteger.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::short:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/short.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::string:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/string.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::time:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/time.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::Typelib::Builtin::token:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/token.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::unsignedByte:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/unsignedByte.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::unsignedInt:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/unsignedInt.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::unsignedLong:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/unsignedLong.pm
-  SOAP::WSDL::XSD::Typelib::Builtin::unsignedShort:
-    file: lib/SOAP/WSDL/XSD/Typelib/Builtin/unsignedShort.pm
-  SOAP::WSDL::XSD::Typelib::ComplexType:
-    file: lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::Typelib::Element:
-    file: lib/SOAP/WSDL/XSD/Typelib/Element.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::Typelib::SimpleType:
-    file: lib/SOAP/WSDL/XSD/Typelib/SimpleType.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::Typelib::SimpleType::restriction:
-    file: lib/SOAP/WSDL/XSD/Typelib/SimpleType.pm
-    version: 2.00.10
-  SOAP::WSDL::XSD::WhiteSpace:
-    file: lib/SOAP/WSDL/XSD/WhiteSpace.pm
-    version: 2.00.10
-generated_by: Module::Build version 0.280801
-meta-spec:
-  url: http://module-build.sourceforge.net/META-spec-v1.2.html
-  version: 1.2
-no_index:
-  directory: lib/SOAP/WSDL/Generator/Template/XSD/

Makefile.PL

@@ -1,7 +1,44 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.2808_01
+use 5.010000;
-require 5.8.0;
+use ExtUtils::MakeMaker;
-    use Module::Build::Compat 0.02;
+
-    
+WriteMakefile(
-    Module::Build::Compat->run_build_pl(args => \@ARGV);
+    NAME              => 'SOAP::WSDL',
-    require Module::Build;
+    VERSION_FROM      => 'lib/SOAP/WSDL.pm',
-    Module::Build::Compat->write_makefile(build_class => 'Module::Build');
+    PREREQ_PM         => {
+        'Class::Std::Fast'        => q(0.000005),
+        'Cwd'                     => 0,
+        'Data::Dumper'            => 0,
+        'Date::Format'            => 0,
+        'Date::Parse'             => 0,
+        'File::Basename'          => 0,
+        'File::Path'              => 0,
+        'File::Spec'              => 0,
+        'Getopt::Long'            => 0,
+        'LWP::UserAgent'          => 0,
+        'List::Util'              => 0,
+        'Module::Build'           => 0,
+        'Storable'                => 0,
+        'Template'                => q(2.18),
+        'Term::ReadKey'           => 0,
+        'Test::More'              => 0,
+        'URI'                     => 0,
+        'XML::Parser::Expat'      => 0,
+        'Class::Load'             => 0.20,
+        'perl'                    => q(5.008),
+    },
+    test => { RECURSIVE_TEST_FILES => 1, },
+    ABSTRACT_FROM  => 'lib/SOAP/WSDL.pm',
+    AUTHOR       => 'Scott Walters <scott@slowass.net>',
+    (eval { ExtUtils::MakeMaker->VERSION(6.46) } ? (META_MERGE => {
+    'meta-spec' => { version => 2 },
+     resources => {
+         repository => {
+             type => 'git',
+             url  => 'https://github.com/scrottie/SOAP-WSDL.git',
+             web  => 'https://github.com/scrottie/SOAP-WSDL',
+         },
+     }})
+     : ()
+   ),
+);
+

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.10');
+use version; our $VERSION = qv('3.003');
 
 my %no_dispatch_of      :ATTR(:name<no_dispatch>);
 my %wsdl_of             :ATTR(:name<wsdl>);
@@ -165,8 +165,8 @@ sub _wsdl_get_service :PRIVATE {
     my $ident = ident shift;
     my $wsdl = $definitions_of{ $ident };
     return $service_of{ $ident } = $servicename_of{ $ident }
-        ? $wsdl->find_service( $wsdl->get_targetNamespace() , $servicename_of{ $ident } )
+        ? $wsdl->find_service( $wsdl->get_targetNamespace() , $servicename_of{ $ident } ) 
-        : $service_of{ $ident } = $wsdl->get_service()->[ 0 ];
+        : ( $service_of{ $ident } = $wsdl->get_service()->[ 0 ] );
 } ## end sub _wsdl_get_service
 
 sub _wsdl_get_port :PRIVATE  {
@@ -174,8 +174,8 @@ sub _wsdl_get_port :PRIVATE  {
     my $wsdl = $definitions_of{ $ident };
     my $ns   = $wsdl->get_targetNamespace();
     return $port_of{ $ident } = $portname_of{ $ident }
-        ? $service_of{ $ident }->get_port( $ns, $portname_of{ $ident } )
+        ? $service_of{ $ident }->get_port( $ns, $portname_of{ $ident } )->[ 0 ]
-        : $port_of{ $ident } = $service_of{ $ident }->get_port()->[ 0 ];
+        : ( $port_of{ $ident } = $service_of{ $ident }->get_port()->[ 0 ] );
 }
 
 sub _wsdl_get_binding :PRIVATE {
@@ -349,7 +349,24 @@ __END__
 
 SOAP::WSDL - SOAP with WSDL support
 
-=head1 Overview
+=head1 NOTICE
+
+This module is B<not> recommended for new application development.
+Please use L<XML::Compile::SOAP> or L<SOAP::Lite> instead if possible.
+
+This module has a large number of known bugs and is not being actively developed.
+This 3.0 release is intended to update the module to pass tests on newer Perls.
+This is a service to existing applications already dependent on this module.
+
+=head1 SYNOPSIS
+
+ my $soap = SOAP::WSDL->new(
+    wsdl => 'file://bla.wsdl',
+ );
+
+ my $result = $soap->call('MyMethod', %data);
+
+=head1 DESCRIPTION
 
 For creating Perl classes instrumenting a web service with a WSDL definition,
 read L<SOAP::WSDL::Manual>.
@@ -368,16 +385,6 @@ MIGRATING documentation.
 The stuff below is for users of the 1.2x SOAP::WSDL series. All others,
 please refer to L<SOAP::WSDL::Manual>
 
-=head1 SYNOPSIS
-
- my $soap = SOAP::WSDL->new(
-    wsdl => 'file://bla.wsdl',
- );
-
- my $result = $soap->call('MyMethod', %data);
-
-=head1 DESCRIPTION
-
 SOAP::WSDL provides easy access to Web Services with WSDL descriptions.
 
 The WSDL is parsed and stored in memory.
@@ -668,8 +675,23 @@ details.
 
 =head1 BUGS AND LIMITATIONS
 
+The bug tracker is at L<< https://rt.cpan.org/Dist/Display.html?Queue=SOAP-WSDL >>.
+
+This module is in legacy maintenance mode.
+Only show stopper bugs are being fixed, until/unless someone wishes to resume active development on it.
+Scott Walters, C<scott@slowass.net> has obtained co-mainter from the CPAN admins for the purpose of applying existing fixes people have submit to 
+the RT tracker, and to apply other fixes as needed to get the module to install and run on newer Perls.
+Non show-stopper bugs reports without fixes will be added to this list of limitations.
+Of course, fixes for these and other bugs are welcome.
+Scott does not get email from L<< rt.cpan.org >>, so please drop an email to him at C<< scott@slowass.net >> if you open a ticket there.
+
 =over
 
+=item * Breaks the idiom C<< $package->can("SUPER::method") >> in your code
+
+If you redefine C<< UNIVERSAL::can() >>, and someone tries to do C<< $package->can("SUPER::method") >>, it'll look at your packages C<@ISA>, not theirs.
+This module does precicely that, by way of its dependency on C<Class::Std::Fast>.
+
 =item * $obj == undef does not work in perl 5.8.6 and perl 5.8.7
 
 Due to some strange behaviour in perl 5.8.6 and perl 5.8.7, stringification
@@ -689,9 +711,7 @@ before - see http://aspn.activestate.com/ASPN/Mail/Message/perl5-porters/929746
 
 =item * Apache SOAP datatypes are not supported
 
-You currently can't use SOAP::WSDL with Apache SOAP datatypes like map.
+You can't use SOAP::WSDL with Apache SOAP datatypes like map.
-
-If you want this changed, email me a copy of the specs, please.
 
 =item * Incomplete XML Schema definitions support
 
@@ -784,6 +804,12 @@ L<http://www.cpanforum.com/dist/SOAP-WSDL>
 
 =head1 ACKNOWLEDGMENTS
 
+Scott Walters wrote:
+
+This code incorporates fixes contributed by C<< NORDIC@cpan.org >>, C<< dam@cpan.org >>, C<< sven.schober@uni-ulm.de >>, myself, and others.
+
+Martin Kutter wrote:
+
 There are many people out there who fostered SOAP::WSDL's developement.
 I would like to thank them all (and apologize to all those I have forgotten).
 
@@ -827,13 +853,12 @@ the same terms as perl itself
 
 =head1 AUTHOR
 
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
+Scott Walters E<lt>scott@slowass.net<gt> 2014
+
+Martin Kutter E<lt>martin.kutter fen-net.deE<gt> 2004-2008
 
 =head1 REPOSITORY INFORMATION
 
- $Rev: 851 $
+    https://github.com/scrottie/SOAP-WSDL
- $LastChangedBy: kutterma $
- $Id: WSDL.pm 851 2009-05-15 22:45:18Z kutterma $
- $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL.pm $
 
 =cut

lib/SOAP/WSDL/Base.pm

@@ -5,7 +5,7 @@ use List::Util;
 use Scalar::Util;
 use Carp qw(croak carp confess);
 
-use version; our $VERSION = qv('2.00.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %id_of               :ATTR(:name<id> :default<()>);
 my %lang_of             :ATTR(:name<lang> :default<()>);

lib/SOAP/WSDL/Binding.pm

@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
 
 use base qw(SOAP::WSDL::Base);
 
-use version; our $VERSION = qv('2.00.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %operation_of    :ATTR(:name<operation> :default<()>);
 my %type_of         :ATTR(:name<type> :default<()>);

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %class_resolver_of   :ATTR(:name<class_resolver> :default<()>);
 my %no_dispatch_of      :ATTR(:name<no_dispatch>    :default<()>);

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 sub call {
     my ($self, $method, $body, $header) = @_;

lib/SOAP/WSDL/Definitions.pm

@@ -5,7 +5,7 @@ use List::Util qw(first);
 use Class::Std::Fast::Storable;
 use base qw(SOAP::WSDL::Base);
 
-use version; our $VERSION = qv('2.00.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %types_of        :ATTR(:name<types>      :default<[]>);
 my %message_of      :ATTR(:name<message>    :default<[]>);

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 sub BUILD {
     my ($self, $ident, $args_of_ref) = @_;

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 our @ISA;
 
 eval {

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %class_resolver_of   :ATTR(:name<class_resolver> :default<()>);
 my %strict_of           :ATTR(:get<strict> :init_arg<strict> :default<1>);
@@ -35,6 +35,7 @@ sub deserialize {
     })
         if not $parser_of{ ${ $self } };
     $parser_of{ ${ $self } }->class_resolver( $class_resolver_of{ ${ $self } } );
+    $content =~ s{^<\?xml version="1.0" *\?>}{};  # XML::Parser::Expat apparently doesn't like this.
     eval { $parser_of{ ${ $self } }->parse_string( $content ) };
     if ($@) {
         return $self->generate_fault({

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 sub new {
     my ($class, $arg_ref) = @_;

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 sub _initialize {
     my ($self, $parser) = @_;

lib/SOAP/WSDL/Expat/MessageParser.pm

@@ -9,7 +9,7 @@ use base qw(SOAP::WSDL::Expat::Base);
 
 BEGIN { require Class::Std::Fast };
 
-use version; our $VERSION = qv('2.00.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 # GLOBALS
 my $OBJECT_CACHE_REF = Class::Std::Fast::OBJECT_CACHE_REF();

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 sub parse_start {
     my $self = shift;

lib/SOAP/WSDL/Expat/WSDLParser.pm

@@ -5,7 +5,7 @@ use Carp;
 use SOAP::WSDL::TypeLookup;
 use base qw(SOAP::WSDL::Expat::Base);
 
-use version; our $VERSION = qv('2.00.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 #
 # Import child elements of a WSDL / XML Schema tree into the current tree

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %DESERIALIZER = (
     '1.1' => 'SOAP::WSDL::Deserializer::XSD',

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %GENERATOR = (
     'XSD' => 'SOAP::WSDL::Generator::Template::XSD',

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %SERIALIZER = (
     '1.1' => 'SOAP::WSDL::Serializer::XSD',

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %registered_transport_of = ();
 

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %definitions_of  :ATTR(:name<definitions>    :default<[]>);
 my %nodes_of        :ATTR(:name<nodes>          :default<[]>);

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %namespace_prefix_map_of :ATTR(:name<namespace_prefix_map>   :default<{}>);
 my %namespace_map_of        :ATTR(:name<namespace_map>          :default<{}>);

lib/SOAP/WSDL/Generator/Template.pm

@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
 use Carp;
 use SOAP::WSDL::Generator::PrefixResolver;
 
-use version; our $VERSION = qv('2.00.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %tt_of               :ATTR(:get<tt>);
 my %definitions_of      :ATTR(:name<definitions>        :default<()>);

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

@@ -4,7 +4,7 @@ use warnings;
 use Carp qw(confess);
 use Class::Std::Fast::Storable constructor => 'none';
 use Scalar::Util qw(blessed);
-use version; our $VERSION = qv('2.00.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %namespace_prefix_map_of :ATTR(:name<namespace_prefix_map>   :default<{}>);
 my %namespace_map_of        :ATTR(:name<namespace_map>          :default<{}>);

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

@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
 use File::Basename;
 use File::Spec;
 
-use version; our $VERSION = qv('2.00.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 use SOAP::WSDL::Generator::Visitor::Typemap;
 use SOAP::WSDL::Generator::Template::Plugin::XSD;

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %definitions_of :ATTR(:name<definitions> :default<()>);
 my %type_prefix_of :ATTR(:name<type_prefix> :default<()>);

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %path_of             :ATTR(:name<path>           :default<[]>);
 my %typemap_of          :ATTR(:name<typemap>        :default<()>);

lib/SOAP/WSDL/Manual.pod

@@ -58,8 +58,7 @@ typemaps. For every Web service, there's also a typemap created.
 
 =head2 Interface class creation
 
-To create interface classes, follow the steps above from
+To create interface classes, follow the steps above.
-L<Quick walk-through for the unpatient|Quick walk-through for the unpatient>.
 
 If this works fine for you, skip the next paragraphs. If not, read on.
 

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %part_of :ATTR(:name<part> :default<[]>);
 

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %body_of         :ATTR(:name<body>           :default<[]>);
 my %header_of       :ATTR(:name<header>         :default<[]>);

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %operation_of :ATTR(:name<operation> :default<()>);
 my %input_of :ATTR(:name<input> :default<[]>);

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %element_of  :ATTR(:name<element>    :default<()>);
 my %type_of     :ATTR(:name<type>       :default<()>);

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %binding_of :ATTR(:name<binding> :default<()>);
 my %address_of :ATTR(:name<address> :default<()>);

lib/SOAP/WSDL/PortType.pm

@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
 use List::Util;
 use base qw(SOAP::WSDL::Base);
 
-use version; our $VERSION = qv('2.00.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %operation_of :ATTR(:name<operation> :default<()>);
 

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %location   :ATTR(:name<location> :default<()>);
 1;

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %use_of              :ATTR(:name<use>            :default<q{}>);
 my %namespace_of        :ATTR(:name<namespace>      :default<q{}>);

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %use_of              :ATTR(:name<use>            :default<q{}>);
 my %namespace_of        :ATTR(:name<namespace>      :default<q{}>);

lib/SOAP/WSDL/SOAP/HeaderFault.pm

@@ -1,8 +1,8 @@
 package SOAP::WSDL::SOAP::HeaderFault;
 use strict;
 use warnings;
-use base qw(SOAP::WSDL::Header);
+use base qw(SOAP::WSDL::SOAP::Header);
 
-use version; our $VERSION = qv('2.00.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
-1;
+1;

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %style_of :ATTR(:name<style> :default<()>);
 my %soapAction_of :ATTR(:name<soapAction> :default<()>);

lib/SOAP/WSDL/SOAP/Typelib/Fault.pm

@@ -3,6 +3,6 @@ use strict;
 use warnings;
 use Class::Std::Fast::Storable constructor => 'none';
 
-use version; our $VERSION = qv('2.00.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 1;

lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm

@@ -4,7 +4,7 @@ package SOAP::WSDL::SOAP::Typelib::Fault11;
     use warnings;
     use Class::Std::Fast::Storable constructor => 'none';
 
-    use version; our $VERSION = qv('2.00.10');
+    our $VERSION = $SOAP::WSDL::VERSION;
 
     use Scalar::Util qw(blessed);
 

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 use SOAP::WSDL::Factory::Serializer;
 
@@ -30,10 +30,11 @@ sub serialize {
     my $soap_prefix = $opt->{ namespace }->{ $SOAP_NS };
 
     # envelope start with namespaces
-    my $xml = "<$soap_prefix\:Envelope ";
+    my $xml = qq|<?xml version="1.0" ?><$soap_prefix\:Envelope |;
 
-    while (my ($uri, $prefix) = each %{ $opt->{ namespace } })
+    for my $uri ( sort { $a cmp $b } keys %{ $opt->{ namespace } } )
     {
+        my $prefix = $opt->{ namespace }->{ $uri };
         $xml .= "xmlns:$prefix=\"$uri\" ";
     }
     #

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %dispatch_to_of      :ATTR(:name<dispatch_to> :default<()>);
 my %action_map_ref_of   :ATTR(:name<action_map_ref> :default<{}>);

lib/SOAP/WSDL/Server/CGI.pm

@@ -14,7 +14,7 @@ use Class::Std::Fast::Storable;
 
 use base qw(SOAP::WSDL::Server);
 
-use version; our $VERSION = qv('2.00.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 # 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...

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %LOADED_OF = ();
 

lib/SOAP/WSDL/Server/Simple.pm

@@ -14,7 +14,7 @@ use Class::Std::Fast::Storable;
 
 use base qw(SOAP::WSDL::Server);
 
-use version; our $VERSION = qv('2.00.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 # 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...

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %port_of    :ATTR(:name<port>   :default<[]>);
 

lib/SOAP/WSDL/Transport/HTTP.pm

@@ -2,7 +2,8 @@ package SOAP::WSDL::Transport::HTTP;
 use strict; use warnings;
 use base qw(LWP::UserAgent);
 
-use version; our $VERSION = qv('2.00.10');
+use SOAP::WSDL; # just for $SOAP::WSDL::VERSION
+our $VERSION = $SOAP::WSDL::VERSION;
 
 # create methods normally inherited from SOAP::Client
 SUBFACTORY: {

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 # register on loading
 SOAP::WSDL::Factory::Transport->register( http => __PACKAGE__ );

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 SOAP::WSDL::Factory::Transport->register( http => __PACKAGE__ );
 SOAP::WSDL::Factory::Transport->register( https => __PACKAGE__ );

lib/SOAP/WSDL/TypeLookup.pm

@@ -2,7 +2,7 @@ package SOAP::WSDL::TypeLookup;
 use strict;
 use warnings;
 
-use version; our $VERSION = qv('2.00.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %TYPE_FROM = (
     # wsdl:

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %schema_of :ATTR(:name<schema> :default<[]>);
 

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 #<enumeration value="">
 

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 #<attribute
 #  default = string

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 #<attributeGroup
 #  id = ID

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 # only used in SOAP::WSDL - will be obsolete once SOAP::WSDL uses the
 # generative approach, too

lib/SOAP/WSDL/XSD/ComplexType.pm

@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
 use Scalar::Util qw(blessed);
 use base qw(SOAP::WSDL::Base);
 
-use version; our $VERSION = qv('2.00.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 # id provided by Base
 # name provided by Base
@@ -98,9 +98,18 @@ sub serialize {
     if ( $opt->{ autotype }) {
         my $ns = $self->get_targetNamespace();
         # reverse namespace by prefix hash
-        my %prefix_of = reverse %{ $opt->{ namespace } };
+
-        my $prefix = $prefix_of{ $ns }
+        # build a list of hash keys (eg '#default', 'tns') whose values match our namespace (eg 'urn:myNamespace')
-            || die 'No prefix found for namespace '. $ns;
+        (my @possible_namespace_names) = grep { $opt->{ namespace }->{$_} eq $ns } keys %{ $opt->{ namespace } };
+
+        # put any '#default' option last
+        @possible_namespace_names = sort { $a eq '#default' ? 1 : $b eq '#default' ? -1 : $a cmp $b } @possible_namespace_names;
+
+        if( grep( $_ ne '#default', @possible_namespace_names ) > 1 or ! @possible_namespace_names ) {
+            die "No prefix found for namespace $ns, or too many possible names: ``@possible_namespace_names''; there should be just one and maybe a '#default' entry";
+        }
+        my $prefix = $possible_namespace_names[0];
+
         $xml .= join q{}, " type=\"$prefix:", $self->get_name(), '" '
             if ($self->get_name() );
     }

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 # id provided by Base
 # name provided by Base

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 #<enumeration value="">
 

lib/SOAP/WSDL/XSD/FractionDigits.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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 #<pattern value="">
 
 # id provided by Base

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 #<xs:group name="myModelGroup">
 # <xs:sequence>

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 #<minExclusive value="">
 

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 #<minExclusive value="">
 

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 #<minExclusive value="">
 

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 #<maxLength value="">
 

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 #<minExclusive value="">
 

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 #<minExclusive value="">
 

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 #<minExclusive value="">
 

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 #<pattern value="">
 

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 # child elements
 my %attributeGroup_of   :ATTR(:name<attributeGroup>  :default<[]>);

lib/SOAP/WSDL/XSD/Schema/Builtin.pm

@@ -6,7 +6,7 @@ use SOAP::WSDL::XSD::Schema;
 use SOAP::WSDL::XSD::Builtin;
 use base qw(SOAP::WSDL::XSD::Schema);
 
-use version; our $VERSION = qv('2.00.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 # all builtin types - add validation (e.g. content restrictions) later...
 my %BUILTINS = (

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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %length_of           :ATTR(:name<length>         :default<[]>);
 my %minLength_of        :ATTR(:name<minLength>      :default<[]>);
@@ -100,10 +100,18 @@ sub _serialize_single {
     $xml .= '<' . join ' ', $name, @{ $opt->{ attributes } };
     if ( $opt->{ autotype }) {
         # reverse namespace by prefix hash
-        my %prefix_of = reverse %{ $opt->{ namespace } };
         my $ns = $self->get_targetNamespace();
-        my $prefix = $prefix_of{ $ns }
+
-           || die 'No prefix found for namespace '. $ns;
+        # build a list of hash keys (eg '#default', 'tns') whose values match our namespace (eg 'urn:myNamespace')
+        (my @possible_namespace_names) = grep { $opt->{ namespace }->{$_} eq $ns } keys %{ $opt->{ namespace } };
+
+        # put any '#default' option last
+        @possible_namespace_names = sort { $a eq '#default' ? 1 : $b eq '#default' ? -1 : $a cmp $b } @possible_namespace_names;
+
+        if( grep( $_ ne '#default', @possible_namespace_names ) > 1 or ! @possible_namespace_names ) {
+            die "No prefix found for namespace $ns, or too many possible names: ``@possible_namespace_names''; there should be just one and maybe a '#default' entry";                                
+        }
+        my $prefix = $possible_namespace_names[0];
         $xml .= ' type="' . $prefix . ':' . $self->get_name() .'"';
     }
 

lib/SOAP/WSDL/XSD/TotalDigits.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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 #<totalDigits value="">
 

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

@@ -4,7 +4,7 @@ use warnings;
 
 use base qw(SOAP::WSDL::XSD::Typelib::Element);
 
-use version; our $VERSION = qv('2.00.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 sub start_tag {
     # my ($self, $opt, $value) = @_;

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

@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
 
-use version; our $VERSION = qv('2.00.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 sub serialize {
     # we work on @_ for performance.

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

@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use Class::Std::Fast::Storable;
 
-use version; our $VERSION = qv('2.00.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 use SOAP::WSDL::XSD::Typelib::Builtin::anyType;
 use SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;

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

@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use Class::Std::Fast::Storable constructor => 'none';
 
-use version; our $VERSION = qv('2.00.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 sub get_xmlns { 'http://www.w3.org/2001/XMLSchema' };
 

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

@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use Class::Std::Fast::Storable constructor => 'none', cache => 1;
 
-use version; our $VERSION = qv('2.00.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
 

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

@@ -6,7 +6,7 @@ use Date::Format;
 use Class::Std::Fast::Storable constructor => 'none', cache => 1;
 use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
 
-use version; our $VERSION = qv('2.00.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 sub set_value {
     # use set_value from base class if we have a XML-Time format

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

@@ -7,10 +7,11 @@ use SOAP::WSDL::XSD::Typelib::Builtin;
 use Scalar::Util qw(blessed);
 use Data::Dumper;
 require Class::Std::Fast::Storable;
+use Class::Load ();
 
 use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anyType);
 
-use version; our $VERSION = qv('2.00.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 # remove in 2.1
 our $AS_HASH_REF_WITHOUT_ATTRIBUTES = 0;
@@ -156,9 +157,9 @@ sub _factory {
             or croak "No class given for $name";
 
         # require all types here
-        $type->isa('UNIVERSAL')
+        Class::Load::is_class_loaded($type)
-            or eval "require $type"
+            or eval { Class::Load::load_class $type }
-                or croak $@;
+                 or croak $@;
 
         # check now, so we don't need to do it later.
         # $is_list is used in the methods created. Filling it now means
@@ -331,8 +332,7 @@ sub _factory {
             # do we have some content
             if (defined $element) {
                 $element = [ $element ] if not ref $element eq 'ARRAY';
-                # from 2.00.10 on $NAMES_OF is filled - use || $_; for
+                # use || $_; for backward compatibility
-                # backward compatibility
                 my $name = $NAMES_OF{$class}->{$_} || $_;
                 my $target_namespace = $_[0]->get_xmlns();
                 map {

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

@@ -2,7 +2,7 @@ package SOAP::WSDL::XSD::Typelib::Element;
 use strict; use warnings;
 use Class::Std::Fast::Storable constructor => 'none';
 
-use version; our $VERSION = qv('2.00.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 my %NAME;
 my %NILLABLE;

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

@@ -2,14 +2,14 @@ package SOAP::WSDL::XSD::Typelib::SimpleType;
 use strict; use warnings;
 use SOAP::WSDL::XSD::Typelib::Builtin;
 
-use version; our $VERSION = qv('2.00.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 package SOAP::WSDL::XSD::Typelib::SimpleType::restriction;
 use strict;
 use SOAP::WSDL::XSD::Typelib::Builtin;
 use base qw(SOAP::WSDL::XSD::Typelib::SimpleType);
 
-use version; our $VERSION = qv('2.00.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 1;
 __END__

lib/SOAP/WSDL/XSD/WhiteSpace.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.10');
+our $VERSION = $SOAP::WSDL::VERSION;
 
 #<pattern value="">
 

t/098_pod.t

@@ -2,7 +2,7 @@ use Test::More;
 eval "use Test::Pod 1.00";
 plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
 
-my @dir_from = ();
+my @dir_from = ('t');
 if (!$ENV{HARNESS_ACTIVE}) {
     # perl Build test or make test run from top-level dir.
     if ( -d '../t/' ) {