| line |
true |
false |
branch |
|
7
|
0 |
3 |
"$]" < 5.008004 ? : |
|
10
|
3 |
0 |
"$]" >= 5.01 ? : |
|
99
|
31 |
2 |
if (defined $_[1] and eval {
do {
&UNIVERSAL::VERSION;
1
}
}) |
|
114
|
2 |
32 |
@_ == 1 ? : |
|
115
|
32 |
2 |
unless (exists $opts{'version'}) |
|
118
|
31 |
1 |
exists $^H{'strictures_enable'} ? : |
|
127
|
1 |
33 |
unless defined $version |
|
130
|
2 |
32 |
unless ($class->can($method)) |
|
142
|
8 |
7 |
if (_want_extra($opts->{'file'})) |
|
145
|
6 |
2 |
if $extra_load_states{'indirect'} |
|
147
|
6 |
2 |
if $extra_load_states{'multidimensional'} |
|
149
|
6 |
2 |
if $extra_load_states{'bareword::filehandles'} |
|
176
|
9 |
8 |
if (_want_extra($opts->{'file'})) |
|
179
|
6 |
3 |
if $extra_load_states{'indirect'} |
|
181
|
6 |
3 |
if $extra_load_states{'multidimensional'} |
|
183
|
6 |
3 |
if $extra_load_states{'bareword::filehandles'} |
|
188
|
8 |
24 |
if (exists $ENV{'PERL_STRICTURES_EXTRA'}) |
|
193
|
5 |
3 |
$ENV{'PERL_STRICTURES_EXTRA'} ? : |
|
201
|
8 |
24 |
if defined $want_env |
|
220
|
39 |
12 |
if exists $extra_load_states{$mod} |
|
222
|
9 |
3 |
unless ($extra_load_states{$mod} = eval "require $mod; 1;") |
|
231
|
3 |
14 |
if (@failed) |