| blib/lib/Perl/Critic/Policy/Subroutines/ProtectPrivateSubs.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 14 | 15 | 93.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 143 | 201 | 43 | 6 | $content =~ / \w+::$private_name_regex \z /msx && !($content =~ / \A SUPER::$private_name_regex \z /msx) && !$self->{'_allow'}{$content} |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 95 | 4 | 96 | 0 | $config_string //= $parameter->get_default_string |
| 123 | 6 | 6 | 320 | $self->_is_other_pkg_private_function($elem) or $self->_is_other_pkg_private_method($elem) |
| 136 | 21 | 229 | 82 | is_method_call($elem) or is_function_call($elem) |
| 163 | 2 | 1 | 8 | $package->content eq "shift" or $package->content eq "__PACKAGE__" |