| blib/lib/Perl/Critic/Policy/RegularExpressions/RequireDefault.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 16 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 38 | 0 | 19 | if ($self->_pragma_enabled($elem)) |
| 42 | 6 | 13 | unless my $re = $doc->ppix_regexp_from_element($elem) |
| 45 | 3 | 10 | unless ($self->_allowed_modifier($re)) |
| 55 | 4 | 9 | if ($re->modifier_asserted('a') and not $self->{'_strict'}) |
| 59 | 6 | 3 | if ($re->modifier_asserted('aa')) |
| 70 | 0 | 6 | if ($elem->arguments eq 'a' and not $self->{'_strict'}) |
| 74 | 0 | 6 | if ($elem->arguments eq 'aa') |
| 84 | 0 | 6 | if ($elem->can('type') and $elem->type eq 'use' and $elem->pragma eq 're' and $self->_correct_modifier($elem)) |