| line |
true |
false |
branch |
|
29
|
2 |
22 |
if @_
|
|
45
|
0 |
3 |
if (@_)
|
|
56
|
0 |
4 |
if (@_)
|
|
67
|
0 |
1 |
if @_
|
|
69
|
1 |
0 |
unless exists $self->{'uid'}
|
|
77
|
0 |
1 |
if @_
|
|
79
|
1 |
0 |
unless exists $self->{'gid'}
|
|
87
|
1 |
0 |
ref $in[0] eq 'HASH' ? :
|
|
102
|
13 |
20 |
if (exists $args->{$accessor})
|
|
108
|
0 |
1 |
if ($self->foreground == 1 or $ENV{'DC_FOREGROUND'})
|
|
113
|
0 |
1 |
if keys %$args
|
|
123
|
0 |
0 |
unless @in
|
|
128
|
0 |
0 |
if ($@)
|
|
137
|
0 |
0 |
substr($_, 0, 1) eq '+' ? :
|
|
140
|
0 |
0 |
ref $in[0] eq 'ARRAY' ? :
|
|
151
|
0 |
1 |
unless defined $self->user
|
|
154
|
1 |
0 |
unless defined $uid
|
|
165
|
0 |
1 |
if (not defined $self->group and defined $self->uid)
|
|
172
|
0 |
1 |
unless defined $self->group
|
|
175
|
1 |
0 |
unless defined $gid
|
|
185
|
0 |
0 |
if ($self->stdout_file)
|
|
187
|
0 |
0 |
$file eq '/dev/null' ? :
|
|
189
|
0 |
0 |
if (ref $file eq 'ARRAY') { }
|
|
191
|
0 |
0 |
@$file ? :
|
|
|
0 |
0 |
unless open STDOUT, $mode, @$file ? @$file : ()
|
|
197
|
0 |
0 |
unless open STDOUT, '>>', $file
|
|
202
|
0 |
0 |
if ($self->stderr_file)
|
|
204
|
0 |
0 |
$file eq '/dev/null' ? :
|
|
206
|
0 |
0 |
if (ref $file eq 'ARRAY') { }
|
|
208
|
0 |
0 |
@$file ? :
|
|
|
0 |
0 |
unless open STDERR, $mode, @$file ? @$file : ()
|
|
214
|
0 |
0 |
unless open STDERR, '>>', $file
|
|
229
|
0 |
0 |
unless defined $dir
|
|
230
|
0 |
0 |
unless length $dir
|
|
232
|
0 |
0 |
if (-d $dir)
|
|
246
|
0 |
0 |
if (@$errors)
|
|
253
|
0 |
0 |
if ($created eq $dir)
|
|
267
|
0 |
0 |
if ($pid == 0) { }
|
|
|
0 |
0 |
elsif (not defined $pid) { }
|
|
270
|
0 |
0 |
if ($new_pid == 0) { }
|
|
|
0 |
0 |
elsif (not defined $new_pid) { }
|
|
272
|
0 |
0 |
if ($self->gid)
|
|
277
|
0 |
0 |
if ($self->uid)
|
|
288
|
0 |
0 |
if ($self->umask)
|
|
295
|
0 |
0 |
if ($self->redirect_before_fork)
|
|
323
|
0 |
0 |
if ($pid == 0) { }
|
|
|
0 |
0 |
elsif (not defined $pid) { }
|
|
338
|
0 |
0 |
if ($self->directory)
|
|
343
|
0 |
0 |
unless $self->program_args
|
|
345
|
0 |
0 |
if (ref $self->program eq 'CODE') { }
|
|
348
|
0 |
0 |
unless exec $self->program, @args
|
|
363
|
0 |
0 |
if ($self->uid and $self->gid)
|
|
373
|
0 |
0 |
unless $self->_create_dir($dir)
|
|
375
|
0 |
0 |
unless open my $sf, '>', $self->pid_file
|
|
389
|
0 |
0 |
unless (-f $self->pid_file)
|
|
394
|
0 |
0 |
unless open my $lf, '<', $self->pid_file
|
|
407
|
0 |
0 |
unless $self->pid >= 1
|
|
408
|
0 |
0 |
unless kill 0, $self->pid
|
|
410
|
0 |
0 |
if ($self->scan_name)
|
|
411
|
0 |
0 |
unless open my $lf, '-|', 'ps', '-p', $self->pid, '-o', 'command='
|
|
414
|
0 |
0 |
if $line =~ $self->scan_name
|
|
425
|
0 |
0 |
$^O =~ /bsd$/ ? :
|
|
431
|
0 |
0 |
if $line =~ /^\D/
|
|
434
|
0 |
0 |
if $pid eq $$
|
|
435
|
0 |
0 |
if $command =~ /$pattern/ or defined $args and $args =~ /$pattern/
|
|
445
|
0 |
0 |
if $self->quiet
|
|
468
|
0 |
0 |
if ($self->prereq_no_process)
|
|
471
|
0 |
0 |
$self->prereq_no_process eq '1' ? :
|
|
475
|
0 |
0 |
if (@pids)
|
|
483
|
0 |
0 |
unless (-f $self->pid_file)
|
|
490
|
0 |
0 |
if ($self->pid and $self->pid_running)
|
|
497
|
0 |
0 |
unless defined $self->fork
|
|
498
|
0 |
0 |
if $self->fork == 2
|
|
499
|
0 |
0 |
if $self->fork == 1
|
|
500
|
0 |
0 |
if $self->fork == 0
|
|
508
|
1 |
0 |
unless ($self->fork)
|
|
512
|
0 |
1 |
unless ($self->stdout_file)
|
|
516
|
0 |
1 |
if (not $self->stderr_file)
|
|
528
|
0 |
0 |
unless $start_pid > 1
|
|
530
|
0 |
0 |
if ($self->pid_running($start_pid)) { }
|
|
540
|
0 |
0 |
unless $self->pid_running($start_pid)
|
|
543
|
0 |
0 |
unless $self->pid_running($start_pid)
|
|
545
|
0 |
0 |
if ($self->pid_running($start_pid))
|
|
559
|
0 |
0 |
if ($self->pid_file)
|
|
560
|
0 |
0 |
if $self->read_pid == $start_pid
|
|
569
|
0 |
0 |
if ($self->pid_running)
|
|
580
|
0 |
0 |
if ($self->pid and $self->pid_running) { }
|
|
593
|
0 |
0 |
if ($self->pid and $self->pid_running) { }
|
|
612
|
0 |
1 |
if $self->help
|
|
618
|
1 |
0 |
unless ($self->data)
|
|
621
|
1 |
25 |
if $line =~ /^__END__$/
|
|
630
|
0 |
1 |
$self->init_config ? :
|
|
636
|
1 |
0 |
$self->name ? :
|
|
|
1 |
0 |
$self->lsb_start ? :
|
|
|
1 |
0 |
$self->lsb_stop ? :
|
|
|
1 |
0 |
$self->lsb_sdesc ? :
|
|
|
1 |
0 |
$self->lsb_desc ? :
|
|
|
1 |
0 |
$self->path ? :
|
|
|
0 |
1 |
$self->init_code ? :
|
|
668
|
0 |
0 |
unless ($self->program)
|
|
671
|
0 |
0 |
unless ($self->pid_file)
|
|
674
|
0 |
0 |
unless ($self->name)
|
|
681
|
0 |
0 |
$called_with ? :
|
|
685
|
0 |
0 |
if ($self->can($action)) { }
|
|
|
0 |
0 |
elsif (not $called_with) { }
|
|
703
|
0 |
0 |
unless $ENV{'DC_TRACE'}
|
|
705
|
0 |
0 |
if $ENV{'DC_TRACE'} == 1
|
|
706
|
0 |
0 |
if $ENV{'DC_TRACE'} == 2
|