| line |
true |
false |
branch |
|
72
|
16 |
0 |
if (my $this_policies_arg = $args->{'prohibit_evil_variables'}) |
|
74
|
14 |
2 |
if ($variable_specifications) |
|
78
|
17 |
11 |
if ($variable) { } |
|
88
|
2 |
14 |
if ($variable_specification_files) |
|
89
|
0 |
2 |
unless open my $fh, '<', $variable_specification_files |
|
95
|
8 |
6 |
unless $line |
|
97
|
6 |
0 |
if (my($variable, $regex_string, $description) = $line =~ / $variables_file_line_regex /msx) |
|
100
|
3 |
3 |
if ($variable) { } |
|
116
|
43 |
232 |
if ({137 => 1, 166 => 1, 167 => 1, 168 => 1, 169 => 1, 191 => 1, 192 => 1, 193 => 1, 194 => 1, 195 => 1, 196 => 1}->{$token_type} or {114 => 1, 115 => 1}->{$token_type}) |
|
122
|
3 |
40 |
if ({114 => 1, 115 => 1}->{$token_type}) { } |
|
|
6 |
34 |
elsif ($token_type == 137 and $token_data eq '$^') { } |
|
136
|
12 |
22 |
if ($token_type == 109) { } |
|
|
6 |
16 |
elsif ($token_type == 111) { } |
|
158
|
0 |
45 |
if ($token_type == $opener) { } |
|
|
21 |
24 |
elsif ($token_type == $closer) { } |
|
162
|
21 |
0 |
if --$left_bracket_num <= 0 |
|
175
|
5 |
15 |
if (not $line and $alt_evil_var) |
|
179
|
4 |
1 |
unless ($line) |
|
181
|
2 |
5 |
if ($line = $_used_var =~ /\A\Q$alt_evil_var\E [\[\{]/x) |
|
189
|
18 |
2 |
if ($line) |
|
202
|
20 |
23 |
if ($used_var =~ /$regex/) |