| blib/lib/Perl/Critic/Policy/Subroutines/ProtectPrivateSubs.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 6 | 15 | 40.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 141 | 179 | 0 | 0 | $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 | 2 | 87 | 0 | $config_string //= $parameter->get_default_string |
| 121 | 0 | 0 | 246 | $self->_is_other_pkg_private_function($elem) or $self->_is_other_pkg_private_method($elem) |
| 134 | 0 | 179 | 67 | is_method_call($elem) or is_function_call($elem) |
| 161 | 0 | 0 | 0 | $package->content eq "shift" or $package->content eq "__PACKAGE__" |