| line |
true |
false |
branch |
|
69
|
1 |
0 |
unless (ref $fh) |
|
70
|
1 |
0 |
if $DEBUG |
|
73
|
1 |
0 |
unless ($fh =~ /'|::/) |
|
74
|
1 |
0 |
if $DEBUG |
|
78
|
1 |
0 |
if $DEBUG |
|
84
|
1 |
0 |
if $DEBUG |
|
86
|
1 |
0 |
if $DEBUG |
|
103
|
1 |
0 |
defined $timeout ? : |
|
|
1 |
0 |
if $DEBUG > 1 |
|
108
|
0 |
1 |
unless defined $fh |
|
115
|
1 |
0 |
unless $localaddr = getsockname $fh |
|
118
|
0 |
0 |
unless $remoteaddr = getpeername $fh |
|
120
|
1 |
0 |
if ($@ =~ /^= (.*)/) { } |
|
|
0 |
0 |
elsif ($@) { } |
|
131
|
1 |
0 |
if $DEBUG |
|
152
|
0 |
0 |
defined $timeout ? : |
|
|
0 |
0 |
if $DEBUG > 1 |
|
167
|
0 |
0 |
defined $timeout ? : |
|
176
|
0 |
0 |
unless socket $self->{'fh'}, 2, 1, $tcpproto |
|
180
|
0 |
0 |
unless bind $self->{'fh'}, $localbind |
|
183
|
0 |
0 |
if ($^O ne 'MSWin32') |
|
184
|
0 |
0 |
unless fcntl $self->{'fh'}, 4, $NONBLOCK |
|
191
|
0 |
0 |
unless connect $self->{'fh'}, $identbind or $!{'EINPROGRESS'} |
|
192
|
0 |
0 |
if $^O eq 'MSWin32' |
|
194
|
0 |
0 |
if ($@ =~ /^= (.*)/) { } |
|
|
0 |
0 |
elsif ($@) { } |
|
200
|
0 |
0 |
if $DEBUG |
|
230
|
0 |
0 |
if $DEBUG > 1 |
|
233
|
0 |
0 |
unless $self->{'fh'} |
|
237
|
0 |
0 |
unless $self->{'state'} eq 'connect' |
|
242
|
0 |
0 |
if (defined $self->{'maxtime'} and ($timeout = $self->{'maxtime'} - time) < 0) |
|
250
|
0 |
0 |
unless scalar select(undef, $wmask, $emask = $wmask, $timeout) |
|
254
|
0 |
0 |
if vec $emask, $fileno, 1 |
|
257
|
0 |
0 |
unless vec $wmask, $fileno, 1 |
|
261
|
0 |
0 |
if (not defined $err or $! = unpack('L', $err)) |
|
270
|
0 |
0 |
unless syswrite($self->{'fh'}, $query, length $query) == length $query |
|
273
|
0 |
0 |
if ($@ =~ /^= (.*)/) { } |
|
|
0 |
0 |
elsif ($@) { } |
|
279
|
0 |
0 |
if $DEBUG |
|
308
|
0 |
0 |
$blocking ? : |
|
|
0 |
0 |
if $DEBUG > 1 |
|
311
|
0 |
0 |
if ($self->{'state'} ne 'query') { } |
|
|
0 |
0 |
elsif ($self->{'state'} eq 'ready') { } |
|
312
|
0 |
0 |
unless $self->query |
|
321
|
0 |
0 |
unless $self->{'fh'} |
|
330
|
0 |
0 |
if (defined $self->{'maxtime'} and ($timeout = $self->{'maxtime'} - time) < 0) |
|
336
|
0 |
0 |
unless $blocking |
|
341
|
0 |
0 |
if (select $rmask, undef, $emask = $rmask, $timeout) |
|
344
|
0 |
0 |
if vec $emask, $fileno, 1 |
|
347
|
0 |
0 |
if (vec $rmask, $fileno, 1) |
|
351
|
0 |
0 |
unless defined sysread($self->{'fh'}, $answer, 1000) |
|
358
|
0 |
0 |
unless length $self->{'answer'} <= 1000 |
|
364
|
0 |
0 |
if ($self->{'answer'} =~ /[\n\r]/) |
|
366
|
0 |
0 |
if $DEBUG |
|
381
|
0 |
0 |
if ($@ =~ /^= (.*)/) { } |
|
|
0 |
0 |
elsif ($@) { } |
|
387
|
0 |
0 |
if $DEBUG |
|
413
|
0 |
0 |
if $DEBUG > 1 |
|
416
|
0 |
0 |
wantarray ? : |
|
|
0 |
0 |
unless $self->ready(1) |
|
423
|
0 |
0 |
if (not defined $reply or $self->{'remoteport'} != $port1 or $self->{'localport'} != $port2) |
|
427
|
0 |
0 |
if $DEBUG |
|
428
|
0 |
0 |
wantarray ? : |
|
432
|
0 |
0 |
if ($replytype eq 'ERROR') { } |
|
433
|
0 |
0 |
if $DEBUG |
|
441
|
0 |
0 |
unless (($opsys, $userid) = $reply =~ /\s*((?:[^\\:]+|\\.)*):(.*)$/) |
|
445
|
0 |
0 |
if $DEBUG |
|
446
|
0 |
0 |
wantarray ? : |
|
472
|
0 |
0 |
unless ($opsys =~ /,/ or $opsys eq 'OTHER') |
|
484
|
0 |
0 |
if ($DEBUG > 1) |
|
486
|
0 |
0 |
defined $userid ? : |
|
487
|
0 |
0 |
defined $opsys ? : |
|
488
|
0 |
0 |
defined $error ? : |
|
490
|
0 |
0 |
wantarray ? : |
|
498
|
0 |
0 |
defined $timeout ? : |
|
|
0 |
0 |
if $DEBUG > 1 |
|
510
|
0 |
0 |
defined $timeout ? : |
|
|
0 |
0 |
if $DEBUG > 1 |
|
547
|
4 |
0 |
if ($fail =~ /^_export_hook_(.*)$/ and $EXPORT_HOOKS{$1}) { } |
|
554
|
0 |
3 |
if (@other) |
|
565
|
3 |
0 |
grep(/^IO::/, @FileHandle::ISA) ? : |
|
572
|
0 |
3 |
if $DEBUG |
|
582
|
0 |
0 |
defined $timeout ? : |
|
|
0 |
0 |
if $DEBUG > 1 |
|
587
|
0 |
1 |
if $DEBUG |