lib/Attribute/Handlers/t/constants.t

   1 BEGIN {
   2     if ($ENV{PERL_CORE}) {
   3         chdir 't' if -d 't';
   4         @INC = '../lib';
   5     }
   6 }
   7 use strict;
   8 use Test::More tests => 1;
   9 use Attribute::Handlers;
  10 # This had been failing since the introduction of proxy constant subroutines
  11 use constant SETUP => undef;
  12 sub Test : ATTR(CODE) { };
  13 ok(1, "If we got here, CHECK didn't fail");