line |
true |
false |
branch |
172
|
1 |
12 |
unless (defined $parms) |
221
|
1 |
47 |
unless (wantarray) |
231
|
1 |
45 |
unless (defined $parms) |
237
|
1 |
44 |
unless (defined $key or defined $cache_key) |
243
|
1 |
43 |
unless (defined $cache_dir) |
254
|
5 |
38 |
unless (defined $cache_key) |
265
|
22 |
21 |
unless (-e $cache_file) |
277
|
0 |
21 |
if ($@) |
283
|
0 |
21 |
unless (defined $entry) |
324
|
1 |
10 |
unless (defined $parms) |
335
|
0 |
10 |
unless ($result) |
360
|
1 |
3 |
unless (defined $cache_dir) |
364
|
1 |
2 |
if ($cache_dir eq '') |
368
|
0 |
2 |
if (-e $cache_dir and not -d _) |
376
|
0 |
2 |
unless (opendir $cache_dir_fh, $cache_dir) |
384
|
0 |
2 |
unless (closedir $cache_dir_fh) |
397
|
0 |
10 |
unless (unlink $file_path) |
456
|
1 |
20 |
unless (defined $parms) |
462
|
1 |
19 |
unless (defined $key or defined $cache_key) |
468
|
1 |
18 |
unless (defined $cache_dir) |
476
|
2 |
16 |
unless (defined $cache_key) |
498
|
0 |
18 |
if ($@) |
504
|
0 |
18 |
unless (defined $result) |
514
|
0 |
18 |
unless (opendir $cache_dir_fh, $cache_dir) |
521
|
0 |
18 |
unless (closedir $cache_dir_fh) |
538
|
14 |
4 |
if ($n_files <= $keep_last) |
553
|
0 |
4 |
unless (unlink $pruned_file) |
591
|
1 |
6 |
unless (defined $parms) |
597
|
1 |
5 |
unless (defined $key or defined $cache_key) |
603
|
1 |
4 |
unless (defined $cache_dir) |
607
|
0 |
4 |
if ($cache_dir eq '') |
615
|
2 |
2 |
unless (defined $cache_key) |
631
|
0 |
4 |
if (-e $cache_file and not unlink($cache_file)) |
701
|
0 |
2 |
unless (defined $cache_dir) |
705
|
0 |
2 |
if ($cache_dir eq '') |
710
|
0 |
2 |
unless (opendir $cache_dir_fh, $cache_dir) |
716
|
0 |
2 |
unless (closedir $cache_dir_fh) |
760
|
0 |
67 |
unless (defined $cache_dir) |
764
|
0 |
67 |
if ($cache_dir eq '') |
768
|
0 |
67 |
if (-e $cache_dir and not -d _) |
772
|
0 |
67 |
unless (-e $cache_dir) |
777
|
0 |
0 |
if ($@) |
783
|
0 |
67 |
unless (-e $cache_dir and -d _) |
789
|
0 |
67 |
unless (open $cache_lock_fh, ">>$document_name") |
798
|
0 |
0 |
if ($lock_timeout == 0) |
807
|
0 |
67 |
unless (truncate $cache_lock_fh, 0) |
832
|
0 |
67 |
unless (truncate $cache_lock_fh, 0) |
837
|
0 |
67 |
unless (close $cache_lock_fh) |
856
|
229 |
105 |
if (0 == @_) { } |
|
105 |
0 |
elsif (1 == @_) { } |
881
|
2 |
2 |
unless defined $keep_last |
882
|
1 |
3 |
unless (defined $cache_dir and $cache_dir ne '') |
898
|
8 |
1 |
if (ref \$key eq 'SCALAR') { } |
912
|
6 |
1 |
if (ref \$key eq 'SCALAR') { } |
930
|
1 |
1 |
if (ref \$key eq 'SCALAR') { } |
952
|
16 |
2 |
if (ref \$key eq 'SCALAR') { } |