X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FEval-WithLexicals.git;a=blobdiff_plain;f=t%2Flib%2Fget_strictures_hints.pm;fp=t%2Flib%2Fget_strictures_hints.pm;h=f3f36fd8900df0addad67fc4c0480edc4566f719;hp=0000000000000000000000000000000000000000;hb=c97f63974c1d1d0b422306ab24391fd256cbeceb;hpb=14786ff863ce8fbc95583e3a39b9ca29c4f0958c

diff --git a/t/lib/get_strictures_hints.pm b/t/lib/get_strictures_hints.pm
new file mode 100644
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;