| blib/lib/Perl/Critic/Policy/Bangs/ProhibitUselessRegexModifiers.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 16 | 93.7 |
| line | true | false | branch |
|---|---|---|---|
| 38 | 5 | 2 | if ($mods{'m'} or $mods{'s'}) |
| 40 | 4 | 1 | if ($match =~ /^\$\w+$/msx) |
| 41 | 3 | 1 | if (my $qr = _previously_assigned_quote_like_operator($elem, $match)) |
| 43 | 2 | 1 | if (_sorted_modifiers($elem) ne _sorted_modifiers($qr)) |
| 55 | 1 | 3 | unless my $qlop = _find_previous_quote_like_regexp($elem) |
| 59 | 3 | 6 | if $_[1]->isa('PPI::Token::Symbol') |
| 3 | 0 | if ($parent->find_any(sub { $_[1]->content eq $match if $_[1]->isa('PPI::Token::Symbol'); } )) | |
| 73 | 1 | 51 | unless $qlop = $qlop->previous_token |