TestRequired1.pm

   1 package Lexical::Types::TestRequired1;
   2
   3 my Int $x;
   4 Test::More::is($x, undef, 'pragma not in use in require');
   5
   6 eval q{
   7  my Int $y;
   8  Test::More::is($y, undef, 'pragma not in use in eval in require');
   9 };
  10
  11 1;