Work around the hints propagation in requires on perl <= 5.10.0

[perl/modules/Lexical-Types.git] / t / lib / Lexical / Types / TestRequired2.pm

diff --git a/t/lib/Lexical/Types/TestRequired2.pm b/t/lib/Lexical/Types/TestRequired2.pm
new file mode 100644 (file)
index 0000000..eb15065
--- /dev/null
+++ b/t/lib/Lexical/Types/TestRequired2.pm
@@ -0,0 +1,25 @@
+package Lexical::Types::TestRequired2;
+
+use Lexical::Types;
+
+BEGIN {
+ delete $INC{'Lexical/Types/TestRequired1.pm'};
+}
+
+use lib 't/lib';
+use Lexical::Types::TestRequired1;
+
+my Int $x;
+Test::More::is($x, 't/lib/Lexical/Types/TestRequired2.pm:' . (__LINE__-1), 'pragma in use in require');
+
+eval q!
+ my Int $y;
+ my $desc = 'pragma in use in eval in require';
+ if ($] <  5.009005) {
+  Test::More::is($y, undef, $desc);
+ } else {
+  Test::More::like($y, qr/^\(eval +\d+\):2$/, $desc);
+ }
+!;
+
+1;