| blib/lib/Perl/Critic/Policy/Compatibility/ConstantPragmaHash.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 14 | 21 | 66.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 50 | 0 | 2 | 5 | $inc->type eq 'require' and Perl::Critic::Pulp::Utils::elem_in_BEGIN($inc) |
| line | l | !l | condition |
|---|---|---|---|
| 46 | 25 | 1 | $document->find('PPI::Statement::Include') || (return) |
| 69 | 28 | 0 | $inc->module || '' |
| 128 | 42 | 7 | Perl::Critic::Pulp::Utils::include_module_first_arg($inc) || (return 0) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 50 | 32 | 5 | 2 | $inc->type eq 'use' or $inc->type eq 'require' and Perl::Critic::Pulp::Utils::elem_in_BEGIN($inc) |
| 58 | 9 | 0 | 0 | not defined $perlver or $ver > $perlver |
| 75 | 9 | 0 | 0 | not defined $modver or $ver > $modver |
| 130 | 23 | 0 | 19 | $arg->isa('PPI::Structure::Constructor') || $arg->isa('PPI::Structure::Block') |