| line |
true |
false |
branch |
|
24
|
4 |
9 |
if @_ > 1 or @_ == 1 and $_[0] ne '--clean' and $_[0] ne '--lock' |
|
30
|
5 |
8 |
if ($clean) { } |
|
33
|
0 |
7 |
unless unlink $file |
|
38
|
7 |
1 |
if (Narada::detect() eq 'narada') |
|
41
|
4 |
4 |
if ($lock) { } |
|
60
|
0 |
5 |
unless symlink $lock, $temp |
|
61
|
0 |
5 |
unless rename $temp, $qmail |
|
82
|
4 |
1 |
if (not -e $qmail) { } |
|
|
1 |
0 |
elsif (-l $qmail and _readlink($qmail) eq $lock) { } |
|
|
0 |
0 |
elsif (not -l $qmail && _readlink($qmail) eq $path) { } |
|
83
|
0 |
4 |
unless symlink $path, $qmail |
|
86
|
0 |
1 |
unless symlink $path, $temp |
|
87
|
0 |
1 |
unless rename $temp, $qmail |
|
96
|
0 |
5 |
unless unlink "var/qmail/$file" |
|
100
|
0 |
5 |
unless unlink $file |
|
109
|
80 |
24 |
if -l $_ |
|
121
|
0 |
23 |
unless close $fh |
|
122
|
0 |
23 |
unless rename $temp, $file |
|
128
|
2 |
42 |
unless opendir my $d, $dir |
|
129
|
189 |
42 |
if $_ ne '.' |
|
130
|
0 |
42 |
unless closedir $d |
|
136
|
2 |
87 |
unless my $path = readlink $link |