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

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

diff --git a/t/lib/Lexical/Types/TestRequired1.pm b/t/lib/Lexical/Types/TestRequired1.pm
new file mode 100644 (file)
index 0000000..a54e325
--- /dev/null
+++ b/t/lib/Lexical/Types/TestRequired1.pm
@@ -0,0 +1,11 @@
+package Lexical::Types::TestRequired1;
+
+my Int $x;
+Test::More::is($x, undef, 'pragma not in use in require');
+
+eval q{
+ my Int $y;
+ Test::More::is($y, undef, 'pragma not in use in eval in require');
+};
+
+1;