| line |
true |
false |
branch |
|
29
|
61 |
1082 |
if ($token_type == 99 or $token_type == 97 or $token_type == 98 or $token_type == 132 or $token_type == 100 or $token_type == 133 or $token_type == 134 or $token_type == 86 or $token_type == 70 and $token_data eq 'eval') { } |
|
|
12 |
1070 |
elsif ($token_type == 52 || $token_type == 53 || $token_type == 14 || $token_type == 16 and $next_token->{'type'} == 87) { } |
|
|
21 |
1049 |
elsif ($token_type == 87) { } |
|
|
21 |
1028 |
elsif ($token_type == 96) { } |
|
|
6 |
1022 |
elsif ($token_type == 75 and $token_data eq 'BEGIN') { } |
|
|
103 |
919 |
elsif ($token_type == 109) { } |
|
|
103 |
816 |
elsif ($token_type == 110) { } |
|
|
580 |
459 |
elsif ($is_in_cond or $is_in_illegal_do or $is_in_do or $is_in_BEGIN and $is_in_if) { } |
|
63
|
99 |
4 |
if (--$left_brace_num == 0) |
|
65
|
6 |
0 |
if ($is_in_do and $next_token_type and $next_token_type eq 96 || $next_token_type eq 133 || $next_token_type eq 132 || $next_token_type eq 100 || $next_token_type eq 99 || $next_token_type eq 134) |
|
76
|
6 |
12 |
if $previous_violation |
|
87
|
49 |
531 |
if ($token_type == 93) |
|
89
|
28 |
21 |
if ($next_token_type == 127 or $next_token_type == 94 and not is_perl_pragma($next_token->{'data'})) |
|
100
|
21 |
7 |
unless ($is_in_do) |