| line |
true |
false |
branch |
|
64
|
0 |
1 |
unless (ref $fh) |
|
65
|
0 |
0 |
if $DEBUG |
|
68
|
0 |
0 |
unless ($fh =~ /'|::/) |
|
69
|
0 |
0 |
if $DEBUG |
|
73
|
0 |
0 |
if $DEBUG |
|
79
|
0 |
0 |
if $DEBUG |
|
81
|
0 |
0 |
if $DEBUG |
|
98
|
1 |
0 |
defined $timeout ? : |
|
|
1 |
0 |
if $DEBUG > 1 |
|
103
|
0 |
1 |
unless defined $fh |
|
110
|
1 |
0 |
unless $localaddr = getsockname $fh |
|
113
|
0 |
0 |
unless $remoteaddr = getpeername $fh |
|
115
|
1 |
0 |
if ($@ =~ /^= (.*)/) { } |
|
|
0 |
0 |
elsif ($@) { } |
|
126
|
1 |
0 |
if $DEBUG |
|
147
|
0 |
0 |
defined $timeout ? : |
|
|
0 |
1 |
if $DEBUG > 1 |
|
162
|
0 |
1 |
defined $timeout ? : |
|
171
|
0 |
1 |
unless socket $self->{'fh'}, 2, 1, $tcpproto |
|
175
|
1 |
0 |
unless bind $self->{'fh'}, $localbind |
|
178
|
0 |
0 |
if ($^O ne "MSWin32") |
|
179
|
0 |
0 |
unless $self->{'fh'}->blocking(0) |
|
186
|
0 |
0 |
unless connect $self->{'fh'}, $identbind or $!{'EINPROGRESS'} |
|
187
|
0 |
0 |
if $^O eq "MSWin32" |
|
189
|
1 |
0 |
if ($@ =~ /^= (.*)/) { } |
|
|
0 |
0 |
elsif ($@) { } |
|
195
|
0 |
1 |
if $DEBUG |
|
213
|
1 |
0 |
$self->{'error'} ? : |
|
225
|
0 |
37 |
if $DEBUG > 1 |
|
228
|
8 |
29 |
unless $self->{'fh'} |
|
232
|
5 |
24 |
unless $self->{'state'} eq "connect" |
|
237
|
0 |
24 |
if (defined $self->{'maxtime'} and ($timeout = $self->{'maxtime'} - time) < 0) |
|
245
|
0 |
24 |
unless scalar select(undef, $wmask, $emask = $wmask, $timeout) |
|
249
|
0 |
24 |
if vec $emask, $fileno, 1 |
|
252
|
0 |
24 |
unless vec $wmask, $fileno, 1 |
|
256
|
0 |
24 |
if (not defined $err or $! = unpack("L", $err)) |
|
265
|
0 |
24 |
unless syswrite($self->{'fh'}, $query, length $query) == length $query |
|
268
|
5 |
24 |
if ($@ =~ /^= (.*)/) { } |
|
|
0 |
24 |
elsif ($@) { } |
|
274
|
0 |
5 |
if $DEBUG |
|
303
|
0 |
0 |
$blocking ? : |
|
|
0 |
38 |
if $DEBUG > 1 |
|
306
|
7 |
31 |
if ($self->{'state'} eq "ready") |
|
311
|
3 |
28 |
if ($self->{'state'} ne "query") |
|
312
|
1 |
2 |
unless $self->query |
|
316
|
0 |
30 |
unless $self->{'fh'} |
|
325
|
0 |
33 |
if (defined $self->{'maxtime'} and ($timeout = $self->{'maxtime'} - time) < 0) |
|
331
|
17 |
16 |
unless $blocking |
|
336
|
30 |
3 |
if (select $rmask, undef, $emask = $rmask, $timeout) |
|
339
|
0 |
30 |
if vec $emask, $fileno, 1 |
|
342
|
30 |
0 |
if (vec $rmask, $fileno, 1) |
|
347
|
0 |
30 |
unless defined $nread |
|
349
|
4 |
26 |
unless $nread |
|
356
|
1 |
25 |
unless length $self->{'answer'} <= 1000 |
|
362
|
19 |
6 |
if ($self->{'answer'} =~ /[\n\r]/) |
|
364
|
0 |
19 |
if $DEBUG |
|
379
|
5 |
25 |
if ($@ =~ /^= (.*)/) { } |
|
|
0 |
25 |
elsif ($@) { } |
|
385
|
0 |
5 |
if $DEBUG |
|
411
|
0 |
26 |
if $DEBUG > 1 |
|
414
|
1 |
0 |
wantarray ? : |
|
|
1 |
25 |
unless $self->ready(1) |
|
421
|
2 |
21 |
if (not defined $reply or $self->{'remoteport'} != $port1 or $self->{'localport'} != $port2) |
|
425
|
0 |
4 |
if $DEBUG |
|
426
|
4 |
0 |
wantarray ? : |
|
430
|
8 |
13 |
if ($replytype eq 'ERROR') { } |
|
431
|
0 |
8 |
if $DEBUG |
|
439
|
0 |
13 |
unless (($opsys, $userid) = $reply =~ /\s*((?:[^\\:]+|\\.)*):(.*)$/) |
|
443
|
0 |
0 |
if $DEBUG |
|
444
|
0 |
0 |
wantarray ? : |
|
470
|
11 |
2 |
unless ($opsys =~ /,/ or $opsys eq "OTHER") |
|
482
|
0 |
21 |
if ($DEBUG > 1) |
|
484
|
0 |
0 |
defined $userid ? : |
|
485
|
0 |
0 |
defined $opsys ? : |
|
486
|
0 |
0 |
defined $error ? : |
|
488
|
18 |
3 |
wantarray ? : |
|
496
|
0 |
0 |
defined $timeout ? : |
|
|
0 |
0 |
if $DEBUG > 1 |
|
508
|
0 |
0 |
defined $timeout ? : |
|
|
0 |
0 |
if $DEBUG > 1 |
|
545
|
4 |
0 |
if ($fail =~ /^_export_hook_(.*)$/ and $EXPORT_HOOKS{$1}) { } |
|
552
|
0 |
3 |
if (@other) |
|
563
|
3 |
0 |
grep(/^IO::/, @FileHandle::ISA) ? : |
|
570
|
0 |
3 |
if $DEBUG |
|
580
|
0 |
0 |
defined $timeout ? : |
|
|
0 |
0 |
if $DEBUG > 1 |
|
585
|
0 |
1 |
if $DEBUG |