| line |
true |
false |
branch |
|
132
|
0 |
2 |
unless @_ % 2 == 0 |
|
140
|
8 |
0 |
if exists $opts{$_} |
|
149
|
0 |
2 |
if (exists $opts{'DefaultAddr'} or exists $opts{'DefaultPort'}) |
|
150
|
0 |
0 |
unless exists $opts{'DefaultAddr'} |
|
152
|
0 |
0 |
unless exists $opts{'DefaultPort'} |
|
155
|
0 |
0 |
unless my $addr = inet_aton($opts{'DefaultAddr'}) |
|
158
|
0 |
0 |
unless my $spec = pack_sockaddr_in($opts{'DefaultPort'}, $addr) |
|
166
|
2 |
0 |
if (exists $opts{'Filter'}) |
|
172
|
2 |
0 |
if (exists $opts{'InputFilter'}) |
|
176
|
2 |
0 |
if (exists $opts{'OutputFilter'}) |
|
180
|
1 |
1 |
if (exists $opts{'InputEvent'}) |
|
181
|
0 |
1 |
unless exists $$self{'InputFilter'} |
|
192
|
100 |
0 |
if (defined $addr) { } |
|
195
|
100 |
0 |
if ($addr) |
|
196
|
0 |
100 |
unless my($port, $addr) = unpack_sockaddr_in($addr) |
|
210
|
100 |
100 |
unless @$records |
|
232
|
0 |
2 |
if keys %opts |
|
244
|
0 |
2 |
unless socket my $sock, 2, 2, $proto |
|
247
|
0 |
2 |
unless fcntl $sock, 4, 2050 |
|
250
|
0 |
2 |
unless setsockopt $sock, 1, 2, 1 |
|
254
|
0 |
2 |
unless my $addr = inet_aton($opts{'LocalAddr'}) |
|
256
|
0 |
2 |
unless my $sockaddr = sockaddr_in($opts{'LocalPort'}, $addr) |
|
258
|
0 |
2 |
unless bind $sock, $sockaddr |
|
262
|
2 |
0 |
if ($opts{'PeerAddr'} and $opts{'PeerPort'}) |
|
263
|
0 |
2 |
unless my $addr = inet_aton($opts{'PeerAddr'}) |
|
265
|
0 |
2 |
unless my $sockaddr = sockaddr_in($opts{'PeerPort'}, $addr) |
|
267
|
0 |
2 |
unless connect $sock, $sockaddr |
|
312
|
0 |
100 |
unless (defined $thing) |
|
317
|
0 |
100 |
if (ref $thing ne 'HASH') |
|
322
|
0 |
100 |
unless my $payload = $$thing{'payload'} |
|
324
|
0 |
100 |
unless ref $payload eq 'ARRAY' |
|
330
|
0 |
100 |
if (exists $$thing{'addr'} or exists $$thing{'port'}) { } |
|
|
0 |
100 |
elsif (exists $$self{'default_send'}) { } |
|
331
|
0 |
0 |
unless my $addr = $$thing{'addr'} |
|
332
|
0 |
0 |
unless my $port = $$thing{'port'} |
|
350
|
0 |
100 |
unless (defined $bytes) |
|
366
|
2 |
0 |
if ($$self{'read_event'}) |