| blib/lib/Perl/Lint/Policy/Objects/IndirectSyntax.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 5 | 6 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 1 | 6 | if ($forbid_arg and ref $forbid_arg eq 'ARRAY') |
| 27 | 22 | 240 | if ($token->{'type'} == 122 and &any(sub { $token_data eq $_; } , @forbidden)) |
| 29 | 7 | 0 | if ($token_type == 122 or $token_type == 194 or $token_type == 166 or $token_type == 109) |