Branch Coverage

blib/lib/Ref/Store.pm
Criterion Covered Total %
branch 38 130 29.2


line true false branch
49 1 2 if (ref $k)
60 0 17 if ($cls eq 'Ref::Store')
61 0 0 unless (defined $SelectedImpl)
66 0 0 unless ($@)
72 0 0 unless $SelectedImpl
93 17 0 if ($self->can('table_init'))
103 0 28 unless defined $value
107 0 43 unless (defined $ko)
123 0 0 if exists $self->reverse->{$news}
125 0 0 unless exists $self->reverse->{$olds}
140 0 15 unless ($self->keytypes)
144 15 0 if (not exists $self->keytypes->{$kt})
153 0 0 if (not scalar %$v_rhash) { }
170 1 0 ref $key ? :
178 1 22 unless defined $value
207 7 0 if %{$self->scalar_lookup;} == 0 and %{$self->reverse;} == 0 and %{$self->forward;} == 0
220 1 2 unless defined $ukey
221 2 1 if ($lookup->prefix_len) { }
223 1 1 unless (ref $ukey)
263 0 1 if defined $self->_iter
273 0 1 if ($options{'OnlyKeys'}) { }
0 1 elsif ($options{'OnlyAttrs'}) { }
291 0 5 unless $iter
295 2 3 unless defined $nextk
299 0 3 unless defined $lookup
303 2 1 if ($$iter[1] == 0) { }
317 1 1 if ($$iter[0][$$iter[1]])
356 0 3 if ($expected and $o)
358 0 0 if ($existing and $expected != $existing)
364 0 3 if (not $o and $create_if_needed)
366 0 0 unless ($options{'StrongKey'})
391 0 0 unless ($options{'StrongValue'})
408 0 0 unless $o
418 0 3 unless $ko
420 0 3 unless defined $value
427 0 3 unless defined $vhash
432 0 3 unless (%{$self->reverse->{$vstr};})
445 0 13 unless $value
463 0 0 ref $attr ? :
471 0 0 unless my $ustr = $self->keytypes->{$t}
473 0 0 if (ref $attr) { }
476 0 0 unless $attr
480 0 0 if $aobj
482 0 0 unless ($options{'Create'})
489 0 0 unless ($options{'StrongAttr'})
499 0 0 unless ($value)
508 0 0 if (not $options{'StrongValue'}) { }
528 0 0 unless ($aobj)
534 0 0 unless $aobj
549 0 0 unless ($aobj)
566 0 0 unless $attrhash
592 0 17 if in_global_destruction
599 0 0 unless ref $attrhash
600 0 0 if (ref $attrhash ne 'HASH')
605 0 0 unless defined $v
606 0 0 if ($attr->can('unlink_value'))
617 1 0 if ($kobj->can('unlink_value'))
691 0 0 unless (defined $vobj)
707 0 0 unless $new_kstring ne $kstring
717 0 0 if ($weak_key)
720 0 0 if ($weak_val)
731 0 0 unless $new_astring ne $astring
753 0 0 if $pkg ne 'Ref::Store'
758 0 0 unless (defined $obj)
772 0 0 if $pkg ne 'Ref::Store'