make hints test immune to perl -M options

[p5sagit/Eval-WithLexicals.git] / t / lib / get_strictures_hints.pm

diff --git a/t/lib/get_strictures_hints.pm b/t/lib/get_strictures_hints.pm
new file mode 100644 (file)
index 0000000..f3f36fd
--- /dev/null
+++ b/t/lib/get_strictures_hints.pm
@@ -0,0 +1,21 @@
+package get_strictures_hints;
+
+local $ENV{PERL_STRICTURES_EXTRA} = 0;
+our $strictures_hints;
+our $strictures_warn;
+
+eval q{
+  use strictures 1;
+  BEGIN {
+    # Find the hint value that 'use strictures 1' sets on this perl.
+    $strictures_hints = $^H;
+    $strictures_warn = ${^WARNING_BITS};
+  };
+  1;
+} or die $@;
+
+require Exporter;
+*import = \&Exporter::import;
+our @EXPORT = qw($strictures_hints $strictures_warn);
+
+1;