The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
META.yml 34
Makefile.PL 3137
dist.ini 02
lib/Pod/WSDL/Method.pm 44
lib/Pod/WSDL.pm 22
t/11WSDL01basic.t 34
6 files changed (This is a version diff) 4353
@@ -4,9 +4,9 @@ author:
   - 'Tarek Ahmed <bloerch -at- oelbsk.org>'
 build_requires: {}
 configure_requires:
-  ExtUtils::MakeMaker: 6.31
+  ExtUtils::MakeMaker: 6.30
 dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.102346, CPAN::Meta::Converter version 2.102400'
+generated_by: 'Dist::Zilla version 5.006, CPAN::Meta::Converter version 2.132830'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -17,8 +17,9 @@ requires:
   IO::Scalar: 2.110
   Pod::Text: 2.21
   Test::More: 0.47
+  Test::XML: 0
   XML::Writer: 0.531
   XML::XPath: 1.13
 resources:
   repository: http://github.com/tavaresb/Pod--WSDL
-version: 0.061
+version: 0.062
@@ -4,47 +4,53 @@ use warnings;
 
 
 
-use ExtUtils::MakeMaker 6.31;
+use ExtUtils::MakeMaker 6.30;
 
 
 
 my %WriteMakefileArgs = (
-  'ABSTRACT' => 'Creates WSDL documents from (extended) pod',
-  'AUTHOR' => 'Tarek Ahmed <bloerch -at- oelbsk.org>',
-  'BUILD_REQUIRES' => {},
-  'CONFIGURE_REQUIRES' => {
-    'ExtUtils::MakeMaker' => '6.31'
+  "ABSTRACT" => "Creates WSDL documents from (extended) pod",
+  "AUTHOR" => "Tarek Ahmed <bloerch -at- oelbsk.org>",
+  "BUILD_REQUIRES" => {},
+  "CONFIGURE_REQUIRES" => {
+    "ExtUtils::MakeMaker" => "6.30"
   },
-  'DISTNAME' => 'Pod-WSDL',
-  'EXE_FILES' => [],
-  'LICENSE' => 'perl',
-  'NAME' => 'Pod::WSDL',
-  'PREREQ_PM' => {
-    'Carp' => '1.03',
-    'IO::Scalar' => '2.110',
-    'Pod::Text' => '2.21',
-    'Test::More' => '0.47',
-    'XML::Writer' => '0.531',
-    'XML::XPath' => '1.13'
+  "DISTNAME" => "Pod-WSDL",
+  "EXE_FILES" => [],
+  "LICENSE" => "perl",
+  "NAME" => "Pod::WSDL",
+  "PREREQ_PM" => {
+    "Carp" => "1.03",
+    "IO::Scalar" => "2.110",
+    "Pod::Text" => "2.21",
+    "Test::More" => "0.47",
+    "Test::XML" => 0,
+    "XML::Writer" => "0.531",
+    "XML::XPath" => "1.13"
   },
-  'VERSION' => '0.061',
-  'test' => {
-    'TESTS' => 't/*.t'
+  "TEST_REQUIRES" => {},
+  "VERSION" => "0.062",
+  "test" => {
+    "TESTS" => "t/*.t"
   }
 );
 
 
-unless ( eval { ExtUtils::MakeMaker->VERSION(6.56) } ) {
-  my $br = delete $WriteMakefileArgs{BUILD_REQUIRES};
-  my $pp = $WriteMakefileArgs{PREREQ_PM};
-  for my $mod ( keys %$br ) {
-    if ( exists $pp->{$mod} ) {
-      $pp->{$mod} = $br->{$mod} if $br->{$mod} > $pp->{$mod};
-    }
-    else {
-      $pp->{$mod} = $br->{$mod};
-    }
-  }
+my %FallbackPrereqs = (
+  "Carp" => "1.03",
+  "IO::Scalar" => "2.110",
+  "Pod::Text" => "2.21",
+  "Test::More" => "0.47",
+  "Test::XML" => 0,
+  "XML::Writer" => "0.531",
+  "XML::XPath" => "1.13"
+);
+
+
+unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
+  delete $WriteMakefileArgs{TEST_REQUIRES};
+  delete $WriteMakefileArgs{BUILD_REQUIRES};
+  $WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs;
 }
 
 delete $WriteMakefileArgs{CONFIGURE_REQUIRES}
@@ -17,6 +17,7 @@ XML::Writer  = 0.531
 IO::Scalar   = 2.110
 XML::XPath   = 1.13
 Pod::Text    = 2.21
+Test::XML    = 0
 
 [MetaResources]
 repository.web = http://github.com/tavaresb/Pod--WSDL
@@ -24,3 +25,4 @@ repository.web = http://github.com/tavaresb/Pod--WSDL
 [TestRelease]
 [ConfirmRelease]
 [UploadToCPAN]
+[@Git]
@@ -323,19 +323,19 @@ name - name of the method, mandatory
 
 =item
 
-doc - a Pod::WSDL::Doc object, can be ommitted, use method doc later
+doc - a Pod::WSDL::Doc object, can be omitted, use method doc later
 
 =item
 
-return - a Pod::WSDL::Return object, can be ommitted, use method return later
+return - a Pod::WSDL::Return object, can be omitted, use method return later
 
 =item
 
-params - ref to array of Pod::WSDL::Param objects, can be ommitted, use addParam() later
+params - ref to array of Pod::WSDL::Param objects, can be omitted, use addParam() later
 
 =item
 
-faults - ref to array of Pod::WSDL::Fault objects, can be ommitted, use addFault() later
+faults - ref to array of Pod::WSDL::Fault objects, can be omitted, use addFault() later
 
 =item
 
@@ -24,7 +24,7 @@ use Pod::WSDL::AUTOLOAD;
 # ------------------ > "CONSTANTS" ----------------------------------------- #
 # -------------------------------------------------------------------------- #
 
-our $VERSION                = "0.061";
+our $VERSION                = "0.062";
 our @ISA                    = qw/Pod::WSDL::AUTOLOAD/;
 
 our $WSDL_METHOD_REGEXP_BEG = qr/^=(?:begin)\s+wsdl\s*\n(.*?)^=(?:cut|end\s+wsdl).*?^\s*sub\s+(\w+)/ims;
@@ -509,7 +509,7 @@ Use the C<=begin>/C<=end> respectively the C<=for> directives according to stand
 
 =back
 
-Any subroutine not preceeded by WSDL pod will be left unmentioned. Any standard pod will be ignored (though, for an exception to this, see the section on own complex types below).
+Any subroutine not preceded by WSDL pod will be left unmentioned. Any standard pod will be ignored (though, for an exception to this, see the section on own complex types below).
 
 The individual instructions for Pod::WSDL always begin with a keyword, like C<_RETURN> or C<_DOC> or C<_FAULT>. After this different things may follow, according to the specific type of instruction. The instruction may take one or more lines - everything up to the next line beginning with a keyword or the end of the pod is belonging to the current instruction.
 
@@ -6,6 +6,7 @@ use lib length $0 > 10 ? substr $0, 0, length($0) - 16 : '.';
 use strict;
 use warnings;
 use XML::XPath;
+use Test::XML;
 
 eval {
 	new Pod::WSDL(source => 'bla');
@@ -90,7 +91,7 @@ my $outputtest;
 
 my $tmp = $p->WSDL;
 $tmp =~ s/<!-- WSDL.*?-->\n//;
-ok($outputtest eq $tmp, "Pretty works.");
+is_xml($outputtest, $tmp, "Pretty works.");
 
 $outputtestFile = $0;
 $outputtestFile =~ s![^/]+$!outputtest002.xml!;
@@ -108,8 +109,8 @@ my $outputtest2;
 $tmp = $p->WSDL(pretty => 0);
 $tmp =~ s/<!-- WSDL.*?-->\n//;
 #print "--->$tmp<---\n";
-ok($outputtest2 eq $tmp, "Switch pretty off works.");
+is_xml($outputtest2, $tmp, "Switch pretty off works.");
 
 $tmp = $p->WSDL(pretty => 1);
 $tmp =~ s/<!-- WSDL.*?-->\n//;
-ok($outputtest eq $tmp, "Switch pretty on works.");
+is_xml($outputtest, $tmp, "Switch pretty on works.");