Branch Coverage

blib/lib/Tie/Array/Expire.pm
Criterion Covered Total %
branch 5 16 31.2


line true false branch
16 0 1 unless $expiry > 0
29 22 54 if $i >= @{$self->{'ARRAY'};}
30 4 50 if ($self->{'ARRAY'}[$i][1] < $time) { }
48 0 0 if ($index > @{$self->{'ARRAY'};})
66 0 0 if ($count > @{$self->{'ARRAY'};}) { }
0 0 elsif ($count < @{$self->{'ARRAY'};}) { }
92 0 0 $elem ? :
106 0 0 $elem ? :