| blib/lib/Perl/Critic/Policy/Compatibility/ConstantLeadingUnderscore.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 21 | 27 | 77.7 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 51 | 0 | 1 | 4 | $inc->type eq "require" and Perl::Critic::Pulp::Utils::elem_in_BEGIN($inc) |
| 87 | 4 | 7 | 20 | defined $name and $name =~ /^_/ |
| line | l | !l | condition |
|---|---|---|---|
| 47 | 27 | 1 | $document->find('PPI::Statement::Include') || (return) |
| 70 | 36 | 0 | $inc->module || '' |
| 107 | 61 | 10 | Perl::Critic::Pulp::Utils::include_module_first_arg($inc) || (return undef) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 51 | 42 | 4 | 1 | $inc->type eq "use" or $inc->type eq "require" and Perl::Critic::Pulp::Utils::elem_in_BEGIN($inc) |
| 59 | 10 | 0 | 0 | not defined $perlver or $ver > $perlver |
| 76 | 11 | 0 | 0 | not defined $modver or $ver > $modver |
| 114 | 6 | 4 | 23 | $arg->isa("PPI::Token::Quote::Single") or $arg->isa("PPI::Token::Quote::Literal") |
| 120 | 5 | 4 | 14 | $arg->isa("PPI::Token::Quote::Double") or $arg->isa("PPI::Token::Quote::Interpolate") |