| blib/lib/Perl/Critic/Policy/RegularExpressions/RequireExtendedFormatting.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 8 | 87.5 |
| line | true | false | branch |
|---|---|---|---|
| 57 | 5 | 50 | if length $match <= $self->{'_minimum_regex_length_to_complain_about'} |
| 58 | 8 | 42 | if not $self->{'_strict'} and $match =~ / \A [\s\w]* \z /msx |
| 60 | 0 | 42 | unless my $re = $doc->ppix_regexp_from_element($elem) |
| 62 | 23 | 19 | unless $re->modifier_asserted("x") |