Branch Coverage

blib/lib/Tie/RefHash.pm
Criterion Covered Total %
branch 20 26 76.9


line true false branch
87 0 3 $usethreads ? :
88 3 0 defined &Scalar::Util::weaken ? :
133 0 4 unless $version eq $storable_format_version
143 0 0 if ($count and Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.42.0/B/Deparse.pm line 5762. )
157 0 4 unless $extra_keys
162 22 603 if (ref $k) { }
164 20 2 if (defined $s->[0]{$kstr}) { }
178 8 87 if (ref $k) { }
191 2 62 if (ref $k) { }
196 3 129 if (ref $k) { }
210 610 563 unless ($s->[2])
211 16 594 if (($k, $v) = each %{$$s[0];}) { }
234 1 44 if (ref $v eq "HASH" and not tied %$v)