| blib/lib/WWW/Session/Storage/File.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 12 | 66.6 |
| line | true | false | branch |
|---|---|---|---|
| 54 | 0 | 4 | unless defined $$params{'path'} |
| 56 | 0 | 4 | unless -d $$params{'path'} |
| 94 | 3 | 9 | unless -f $filename |
| 98 | 0 | 9 | unless open my $fh, '<', $$self{'path'} . '/' . $sid |
| 111 | 1 | 8 | if ($expires != -1 and $file_info[8] + $expires < time) |
| 129 | 20 | 0 | if (-f $filename) |