Branch Coverage

blib/lib/Perl/Critic/Policy/TooMuchCode/ProhibitUnusedConstant.pm
Criterion Covered Total %
branch 6 8 75.0


line true false branch
25 0 13 unless $st->schild(0) eq "use" and $st->module eq "constant"
32 0 10 unless $elem->find(sub {
34 21 37 if ($defined_constants{"$el_word"})
36 4 17 unless ($el_word->descendant_of($st))