TestRequired3X.pm

   1 package Lexical::Types::TestRequired3X;
   2
   3 use Lexical::Types as => \&main::cb3;
   4
   5 my Int3X $x;
   6 Test::More::is($x, __FILE__.':'.(__LINE__-1),
   7                                             'pragma in use after double setup');
   8
   9 1;