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' |