t/lib/Lexical/Types/TestRequired2.pm

   1 package Lexical::Types::TestRequired2;
   2
   3 use Lexical::Types;
   4
   5 BEGIN {
   6  delete $INC{'Lexical/Types/TestRequired1.pm'};
   7 }
   8
   9 use lib 't/lib';
  10 use Lexical::Types::TestRequired1;
  11
  12 my Int $x;
  13 Test::More::is($x, 't/lib/Lexical/Types/TestRequired2.pm:' . (__LINE__-1), 'pragma in use in require');
  14
  15 eval q!
  16  my Int $y;
  17  my $desc = 'pragma in use in eval in require';
  18  if ($] <  5.009005) {
  19   Test::More::is($y, undef, $desc);
  20  } else {
  21   Test::More::like($y, qr/^\(eval +\d+\):2$/, $desc);
  22  }
  23 !;
  24
  25 1;