Condition Coverage

blib/lib/Perl/Lint/Policy/Modules/ProhibitConditionalUseStatements.pm
Criterion Covered Total %
condition 55 63 87.3


and 3 conditions

line !l l&&!r l&&r condition
29 1068 14 11 $token_type == 70 and $token_data eq 'eval'
1067 3 12 $token_type == 52 || $token_type == 53 || $token_type == 14 || $token_type == 16 and $next_token->{'type'} == 87
1022 0 6 $token_type == 75 and $token_data eq 'BEGIN'
223 13 28 $is_in_BEGIN and $is_in_if
65 78 3 18 $is_in_do and $next_token_type
81 18 0 $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
89 0 21 0 $next_token_type == 94 and not is_perl_pragma($next_token->{'data'})

or 3 conditions

line l !l&&r !l&&!r condition
29 6 8 1129 $token_type == 99 or $token_type == 97
14 3 1126 $token_type == 99 or $token_type == 97 or $token_type == 98
11 9 1117 $token_type == 99 or $token_type == 97 or $token_type == 98 or $token_type == 132
12 6 1111 $token_type == 99 or $token_type == 97 or $token_type == 98 or $token_type == 132 or $token_type == 100
15 9 1102 $token_type == 99 or $token_type == 97 or $token_type == 98 or $token_type == 132 or $token_type == 100 or $token_type == 133
15 6 1096 $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
15 3 1093 $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
9 0 1093 $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'
9 3 1067 $token_type == 52 || $token_type == 53 || $token_type == 14 || $token_type == 16
409 52 355 $is_in_cond or $is_in_illegal_do
461 91 264 $is_in_cond or $is_in_illegal_do or $is_in_do
143 0 264 $is_in_cond or $is_in_illegal_do or $is_in_do or $is_in_BEGIN and $is_in_if
65 6 3 0 $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
89 28 0 21 $next_token_type == 127 or $next_token_type == 94 and not is_perl_pragma($next_token->{'data'})