Branch Coverage

blib/lib/Acme/RightSideOutObject.pm
Criterion Covered Total %
branch 18 28 64.2


line true false branch
26 0 1 unless my $id = &Class::InsideOut::id($their_self)
30 0 1 unless my $our_id = &Class::InsideOut::id($self)
32 0 13 if $debug
33 1 12 unless my $code = *{$class . '::' . $sym;}{'CODE'}
34 0 12 unless my $op = B::svref_2object($code)
35 0 12 unless my $rootop = $op->ROOT
36 1 11 unless $$rootop
37 9 2 unless $op->STASH->NAME eq $class
38 0 2 unless my $vars = PadWalker::peek_sub($code)
40 1 1 unless $var =~ /^\%/
41 0 1 unless exists $$vars{$var}
42 0 1 unless exists $$vars{$var}{$id}
43 0 1 if $debug
47 0 1 if ($weaken)