| blib/lib/Perl/Critic/Policy/Community/SplitQuotedPattern.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 5 | 6 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 30 | 2 | 29 | unless $elem eq "split" and is_function_call($elem) |
| 33 | 0 | 29 | unless @args |
| 40 | 8 | 4 | unless $pattern->isa("PPI::Token::Regexp::Match") or $pattern->isa("PPI::Token::QuoteLike::Regexp") or $pattern->isa("PPI::Token::Quote") and !length($pattern->string) || $pattern->string eq ' ' or $self->{'_allow_unquoted_patterns'} and not $pattern->isa("PPI::Token::Quote") |