| line |
true |
false |
branch |
|
26
|
21 |
51 |
if ($token_type == 63 or $token_type == 122 and $next_token->{'type'} == 109) |
|
34
|
32 |
50 |
if ($token_type == 109) { } |
|
|
1 |
49 |
elsif ($token_type == 106) { } |
|
47
|
20 |
803 |
if ($token_type == 109) { } |
|
|
52 |
751 |
elsif ($token_type == 110) { } |
|
|
11 |
740 |
elsif ($token_type == 70 and $token_data eq 'shift') { } |
|
|
29 |
711 |
elsif ($token_type == 137 and $token_data eq '$_') { } |
|
|
56 |
655 |
elsif ($token_type == 136 and not $allow_subscripts) { } |
|
|
13 |
642 |
elsif ($token_type == 127 or $token_type == 64) { } |
|
|
6 |
636 |
elsif ($token_type == 126) { } |
|
|
102 |
534 |
elsif ($token_type == 106) { } |
|
51
|
32 |
20 |
if (--$left_brace_num <= 0) |
|
53
|
15 |
17 |
if ($is_violated) |
|
54
|
14 |
1 |
if (not defined $short_subroutine_statements or $end_line - $begin_line - 1 > $short_subroutine_statements) |
|
73
|
0 |
11 |
if ($token_type == 107) |
|
77
|
2 |
9 |
if ($token_type == 136) |
|
84
|
29 |
0 |
if ($token_type == 111) |
|
87
|
26 |
3 |
if ($token_type == 170) |
|
95
|
1 |
55 |
if ($token_type == 111) |
|
100
|
2 |
9 |
if ($is_inherited or $token_data eq 'NEXT' or $token_data eq 'SUPER') |
|
108
|
5 |
4 |
if ($next_token_type == 107) |
|
112
|
4 |
5 |
if ($next_token_type == 136) |
|
113
|
2 |
1 |
unless $_ eq $package_name |
|
|
2 |
2 |
if (@allow_delegation_to and &any(sub {
$_ eq $token_data unless $_ eq $package_name;
}
, @allow_delegation_to)) |