Branch Coverage

blib/lib/Perl/Lint/Policy/Subroutines/ProhibitManyArgs.pm
Criterion Covered Total %
branch 22 26 84.6


line true false branch
21 9 38 if ($token_type == 63)
24 17 65 if ($token_type == 109) { }
11 54 elsif ($token_type == 165) { }
32 0 215 if ($token_type == 109) { }
17 198 elsif ($token_type == 110) { }
42 156 elsif ($token_type == 166 or $token_type == 191 or $token_type == 194 or $token_type == 168 or $token_type == 192 or $token_type == 195 or $token_type == 169 or $token_type == 193 or $token_type == 196) { }
26 130 elsif ($token_type == 65) { }
30 100 elsif ($token_type == 106) { }
36 17 0 if (--$left_brace_num <= 0)
37 6 11 if ($num_of_vars > $max_arguments)
60 42 0 if ($left_brace_num == 1)
69 26 0 if ($next_token_type == 136 or $next_token_type == 70 and $next_token_data eq 'shift')
85 4 7 if (length $prototype > $max_arguments)