Branch Coverage

blib/lib/Perl/Lint/Policy/Variables/RequireNegativeIndices.pm
Criterion Covered Total %
branch 35 40 87.5


line true false branch
36 45 73 if ($var_token_types{$token_type} or $token_type == 117)
38 9 36 if ($token_type == 117) { }
40 0 9 unless $token
50 0 45 unless $token
52 13 32 if ($token->{'type'} == 125)
55 0 13 unless $token
58 36 9 if ($token->{'type'} == 111)
63 1 137 if ($token_type == 111)
68 37 100 if ($token_type == 112)
69 36 1 if --$nlbracket <= 0
73 14 86 if ($token_type == 66 or $is_reference and $token_type == 118)
78 0 14 unless $token
83 2 12 if ($is_reference and $var_token_types{$token_type}) { }
11 1 elsif ($token->{'type'} == 122) { }
90 13 1 if ($array_size_data)
93 10 3 if ($array_size_data eq $var_name)
107 5 81 if ($token_type == 113 or $is_reference and $token_type == 121)
112 0 5 unless $token
114 11 75 if (not $is_reference and $array_var_token_types{$token_type} or $array_dereference_token_types{$token_type})
120 8 3 if ($token_data eq $var_name)