| blib/lib/Perl/Critic/Policy/TooMuchCode/ProhibitUnusedConstant.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 8 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 25 | 0 | 11 | unless $st->schild(0) eq "use" and $st->module eq "constant" |
| 32 | 0 | 8 | unless $elem->find(sub { |
| 34 | 19 | 31 | if ($defined_constants{"$el_word"}) |
| 36 | 4 | 15 | unless ($el_word->descendant_of($st)) |