| lib/WebService/Libris/FileCache.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 3 | 8 | 37.5 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 0 | 1 | unless (-d $d) |
| 33 | 0 | 3 | unless open my $h, '<:encoding(UTF-8)', $filename |
| 35 | 0 | 3 | unless length $contents |
| 42 | 0 | 0 | unless open my $h, '>', $filename |