| blib/lib/Perl/Lint/Policy/Subroutines/ProtectPrivateSubs.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 44 | 52 | 84.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 32 | 322 | 0 | 1 | $token_type == 73 and $token_data eq '__PACKAGE__' |
| 318 | 2 | 2 | $token_type == 70 and $token_data eq 'shift' | |
| 213 | 67 | 40 | $token_type == 127 and $token_data eq 'POSIX' | |
| 205 | 8 | 0 | $token_type == 166 || $token_type == 194 || $token_type == 191 and $token_data eq '$pkg' || $token_data eq '$self' | |
| 39 | 26 | 1 | 27 | substr($token_data, 0, 1) eq '_' and $next_token_type != 125 |
| 27 | 0 | 27 | substr($token_data, 0, 1) eq '_' and $next_token_type != 125 and $next_token_type != 126 | |
| 45 | 0 | 4 | 5 | $allow->{'package_name'} eq $module_name and $allow->{'method_name'} eq $token_data |
| 53 | 7 | 10 | 5 | $private_name_regex and $token_data =~ /$private_name_regex/ |
| 101 | 2 | 5 | 1 | $next_token->{'type'} == 127 and $next_token->{'data'} eq 'SUPER' |
| line | l | !l | condition |
|---|---|---|---|
| 16 | 1 | 11 | $args->{'protect_private_subs'}{'allow'} || '' |
| 24 | 3 | 9 | $args->{'protect_private_subs'}{'private_name_regex'} || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 32 | 13 | 41 | 326 | $token_type == 125 or $token_type == 126 |
| 1 | 1 | 324 | $token_type == 93 or $token_type == 71 | |
| 2 | 1 | 323 | $token_type == 93 or $token_type == 71 or $token_type == 128 | |
| 1 | 0 | 322 | $token_type == 73 and $token_data eq '__PACKAGE__' or $token_type == 70 and $token_data eq 'shift' | |
| 2 | 0 | 320 | $token_type == 73 and $token_data eq '__PACKAGE__' or $token_type == 70 and $token_data eq 'shift' or $token_type == 127 and $token_data eq 'POSIX' | |
| 8 | 0 | 205 | $token_type == 166 || $token_type == 194 || $token_type == 191 | |
| 1 | 7 | 0 | $token_data eq '$pkg' || $token_data eq '$self' |