Condition Coverage

blib/lib/Perl/Lint/Policy/RegularExpressions/ProhibitUnusedCapture.pm
Criterion Covered Total %
condition 90 135 66.6


and 3 conditions

line !l l&&!r l&&r condition
51 1505 0 3 $token_type == 94 and $token_data eq 'English'
364 0 80 10 defined $captured_for_each_scope[$sub_depth] and %{$captured_for_each_scope[$sub_depth];}
428 4 42 14 $delimiter eq '<' and $re_char eq '>'
42 3 1 $delimiter eq q['] and $re_char eq q[']
487 4 0 2 $assign_ctx ne 'UNLIMITED' and $maybe_reg_opt->{'data'} =~ /g/
670 0 0 3 %captured_this_scope and $is_captured_at_before_and_op
761 0 0 5 defined $captured and my(%captured) = %{$captured;}
800 0 21 5 defined $captured and %$captured
866 0 3 1 $delimiter eq '<' and $re_char eq '>'
3 0 0 $delimiter eq q['] and $re_char eq q[']
924 0 0 0 $assign_ctx ne 'UNLIMITED' and $maybe_reg_opt->{'data'} =~ /g/

or 3 conditions

line l !l&&r !l&&!r condition
69 1 11 51 $token_type == 194 or $token_type == 191
12 1 50 $token_type == 194 or $token_type == 191 or $token_type == 166
1 10 39 $token_type == 195 or $token_type == 192
11 0 39 $token_type == 195 or $token_type == 192 or $token_type == 168
0 1 38 $token_type == 196 or $token_type == 193
1 0 38 $token_type == 196 or $token_type == 193 or $token_type == 169
109 1 1 61 $token_type == 109 or $token_type == 111
132 26 2 1234 $token_type == 172 or $token_type == 181
157 0 0 0 $var_name eq 'LAST_PAREN_MATCH' or $var_name eq 'LAST_MATCH_END'
0 0 0 $var_name eq 'LAST_PAREN_MATCH' or $var_name eq 'LAST_MATCH_END' or $var_name eq 'LAST_MATCH_START'
186 3 0 0 $char eq '+' or $char eq '-'
272 1 2 2 $var_name eq 'LAST_PAREN_MATCH' or $var_name eq 'LAST_MATCH_END'
3 2 0 $var_name eq 'LAST_PAREN_MATCH' or $var_name eq 'LAST_MATCH_END' or $var_name eq 'LAST_MATCH_START'
301 8 2 5 $re_char eq '+' or $re_char eq '-'
363 68 22 1122 $token_type == 187 or $token_type == 156
414 95 0 0 $re_chars[$j + 1] ne '?' or $re_chars[$j + 2] ne ':'
426 14 1 0 $delimiter eq '<' or $delimiter eq q[']
428 14 0 46 $delimiter eq '<' and $re_char eq '>' or $delimiter eq q['] and $re_char eq q[']
507 4 3 71 $token_data eq 'grep' or $token_data eq 'map'
535 71 0 1044 $token_type == 70 or $token_type == 64
71 15 1029 $token_type == 70 or $token_type == 64 or $token_type == 122
573 27 0 1002 $token_type == 96 or $token_type == 98
27 0 1002 $token_type == 96 or $token_type == 98 or $token_type == 99
588 1 2 97 $token_type == 52 or $token_type == 16
6 2 89 $ignore_reg_op{$token_type} or $token_type == 146
613 0 0 0 $token_type == 52 or $token_type == 16
0 0 0 $ignore_reg_op{$token_type} or $token_type == 146
685 5 5 7 $token_data eq '$+' or $token_data eq '$-'
707 3 4 64 $token_type == 194 or $token_type == 166
709 1 2 4 $token_data eq '$LAST_PAREN_MATCH' or $token_data eq '$LAST_MATCH_END'
3 4 0 $token_data eq '$LAST_PAREN_MATCH' or $token_data eq '$LAST_MATCH_END' or $token_data eq '$LAST_MATCH_START'
852 30 0 0 $re_chars[$j + 1] ne '?' or $re_chars[$j + 2] ne ':'
864 1 0 0 $delimiter eq '<' or $delimiter eq q[']
866 1 0 3 $delimiter eq '<' and $re_char eq '>' or $delimiter eq q['] and $re_char eq q[']