blib/lib/Babble/Plugin/PostfixDeref.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 12 | 12 | 100.0 |
line | true | false | branch |
---|---|---|---|
101 | 6 | 23 | unless $m->text =~ / \s* -> \s* [\@%\$\&\*] /sx |
123 | 9 | 5 | if ($stripped =~ /(\$\#?|[\&\*])\*$/) { } |
126 | 2 | 7 | if ($interpolate) |
133 | 14 | 9 | if ($postfix) |
135 | 9 | 5 | if $rest eq "*" |
137 | 3 | 11 | if ($interpolate) |