Branch Coverage

blib/lib/Monkey/Patch/Action/Handle.pm
Criterion Covered Total %
branch 23 24 95.8


line true false branch
19 10 7 if ($stack->[$i][1] == $code)
36 3 14 unless ($stacks{$name})
38 1 2 if defined &$name
46 6 11 if ($type eq 'sub') { }
4 7 elsif ($type eq 'delete') { }
7 0 elsif ($type eq 'wrap') { }
81 17 20 if ($stack->[$i][1] == $code)
82 2 15 if ($$stack[$i + 1])
84 1 1 if ($$stack[$i + 1][0] eq 'wrap' and $i == 0 || $$stack[$i - 1][0] eq 'delete')
93 15 2 if ($i == @$stack - 1)
94 12 3 if ($i) { }
96 2 10 if ($$stack[$i - 1][0] eq 'delete') { }