| blib/lib/Perl/Lint/Policy/TestingAndDebugging/ProhibitNoStrict.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 16 | 87.5 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 6 | 4 | if (my $this_policies_arg = $args->{'prohibit_no_strict'}) |
| 18 | 6 | 0 | if (my $allow = $this_policies_arg->{'allow'}) |
| 29 | 10 | 30 | if ($token_type == 70 and $token->{'data'} eq 'no') |
| 33 | 10 | 0 | if ($token->{'type'} == 122 and $token->{'data'} eq 'strict') |
| 38 | 13 | 30 | if ($token_type == 172 or $token_type == 173) { } |
| 3 | 27 | elsif ($token_type == 187) { } | |
| 10 | 17 | elsif ($token_type == 106 or not $$tokens[$i + 1]) { } | |
| 48 | 7 | 3 | if (not @arg_allows or @allows) |