t/08-const-sub.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More 0.88;
   5
   6 use constant CONST => 123;
   7 use namespace::clean;
   8
   9 my $x = CONST;
  10 is $x, 123;
  11
  12 ok eval("!defined(&CONST)");
  13
  14 done_testing;