Branch Coverage

blib/lib/B/RecDeparse.pm
Criterion Covered Total %
branch 23 26 88.4


line true false branch
74 1 35 if (@_ % 2)
81 24 11 if (defined $deparse) { }
82 6 18 if (not ref $deparse) { }
1 17 elsif (ref $deparse ne 'ARRAY') { }
92 3 32 unless defined $level
126 0 1 if $@
150 46 39 if ((caller 1)[0] eq 'B::RecDeparse' and $body =~ s/^$key//) { }
163 90 33 unless ($cv->CvFLAGS & 128)
167 90 33 if defined $name
179 89 23 if $self->_recurse
197 0 113 $gv->FLAGS & 2048 ? :
198 0 113 $cv ? :
203 67 46 if (not $$self{'brd_sub'} && $self->_recurse or $$seen{$name} or not $$cv or not $cv->isa('B::CV') or $cv->ROOT->isa('B::NULL')) { }