| blib/lib/Perl/Critic/Policy/Subroutines/ProhibitAmpersandSigils.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 4 | 16 | 25.0 |
| line | true | false | branch |
|---|---|---|---|
| 38 | 130 | 42 | if ($previous) |
| 40 | 0 | 130 | if $previous->isa("PPI::Token::Cast") and $previous eq "\\" |
| 43 | 172 | 0 | unless $elem =~ /\A [&] /msx |
| 47 | 0 | 0 | if (not $previous or $previous->isa("PPI::Token::Operator") and $IS_COMMA{$previous->content}) |
| 61 | 0 | 0 | if (my $word = $up->sprevious_sibling) |
| 65 | 0 | 0 | if $up->isa("PPI::Structure::List") and $word->isa("PPI::Token::Cast") and $word->content eq "\\" |
| 72 | 0 | 0 | if ($word->isa("PPI::Token::Word")) |
| 79 | 0 | 0 | if $previous and $EXEMPTIONS{$previous} |