Condition Coverage

blib/lib/Perl/Lint/Policy/ErrorHandling/RequireCarping.pm
Criterion Covered Total %
condition 70 80 87.5


and 3 conditions

line !l l&&!r l&&r condition
37 217 140 0 $token_type eq 70 and $token_data eq 'die' || $token_data eq 'warn'
48 47 109 294 $token_type != 151 and $token_type != 104
156 86 208 $token_type != 151 and $token_type != 104 and $token_type != 108
195 1 207 $token_type != 151 and $token_type != 104 and $token_type != 108 and $token_type != 181
87 0 207 $token_type != 151 and $token_type != 104 and $token_type != 108 and $token_type != 181 and $token_type != 180
77 35 0 102 defined $last_msg_type && defined $last_msg_data
90 12 0 $last_msg_type eq 'raw' and substr($last_msg_data, -1) ne "\n" || !$allow_messages_ending_with_newlines
36 1 51 $last_msg_data =~ /(?:\\n|\n)\Z/ && $allow_messages_ending_with_newlines
4 51 37 $last_msg_type eq 'not_raw' and not $last_msg_data =~ /(?:\\n|\n)\Z/ && $allow_messages_ending_with_newlines
82 0 72 8 $is_in_main && $allow_in_main_unless_in_subroutine

or 2 conditions

line l !l condition
22 5 24 $options->{'allow_in_main_unless_in_subroutine'} || 0

or 3 conditions

line l !l&&r !l&&!r condition
37 134 3 3 $token_data eq 'die' || $token_data eq 'warn'
48 1 1 603 $token_type == 176 or $token_type == 177
23 59 521 $i + 1 >= $token_num or $token_type == 106
82 10 511 $i + 1 >= $token_num or $token_type == 106 or $token_type == 96
69 9 502 $i + 1 >= $token_num or $token_type == 106 or $token_type == 96 or $token_type == 99
19 9 493 $i + 1 >= $token_num or $token_type == 106 or $token_type == 96 or $token_type == 99 or $token_type == 132
18 9 484 $i + 1 >= $token_num or $token_type == 106 or $token_type == 96 or $token_type == 99 or $token_type == 132 or $token_type == 133
18 9 475 $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
18 9 466 $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
18 0 466 $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
4 9 450 $token_type == 70 or $token_type == 122
77 10 0 2 substr($last_msg_data, -1) ne "\n" || !$allow_messages_ending_with_newlines
35 0 102 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
10 0 92 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 2 72 8 $is_in_sub or not $is_in_main && $allow_in_main_unless_in_subroutine
86 72 0 2 $token->{'line'} // $tokens->[-1]{'line'}