| blib/lib/Perl/Critic/Policy/Reneeb/ProhibitGrepToGetFirstFoundElement.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 12 | 91.6 |
| line | true | false | branch |
|---|---|---|---|
| 38 | 12 | 6 | if $elem->content ne 'grep' |
| 43 | 1 | 5 | unless $parent->isa('PPI::Statement::Variable') |
| 46 | 2 | 3 | unless $list |
| 50 | 0 | 3 | unless $symbols |
| 51 | 1 | 2 | if 1 != @{$symbols;} |
| 53 | 1 | 1 | if '$' ne substr($symbols->[0], 0, 1) |