| line |
true |
false |
branch |
|
81
|
0 |
3 |
unless my $cfg = 'Config::IniFiles'->new(-'file', $config_file) |
|
85
|
0 |
3 |
unless defined $value |
|
99
|
0 |
3 |
if (-e $pid_f) |
|
102
|
0 |
0 |
unless open my $pid_file, '<', $pid_f |
|
108
|
0 |
0 |
if (not -e "/proc/$pid") { } |
|
111
|
0 |
0 |
unless unlink $pid_f |
|
134
|
0 |
1 |
if (defined $$self{'logsize'}) |
|
139
|
0 |
0 |
if (not defined $$self{'log_num'}) { } |
|
149
|
0 |
0 |
if ($$self{'logsize'} =~ /^(\d+)(.{2})$/) |
|
151
|
0 |
0 |
if ($2 eq 'Kb' or $2 eq 'KB' or $2 eq 'kb') { } |
|
|
0 |
0 |
elsif ($2 eq 'Mb' or $2 eq 'MB' or $2 eq 'mb') { } |
|
|
0 |
0 |
elsif ($2 eq 'Gb' or $2 eq 'GB' or $2 eq 'gb') { } |
|
167
|
0 |
0 |
if (defined $statfile) |
|
171
|
0 |
0 |
if ($size > $logsize) |
|
177
|
0 |
0 |
if ($$self{'logfile'} =~ m[^(.+)/(.+)\.log$]) |
|
191
|
0 |
0 |
if ($log_file_exist >= $lognum) |
|
209
|
0 |
0 |
unless $tar->write($log_path . '/' . $filename . '-' . $suffix . '.gz', 9) |
|
220
|
0 |
1 |
unless open my $logfile, '>>', $$self{'logfile'} |
|
237
|
0 |
2 |
unless my($name, $passwd, $uid, $gid) = getpwnam $runas_user |
|
241
|
0 |
2 |
unless defined $pid |
|
244
|
1 |
1 |
if ($pid) { } |
|
247
|
0 |
1 |
unless open my $pid_file, '>', $lock_file |
|
283
|
0 |
0 |
unless my($name, $passwd, $uid, $gid) = getpwnam $runas_user |
|
287
|
0 |
0 |
unless defined $first_child_pid |
|
290
|
0 |
0 |
if ($first_child_pid) { } |
|
293
|
0 |
0 |
unless open my $pid_file, '>', $lock_file |
|
301
|
0 |
0 |
unless (-e "/proc/$first_child_pid") |