| line |
true |
false |
branch |
|
151
|
0 |
0 |
if (substr($host, 0, 1) eq '/') { } |
|
152
|
0 |
0 |
unless my($child, $parent) = 'IO::Socket'->socketpair(1, 1, 0) |
|
158
|
0 |
0 |
if ($pid = fork) { } |
|
162
|
0 |
0 |
unless defined $pid |
|
164
|
0 |
0 |
unless open STDIN, '<&' . $parent->fileno |
|
166
|
0 |
0 |
unless open STDOUT, '>&' . $parent->fileno |
|
169
|
0 |
0 |
unless exec $host |
|
172
|
0 |
0 |
unless $$self{'Connection'} = 'IO::Socket::INET'->new('PeerAddr', $host, 'PeerPort', $peerport, 'Proto', 'tcp', %options) |
|
237
|
0 |
0 |
unless ($#_ % 2) |
|
241
|
0 |
0 |
unless (defined $$self{'Connection'}) |
|
254
|
0 |
0 |
if ($type == 0) { } |
|
|
0 |
0 |
elsif ($type == 2) { } |
|
|
0 |
0 |
elsif ($type == 5) { } |
|
|
0 |
0 |
elsif ($type == 1 or $type == 3) { } |
|
|
0 |
0 |
elsif ($type == 4) { } |
|
262
|
0 |
0 |
$type == 1 ? : |
|
266
|
0 |
0 |
if (ref $astring eq 'ARRAY') { } |
|
267
|
0 |
0 |
if ($$self{'Options'}{'NonSyncLits'}) { } |
|
279
|
0 |
0 |
if $tag eq '+' |
|
280
|
0 |
0 |
if defined $self->_process_response($str) |
|
282
|
0 |
0 |
if $tag eq '+' |
|
299
|
0 |
0 |
if $tag eq '+' |
|
300
|
0 |
0 |
if defined($resp = $self->_process_response($str)) |
|
302
|
0 |
0 |
if ($tag eq '+') |
|
305
|
0 |
0 |
unless defined $saslresp |
|
315
|
0 |
0 |
if scalar @list |
|
317
|
0 |
0 |
if ($$self{'Options'}{'Synchronous'}) |
|
318
|
0 |
0 |
if defined $resp |
|
337
|
0 |
0 |
unless defined $str |
|
346
|
0 |
0 |
if ($c eq ' ') { } |
|
|
0 |
0 |
elsif ($c eq '(') { } |
|
|
0 |
0 |
elsif ($c eq ')') { } |
|
|
0 |
0 |
elsif (substr($str, $pos) =~ /^(\"(?:[^\\\"]|\\\")*\")/) { } |
|
|
0 |
0 |
elsif (substr($str, $pos) =~ /^\{(\d+)\}/) { } |
|
|
0 |
0 |
elsif (substr($str, $pos) =~ /^([^\x00-\x1f\x7f\(\)\{\s\"]+)/) { } |
|
382
|
0 |
0 |
if ($len > 1024 or $str =~ /[\x00\x0a\x0d\x80-\xff]/) { } |
|
|
0 |
0 |
elsif ($str =~ /[\"\\\x01-\x20\x22\x25\x28-\x2a\{]/) { } |
|
|
0 |
0 |
elsif ($str eq '') { } |
|
401
|
0 |
0 |
if ($len > 1024 or $str =~ /[\x00\x0a\x0d\"\\\x80-\xff]/) { } |
|
|
0 |
0 |
elsif ($str eq '') { } |
|
416
|
0 |
0 |
unless $$self{'Connection'}->syswrite($str, $len) == $len |
|
417
|
0 |
0 |
if $self->debug |
|
423
|
0 |
0 |
unless $$self{'Connection'}->syswrite("\r\n", 2) == 2 |
|
424
|
0 |
0 |
if $self->debug |
|
454
|
0 |
0 |
unless defined $response |
|
455
|
0 |
0 |
if $self->debug |
|
461
|
0 |
0 |
if (defined $$self{'Pending'}{$tag}) |
|
479
|
0 |
0 |
unless my $str = $$self{'Connection'}->getline |
|
482
|
0 |
0 |
unless $str =~ /\{(\d+)\}$/ |
|
485
|
0 |
0 |
unless $$self{'Connection'}->read($literal, $amt) == $amt |
|
488
|
0 |
0 |
if $self->debug |
|
537
|
0 |
0 |
unless defined $str |
|
545
|
0 |
0 |
if lc $str eq 'nil' |
|
546
|
0 |
0 |
unless $str =~ /^\"(.*)\"$/ |
|
563
|
0 |
0 |
if defined $_[1] |
|
579
|
0 |
0 |
$_[1] ? : |