line |
true |
false |
branch |
112
|
1 |
0 |
if ($Modern::PBP::Perl::PERL_VERSION =~ /^v5[.](\d\d).+$/msux) { } |
122
|
1 |
0 |
if ($version =~ /^5[.](1[02468]|2[024])$/imsux) { } |
134
|
0 |
1 |
if ($perl_version < $feature_version) |
140
|
0 |
1 |
unless eval {
do {
$use
}
} |
149
|
7 |
8 |
if ($FEATURES{$feature}[$version_idx] eq '++++') |
156
|
11 |
0 |
if ($WARNINGS{$warning}[$version_idx] ne '----') |
166
|
0 |
0 |
if (exists $FEATURES{$delete}) |
168
|
0 |
0 |
if ($FEATURES{$delete}[$version_idx] ne '----') { } |
175
|
0 |
0 |
if (exists $WARNINGS{$delete}) |
177
|
0 |
0 |
if ($WARNINGS{$delete}[$version_idx] ne '----') |
181
|
0 |
0 |
unless ($flag) |
188
|
0 |
1 |
if ($english_parameter) { } |
194
|
0 |
0 |
unless eval {
do {
$match_vars
}
} |