[p5sagit/Eval-WithLexicals.git] / t / lib / get_strictures_hints.pm

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;
Commit	Line	Data
c97f6397	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;