import SOAP-WSDL 2.00_28 from CPAN

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

t/SOAP/WSDL/12_binding.t

@@ -1,4 +1,5 @@
 use strict;
+use warnings;
 use lib '../../../lib';
 use Test::More tests => 4;
 use SOAP::WSDL;
@@ -11,17 +12,13 @@ my @dir_from = File::Spec->splitdir($dir);
 unshift @dir_from, $volume if $volume;
 my $url = join '/', @dir_from;
 
-
 print "# Using SOAP::WSDL Version $SOAP::WSDL::VERSION\n";
 
 # chdir to my location
 my $soap = undef;
 
-my $path = File::Spec->rel2abs( dirname __FILE__ );
-
 my $proxy = 'http://127.0.0.1/testPort';
 
-
 ok( $soap = SOAP::WSDL->new(
 	wsdl => 'file://' . $url . '/../../acceptance/wsdl/02_port.wsdl'
 ) );

t/SOAP/WSDL/Deserializer/SOM.t

@@ -19,7 +19,7 @@ my $data = $som->match('/a')->valueof;
 is $data->{ c } , 3;
 
 SKIP: {
-    skip "SOAP::Lite > 0.69 required" , 2 if ($SOAP::Lite::VERSION < 0.69);
+    skip "SOAP::Lite > 0.69 required" , 2 if ($SOAP::Lite::VERSION lt '0.69');
     is $data->{ b }->[0] , 1, "array values - SOAP::Lite $SOAP::Lite::VERSION";;
     is $data->{ b }->[1] , 2, "array values - SOAP::Lite $SOAP::Lite::VERSION";;
 }

t/SOAP/WSDL/XSD/Typelib/Builtin/date.t

@@ -1,9 +1,10 @@
 use Test::More tests => 30;
 use strict;
-use Carp qw(cluck);
-
-$SIG{__WARN__} = sub { cluck @_ };
 use warnings;
+#use Carp qw(cluck);
+#
+#$SIG{__WARN__} = sub { cluck @_ };
+#use warnings;
 use lib '../lib';
 use Date::Format;
 use Date::Parse;

t/SOAP/WSDL/XSD/Typelib/Builtin/dateTime.t

@@ -1,7 +1,7 @@
-use Test::More tests => 7;
 use strict;
 use warnings;
 use lib '../lib';
+use Test::More tests => 7;
 use Date::Parse;
 use Date::Format;
 

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

@@ -45,7 +45,7 @@ package main;
 use Test::More tests => 100;
 use Storable;
 
-my $have_warn = eval { use Test::Warn; 1; };
+my $have_warn = eval { require Test::Warn; import Test::Warn; 1; };
 
 my $obj;
 
@@ -67,7 +67,7 @@ is scalar keys %{ $hash_of_ref }, 0;
 
 SKIP: {
     skip 'Cannot test warnings without Test::Warn', 1 if not $have_warn;
-    warning_is { $obj->add_test() } 'attempting to add empty value to MyType';
+    warning_is( sub { $obj->add_test() }, 'attempting to add empty value to MyType' );
 }
 
 $obj = MyType->new({ test => 'Test1'});