| line |
true |
false |
branch |
|
64
|
29692 |
1198 |
if (@ids == 1) { }
|
|
78
|
8143 |
16079 |
unless ($info = $$i{$id})
|
|
89
|
4304 |
5255 |
if (my $c = $self->cache)
|
|
93
|
4518 |
5041 |
if (my $data = $self->_id_info($id))
|
|
101
|
240 |
381 |
if (my $c = $self->cache)
|
|
105
|
1927 |
1669 |
if $_
|
|
125
|
1931 |
2970 |
if (my $data = $self->_id_info($id))
|
|
135
|
388 |
577 |
if @ids == 1
|
|
137
|
9 |
1476 |
if $_
|
|
168
|
3482 |
1 |
if (defined $current_scope and &refaddr($current_scope) == &refaddr($scope))
|
|
169
|
695 |
2787 |
if (my $parent = $scope->parent) { }
|
|
188
|
2786 |
696 |
if ($known->size == 0)
|
|
196
|
0 |
2786 |
if $self->_known_scopes->size
|
|
198
|
483 |
2303 |
if (my(@still_live) = grep({defined $_;} $self->live_objects))
|
|
206
|
2 |
481 |
if ($self->clear_leaks)
|
|
210
|
1 |
482 |
if (my $tracker = $self->leak_tracker and @leaked)
|
|
211
|
1 |
0 |
if (ref $tracker eq 'CODE') { }
|
|
233
|
695 |
2787 |
$parent ? :
|
|
248
|
1040 |
1143 |
unless $self->keep_entries
|
|
252
|
68 |
1075 |
$parent ? :
|
|
265
|
1537 |
648 |
if @objects == 1
|
|
268
|
1631 |
2 |
if $_
|
|
274
|
8234 |
29908 |
if (my $info = $self->_objects->{$obj})
|
|
296
|
867 |
0 |
if (my $data = $self->_id_info($id))
|
|
306
|
3549 |
10334 |
if (my $data = $self->_id_info($id))
|
|
324
|
0 |
1436 |
unless my $s = $self->current_scope
|
|
326
|
0 |
1436 |
unless my $info = $self->_objects->{$object}
|
|
332
|
785 |
651 |
if ($self->keep_entries)
|
|
335
|
0 |
785 |
if ($args{'in_storage'} and my $txs = $self->txn_scope)
|
|
341
|
0 |
1436 |
if (ref $entry->data and &refaddr($object) == &refaddr($entry->data))
|
|
349
|
0 |
8091 |
unless my $s = $self->current_scope
|
|
351
|
0 |
8091 |
unless ref $object
|
|
352
|
0 |
8091 |
if &blessed($object) and $object->isa('KiokuDB::Entry')
|
|
354
|
1 |
8090 |
if (my $id = $self->object_to_id($object))
|
|
360
|
0 |
8090 |
if (ref $$info{'object'})
|
|
368
|
4165 |
3925 |
if ($self->keep_entries and my $entry = $$info{'entry'})
|
|
374
|
48 |
8042 |
if ($args{'cache'} and my $c = $self->cache)
|
|
388
|
0 |
16132 |
unless $entry->isa('KiokuDB::Entry')
|
|
393
|
4313 |
6235 |
if ($args{'in_storage'} and $self->keep_entries and my $txs = $self->txn_scope)
|
|
401
|
0 |
254 |
unless @pairs % 2 == 0
|
|
404
|
0 |
254 |
unless $self->current_scope
|
|
411
|
2 |
477 |
if (ref $id)
|
|
416
|
0 |
479 |
unless $id
|
|
418
|
1 |
478 |
unless ref $object
|
|
419
|
0 |
478 |
if &blessed($object) and $object->isa('KiokuDB::Entry')
|
|
421
|
2 |
476 |
if ($entry) { }
|
|
426
|
0 |
2 |
if (ref $entry->data and &refaddr($object) == &refaddr($entry->data))
|
|
444
|
2 |
99 |
if (not $self->object_to_id($object)) { }
|
|
460
|
51 |
425 |
if (my $prev = $entry->prev) { }
|
|
476
|
126 |
102 |
if (ref $thing) { }
|
|
479
|
72 |
54 |
if ($info = delete $$o{$thing}) { }
|
|
|
54 |
0 |
elsif ($info = delete $$e{$thing}) { }
|
|
482
|
54 |
18 |
if $$info{'entry'}
|
|
485
|
0 |
54 |
if ref $$info{'object'}
|