Branch Coverage

blib/lib/DWH_File/Kernel.pm
Criterion Covered Total %
branch 22 34 64.7


line true false branch
26 0 13 unless ($dbm)
42 9 4 if (defined $worker_id) { }
93 48 21 if ($_[1]{'kernel'} == $_[0]) { }
102 1181 294 unless $head eq '^'
103 19 275 if ($tag) { }
114 33 272 unless ($val_obj = $$self{'cache'}->retrieve($id))
121 0 33 unless $tie_class
124 0 33 if (UNIVERSAL::isa($ref, 'DWH_File::Aware'))
133 0 28 unless (ref $value_obj and $value_obj->isa('DWH_File::Value') and $value_obj->isa('DWH_File::Reference'))
147 0 134 unless (ref $value_obj and $value_obj->isa('DWH_File::Value') and $value_obj->isa('DWH_File::Reference'))
153 0 134 unless defined $id
155 97 37 unless my $ground = $self->fetch($idstring)
157 0 37 unless $pre
164 0 2 unless (ref $value_obj and $value_obj->isa('DWH_File::Value') and $value_obj->isa('DWH_File::Reference'))
188 2 0 if ($refcount == 0) { }
0 0 elsif ($refcount < 0) { }
203 2 0 if ($goner and UNIVERSAL::isa($goner, 'DWH_File::Reference')) { }