1 package Lexical::Types::TestRequired2;
6 delete $INC{'Lexical/Types/TestRequired1.pm'};
10 use Lexical::Types::TestRequired1;
13 Test::More::is($x, 't/lib/Lexical/Types/TestRequired2.pm:' . (__LINE__-1), 'pragma in use in require');
17 my $desc = 'pragma in use in eval in require';
18 if ("$]" < 5.009_005) {
19 Test::More::is($y, undef, $desc);
21 Test::More::like($y, qr/^\(eval +\d+\):2$/, $desc);