Branch Coverage

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


line true false branch
98 0 100 unless eval {
116 138 280 if (my $prior = $elem->sprevious_sibling)
118 86 52 if exists $$exceptions{$prior->content}
121 12 320 if ($self->_is_other_pkg_private_function($elem) or $self->_is_other_pkg_private_method($elem))
134 82 229 unless is_method_call($elem) or is_function_call($elem)
151 312 14 unless $content =~ / \A $private_name_regex \z /msx
152 1 13 unless my $operator = $elem->sprevious_sibling
153 0 13 if $operator->content ne "->"
155 0 13 unless my $package = $operator->sprevious_sibling
156 2 11 unless $package->isa("PPI::Token::Word")
161 3 8 if $package->content eq "shift" or $package->content eq "__PACKAGE__"
165 2 6 if $self->{'_allow'}{"${package}::$content"}