| blib/lib/Perl/Lint/Policy/RegularExpressions/ProhibitComplexRegexes.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 18 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 24 | 60 | 92 | if ($token_type == 151) { } |
| 30 | 62 | elsif ($token_type == 187) { } | |
| 2 | 60 | elsif ($token_type == 145 or $token_type == 146) { } | |
| 25 | 2 | 58 | if ($token_data eq q[']) |
| 38 | 2 | 28 | if ($_is_reg_quote) |
| 43 | 27 | 1 | unless ($_is_delimiter_single_quote) |
| 46 | 12 | 2 | if (length($1) % 2 == 0) { } |
| 58 | 2 | 26 | if ($maybe_regopt and $maybe_regopt->{'type'} == 144 and $maybe_regopt->{'data'} =~ /x/) |
| 67 | 11 | 17 | if (length $regexp > $max_characters) |