| blib/lib/Perl/Critic/Policy/Subroutines/ProhibitAmpersandSigils.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 16 | 93.7 |
| line | true | false | branch |
|---|---|---|---|
| 38 | 146 | 60 | if ($previous) |
| 40 | 6 | 140 | if $previous->isa("PPI::Token::Cast") and $previous eq "\\" |
| 43 | 182 | 18 | unless $elem =~ /\A [&] /msx |
| 47 | 12 | 6 | if (not $previous or $previous->isa("PPI::Token::Operator") and $IS_COMMA{$previous->content}) |
| 61 | 11 | 7 | if (my $word = $up->sprevious_sibling) |
| 65 | 3 | 3 | if $up->isa("PPI::Structure::List") and $word->isa("PPI::Token::Cast") and $word->content eq "\\" |
| 72 | 2 | 6 | if ($word->isa("PPI::Token::Word")) |
| 79 | 8 | 0 | if $previous and $EXEMPTIONS{$previous} |