| blib/lib/Perl/Lint/Policy/RegularExpressions/ProhibitUnusualDelimiters.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 23 | 24 | 95.8 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 22 | 139 | 5 | 52 | $token_type == 151 and $token_data ne '{' |
| 144 | 5 | 47 | $token_type == 151 and $token_data ne '{' and $token_data ne '}' | |
| 10 | 10 | 37 | $token_type == 151 and $token_data ne '{' and $token_data ne '}' and $token_data ne '/' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 29 | 4 | 4 | 7 | $token_data eq '(' or $token_data eq ')' |
| 8 | 3 | 4 | $token_data eq '(' or $token_data eq ')' or $token_data eq '[' | |
| 7 | 2 | 2 | $token_data eq '(' or $token_data eq ')' or $token_data eq '[' or $token_data eq ']' | |
| 5 | 1 | 1 | $token_data eq '(' or $token_data eq ')' or $token_data eq '[' or $token_data eq ']' or $token_data eq '<' | |
| 3 | 1 | 0 | $token_data eq '(' or $token_data eq ')' or $token_data eq '[' or $token_data eq ']' or $token_data eq '<' or $token_data eq '>' |