Branch Coverage

blib/lib/Perl/Modern/Perl.pm
Criterion Covered Total %
branch 9 26 34.6


line true false branch
97 1 0 if ($Perl::Modern::Perl::PERL_VERSION =~ /^v5[.](\d\d).+$/msux) { }
106 1 0 unless ($version)
109 0 1 if ($version =~ /^5[.](1[13579]|2[13])$/imsux)
112 1 0 if ($version =~ /^5[.](1[02468]|2[02])$/imsux) { }
124 0 1 if ($perl_version < $feature_version)
130 0 1 unless eval { do { $use } }
139 7 8 if ($FEATURES{$feature}[$version_idx] eq '++++')
146 11 0 if ($WARNINGS{$warning}[$version_idx] ne '----')
156 0 0 if (exists $FEATURES{$delete})
158 0 0 if ($FEATURES{$delete}[$version_idx] ne '----') { }
165 0 0 if (exists $WARNINGS{$delete})
167 0 0 if ($WARNINGS{$delete}[$version_idx] ne '----')
171 0 0 unless ($flag)