Branch Coverage

blib/lib/Data/Object/Role/Hash.pm
Criterion Covered Total %
branch 40 56 71.4


line true false branch
49 0 1 unless ref $code
61 0 1 unless ref $code
70 0 1 unless ref $code
80 0 1 unless ref $code
102 2 0 exists $hash->{$_} ? :
111 2 0 exists $hash->{$_} ? :
127 0 18 if ($adr and $tmp->{$adr}) { }
5 13 elsif ($ref eq 'HASH' or $obj and $obj->isa('Data::Object::Hash')) { }
2 11 elsif ($ref eq 'ARRAY' or $obj and $obj->isa('Data::Object::Array')) { }
131 5 0 if (%$data) { }
133 7 4 $path ? :
142 2 0 if (@$data) { }
144 5 0 $path ? :
179 5 1 defined $hash->{$_} ? :
195 1 4 if $i > $#keys
208 0 11 unless $hash and $path and 'HASH' eq ref $hash || &blessed($hash) && $hash->isa('HASH')
212 5 11 if $hash->{$path}
218 3 7 if $next and $hash->{$next}
221 7 0 if $next and $hash->{$next}
238 0 4 unless @arguments
239 0 4 if @arguments > 1
249 0 5 ref $rprop eq 'HASH' && ref $lprop eq 'HASH' ? :
266 4 1 if defined $hash->{$_}
287 5 13 if (my(@parts) = $step =~ /^(\w*):(0|[1-9]\d*)$/) { }
291 0 1 exists $$node{$parts[0]}[$parts[1]] ? :
4 1 $last ? :
297 4 2 exists $node->{$step} ? :
7 6 $last ? :