t/lib/get_strictures_hints.pm

   1 package get_strictures_hints;
   2
   3 local $ENV{PERL_STRICTURES_EXTRA} = 0;
   4 our $strictures_hints;
   5 our $strictures_warn;
   6
   7 eval q{
   8   use strictures 1;
   9   BEGIN {
  10     # Find the hint value that 'use strictures 1' sets on this perl.
  11     $strictures_hints = $^H;
  12     $strictures_warn = ${^WARNING_BITS};
  13   };
  14   1;
  15 } or die $@;
  16
  17 require Exporter;
  18 *import = \&Exporter::import;
  19 our @EXPORT = qw($strictures_hints $strictures_warn);
  20
  21 1;