| blib/lib/Cache/File/Simple.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 22 | 27.2 |
| line | true | false | branch |
|---|---|---|---|
| 37 | 0 | 15 | unless tie @data, "Tie::File", $file |
| 39 | 7 | 8 | if (@_ > 1) { } |
| 8 | 0 | elsif ($key and -r $file) { } | |
| 45 | 5 | 3 | if ($ret->{'expires'} and $ret->{'expires'} > time) { } |
| 63 | 0 | 0 | unless opendir my $dh, $_[0] |
| 64 | 0 | 0 | if $_ ne "." |
| 68 | 0 | 0 | unless tie my @data, "Tie::File", $file |
| 71 | 0 | 0 | if ($x->{'expires'} < time) |
| 72 | 0 | 0 | if ($verbose) |
| 78 | 0 | 0 | if (-d $dir and dir_is_empty($dir)) |
| 79 | 0 | 0 | if ($verbose) |