| line |
true |
false |
branch |
|
17
|
1 |
33 |
if (my $this_policies_arg = $args->{'prohibit_comma_separated_statements'}) |
|
25
|
30 |
144 |
if ($token_type == 65) { } |
|
|
2 |
142 |
elsif ($token_type == 133) { } |
|
30
|
24 |
6 |
if ($token_type != 107 and $token_type != 109 and $token_type != 111) { } |
|
37
|
4 |
59 |
if ($token_type == 104) { } |
|
|
14 |
45 |
elsif ($token_type == 106) { } |
|
|
23 |
22 |
elsif ($token_type == 122 or $token_type == 70) { } |
|
45
|
9 |
14 |
if ($token_type == 70 and is_perl_builtin_which_take_multiple_arguments($token_data)) |
|
49
|
4 |
5 |
$token_data eq 'map' || $token_data eq 'grep' ? : |
|
53
|
2 |
7 |
if ($next_token_type == 107) { } |
|
57
|
0 |
6 |
if ($token_type == 107) { } |
|
|
2 |
4 |
elsif ($token_type == 108) { } |
|
61
|
2 |
0 |
if --$left_paren_num <= 0 |
|
68
|
2 |
5 |
if ($is_map_or_grep and not $allow_last_statement_to_be_comma_separated_in_map_and_grep) |
|
72
|
2 |
10 |
if ($token_type == 109) { } |
|
|
2 |
8 |
elsif ($token_type == 110) { } |
|
|
2 |
6 |
elsif ($token_type == 104) { } |
|
76
|
2 |
0 |
if --$left_brace_num <= 0 |
|
81
|
2 |
0 |
if ($next_token_type != 122) |
|
91
|
7 |
32 |
if ($token_type == 106) |
|
100
|
13 |
22 |
if ($token_type == 104) { } |
|
|
3 |
19 |
elsif ($token_type == 106) { } |
|
103
|
12 |
1 |
if ($next_token_type != 122) |
|
116
|
17 |
7 |
if ($does_comma_exist) |
|
130
|
6 |
44 |
if ($token_type == 106) |
|
139
|
0 |
2 |
if ($next_token->{'type'} != 107) |
|
149
|
0 |
28 |
if ($token_type == 107) { } |
|
|
2 |
26 |
elsif ($token_type == 108) { } |
|
|
6 |
20 |
elsif ($token_type == 104) { } |
|
|
2 |
18 |
elsif ($token_type == 106) { } |
|
153
|
1 |
1 |
if ($does_comma_exist and $is_semi_colon_in_paren) |
|
163
|
2 |
0 |
if --$left_paren_num <= 0 |
|
169
|
1 |
1 |
if ($does_comma_exist) |