Condition Coverage

blib/lib/Perl/Lint/Policy/Subroutines/ProhibitUnusedPrivateSubroutines.pm
Criterion Covered Total %
condition 37 45 82.2


and 3 conditions

line !l l&&!r l&&r condition
31 107 1 3 $token_type == 94 and $token_data eq 'overload'
35 2 3 26 substr($token_data, 0, 1) eq '_' and not $allow{$token_data}
36 19 7 0 $allow_regex and $token_data =~ /$allow_regex/

or 3 conditions

line l !l&&r !l&&!r condition
31 3 5 114 $token_type == 204 or $token_type == 122
8 3 111 $token_type == 204 or $token_type == 122 or $token_type == 64
2 1 105 $token_type == 155 or $token_type == 150
40 1 21 27 $token_type == 127 or $token_type == 203
52 4 0 108 $token_type == 204 or $token_type == 122
4 0 108 $token_type == 204 or $token_type == 122 or $token_type == 64
88 3 0 12 $token_type == 122 or $token_type == 172
3 2 10 $token_type == 122 or $token_type == 172 or $token_type == 173
110 2 1 16 $token_type == 157 or $token_type == 187
111 0 3 0 $lexer ||= 'Compiler::Lexer'->new($file)
116 0 3 17 $token_type == 204 or $token_type == 122
3 0 17 $token_type == 204 or $token_type == 122 or $token_type == 64