| blib/lib/Perl/Critic/Policy/TestingAndDebugging/ProhibitNoStrict.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 12 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 44 | 9 | 89 | if (defined $config_string) |
| 58 | 63 | 10 | if $elem->type ne "no" |
| 59 | 0 | 10 | if $elem->pragma ne "strict" |
| 72 | 0 | 10 | unless $stmnt |
| 74 | 34 | 14 | if $_ ne "qw" and $_ ne "no" |
| 75 | 4 | 6 | if @words and &all(sub { |