Branch Coverage

blib/lib/Perl/Critic/Policy/Subroutines/ProtectPrivateSubs.pm
Criterion Covered Total %
branch 9 24 37.5


line true false branch
98 0 89 unless eval {
116 114 215 if (my $prior = $elem->sprevious_sibling)
118 83 31 if exists $$exceptions{$prior->content}
121 0 246 if ($self->_is_other_pkg_private_function($elem) or $self->_is_other_pkg_private_method($elem))
134 67 179 unless is_method_call($elem) or is_function_call($elem)
151 246 0 unless $content =~ / \A $private_name_regex \z /msx
152 0 0 unless my $operator = $elem->sprevious_sibling
153 0 0 if $operator->content ne "->"
155 0 0 unless my $package = $operator->sprevious_sibling
156 0 0 unless $package->isa("PPI::Token::Word")
161 0 0 if $package->content eq "shift" or $package->content eq "__PACKAGE__"
165 0 0 if $self->{'_allow'}{"${package}::$content"}