Branch Coverage

blib/lib/Monkey/Patch/Handle.pm
Criterion Covered Total %
branch 14 14 100.0


line true false branch
41 12 6 if ($$stack[$i] == $wrapper)
54 7 22 unless ($$self{'wrapper'})
57 14 2 if ($self->should_call_code($_[0])) { }
76 5 2 unless (@$stack)
77 2 3 if (*$name{'CODE'})
96 7 5 if ($$stack[$i] == $wrapper)
100 4 3 if (my $top = $$stack[-1]) { }