| blib/lib/Perl/Critic/Policy/TryTiny/ProhibitExitingSubroutine.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 13 | 24 | 54.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 45 | 0 | 2 | 8 | $sib and $sib->content eq 'catch' |
| 2 | 0 | 8 | $sib and $sib->content eq 'catch' and my $catch_block = $sib->snext_sibling | |
| 51 | 0 | 10 | 0 | $sib and $sib->content eq 'finally' |
| 10 | 0 | 0 | $sib and $sib->content eq 'finally' and my $finally_block = $sib->snext_sibling | |
| 79 | 0 | 8 | 0 | $sib and _is_label($sib) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 78 | 8 | 0 | 20 | $word eq 'next' or $word eq 'redo' |
| 8 | 0 | 20 | $word eq 'next' or $word eq 'redo' or $word eq 'last' | |
| 90 | 1 | 0 | 7 | $element eq 'if' or $element eq 'unless' |