| blib/lib/Perl/Critic/Policy/Bangs/ProhibitVagueNames.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 8 | 87.5 |
| line | true | false | branch |
|---|---|---|---|
| 95 | 22 | 4 | if ($type eq 'PPI::Statement::Variable') { } |
| 3 | 1 | elsif ($type eq 'PPI::Statement::Sub') { } | |
| 1 | 0 | elsif ($type eq 'PPI::Statement::Scheduled') { } | |
| 133 | 21 | 119 | if ($basename eq lc $naughty) |