| line |
true |
false |
branch |
|
78
|
0 |
7 |
$#_ ? : |
|
80
|
0 |
7 |
unless ref $self |
|
86
|
7 |
0 |
unless (ref $strategy) |
|
87
|
0 |
7 |
unless eval "require $strategy" |
|
147
|
0 |
0 |
@_ ? : |
|
464
|
228 |
18 |
unless defined $$self{'size_limit'} |
|
466
|
8 |
10 |
if ($size > $$self{'size_limit'}) |
|
494
|
255 |
5 |
unless ($timespec_param) |
|
502
|
0 |
5 |
if ($timespec =~ /^\s*\d+\s*$/) { } |
|
|
2 |
3 |
elsif ($timespec eq $EXPIRES_NOW) { } |
|
|
0 |
3 |
elsif ($timespec eq $EXPIRES_NEVER) { } |
|
|
0 |
3 |
elsif ($timespec =~ /^\s*-/) { } |
|
|
0 |
3 |
elsif ($timespec =~ /^\s*\+(\d+)\s*$/) { } |
|
|
3 |
0 |
elsif ($timespec =~ /^\s*(\+?\d+)\s*(\w*)\s*$/ and exists $_Expiration_Units{$2}) { } |
|
524
|
0 |
0 |
unless $time = str2time($timespec) |