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