| line |
true |
false |
branch |
|
65
|
0 |
1 |
$ENV{'DHCP_OMAPI_DEBUG'} ? :
|
|
143
|
0 |
0 |
unless pipe my $READ, my $WRITE
|
|
148
|
0 |
0 |
if (not defined $pid) { }
|
|
|
0 |
0 |
elsif ($pid) { }
|
|
158
|
0 |
0 |
if (my $error = sysread($READ, my $errno, 255))
|
|
162
|
0 |
0 |
unless (defined $pty->sysread(my $buffer, 2048))
|
|
174
|
0 |
0 |
unless open STDIN, '<&' . $slave->fileno
|
|
175
|
0 |
0 |
unless open STDOUT, '>&' . $slave->fileno
|
|
176
|
0 |
0 |
unless open STDERR, '>&' . $slave->fileno
|
|
194
|
0 |
0 |
unless (defined $pty->syswrite("$cmd\n"))
|
|
203
|
0 |
0 |
if (defined $pty->sysread(my $tmp, 1024)) { }
|
|
205
|
0 |
0 |
if $out =~ s/>\s$//
|
|
237
|
0 |
0 |
if $self->key
|
|
243
|
0 |
0 |
unless defined $buffer
|
|
246
|
0 |
0 |
if ($self->errstr)
|
|
249
|
0 |
0 |
unless ($buffer = $self->_cmd('connect'))
|
|
252
|
0 |
0 |
unless ($buffer =~ /obj:\s+/)
|
|
277
|
0 |
0 |
if (kill 0, $self->_pid)
|
|
283
|
0 |
0 |
unless ($retries)
|
|
309
|
0 |
0 |
unless my $type = shift()
|
|
313
|
0 |
0 |
unless ($type =~ /^(?:control|failover|group|host|lease)$/i)
|