Branch Coverage

blib/lib/Perl/Critic/Policy/Compatibility/ConstantPragmaHash.pm
Criterion Covered Total %
branch 19 22 86.3


line true false branch
50 2 5 unless $inc->type eq 'use' or $inc->type eq 'require' and Perl::Critic::Pulp::Utils::elem_in_BEGIN($inc)
55 9 28 if (my $ver = $inc->version)
58 9 0 if (not defined $perlver or $ver > $perlver)
61 8 1 if ($perlver >= $perl_ok_version)
69 0 28 unless ($inc->module || '') eq 'constant'
71 9 19 if (my $ver = Perl::Critic::Pulp::Utils::include_module_version($inc))
75 9 0 if (not defined $modver or $ver > $modver)
78 7 2 if ($modver >= $constant_ok_version)
85 15 6 if (_use_constant_is_multi($inc))
86 1 14 defined $perlver ? :
2 13 defined $modver ? :