| line |
true |
false |
branch |
|
26
|
18 |
0 |
unless -d $dir |
|
28
|
0 |
0 |
$ENV{'PERL5LIB'} ? : |
|
31
|
0 |
9 |
unless (eval 'use MogileFS::Client; 1') |
|
36
|
9 |
0 |
unless (eval {
do {
TrackerHandle::_mogadm_exe()
}
}) |
|
55
|
5 |
0 |
unless ($type) |
|
57
|
5 |
0 |
unless eval 'use DBD::mysql; 1' |
|
61
|
0 |
0 |
unless $type =~ /^\w+$/ |
|
64
|
0 |
0 |
if ($@) |
|
70
|
0 |
0 |
unless $rootuser eq '' |
|
71
|
0 |
0 |
unless $rootpass eq '' |
|
92
|
0 |
0 |
if $conn |
|
94
|
0 |
0 |
unless ($pid) |
|
95
|
0 |
0 |
$whoami eq 'root' ? : |
|
107
|
0 |
0 |
if (&$connect()) |
|
124
|
0 |
0 |
if $conn |
|
134
|
0 |
0 |
if ($daemonize) { } |
|
138
|
0 |
0 |
if system @args |
|
141
|
0 |
0 |
unless defined $pid |
|
142
|
0 |
0 |
unless ($pid) |
|
148
|
0 |
0 |
if (&$connect()) |
|
159
|
0 |
0 |
if &$code() |
|
169
|
0 |
0 |
unless syswrite $admin, $req |
|
172
|
0 |
0 |
if ($r =~ /Now desiring $count children doing '$jobclass'/ and readline $admin eq ".\r\n") |
|
180
|
0 |
0 |
if ($line =~ /\A$jobclass count (\d+)/) |
|
183
|
0 |
0 |
if $line eq ".\r\n" |
|
187
|
0 |
0 |
if $rcount == $count |
|
204
|
0 |
0 |
unless $self->{'pid'} |
|
221
|
0 |
9 |
if $_mogadm_exe_cache |
|
231
|
0 |
135 |
if -x $exe |