| blib/lib/Perl/Lint/Policy/RegularExpressions/ProhibitSingleCharAlternation.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 12 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 20 | 18 | 141 | if ($token_type == 187) |
| 21 | 15 | 3 | if (my(@groups) = $token_data =~ /\( \?\: \s* (.+?) \s* \)/gx) |
| 23 | 1 | 14 | if ($group =~ /\A \w \Z/x) |
| 29 | 5 | 63 | unless ($part =~ /\A \w+ \Z/x) |
| 33 | 33 | 30 | if (length $part == 1) |
| 38 | 8 | 1 | if (scalar @singles > 1) |