| line |
true |
false |
branch |
|
89
|
9 |
20 |
if (my $this_policies_arg = $args->{'prohibit_punctuation_vars'}) |
|
91
|
3 |
6 |
if ($string_mode eq 'thorough') |
|
111
|
15 |
499 |
if ($special_variable_token_types{$token_type}) |
|
112
|
1 |
14 |
if ($is_ref) |
|
117
|
7 |
7 |
if ($exempt_vars{$token_data}) |
|
121
|
0 |
7 |
unless ($magic_variables{$token_data}) |
|
135
|
14 |
485 |
if ($var_token_types{$token_type}) |
|
136
|
0 |
14 |
if ($is_ref) |
|
141
|
0 |
14 |
if ($exempt_vars{$token_data}) |
|
145
|
13 |
1 |
unless ($magic_variables{$token_data}) |
|
149
|
1 |
0 |
if (substr($token_data, 1, 1) =~ /\A[^a-zA-Z]\Z/) |
|
161
|
1 |
484 |
if ($token_type == 10) |
|
166
|
0 |
484 |
if ($token_type == 177) |
|
171
|
0 |
484 |
if ($token_type == 182) |
|
176
|
11 |
473 |
if ($expands_regexp_token_types{$token_type}) |
|
179
|
0 |
11 |
if ($token->{'type'} != 187) |
|
186
|
114 |
370 |
if ($token_type == 172 or $token_type == 174) |
|
191
|
1 |
113 |
if ($string_mode eq 'disable') |
|
201
|
26 |
240 |
if ($part_type == 10) |
|
206
|
17 |
223 |
if ($ref_count % 2 != 0) |
|
211
|
98 |
125 |
if ($part_type == 137) { } |
|
|
120 |
5 |
elsif ($part_type != 66) { } |
|
212
|
13 |
85 |
if ($used_var eq '$:') |
|
215
|
7 |
6 |
if ($part and $part->{'type'} == 105) |
|
217
|
1 |
6 |
if ($part and $part->{'type'} == 13) { } |
|
234
|
113 |
7 |
unless ($var_token_types{$part_type}) |
|
239
|
3 |
4 |
if ($part) |
|
240
|
1 |
2 |
if ($used_var eq '$') { } |
|
|
1 |
1 |
elsif ($used_var eq '@') { } |
|
|
1 |
0 |
elsif ($used_var eq '%-') { } |
|
241
|
1 |
0 |
if ($part->{'type'} == 110) |
|
246
|
1 |
0 |
if ($part->{'type'} == 3) |
|
251
|
1 |
0 |
if ($part->{'type'} == 170) |
|
258
|
4 |
99 |
if ($exempt_vars{$used_var}) |
|
262
|
4 |
6 |
if ($string_mode eq 'simple' and $ignore_for_interpolation{$used_var}) |
|
266
|
93 |
2 |
if ($magic_variables{$used_var}) |