| line |
true |
false |
branch |
|
31
|
0 |
4 |
@_ == 1 ? : |
|
34
|
4 |
0 |
unless $$self{'bin'} = $self->_find_bin |
|
36
|
0 |
0 |
if (defined $$self{'base_dir'} and not $$self{'base_dir'} =~ m[^/]) { } |
|
39
|
0 |
0 |
$ENV{'TEST_TTSERVE_PRESERVE'} ? : |
|
46
|
0 |
0 |
unless exists $Defaults{$_} |
|
53
|
0 |
0 |
$dbname ? : |
|
55
|
0 |
0 |
if ($$self{'auto_start'}) |
|
65
|
0 |
4 |
if defined $self->pid |
|
75
|
0 |
0 |
if defined $self->pid |
|
78
|
0 |
0 |
unless my $log_fh = 'IO::File'->new($log_file, 1089) |
|
82
|
0 |
0 |
unless defined $pid |
|
84
|
0 |
0 |
if ($pid == 0) |
|
88
|
0 |
0 |
$bool{$_} ? : |
|
95
|
0 |
0 |
unless @command and defined $command[-1] |
|
96
|
0 |
0 |
if $$self{'debug'} |
|
97
|
0 |
0 |
unless open STDOUT, '>&', $log_fh |
|
98
|
0 |
0 |
unless open STDERR, '>&', $log_fh |
|
105
|
0 |
0 |
if (0 < waitpid($pid, 1)) |
|
116
|
0 |
0 |
unless defined $self->pid |
|
128
|
0 |
0 |
unless (shift())->{'args'}{'host'} |
|
129
|
0 |
0 |
unless (shift())->{'args'}{'port'} |
|
131
|
0 |
0 |
(shift())->{'child'} ? : |
|
132
|
0 |
0 |
(shift())->is_up ? : |
|
140
|
3 |
1 |
if defined $ENV{'PATH'} |
|
144
|
0 |
27 |
if -x $bin |
|
154
|
0 |
0 |
if (my $log_fh = 'IO::File'->new($log_file, 0)) |