Branch Coverage

blib/lib/Proclet.pm
Criterion Covered Total %
branch 31 62 50.0


line true false branch
153 0 7 exists $$args{'tag'} && defined $$args{'tag'} ? :
154 0 7 if exists $$self{'tags'}{$tag}
157 0 7 if ($$self{'_base_port'})
161 0 7 exists $$args{'every'} && defined $$args{'every'} ? :
187 0 16 if ($services{$sid}{'cron'})
191 15 1 if ($self->enable_log_worker)
197 0 4 unless @services
199 3 1 if ($self->enable_log_worker)
222 12 0 exists $pid2service{$exit_pid} ? :
224 12 0 if (exists $pid2service{$exit_pid})
228 12 0 if ($wait_all_children)
229 2 10 if (scalar keys %running == 1 and exists $running{$LOGGER})
231 1 1 if sleep 1
242 3 10 if ($self->enable_log_worker and not exists $running{$LOGGER}) { }
247 10 16 unless (exists $running{$sid})
258 12 0 if (defined $next) { }
272 1 0 if (defined $next) { }
274 0 1 if (not $self->enable_log_worker) { }
0 1 elsif ($$service{'pipe'}) { }
281 0 0 unless open STDOUT, '>&', $logwh
283 0 0 unless open STDERR, '>&', $logwh
304 0 15 unless pipe my $logrh, my $logwh
323 1 4 if length $sid > $maxlen
325 1 0 if $maxlen < 10
338 0 10 if $self->color
341 10 0 if ($self->logger) { }
372 0 0 if $now != $prev
375 0 0 unless $live
378 0 0 unless &$cron($now)
381 0 0 if (not defined $pid) { }
0 0 elsif ($pid == 0) { }