Branch Coverage

blib/lib/Perl/Lint/Policy/ErrorHandling/RequireCarping.pm
Criterion Covered Total %
branch 48 54 88.8


line true false branch
17 1 28 if (defined $options->{'allow_messages_ending_with_newlines'})
37 137 220 if ($token_type eq 70 and $token_data eq 'die' || $token_data eq 'warn') { }
2 218 elsif ($token_type == 128) { }
2 216 elsif ($token_type == 63) { }
5 211 elsif ($token_type == 109) { }
9 202 elsif ($token_type == 110) { }
48 82 707 if ($token_type == 172) { }
10 697 elsif ($token_type == 146) { }
53 644 elsif ($token_type == 173) { }
39 605 elsif ($token_type == 145) { }
2 603 elsif ($token_type == 176 or $token_type == 177) { }
137 466 elsif ($i + 1 >= $token_num or $token_type == 106 or $token_type == 96 or $token_type == 99 or $token_type == 132 or $token_type == 133 or $token_type == 134 or $token_type == 100 or $token_type == 182) { }
3 463 elsif ($token_type == 64) { }
13 450 elsif ($token_type == 70 or $token_type == 122) { }
207 243 elsif ($token_type != 151 and $token_type != 104 and $token_type != 108 and $token_type != 181 and $token_type != 180) { }
0 243 elsif ($token_type == 128) { }
77 37 55 if (not defined $last_msg_type && defined $last_msg_data or $last_msg_type eq 'raw' and substr($last_msg_data, -1) ne "\n" || !$allow_messages_ending_with_newlines or $last_msg_type eq 'not_raw' and not $last_msg_data =~ /(?:\\n|\n)\Z/ && $allow_messages_ending_with_newlines)
82 74 8 if ($is_in_sub or not $is_in_main && $allow_in_main_unless_in_subroutine)
100 3 4 if ($token_type == 108) { }
0 4 elsif ($token_type == 107) { }
107 3 4 if ($left_paren_num <= 0)
120 4 17 if ($token_type == 108) { }
4 13 elsif ($token_type == 107) { }
127 13 8 if ($left_paren_num <= 0)
142 0 0 $$tokens[++$i]{'data'} eq 'main' ? :
149 2 0 $$tokens[++$i]{'data'} eq 'main' ? :
159 9 0 if ($left_brace_num <= 0)