| blib/lib/Perl/Critic/Policy/References/ProhibitDoubleSigils.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 10 | 90.0 |
| line | true | false | branch |
|---|---|---|---|
| 29 | 4 | 17 | if $elem eq "\\" |
| 30 | 5 | 12 | if $elem =~ /[@ $ % * &] [*]/msx |
| 31 | 1 | 11 | if $elem eq "\$#*" |
| 34 | 0 | 11 | unless $sib |
| 35 | 6 | 2 | unless ($sib->isa("PPI::Structure::Block") or $sib->isa("PPI::Structure::Subscript")) |