blib/lib/Perl/Critic/Policy/RegularExpressions/ProhibitUnusualDelimiters.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 4 | 4 | 100.0 |
line | true | false | branch |
---|---|---|---|
49 | 1 | 49 | if ($self->{'_allow_all_brackets'}) |
65 | 44 | 25 | if $allowed_delimiters->{$delimiter} |