Branch Coverage

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/