| line |
true |
false |
branch |
|
97
|
1 |
0 |
if ($Perl::Modern::Perl::PERL_VERSION =~ /^v5[.](\d\d).+$/msux) { } |
|
106
|
1 |
0 |
unless ($version) |
|
109
|
1 |
0 |
if ($version =~ /^5[.](1[02468]|2[02])$/imsux) { } |
|
121
|
0 |
1 |
if ($perl_version < $feature_version) |
|
127
|
0 |
1 |
unless eval {
do {
$use
}
} |
|
136
|
7 |
8 |
if ($FEATURES{$feature}[$version_idx] eq '++++') |
|
143
|
11 |
0 |
if ($WARNINGS{$warning}[$version_idx] ne '----') |
|
153
|
0 |
0 |
if (exists $FEATURES{$delete}) |
|
155
|
0 |
0 |
if ($FEATURES{$delete}[$version_idx] ne '----') { } |
|
162
|
0 |
0 |
if (exists $WARNINGS{$delete}) |
|
164
|
0 |
0 |
if ($WARNINGS{$delete}[$version_idx] ne '----') |
|
168
|
0 |
0 |
unless ($flag) |