| blib/lib/Perl/Critic/Policy/References/ProhibitRefChecks.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 35 | 42 | 83.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 75 | 22203 | 1453 | 7964 | $node->isa("PPI::Token::Operator") and exists $operator{$node->content} |
| 22203 | 937 | 516 | $node->isa("PPI::Token::Operator") and precedence_of($node) > $UPREC | |
| 85 | 777 | 0 | 260 | $rhs->isa("PPI::Token::Word") and $rhs->content eq "ref" |
| line | l | !l | condition |
|---|---|---|---|
| 56 | 5767 | 1 | $note //= "" |
| 100 | 8968 | 0 | $self->{'_eq'} //= {} |
| 101 | 8968 | 0 | $self->{'_ne'} //= {} |
| 102 | 8968 | 0 | $self->{'_regexp'} //= 0 |
| 103 | 8968 | 0 | $self->{'_bareref'} //= 0 |
| 115 | 6 | 0 | $self->{'_eq'} // {} |
| 3580 | 6 | $self->{'_eqfold'} //= {map({lc $_, undef;} keys %{$self->{'_eq'} // {};})} | |
| 120 | 5 | 0 | $self->{'_ne'} // {} |
| 3579 | 5 | $self->{'_nefold'} //= {map({lc $_, undef;} keys %{$self->{'_ne'} // {};})} |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 66 | 129 | 128 | 2051 | $op eq "eq" or $op eq "ne" |
| 106 | 4615 | 3200 | 1153 | %{$self->{'_eq'};} or %{$self->{'_ne'};} |
| 3200 | 384 | 769 | %{$self->{'_eq'};} or %{$self->{'_ne'};} or $self->{'_regexp'} | |
| 384 | 768 | 1 | %{$self->{'_eq'};} or %{$self->{'_ne'};} or $self->{'_regexp'} or $self->{'_bareref'} | |
| 110 | 384 | 384 | 1 | $operator eq "=~" or $operator eq "!~" |