Branch Coverage

blib/lib/Perl/Critic/Policy/Compatibility/ConstantLeadingUnderscore.pm
Criterion Covered Total %
branch 26 30 86.6


line true false branch
51 1 4 unless $inc->type eq 'use' or $inc->type eq 'require' and Perl::Critic::Pulp::Utils::elem_in_BEGIN($inc)
56 10 36 if (my $ver = $inc->version)
59 10 0 if (not defined $perlver or $ver > $perlver)
62 7 3 if ($perlver >= $perl_ok_version)
70 0 36 unless ($inc->module || '') eq 'constant'
72 11 25 if (my $ver = Perl::Critic::Pulp::Utils::include_module_version($inc))
76 11 0 if (not defined $modver or $ver > $modver)
79 5 6 if ($modver >= $constant_ok_version)
87 20 11 if (defined $name and $name =~ /^_/)
88 2 18 defined $perlver ? :
3 17 defined $modver ? :
110 28 33 if ($arg->isa('PPI::Token::Word'))
114 10 23 if ($arg->isa('PPI::Token::Quote::Single') or $arg->isa('PPI::Token::Quote::Literal'))
120 9 14 if ($arg->isa('PPI::Token::Quote::Double') or $arg->isa('PPI::Token::Quote::Interpolate'))
125 9 0 unless (Perl::Critic::Policy::Miscellanea::TextDomainPlaceholders::_string_any_vars($str))