Branch Coverage

blib/lib/Perl/Lint/Policy/Variables/ProhibitUnusedVariables.pm
Criterion Covered Total %
branch 34 38 89.4


line true false branch
35 17 213 if ($token_type == 109)
40 17 196 if ($token_type == 110)
56 23 173 if ($token_type == 62)
58 2 21 if ($token->{'type'} == 107)
64 0 10 if ($token_type == 107)
69 2 8 if ($token_type == 108)
70 2 0 if --$lpnum <= 0
74 5 3 if ($var_token_types{$token_type})
81 1 1 if ($token->{'type'} != 65)
89 14 7 if ($next_token->{'type'} != 65)
95 2 171 if ($token_type == 91 or $token_type == 90)
97 2 2 if ($token->{'type'} == 106)
104 10 161 if ($var_token_types{$token_type})
109 1 9 if ($token_type == 111) { }
1 8 elsif ($token_type == 109) { }
120 11 150 if ($token_type == 157 or $token_type == 187)
127 5 0 if (length($1) % 2 == 0) { }
131 3 2 if ($last_char eq '{') { }
0 2 elsif ($last_char eq '[') { }