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; |