blib/lib/Data/ObjectStore.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 84 | 84 | 100.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
552 | 1276 | 742 | 6263 | defined $val and $val ne 'u' |
713 | 357 | 27786 | 6 | defined $_ and $_ =~ /[\\\`]/ |
873 | 13802 | 5 | 2 | $xid > 0 and $xid < 3 |
929 | 1 | 19 | 1152 | $self->[7] > 0 and not defined $self->FETCH($self->[7] - 1) |
1035 | 7620 | 21 | 4 | $inid and $inid < 3 |
1050 | 279 | 774 | 13285 | @vals and $remove_length |
1086 | 19 | 755 | 42 | @vals and $self->[7] > $block_idx * $BLOCK_SIZE + $block_off |
1494 | 364 | 27 | 20 | $self->[0] > 2 and $inid > 0 |
391 | 16 | 4 | $self->[0] > 2 and $inid > 0 and $inid < 3 | |
1530 | 527 | 33 | 21 | !defined($cur) || $cur eq 'u' and defined $default |
1532 | 5 | 13 | 3 | ref $default and $self->[0] > 2 |
18 | 1 | 2 | ref $default and $self->[0] > 2 and $xid < 3 | |
1708 | 3 | 2034 | 25 | defined $_ and $_ =~ /[\\\`]/ |
line | l | !l | condition |
---|---|---|---|
283 | 16 | 52 | $class //= 'Data::ObjectStore::Container' |
716 | 1847 | 5268 | $self->[4] || 0 |
7046 | 69 | $self->[7] || 0 | |
7056 | 59 | $self->[8] || 0 | |
734 | 200 | 7021 | $item_count //= 0 |
826 | 61322 | 6975 | $self->[1][$block_idx] // 'r0' |
877 | 430 | 13377 | $self->[1][$idx] // 0 |
1184 | 58 | 18 | $level //= 0 |
1185 | 57 | 19 | $size ||= 0 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
390 | 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') | |
480 | 57986 | 4624 | 362 | $self->[1]{$id} // $self->[2]{$id} |
661 | 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') | |
1001 | 844 | 2155 | 1 | $remove_length or @vals |
1417 | 26 | 2122 | 651 | $at_start ||= !$hash |
1500 | 231 | 175 | 1 | not defined $self->[1]{$fld} or $oldval ne $inval |
1530 | 50 | 4 | 527 | !defined($cur) || $cur eq 'u' |