| blib/lib/Perl/Critic/Policy/ValuesAndExpressions/NotWithCompare.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 23 | 29 | 79.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 112 | 32 | 79 | 1 | $state eq 'postfix' and $op_postfix{$op} |
| 115 | 79 | 28 | 4 | $state eq 'prefix' and $op eq '<' |
| 126 | 62 | 25 | 2 | $op eq '==' || $op eq '!=' and _snext_is_bang($elem) |
| 147 | 3 | 25 | 49 | $seen_precedence <= $precedence and $is_bad_precedence{$precedence} |
| 221 | 25 | 0 | 2 | $next && $next->isa('PPI::Token::Operator') && $next eq '!' |
| 230 | 8 | 2 | 6 | $elem->isa('PPI::Token::Operator') and $elem eq '>' |
| line | l | !l | condition |
|---|---|---|---|
| 121 | 107 | 0 | precedence_of($op) || (return) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 126 | 26 | 1 | 62 | $op eq '==' || $op eq '!=' |
| 171 | 0 | 19 | 0 | $constants ||= _constants($document) |
| 254 | 0 | 19 | 0 | $document->{'Perl::Critic::Policy::ValuesAndExpressions::NotWithCompare.NotWithCompareConstants'} ||= do { require Perl::Critic::Policy::ValuesAndExpressions::ConstantBeforeLt; my %constants; $document->find(sub { my($document, $elem) = @_; @constants{Perl::Critic::Policy::ValuesAndExpressions::ConstantBeforeLt::_use_constants($elem)} = (); return 0; } ); \%constants } |