Branch Coverage

blib/lib/Daemon/Control.pm

Criterion	Covered	Total	%
branch	33	216	15.2

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', '-w', '-w', '-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