| blib/lib/Perl/Critic/Policy/Compatibility/ProhibitUnixDevNull.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 8 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 48 | 2 | 8 | if ($elem->isa('PPI::Token::QuoteLike::Words')) { } |
| 49 | 1 | 1 | unless &List::Util::first(sub { $_ eq '/dev/null'; } , $elem->literal) |
| 53 | 2 | 6 | unless $str =~ m[^\s* (\+?(<|>>?)\s*)? /dev/null \s*$ ]sx |
| 62 | 2 | 4 | if ($adj and $adj->isa('PPI::Token::Operator') and $equality_operators{$adj}) |