| line |
true |
false |
branch |
|
43
|
0 |
0 |
unless my $docroot = $args{'docroot'} |
|
44
|
0 |
0 |
unless my $secrets = $args{'secrets'} |
|
45
|
0 |
0 |
unless my $domain = $args{'domain'} |
|
46
|
0 |
0 |
unless my $group = $args{'group'} |
|
49
|
0 |
0 |
unless -d $docroot |
|
57
|
0 |
0 |
unless -d $secrets or mkdir $secrets |
|
60
|
0 |
0 |
unless -d $servdir or mkdir $servdir |
|
64
|
0 |
0 |
unless -d $wk or mkdir $wk |
|
100
|
0 |
0 |
if (-f $to_fn and not $restart) |
|
109
|
0 |
0 |
unless $resp->is_success |
|
119
|
0 |
0 |
unless my $gid = getpwnam $group |
|
122
|
0 |
0 |
if (-f $outfn and not $restart) |
|
126
|
0 |
0 |
unless $gid == $has_gid |
|
135
|
0 |
0 |
unless not -f $outfn or unlink $outfn |
|
142
|
0 |
0 |
unless chown -1, $gid, $outfn |
|
173
|
0 |
0 |
unless -d $outdir or mkdir $outdir |
|
178
|
0 |
0 |
if (-f $outfn and not $restart) |
|
183
|
0 |
0 |
unless open FROM, '<:encoding(utf8)', $fn |
|
186
|
0 |
0 |
unless open TO, '>:encoding(utf8)', $outfn |
|
197
|
0 |
0 |
$outfn =~ /\.pl$/i ? : |