| blib/lib/Perl/Critic/Policy/References/ProhibitComplexDoubleSigils.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 16 | 81.2 |
| line | true | false | branch |
|---|---|---|---|
| 39 | 0 | 20 | if $elem eq '\\' |
| 43 | 0 | 20 | unless $sib |
| 44 | 10 | 10 | if $sib->isa('PPI::Structure::Block') |
| 46 | 10 | 0 | if ($sib->isa('PPI::Token::Symbol')) |
| 48 | 2 | 8 | unless $next_sib |
| 51 | 2 | 6 | if ($next_sib->isa('PPI::Structure::Subscript')) { } |
| 1 | 5 | elsif ($next_sib->isa('PPI::Structure::List')) { } | |
| 1 | 7 | elsif ($next_sib->isa('PPI::Token::Operator') and $next_sib eq '->') { } |