line |
true |
false |
branch |
83
|
0 |
5 |
if @_ % 2 |
93
|
0 |
0 |
if $> and $^O ne 'VMS' and $^O ne 'cygwin' and not defined $params{'Socket'} |
96
|
1 |
4 |
unless defined $alias and length $alias |
99
|
3 |
2 |
unless defined $timeout and $timeout >= 0 |
110
|
5 |
0 |
unless defined $payload |
112
|
0 |
5 |
if scalar keys %params |
170
|
0 |
4 |
unless socket $socket, 2, 3, $protocol |
183
|
5 |
4 |
if ($heap->{'rcvbuf'}) |
184
|
0 |
5 |
unless (setsockopt $heap->{'socket_handle'}, 1, 8, pack('I', $heap->{'rcvbuf'})) |
194
|
3 |
6 |
if ($heap->{'parallelism'} and $heap->{'parallelism'} == -1) |
196
|
3 |
0 |
if ($rcvbuf) |
199
|
3 |
0 |
if ($max_parallel > 8) { } |
|
0 |
0 |
elsif ($max_parallel < 1) { } |
235
|
9 |
46 |
unless (scalar keys %{$$heap{'ping_by_seq'};}) |
236
|
5 |
4 |
if (defined $heap->{'socket_handle'}) { } |
245
|
7 |
48 |
unless defined $timeout and $timeout > 0 |
246
|
0 |
55 |
unless defined $tries_left |
251
|
55 |
0 |
unless exists $heap->{'ping_by_seq'}{$master_seq} |
272
|
0 |
55 |
if length($msg) % 2 |
290
|
1 |
54 |
if (ref $event eq 'ARRAY') { } |
302
|
55 |
0 |
if ($heap->{'always_decode'} or length $address != 4) |
309
|
0 |
55 |
unless (defined $usable_address) |
341
|
4 |
51 |
if ($tries_left and $tries_left > 1) |
357
|
47 |
55 |
unless scalar @{$heap->{'queue'};} |
359
|
0 |
55 |
if ($heap->{'parallelism'} and $heap->{'outstanding'} >= $heap->{'parallelism'}) |
372
|
0 |
55 |
unless exists $heap->{'pending'}{$seq} |
386
|
1 |
54 |
if ref $event eq 'ARRAY' |
389
|
0 |
55 |
unless (send $heap->{'socket_handle'}, $msg, 0, $socket_address) |
431
|
4 |
51 |
if (exists $heap->{'addr_to_seq'}{$sender}{$address}) |
452
|
0 |
0 |
unless exists $heap->{'addr_to_seq'}{$sender} |
455
|
0 |
0 |
if (defined $address) { } |
473
|
0 |
47 |
unless exists $heap->{'socket_handle'} |
475
|
42 |
5 |
if scalar keys %{$$heap{'ping_by_seq'};} |
480
|
1 |
4 |
if $heap->{'keep_socket'} |
497
|
0 |
51 |
unless $ping_info |
508
|
11 |
40 |
unless scalar keys %{$$heap{'addr_to_seq'}{$pbs_session};} |
520
|
0 |
4 |
unless exists $heap->{'addr_to_seq'}{$sender} |
524
|
0 |
4 |
unless ($seq) |
532
|
4 |
0 |
unless scalar keys %{$$heap{'addr_to_seq'}{$sender};} |
549
|
0 |
0 |
unless exists $heap->{'addr_to_seq'}{$sender} |
579
|
0 |
33 |
unless $from_saddr |
583
|
0 |
33 |
unless defined $heap->{'message_length'} |
609
|
14 |
19 |
unless $from_type == 0 |
614
|
0 |
19 |
unless $from_pid == ($$ & 65535) |
619
|
4 |
15 |
unless exists $heap->{'ping_by_seq'}{$from_seq} |
631
|
2 |
13 |
if ($heap->{'onereply'}) |
649
|
5 |
49 |
unless (exists $heap->{'ping_by_seq'}{$seq}) |
659
|
4 |
45 |
if ($retryinfo) |