| blib/lib/Perl/Critic/Policy/TestingAndDebugging/ProhibitNoWarnings.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 14 | 85.7 |
| line | true | false | branch |
|---|---|---|---|
| 52 | 6 | 95 | if (defined $config_string) |
| 68 | 61 | 13 | if $elem->type ne "no" |
| 69 | 0 | 13 | if $elem->pragma ne "warnings" |
| 72 | 0 | 13 | unless @words >= 2 and "no" eq $words[0] and "warnings" eq $words[1] |
| 79 | 5 | 8 | if $self->{'_allow_with_category_restriction'} and @words |
| 80 | 2 | 6 | if @words and &all(sub { |
| 113 | 116 | 46 | unless $child->isa($hdlr->[0]) |