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"}
|