Condition Coverage

blib/lib/Tie/CacheHash.pm
Criterion Covered Total %
condition 0 101 0.0


and 3 conditions

line !l l&&!r l&&r condition
129 0 0 0 defined $$self{'h'}{$key} and $$self{'h'}{$key} eq $value
161 0 0 0 $Tie::CacheHash::DEBUG and int rand 200 == 0
184 0 0 0 $Tie::CacheHash::DEBUG and int rand 200 == 0
217 0 0 0 $key and exists $$self{'h'}{$key}
259 0 0 0 $ref_sf and $ref_sf ne 'CODE'
330 0 0 0 $min > 0 and $min < $#$cr
0 0 0 $min > 0 and $min < $#$cr and $self->cmp($value, $$self{'h'}{$$cr[$min]}) == 0
333 0 0 0 $min > 0 and $self->cmp($value, $$self{'h'}{$$cr[$min - 1]}) == 0
0 0 0 $min > 0 and $self->cmp($value, $$self{'h'}{$$cr[$min - 1]}) == 0 and $$cr[$min - 1] ge $key
339 0 0 0 $min < $#$cr and $self->cmp($value, $$self{'h'}{$$cr[$min + 1]}) == 0
0 0 0 $min < $#$cr and $self->cmp($value, $$self{'h'}{$$cr[$min + 1]}) == 0 and $key ge $$cr[$min + 1]
363 0 0 0 $min == 0 and $self->cmp($value, $$self{'h'}{$$cr[0]}) > 0
0 0 0 $min == 1 and $self->cmp($$self{'h'}{$$cr[0]}, $value) > 0
371 0 0 0 $min == 0 and $self->cmp($value, $$self{'h'}{$$cr[0]}) > 0
0 0 0 $min == $#$cr + 1 and $self->cmp($$self{'h'}{$$cr[$#$cr]}, $value) > 0
0 0 0 $min > 0 and $min <= $#$cr
425 0 0 0 $cache_pos <= $#$cr and $$cr[$cache_pos] eq $key
714 0 0 0 defined $newval && defined $lastval
723 0 0 0 $#$cr >= 0 and not $error

or 2 conditions

line l !l condition
193 0 0 $self->get_cache_top || '(none)'
321 0 0 $$cr[$min - 1] || ''
323 0 0 $$cr[$min] || ''
325 0 0 $$cr[$min + 1] || ''

or 3 conditions

line l !l&&r !l&&!r condition
37 0 0 0 ref $class || $class
47 0 0 0 not ref $ahr or ref $ahr ne 'HASH'
155 0 0 0 $$self{'num_keys'} <= $max or not defined $cache_top
0 0 0 $$self{'num_keys'} <= $max or not defined $cache_top or $self->cmp($value, $cache_top) <= 0
175 0 0 0 not defined $cache_top or $self->cmp($value, $cache_top) <= 0
259 0 0 0 not defined $sf or $ref_sf and $ref_sf ne 'CODE'
353 0 0 0 $min < 0 or $min > $#$cr + 1
0 0 0 $min < 0 or $min > $#$cr + 1 or $min != int $min
363 0 0 0 $min < 0 or $min > 1
529 0 0 0 not $$self{'scan_min'} or $$self{'scan_min'} < 10
539 0 0 0 $success or $do_it_the_stupid_way
714 0 0 0 not defined $newval && defined $lastval or $self->cmp($newval, $lastval) < 0