| blib/lib/Perl/Critic/Policy/Bangs/ProhibitRefProtoOrProto.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 14 | 64.2 |
| line | true | false | branch |
|---|---|---|---|
| 19 | 2 | 2 | if $elem ne 'ref' |
| 20 | 0 | 2 | if is_method_call($elem) |
| 21 | 0 | 2 | if is_hash_key($elem) |
| 22 | 0 | 2 | if is_subroutine_name($elem) |
| 25 | 2 | 0 | if ($suspectproto and $suspectproto->isa('PPI::Token::Symbol')) |
| 27 | 2 | 0 | if ($suspectproto->snext_sibling and $suspectproto->snext_sibling->isa('PPI::Token::Operator') and $suspectproto->snext_sibling eq '||') |
| 32 | 1 | 1 | if ($or->snext_sibling eq $suspectproto->content) |