1 package get_strictures_hints;
4 local $ENV{PERL_STRICTURES_EXTRA} = 0;
11 # Find the hint value that 'use strictures 1' sets on this perl.
12 $strictures_hints = $^H;
13 $strictures_warn = ${^WARNING_BITS};
18 return ($strictures_hints, $strictures_warn);