| line |
true |
false |
branch |
|
7
|
0 |
3 |
$] < 5.008004 ? : |
|
10
|
3 |
0 |
$] >= 5.01 ? : |
|
94
|
31 |
2 |
if (defined $_[1] and eval {
do {
&UNIVERSAL::VERSION;
1
}
}) |
|
109
|
2 |
32 |
@_ == 1 ? : |
|
110
|
32 |
2 |
unless (exists $opts{'version'}) |
|
113
|
31 |
1 |
exists $^H{'strictures_enable'} ? : |
|
122
|
1 |
33 |
unless defined $version |
|
125
|
2 |
32 |
unless ($class->can($method)) |
|
137
|
8 |
7 |
if (_want_extra($opts->{'file'})) |
|
140
|
6 |
2 |
if $extra_load_states{'indirect'} |
|
142
|
6 |
2 |
if $extra_load_states{'multidimensional'} |
|
144
|
6 |
2 |
if $extra_load_states{'bareword::filehandles'} |
|
171
|
9 |
8 |
if (_want_extra($opts->{'file'})) |
|
174
|
6 |
3 |
if $extra_load_states{'indirect'} |
|
176
|
6 |
3 |
if $extra_load_states{'multidimensional'} |
|
178
|
6 |
3 |
if $extra_load_states{'bareword::filehandles'} |
|
183
|
8 |
24 |
if (exists $ENV{'PERL_STRICTURES_EXTRA'}) |
|
188
|
5 |
3 |
$ENV{'PERL_STRICTURES_EXTRA'} ? : |
|
196
|
8 |
24 |
if defined $want_env |
|
215
|
39 |
12 |
if exists $extra_load_states{$mod} |
|
217
|
9 |
3 |
unless ($extra_load_states{$mod} = eval "require $mod; 1;") |
|
226
|
3 |
14 |
if (@failed) |