diff options
author | Jesse Luehrs <doy@tozt.net> | 2014-09-21 13:42:35 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2014-09-21 13:42:35 -0400 |
commit | 95ee7dddc8054d94d25a7064e410927648f8dd5b (patch) | |
tree | 7f1bf25e7227bd8430e1c9746c399a8570e927e3 /t/bare-anon-basic.t | |
parent | c7fa08372d436d66a5f85480aa4d17920cca8a04 (diff) | |
download | package-stash-95ee7dddc8054d94d25a7064e410927648f8dd5b.tar.gz package-stash-95ee7dddc8054d94d25a7064e410927648f8dd5b.zip |
bail out earlier if Package::Anon isn't supported
Diffstat (limited to 't/bare-anon-basic.t')
-rw-r--r-- | t/bare-anon-basic.t | 13 |
1 files changed, 8 insertions, 5 deletions
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; |