| blib/lib/Perl/Lint/Policy/ValuesAndExpressions/ProhibitEscapedCharacters.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 8 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 19 | 1 | 81 | if ($token_type == 145) { } |
| 12 | 69 | elsif ($token_type == 172 or $token_type == 187) { } | |
| 23 | 1 | 11 | if ($is_reg_quote) |
| 29 | 6 | 5 | if ($string =~ /\\x?[0-9a-fA-F]{2,}/) |