Branch Coverage

blib/lib/Tie/Hash/Expire.pm
Criterion Covered Total %
branch 28 34 82.3


line true false branch
14 2 0 unless ($@)
26 1 4 unless (exists $$args{'expire_seconds'})
29 0 5 if (not $Tie::Hash::Expire::HI_RES_AVAILABLE and $$args{'expire_seconds'} =~ /\.\d+/)
69 24 2 if (exists $$self{'hash'}{$key}) { }
74 2 22 if (defined $$self{'lifespan'} and $time - $$self{'array'}[$index][0] >= $$self{'lifespan'})
93 2 0 if (exists $$self{'hash'}{$key})
98 1 1 if (defined $$self{'lifespan'} and $time - $$self{'array'}[$index][0] >= $$self{'lifespan'})
115 2 16 if (exists $$self{'hash'}{$key})
136 7 1 if (scalar @{$$self{'array'};}) { }
154 1 19 if (defined $chopped)
155 0 1 if ($$self{'curr_key'} <= $chopped) { }
163 14 6 if ($$self{'curr_key'} <= $#{$$self{'array'};}) { }
178 0 28 unless (defined $$self{'lifespan'})
189 2 46 if ($time - $$self{'array'}[$try][0] >= $$self{'lifespan'}) { }
195 2 26 if ($min >= 0) { }
209 0 63 if ($time - $$self{'last_clean'} >= $$self{'clean_int'})
221 3 2 if ($index >= $#{$$self{'array'};}) { }