| line |
true |
false |
branch |
|
17
|
0 |
40 |
if (not -d $LOCK_DIR) |
|
18
|
0 |
0 |
unless mkdir $LOCK_DIR |
|
35
|
4 |
20 |
if ($$self{'create'}) |
|
38
|
0 |
4 |
unless opendir my $lock_dh, $LOCK_DIR |
|
41
|
0 |
4 |
unless closedir $lock_dh |
|
45
|
0 |
0 |
unless unlink $_ |
|
49
|
2 |
2 |
if (-e $path) |
|
50
|
0 |
2 |
unless opendir my $invindex_dh, $path |
|
54
|
1 |
5 |
if (/(^\w+\.(?:cfs|del)$)/) { } |
|
|
0 |
5 |
elsif ($_ eq 'segments') { } |
|
|
0 |
5 |
elsif ($_ eq 'delqueue') { } |
|
66
|
0 |
1 |
unless unlink $removable |
|
69
|
0 |
2 |
unless closedir $invindex_dh |
|
72
|
2 |
2 |
unless (-d $path) |
|
73
|
0 |
2 |
unless mkdir $path |
|
78
|
1 |
23 |
if (not -d $path) |
|
79
|
1 |
0 |
unless -e $path |
|
88
|
0 |
182 |
unless sysopen my $fh, $filepath, 194 |
|
98
|
0 |
215 |
unless open my $fh, '<:unix', $filepath |
|
106
|
0 |
2 |
unless opendir my $dh, $$self{'path'} |
|
109
|
0 |
2 |
unless closedir $dh |
|
121
|
0 |
35 |
unless rename $from, $to |
|
128
|
0 |
163 |
unless unlink $filename |
|
134
|
0 |
1 |
unless open my $fh, '<', $filepath |