| line |
true |
false |
branch |
|
31
|
1 |
26 |
unless -d $path |
|
71
|
1 |
19 |
unless UNIVERSAL::isa($job, 'Sub::Slice') |
|
75
|
12 |
7 |
if -e $filename |
|
82
|
1 |
3 |
unless -d $dir |
|
99
|
1 |
6 |
unless UNIVERSAL::isa($job, 'Sub::Slice') |
|
100
|
1 |
5 |
unless defined $key |
|
101
|
1 |
4 |
if (my $data_file = $$job{'.blobs'}{$key}) { } |
|
117
|
1 |
9 |
unless UNIVERSAL::isa($job, 'Sub::Slice') |
|
118
|
1 |
8 |
unless defined $key |
|
119
|
6 |
2 |
if (my $data_file = $$job{'.blobs'}{$key}) |
|
127
|
1 |
1 |
unless defined $maxage |
|
131
|
1 |
2 |
if /^\.{1,2}$/ |
|
136
|
0 |
2 |
unless defined $mtime |
|
139
|
0 |
2 |
unless $mtime >= $maxage |
|
141
|
1 |
1 |
if (-f $_) { } |
|
|
1 |
0 |
elsif (-d $_) { } |
|
142
|
0 |
1 |
unless rmdir $_ |
|
146
|
1 |
1 |
unless -d $p |
|
172
|
2 |
24 |
unless defined $id |
|
173
|
23 |
1 |
unless ($$self{'lax'}) |
|
175
|
2 |
21 |
unless $id =~ /\A$regex\Z/ |
|
182
|
0 |
6 |
unless open FH, $filename |
|
192
|
0 |
1 |
unless open FH, ">$filename" |