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)) |