Branch Coverage

lib/Tie/FileLRUCache.pm
Criterion Covered Total %
branch 80 112 71.4


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') { }