| blib/lib/Perl/Critic/Policy/CodeLayout/ProhibitFatCommaNewline.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 18 | 77.7 |
| line | true | false | branch |
|---|---|---|---|
| 57 | 7 | 7 | unless $elem->content eq '=>' |
| 61 | 0 | 7 | unless ($prev->isa('PPI::Token::Word')) |
| 65 | 0 | 7 | unless (_elems_any_newline_between($prev, $elem)) |
| 75 | 3 | 4 | if (Perl::Critic::Utils::is_perl_builtin(_sans_dash($word))) |
| 83 | 2 | 2 | if (defined(my $doc_version = $document->highest_explicit_perl_version)) |
| 84 | 1 | 1 | if ($doc_version >= $v5008) |
| 108 | 0 | 7 | if ($from == $to) |
| 111 | 0 | 9 | if ($from == $to) |
| 112 | 7 | 2 | if ($from =~ /\n/) |