| blib/lib/Perl/Critic/Policy/Bangs/ProhibitNumberedNames.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 14 | 92.8 |
| line | true | false | branch |
|---|---|---|---|
| 123 | 20 | 5 | if ($type eq 'PPI::Statement::Variable') { } |
| 4 | 1 | elsif ($type eq 'PPI::Statement::Sub') { } | |
| 1 | 0 | elsif ($type eq 'PPI::Statement::Scheduled') { } | |
| 158 | 19 | 7 | if ($basename =~ /\D+\d+$/) |
| 163 | 9 | 10 | if $self->{'_exceptions'}{$basename} |
| 167 | 6 | 4 | unless $self->{'_exception_regexes'} |
| 169 | 2 | 50 | if $basename =~ /$re/ |