t/lib/get_strictures_hints.pm

   1 package get_strictures_hints;
   2
   3 sub hints {
   4   local $ENV{PERL_STRICTURES_EXTRA} = 0;
   5   my $strictures_hints;
   6   my $strictures_warn;
   7
   8   eval q{
   9     use strictures 1;
  10     BEGIN {
  11       # Find the hint value that 'use strictures 1' sets on this perl.
  12       $strictures_hints = $^H;
  13       $strictures_warn = ${^WARNING_BITS};
  14     };
  15     1;
  16   } or die $@;
  17
  18   return ($strictures_hints, $strictures_warn);
  19 }
  20
  21 1;