Branch Coverage

blib/lib/DBM/Deep/Sector/File/Reference.pm
Criterion Covered Total %
branch 89 98 90.8


line true false branch
27 11138 308 if ($self->offset) { }
32 18 290 if (defined $classname)
67 0 5044 unless exists $args->{'allow_head'}
70 5044 0 unless exists $args->{'create'}
77 1114 3930 unless $blist and $blist->{'found'}
84 53 3877 unless my $location = $blist->get_data_location_for({"allow_head", $args->{'allow_head'}})
93 158 3873 unless my $location = $self->get_data_location_for($args)
106 0 2900 unless my $blist = $self->get_bucket_list({"key_md5", $args->{'key_md5'}, "key", $args->{'key'}, "create", 1})
110 67 2833 if ($self->engine->trans_id) { }
111 40 27 unless ($blist->has_md5)
119 524 2309 if ($blist->has_md5) { }
120 4 520 if (@trans_ids)
123 1 3 if $blist->get_data_location_for({"trans_id", $other_trans_id, "allow_head", 0})
137 2 2307 if (@trans_ids)
140 0 2 if $blist->get_data_location_for({"trans_id", $other_trans_id, "allow_head", 0})
151 531 2369 if ($blist->get_data_location_for({"allow_head", 0}))
172 1 64 unless my $blist = $self->get_bucket_list({"key_md5", $args->{'key_md5'}})
184 53 11 if ($self->engine->trans_id == 0)
185 1 52 if (@trans_ids)
187 0 1 if $blist->get_data_location_for({"trans_id", $other_trans_id, "allow_head", 0})
199 12 52 if (@trans_ids) { }
202 1 11 if ($old_value)
245 285 7724 unless ($blist_loc)
246 28 257 unless $args->{'create'}
261 0 7724 unless my $sector = $engine->load_sector($blist_loc)
268 4773 948 if ($blist_loc) { }
269 0 4773 unless $sector = $engine->load_sector($blist_loc)
279 948 6776 unless ($sector)
280 239 709 unless $args->{'create'}
282 0 709 unless $last_sector
302 11 2233 if (not $sector->has_md5 and $args->{'create'} and $sector->{'idx'} == -1)
334 3 11 if (keys %blist_cache == 1 and each %blist_cache == $idx) { }
357 3 11 if ($last_sector) { }
371 3 11 if ($redo)
401 2297 43 unless $class_offset
416 2336 21 if (not defined $cache_entry->{$trans_id}) { }
433 2341 16 unless ($args->{'export'})
434 2328 13 if ($engine->storage->{'autobless'})
436 39 2289 if (defined $classname)
445 10 6 if ($self->get_refcount > 1)
456 34 35 if $self->decrement_refcount > 0
463 28 7 unless ($e->{'external_refs'})
468 21 7 if (exists $cache->{$off} and exists $cache->{$off}{my $trans_id = $e->trans_id})
471 1 20 if defined $cache->{$off}{$trans_id}
477 20 15 if $blist_loc
480 6 29 if $class_loc
535 210 10 unless my $blist_loc = $self->get_blist_loc
540 2 8 if ($engine->get_running_txn_ids)
547 0 8 unless my $sector = $engine->load_sector($blist_loc)