Branch Coverage

blib/lib/Modern/PBP/Perl.pm
Criterion Covered Total %
branch 8 26 30.7


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