| blib/lib/Data/ObjectStore.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 84 | 84 | 100.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 547 | 1276 | 742 | 6263 | defined $val and $val ne 'u' |
| 708 | 357 | 27786 | 6 | defined $_ and $_ =~ /[\\\`]/ |
| 868 | 13802 | 5 | 2 | $xid > 0 and $xid < 3 |
| 924 | 1 | 19 | 1152 | $self->[7] > 0 and not defined $self->FETCH($self->[7] - 1) |
| 1030 | 7620 | 21 | 4 | $inid and $inid < 3 |
| 1045 | 279 | 774 | 13285 | @vals and $remove_length |
| 1081 | 19 | 755 | 42 | @vals and $self->[7] > $block_idx * $BLOCK_SIZE + $block_off |
| 1489 | 364 | 27 | 20 | $self->[0] > 2 and $inid > 0 |
| 391 | 16 | 4 | $self->[0] > 2 and $inid > 0 and $inid < 3 | |
| 1525 | 527 | 33 | 21 | !defined($cur) || $cur eq 'u' and defined $default |
| 1527 | 5 | 13 | 3 | ref $default and $self->[0] > 2 |
| 18 | 1 | 2 | ref $default and $self->[0] > 2 and $xid < 3 | |
| 1703 | 3 | 2034 | 25 | defined $_ and $_ =~ /[\\\`]/ |
| line | l | !l | condition |
|---|---|---|---|
| 283 | 16 | 52 | $class //= 'Data::ObjectStore::Container' |
| 711 | 1847 | 5268 | $self->[4] || 0 |
| 7046 | 69 | $self->[7] || 0 | |
| 7056 | 59 | $self->[8] || 0 | |
| 729 | 200 | 7021 | $item_count //= 0 |
| 821 | 61322 | 6975 | $self->[1][$block_idx] // 'r0' |
| 872 | 430 | 13377 | $self->[1][$idx] // 0 |
| 1179 | 58 | 18 | $level //= 0 |
| 1180 | 57 | 19 | $size ||= 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 385 | 1 | 1 | 979 | $r eq 'Data::ObjectStore::Array' or $r eq 'Data::ObjectStore::Hash' |
| 2 | 977 | 2 | $r eq 'Data::ObjectStore::Array' or $r eq 'Data::ObjectStore::Hash' or $r->isa('Data::ObjectStore::Container') | |
| 475 | 57986 | 4624 | 362 | $self->[1]{$id} // $self->[2]{$id} |
| 656 | 6 | 16 | 110 | $class eq 'Data::ObjectStore::Hash' or $class eq 'Data::ObjectStore::Array' |
| 22 | 107 | 3 | $class eq 'Data::ObjectStore::Hash' or $class eq 'Data::ObjectStore::Array' or $ref->isa('Data::ObjectStore::Container') | |
| 996 | 844 | 2155 | 1 | $remove_length or @vals |
| 1412 | 26 | 2122 | 651 | $at_start ||= !$hash |
| 1495 | 231 | 175 | 1 | not defined $self->[1]{$fld} or $oldval ne $inval |
| 1525 | 50 | 4 | 527 | !defined($cur) || $cur eq 'u' |