| blib/lib/Perl/Critic/Policy/RegularExpressions/RequireDefault.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 11 | 17 | 64.7 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 57 | 7 | 2 | 4 | $re->modifier_asserted('a') and not $self->{'_strict'} |
| 72 | 6 | 0 | 0 | $elem->arguments eq 'a' and not $self->{'_strict'} |
| 86 | 13 | 0 | 6 | $elem->can('type') and $elem->type eq 'use' |
| 13 | 0 | 6 | $elem->can('type') and $elem->type eq 'use' and $elem->pragma eq 're' | |
| 0 | 6 | 0 | $elem->can('type') and $elem->type eq 'use' and $elem->pragma eq 're' and $self->_correct_modifier($elem) |
| line | l | !l | condition |
|---|---|---|---|
| 100 | 1 | 2 | $config->get('strict') || 0 |