Commit | Line | Data |
---|---|---|
c97f6397 | 1 | package get_strictures_hints; |
2 | ||
6c8bf56c | 3 | sub hints { |
4 | local $ENV{PERL_STRICTURES_EXTRA} = 0; | |
5 | my $strictures_hints; | |
6 | my $strictures_warn; | |
c97f6397 | 7 | |
6c8bf56c | 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 $@; | |
c97f6397 | 17 | |
6c8bf56c | 18 | return ($strictures_hints, $strictures_warn); |
19 | } | |
c97f6397 | 20 | |
21 | 1; |