Branch Coverage

blib/lib/Data/Abridge.pm
Criterion Covered Total %
branch 31 44 70.4


line true false branch
79 0 29 unless defined $class
81 3 26 if ($HONOR_STRINGIFY and overload::Method($obj, '""')) { }
87 0 26 _is_Regexp($obj) ? :
91 26 0 exists $COPY_DISPATCH{$type} ? :
102 0 6 unless $cv->isa('B::CV')
105 0 6 if $cv->GV->isa('B::SPECIAL')
121 0 26 unless $sv->isa('B::PVMG')
122 26 0 unless my $m = $sv->MAGIC
136 21 88 unless $type
139 30 58 if ($blessed)
140 1 29 $blessed eq 'Regexp' ? :
144 0 88 unless defined $slobd
191 0 13 unless ref $processed_object
192 0 13 unless reftype $processed_object eq 'HASH'
196 0 13 unless defined $type
201 13 0 if exists $RECURSE_DISPATCH{$type}
222 21 67 if blessed $item
223 20 68 unless defined $type
230 22 66 unless defined $repl_type
232 59 7 if (exists $RECURSE_DISPATCH{$type})
234 0 59 unless defined $id
236 18 41 if exists $SEEN{$id}