diff options
Diffstat (limited to 'lib/Attribute/Handlers/t/constants.t')
-rw-r--r-- | lib/Attribute/Handlers/t/constants.t | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/lib/Attribute/Handlers/t/constants.t b/lib/Attribute/Handlers/t/constants.t new file mode 100644 index 0000000000..746a87e0ec --- /dev/null +++ b/lib/Attribute/Handlers/t/constants.t @@ -0,0 +1,13 @@ +BEGIN { + if ($ENV{PERL_CORE}) { + chdir 't' if -d 't'; + @INC = '../lib'; + } +} +use strict; +use Test::More tests => 1; +use Attribute::Handlers; +# This had been failing since the introduction of proxy constant subroutines +use constant SETUP => undef; +sub Test : ATTR(CODE) { }; +ok(1, "If we got here, CHECK didn't fail"); |