From 95ee7dddc8054d94d25a7064e410927648f8dd5b Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sun, 21 Sep 2014 13:42:35 -0400
Subject: bail out earlier if Package::Anon isn't supported

---
 t/anon-basic.t      | 13 ++++++++-----
 t/anon.t            | 14 ++++++++------
 t/bare-anon-basic.t | 13 ++++++++-----
 t/bare-anon.t       | 13 ++++++++-----
 4 files changed, 32 insertions(+), 21 deletions(-)

diff --git a/t/anon-basic.t b/t/anon-basic.t
index 32f5c9c..5f7fb93 100644
--- a/t/anon-basic.t
+++ b/t/anon-basic.t
@@ -5,13 +5,16 @@ use lib 't/lib';
 use Test::More;
 use Test::Fatal;
 
-use Test::Requires 'Package::Anon';
 use Package::Stash;
-use Symbol;
 
-plan skip_all => "Anonymous stashes in PP need at least perl 5.14"
-    if $] < 5.014
-    && $Package::Stash::IMPLEMENTATION eq 'PP';
+BEGIN {
+    plan skip_all => "Anonymous stashes in PP need at least perl 5.14"
+        if $] < 5.014
+        && $Package::Stash::IMPLEMENTATION eq 'PP';
+}
+
+use Test::Requires 'Package::Anon';
+use Symbol;
 
 my $Foo = Package::Anon->new('Foo');
 $Foo->{SOME_CONSTANT} = \1;
diff --git a/t/anon.t b/t/anon.t
index 8b7f7aa..94d2f65 100644
--- a/t/anon.t
+++ b/t/anon.t
@@ -5,14 +5,16 @@ use Test::More;
 use Test::Fatal;
 use lib 't/lib';
 
-use Test::Requires 'Package::Anon';
-
 use Package::Stash;
-use Symbol;
 
-plan skip_all => "Anonymous stashes in PP need at least perl 5.14"
-    if $] < 5.014
-    && $Package::Stash::IMPLEMENTATION eq 'PP';
+BEGIN {
+    plan skip_all => "Anonymous stashes in PP need at least perl 5.14"
+        if $] < 5.014
+        && $Package::Stash::IMPLEMENTATION eq 'PP';
+}
+
+use Test::Requires 'Package::Anon';
+use Symbol;
 
 my $anon = Package::Anon->new;
 my $stash = Package::Stash->new($anon);
diff --git a/t/bare-anon-basic.t b/t/bare-anon-basic.t
index 5bdb523..c3cc981 100644
--- a/t/bare-anon-basic.t
+++ b/t/bare-anon-basic.t
@@ -6,13 +6,16 @@ use Test::More;
 use Test::Fatal;
 
 use Package::Stash;
-use Symbol;
 
-plan skip_all => "Anonymous stashes in PP need at least perl 5.14"
-    if $] < 5.014
-    && $Package::Stash::IMPLEMENTATION eq 'PP';
+BEGIN {
+    plan skip_all => "Anonymous stashes in PP need at least perl 5.14"
+        if $] < 5.014
+        && $Package::Stash::IMPLEMENTATION eq 'PP';
+
+    plan skip_all => "This isn't really going to work yet, probably";
+}
 
-plan skip_all => "This isn't really going to work yet, probably";
+use Symbol;
 
 my $Foo = {};
 $Foo->{SOME_CONSTANT} = \1;
diff --git a/t/bare-anon.t b/t/bare-anon.t
index 0ecb324..f42dce8 100644
--- a/t/bare-anon.t
+++ b/t/bare-anon.t
@@ -6,13 +6,16 @@ use Test::Fatal;
 use lib 't/lib';
 
 use Package::Stash;
-use Symbol;
 
-plan skip_all => "Anonymous stashes in PP need at least perl 5.14"
-    if $] < 5.014
-    && $Package::Stash::IMPLEMENTATION eq 'PP';
+BEGIN {
+    plan skip_all => "Anonymous stashes in PP need at least perl 5.14"
+        if $] < 5.014
+        && $Package::Stash::IMPLEMENTATION eq 'PP';
+
+    plan skip_all => "This isn't really going to work yet, probably";
+}
 
-plan skip_all => "This isn't really going to work yet, probably";
+use Symbol;
 
 my $anon = {};
 my $stash = Package::Stash->new($anon);
-- 
cgit v1.2.3