| blib/lib/Pod/Perldoc/Cache.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 18 | 44.4 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 0 | 4 | if (exists $$self{'_parser_class'}) { } |
| 28 | 1 | 3 | if (-f $cache_file and not $$self{'_ignore_cache'}) { } |
| 29 | 0 | 1 | unless open my $cache_fh, '<', $cache_file |
| 36 | 0 | 3 | unless open my $cache_fh, '>', $cache_file |
| 56 | 0 | 5 | unless ($cache_dir) |
| 59 | 0 | 5 | unless (-e $cache_dir) |
| 60 | 0 | 0 | unless mkpath($cache_dir) |
| 71 | 0 | 8 | unless open my $pod_fh, '<', $pod_file |
| 87 | 0 | 0 | if ($@) { } |