| line |
true |
false |
branch |
|
57
|
5767 |
1 |
if ($note)
|
|
63
|
6916 |
2309 |
unless ($node)
|
|
64
|
1 |
2308 |
unless ($node->isa("PPI::Token::Operator"))
|
|
66
|
257 |
2051 |
if ($op eq "eq" or $op eq "ne")
|
|
75
|
7964 |
23656 |
if ($node->isa('PPI::Token::Operator') and exists $operator{$node->content}) { }
|
|
|
516 |
23140 |
elsif ($node->isa('PPI::Token::Operator') and precedence_of($node) > $UPREC) { }
|
|
83
|
1036 |
7964 |
unless ($rhs)
|
|
84
|
6927 |
1037 |
if ($rhs->isa("PPI::Token::Quote"))
|
|
85
|
260 |
777 |
if ($rhs->isa("PPI::Token::Word") and $rhs->content eq "ref")
|
|
91
|
1 |
13575 |
unless ($elem->isa("PPI::Token::Word"))
|
|
92
|
4345 |
9230 |
unless (is_perl_builtin($elem))
|
|
93
|
2 |
9228 |
unless (is_function_call($elem))
|
|
94
|
3 |
9225 |
if ($elem->content ne "ref")
|
|
98
|
257 |
8968 |
if (eqne($elem->sprevious_sibling))
|
|
106
|
1 |
768 |
unless (%{$self->{'_eq'};} or %{$self->{'_ne'};} or $self->{'_regexp'} or $self->{'_bareref'})
|
|
110
|
1028 |
7939 |
if (not $operator) { }
|
|
|
3586 |
4353 |
elsif ($operator eq 'eq') { }
|
|
|
3584 |
769 |
elsif ($operator eq 'ne') { }
|
|
|
768 |
1 |
elsif ($operator eq '=~' or $operator eq '!~') { }
|
|
111
|
260 |
768 |
unless ($self->{'_bareref'})
|
|
116
|
2562 |
1024 |
unless (exists $self->{'_eqfold'}{$rhs})
|
|
121
|
2560 |
1024 |
unless (exists $self->{'_nefold'}{$rhs})
|
|
125
|
384 |
384 |
unless ($self->{'_regexp'})
|