Branch Coverage

blib/lib/Perl/Lint/Policy/Variables/RequireLocalizedPunctuationVars.pm
Criterion Covered Total %
branch 52 70 74.2


line true false branch
43 2 13 if (my $this_policies_arg = $args->{'require_localized_punctuation_vars'})
52 638 6605 if ($token_type == 90)
55 0 638 unless $token
56 155 483 if ($token->{'type'} == 107)
61 0 344 if ($token_type == 107) { }
155 189 elsif ($token_type == 108) { }
65 155 0 if --$lpnum <= 0
74 9 6596 if ($token_type == 5) { }
303 6293 elsif ($token_type == 137) { }
28 6265 elsif ($token_type == 11) { }
78 0 9 unless $token
79 4 5 if ($token_type == 68) { }
5 0 elsif ($token_type == 17) { }
89 0 5 unless $token
91 5 0 if ($token_type == 122)
99 0 303 unless $token
101 110 193 if ($token->{'type'} == 122)
110 0 28 unless $token
112 8 0 if ($token_type == 122 or $token_type == 79 or $token_type == 80 or $token_type == 81)
123 974 5631 if ($var_token_types{$token_type})
127 0 974 if ($before_token and $before_token->{'type'} == 65)
132 0 974 unless $token
135 11 963 if ($token_type == 111) { }
12 951 elsif ($token_type == 109) { }
139 0 22 if ($token_type == 111) { }
11 11 elsif ($token_type == 112) { }
143 11 0 if --$lbnum <= 0
154 0 24 if ($token_type == 109) { }
12 12 elsif ($token_type == 110) { }
158 12 0 if --$lbnum <= 0
166 0 974 unless $token
168 302 672 if ($token->{'type'} == 108)
170 0 302 unless $token
173 6 968 if $token->{'type'} != 65
175 501 467 if ($globals{$variable} and not $exemptions{$variable})