Branch Coverage

blib/lib/Data/Tersify.pm
Criterion Covered Total %
branch 52 54 96.3


line true false branch
139 14 229 if (my $terse_object = $refaddr_tersified_as{&refaddr($data_structure)})
144 66 163 unless (ref $data_structure)
150 3 160 if (ref $data_structure eq 'REF')
154 2 1 unless ($changed)
162 20 140 if $seen_refaddr{&refaddr($data_structure)}++
165 51 89 if (&blessed($data_structure))
167 22 29 if ($changed)
180 35 148 $this_value_changed ? :
183 15 74 if (ref $data_structure eq 'ARRAY') { }
73 1 elsif (ref $data_structure eq 'HASH') { }
188 11 4 unless ($changed)
197 53 20 unless ($changed)
209 21 3 if (not $safe_to_mess_with_refaddr{&refaddr($data_structure)}) { }
224 17 34 if (ref $data_structure eq 'Data::Tersify::Summary')
235 20 14 unless ($changed)
236 20 0 if (my $overload_info = Devel::OverloadInfo::overload_info($data_structure))
239 2 18 if ($overload_info->{'""'})
255 12 20 if ($changed and $caller_sub ne 'Data::Tersify::tersify')
262 15 5 if (&reftype($data_structure) eq 'HASH') { }
2 3 elsif (&reftype($data_structure) eq 'ARRAY') { }
267 17 3 if ($object_contents)
270 8 9 if ($changed)
272 5 3 if (not $safe_to_mess_with_refaddr{&refaddr($data_structure)}) { }
304 4 2 if (&reftype($safe_structure) eq 'HASH' and &reftype($new_contents) eq 'HASH') { }
2 0 elsif (&reftype($safe_structure) eq 'ARRAY' and &reftype($new_contents) eq 'ARRAY') { }
351 1 33 unless (keys %handled_by_plugin)
362 14 20 if (my $plugin = $handled_by_plugin{ref $object})