| blib/lib/Perl/Lint/Policy/RegularExpressions/ProhibitUnusualDelimiters.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 8 | 87.5 |
| line | true | false | branch |
|---|---|---|---|
| 22 | 37 | 15 | if ($token_type == 151 and $token_data ne '{' and $token_data ne '}' and $token_data ne '/') |
| 28 | 15 | 22 | if ($does_allow_all_brackets) |
| 29 | 2 | 0 | if ($token_data eq '(' or $token_data eq ')' or $token_data eq '[' or $token_data eq ']' or $token_data eq '<' or $token_data eq '>') |
| 48 | 22 | 58 | if $token_type == 106 |