blib/lib/Perl/Critic/Policy/RegularExpressions/RequireDefault.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 11 | 17 | 64.7 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
55 | 7 | 2 | 4 | $re->modifier_asserted('a') and not $self->{'_strict'} |
70 | 6 | 0 | 0 | $elem->arguments eq 'a' and not $self->{'_strict'} |
84 | 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 |
---|---|---|---|
98 | 1 | 2 | $config->get('strict') || 0 |