change to old package syntax <= 5.12

wollmers · Dec 12, 2015 · c889587 · c889587
1 parent 8f55a83
commit c889587
Show file tree

Hide file tree

Showing 5 changed files with 19 additions and 12 deletions.
diff --git a/t/lib/GD/Image.pm b/t/lib/GD/Image.pm
@@ -1,5 +1,5 @@
 package # hide from PAUSE
-  GD::Image {
+  GD::Image;
 
   sub new {
     my $class = shift;
@@ -18,4 +18,4 @@ package # hide from PAUSE
   sub getPixel { 1;}
 
   1;
-}
+
diff --git a/t/lib/Image/Imlib2.pm b/t/lib/Image/Imlib2.pm
@@ -1,5 +1,5 @@
 package # hide from PAUSE
-  Image::Imlib2 {
+  Image::Imlib2;
 
   sub new {
     my $class = shift;
@@ -13,4 +13,4 @@ package # hide from PAUSE
   }
 
   1;
-}
+
diff --git a/t/lib/Imager.pm b/t/lib/Imager.pm
@@ -1,5 +1,5 @@
 package  # hide from PAUSE
-  Imager {
+  Imager;
 
   sub new {
     my $class = shift;
@@ -21,4 +21,4 @@ package  # hide from PAUSE
   }
 
   1;
-}
+
diff --git a/t/lib/MyAny.pm b/t/lib/MyAny.pm
@@ -1,11 +1,10 @@
-package  # hide from PAUSE
-  MyAny {
+package # hide from PAUSE
+  MyAny;
 
   sub new {
     my $class = shift;
-    # uncoverable condition false
     bless {}, $class;
   }
 
   1;
-}
+
diff --git a/t/optional_croak.t b/t/optional_croak.t
@@ -2,15 +2,23 @@
 
 use lib qw(./lib/ ./t/lib/);
 
+BEGIN {
+    eval "use Test::Exception";
+    if ( $@ ) {
+      require Test::More;
+      Test::More::plan(skip_all => 'Test::Exception required for testing croak');
+    }
+}
+
 use Test::More;
 use Image::Seek;
 #use Test::Exception;
 
 use MyAny;
 
-eval "use Test::Exception";
+eval "use MyAny";
 if ( $@ ) {
-  plan skip_all => 'Test::Exception required for testing croak';
+  plan skip_all => 'MyAny required for testing croak';
 }
 else {
   $img = MyAny->new();