| line |
true |
false |
branch |
|
375
|
4 |
25 |
unless ($self->is_enabled) |
|
380
|
1 |
24 |
if ($self->is_running) |
|
387
|
19 |
5 |
if (my $pid = fork) { } |
|
402
|
17 |
27 |
if ($locked_pid and $self->is_running($pid)) |
|
407
|
17 |
0 |
if ($locked_pid == $pid) { } |
|
424
|
0 |
5 |
unless ($self->write_my_pid($$)) |
|
435
|
0 |
5 |
unless open STDIN, '<', '/dev/null' |
|
437
|
0 |
5 |
unless open STDOUT, '>>', $self->log_file |
|
438
|
0 |
5 |
unless open STDERR, '>>', $self->log_file |
|
440
|
0 |
5 |
unless setsid() |
|
450
|
1 |
4 |
if ($self->pipe) |
|
453
|
1 |
0 |
unless (-p $named_pipe) |
|
455
|
0 |
1 |
unless POSIX::mkfifo($named_pipe, 448) |
|
457
|
0 |
1 |
unless open STDIN, '<', $named_pipe |
|
461
|
2 |
3 |
if ($self->class) { } |
|
469
|
0 |
2 |
if ($error) { } |
|
482
|
0 |
2 |
unless (eval {
do {
$obj = $class->new('context', $self->context);
1
}
}) |
|
494
|
0 |
2 |
unless (eval {
do {
$obj->$method($args);
1
}
}) |
|
505
|
0 |
1 |
unless (eval {
do {
$self->start_method->($args);
1
}
}) |
|
529
|
1 |
9 |
unless ($self->is_running) |
|
564
|
1 |
2 |
$sleep ? : |
|
588
|
112 |
19 |
unless ($pid) |
|
590
|
67 |
64 |
unless $pid |
|
598
|
50 |
14 |
if (kill 0, $pid) |
|
599
|
0 |
50 |
if ($!{'EPERM'}) { } |
|
649
|
3 |
6 |
unless ($self->is_running) |
|
677
|
1 |
16 |
if ($self->pipe) |
|
694
|
92 |
84 |
unless (-r $path) |
|
700
|
0 |
84 |
unless open my $fh, '<', $path |
|
705
|
0 |
84 |
unless close $fh |
|
707
|
1 |
83 |
unless $line |
|
709
|
0 |
83 |
unless $line |
|
711
|
0 |
83 |
unless ($line =~ /^\d+$/) |
|
736
|
0 |
5 |
unless ($pid) |
|
739
|
0 |
5 |
if $self->is_running |
|
744
|
0 |
5 |
unless open my $pid_fh, '>', $path |
|
747
|
0 |
5 |
unless close $pid_fh |
|
751
|
0 |
5 |
if (-r $self->pid_file) |
|
757
|
0 |
5 |
unless (rename $path, $self->pid_file) |
|
779
|
0 |
18 |
unless -r $self->pid_file |
|
822
|
0 |
1 |
unless $self->pipe |
|
825
|
0 |
1 |
unless (-r $self->pipe_file) |
|
834
|
0 |
1 |
unless sysopen my $fh, $self->pipe_file, &POSIX::O_WRONLY |
|
848
|
4 |
1 |
if ($self->is_enabled) |
|
864
|
4 |
1 |
unless ($self->is_enabled) |
|
883
|
11 |
33 |
if -r $self->disable_file |
|
892
|
382 |
18 |
unless $self->debug |