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