| blib/lib/Perl/Lint/Policy/RegularExpressions/ProhibitEscapedMetacharacters.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 19 | 20 | 95.0 |
| line | true | false | branch |
|---|---|---|---|
| 19 | 50 | 297 | if ($token_type == 187 or $token_type == 156) { } |
| 2 | 295 | elsif ($token_type == 145 or $token_type == 146) { } | |
| 20 | 2 | 48 | if ($is_reg_quote) |
| 28 | 43 | 5 | if ($token_type == 187) { } |
| 33 | 2 | 3 | if ($maybe_regopt->{'type'} == 151) |
| 40 | 48 | 0 | if ($maybe_regopt) |
| 41 | 40 | 8 | if ($maybe_regopt->{'type'} == 144) |
| 42 | 39 | 1 | if ($maybe_regopt->{'data'} =~ /x/) |
| 48 | 22 | 26 | if (my(@backslashes) = $token->{'data'} =~ /(\\+)$regex_to_detect/g) |
| 50 | 21 | 1 | if (length($backslash) % 2 != 0) |