Branch Coverage

blib/lib/Perl/Lint/Policy/Variables/ProhibitLocalVars.pm
Criterion Covered Total %
branch 21 24 87.5


line true false branch
19 18 113 if ($token_type == 90)
23 9 9 if ($token_type == 107) { }
7 2 elsif ($token_type == 194 or $token_type == 166) { }
28 0 36 if ($token_type == 107) { }
9 27 elsif ($token_type == 108) { }
11 16 elsif ($token_type == 194 or $token_type == 166) { }
32 9 0 if (--$left_paren_num <= 0)
33 4 5 if ($violation)
41 6 5 unless ($token->{'data'} =~ /\A\$[A-Z_]+\Z/)
43 6 0 if ($next_token->{'type'} != 126)
57 3 4 unless ($token->{'data'} =~ /\A\$[A-Z_]+\Z/)
59 2 1 if ($next_token->{'type'} != 126)