Branch Coverage

blib/lib/Hash/AutoHash.pm
Criterion Covered Total %
branch 81 88 92.0


line true false branch
45 11 131 if (ref $class_or_self)
57 12 67 if (ref $class_or_self)
112 772 0 if (ref $_[0])
142 11 1774 unless defined $key
170 7 224 unless exists $caller2export{$want}
171 2 222 unless defined $caller2export{$want}
192 761 11 if @_ == 1 and readonly($_[0])
201 1184 612 if (my $object = tied %$self) { }
202 782 402 @_ == 0 ? :
204 402 210 @_ == 0 ? :
212 36 6 unless defined $visited
213 36 6 unless (defined $ancestors or $$visited{$class})
225 6 36 wantarray ? :
232 113 36 if ($helper_class eq 'Hash::AutoHash::helper')
236 30 83 unless (%$export_ok_hash)
250 30 6 if @$export_ok_list
266 6 0 if (@rename_export_ok)
269 2 4 unless (@our_funcs)
271 2 0 UNIVERSAL::can($_, 'SUBCLASS_EXPORT_OK') ? :
281 0 40 if $skip{$caller_func}
292 2 6 if ($helper_class eq 'Hash::AutoHash::helper')
299 0 6 if @$subclass_export_ok
308 676 62 if defined *{$export_sym;}{'CODE'}
312 10 52 if defined $export_sym
347 122 118 if (my $object = tied %$hash) { }
388 302 46 if (@_)
389 94 208 if ('ARRAY' eq ref $_[0])
393 37 57 if (not ref $class_or_hash) { }
402 102 106 if ('HASH' eq reftype($_[0]) and not _looks_wrappable($_[0]))
406 54 52 if (_looks_wrappable($_[0]))
415 106 154 if blessed($_[0])
434 12 14 unless scalar keys %{$_[0];}
435 14 13 scalar %{$_[0];} ? :
436 14 13 scalar %{$_[0];} ? :
443 8 41 if (not defined $$autohash_ref) { }
502 205 171 if 'REF' eq ref $ref
503 171 205 if 'HASH' eq ref $ref
504 171 205 if ($hash)
507 91 80 if 'Hash::AutoHash::alias' eq ref $tied
509 296 80 if ($autohash)
511 57 239 if 'Hash::AutoHash::alias' eq ref $tied
513 208 168 unless @_ and $tied
531 19 164 if (@_ == 2 and 'ARRAY' eq ref $_[0] and 'ARRAY' eq ref $_[1]) { }
551 0 0 if $object