1 package get_strictures_hints;
3 local $ENV{PERL_STRICTURES_EXTRA} = 0;
10 # Find the hint value that 'use strictures 1' sets on this perl.
11 $strictures_hints = $^H;
12 $strictures_warn = ${^WARNING_BITS};
18 *import = \&Exporter::import;
19 our @EXPORT = qw($strictures_hints $strictures_warn);