Branch Coverage

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


line true false branch
140 13 272 if (my $terse_object = $refaddr_tersified_as{&refaddr($data_structure)})
145 64 208 unless (ref $data_structure)
151 2 206 if (ref $data_structure eq 'REF')
155 1 1 unless ($changed)
163 14 192 if $seen_refaddr{&refaddr($data_structure)}++
166 67 125 if (&blessed($data_structure))
168 32 35 if ($changed)
181 54 154 $this_value_changed ? :
184 14 111 if (ref $data_structure eq 'ARRAY') { }
110 1 elsif (ref $data_structure eq 'HASH') { }
189 10 4 unless ($changed)
198 71 39 unless ($changed)
210 41 2 if (not $safe_to_mess_with_refaddr{&refaddr($data_structure)}) { }
225 24 43 if (ref $data_structure eq 'Data::Tersify::Summary')
236 19 24 unless ($changed)
237 19 0 if (my $overload_info = Devel::OverloadInfo::overload_info($data_structure))
240 2 17 if ($overload_info->{'""'})
256 22 19 if ($changed and $caller_sub ne 'Data::Tersify::tersify')
263 14 5 if (&reftype($data_structure) eq 'HASH') { }
2 3 elsif (&reftype($data_structure) eq 'ARRAY') { }
268 16 3 if ($object_contents)
271 8 8 if ($changed)
273 5 3 if (not $safe_to_mess_with_refaddr{&refaddr($data_structure)}) { }
305 3 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') { }
352 1 42 unless (keys %handled_by_plugin)
363 24 19 if (my $plugin = $handled_by_plugin{ref $object})