File Coverage

blib/lib/Devel/StrictMode.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition 2 2 100.0
subroutine 5 5 100.0
pod n/a
total 22 22 100.0


line stmt bran cond sub pod time code
1 2     2   46292 use 5.006;
  2         8  
  2         77  
2 2     2   11 use strict;
  2         4  
  2         72  
3 2     2   11 use warnings;
  2         8  
  2         105  
4              
5 2     2   13 use Exporter ();
  2         4  
  2         475  
6              
7             package Devel::StrictMode;
8              
9             our $AUTHORITY = 'cpan:TOBYINK';
10             our $VERSION = '0.003';
11             our @ISA = qw( Exporter );
12             our @EXPORT = qw( STRICT );
13             our @EXPORT_OK = qw( LAX );
14              
15             BEGIN {
16 2     2   5 my $strict = 0;
17             $ENV{$_} && $strict++
18 2   100     26 for qw(
19             EXTENDED_TESTING
20             AUTHOR_TESTING
21             RELEASE_TESTING
22             PERL_STRICT
23             );
24            
25 2         218 eval "
26             sub STRICT () { !! $strict }
27             sub LAX () { ! $strict }
28             ";
29             };
30              
31             1;
32              
33             __END__