| blib/lib/Perl/Lint/Policy/Objects/IndirectSyntax.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 13 | 15 | 86.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 18 | 6 | 0 | 1 | $forbid_arg and ref $forbid_arg eq 'ARRAY' |
| 27 | 206 | 34 | 22 | $token->{'type'} == 122 and &any(sub { $token_data eq $_; } , @forbidden) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 29 | 12 | 3 | 7 | $token_type == 122 or $token_type == 194 |
| 15 | 3 | 4 | $token_type == 122 or $token_type == 194 or $token_type == 166 | |
| 6 | 4 | 0 | $token_type == 122 or $token_type == 194 or $token_type == 166 or $token_type == 109 |