| line |
true |
false |
branch |
|
30
|
0 |
1 |
unless (defined $my_addr) |
|
69
|
0 |
0 |
if (exists $$this{'servs'}{$port}) |
|
81
|
0 |
0 |
if (exists $par{'callback'}) |
|
86
|
0 |
0 |
if (exists $par{'auto_arb'}) |
|
95
|
0 |
0 |
unless (defined $inet_sock) |
|
106
|
0 |
0 |
unless (defined $unix_sock) |
|
158
|
0 |
0 |
unless (exists $$this{'conns'}{"${host}_$port"}) |
|
180
|
0 |
0 |
unless (exists $$this{'servs'}{$port}) |
|
205
|
0 |
0 |
if (exists $$this{'conns'}{"${host}_$port"}) |
|
227
|
0 |
0 |
if (not defined $conn) { } |
|
230
|
0 |
0 |
unless ($conn = 'IO::Socket::INET'->new('PeerAddr', $host, 'PeerPort', $port, 'Proto', 'tcp', 'Type', 1)) |
|
235
|
0 |
0 |
if $debug |
|
242
|
0 |
0 |
if $debug |
|
264
|
0 |
0 |
unless (exists $$this{'conns'}{$c}) |
|
297
|
0 |
0 |
if (exists $par{'arb'}) |
|
303
|
0 |
0 |
if (exists $par{'tag'}) |
|
332
|
0 |
0 |
if ($$this{'servs'}{$_}{'inet_sock'} == $conn or $$this{'servs'}{$_}{'unix_sock'} == $conn) |
|
343
|
0 |
0 |
unless (defined $client) |
|
377
|
0 |
0 |
if $$serv{'auto_arb'} |
|
378
|
0 |
0 |
if $$serv{'callback'} |
|
401
|
0 |
0 |
unless ($this->connected($$qe{'host'}, $$qe{'port'})) |
|
404
|
0 |
0 |
unless ($this->connect($$qe{'host'}, $$qe{'port'})) |
|
420
|
0 |
0 |
if ($banned{$connstr}) |
|
426
|
0 |
0 |
if (scalar 'IO::Select'->new($conn)->can_write(0)) |
|
429
|
0 |
0 |
if (defined $$qe{'arb_name'}) { } |
|
439
|
0 |
0 |
unless ($ok) |
|
450
|
0 |
0 |
if (defined $$qe{'arb_name'}) |
|
455
|
0 |
0 |
if (not ref $$qe{'arb'}) { } |
|
|
0 |
0 |
elsif (ref $$qe{'arb'} eq 'ARRAY') { } |
|
474
|
0 |
0 |
if (defined $func) |
|
485
|
0 |
0 |
unless ($ok) |
|
532
|
0 |
0 |
if ($$this{'conns'}{$_}{'conn'} == $conn) |
|
547
|
0 |
0 |
unless (defined $msg) |
|
550
|
0 |
0 |
if (scalar @conns > scalar @$received) |
|
566
|
0 |
0 |
if (defined $arb_type) |
|
570
|
0 |
0 |
if (exists $$cn{'auto_arb'} and $$cn{'auto_arb'}) |
|
577
|
0 |
0 |
unless (defined $ext) |
|
580
|
0 |
0 |
if (scalar @conns > scalar @$received) |
|
594
|
0 |
0 |
if ($$cn{'callback'}) { } |
|
600
|
0 |
0 |
if $debug |
|
601
|
0 |
0 |
if (ref $cb eq 'CODE') { } |
|
610
|
0 |
0 |
if $debug |
|
637
|
0 |
0 |
unless ($c->connected) |
|
648
|
0 |
0 |
unless ($ok) |
|
656
|
0 |
0 |
if ($pending) { } |
|
664
|
0 |
0 |
unless ($ok) |
|
672
|
0 |
0 |
if ($pending) { } |
|
694
|
0 |
0 |
unless ($saa->queue($host, $port, $msg)) |
|
704
|
0 |
0 |
unless ($ok) |
|
709
|
0 |
0 |
if (scalar @$received > 0) |
|
716
|
0 |
0 |
unless ($done) |
|
735
|
0 |
0 |
unless ($saa->queue($host, $port, $msg)) |
|
744
|
0 |
0 |
unless ($ok) |
|
749
|
0 |
0 |
if (scalar @$sent > 0) |
|
755
|
0 |
0 |
unless ($done) |