| line |
true |
false |
branch |
|
73
|
2 |
21 |
unless $_[0] =~ /^ (?: 0x[0-9a-fA-F]+ | 0[0-7]* | [1-9][0-9]* )
(?:\. (?: 0x[0-9a-fA-F]+ | 0[0-7]* | [1-9][0-9]* ) ){0,3}$/x
|
|
77
|
31 |
50 |
/^0/ ? :
|
|
80
|
0 |
21 |
if grep(($_ >= 256), @_[0 .. @_ - 2])
|
|
83
|
0 |
21 |
if $_[-1] >= 2 ** (8 * (4 - $#_))
|
|
116
|
18 |
13 |
if ($n < 2 or $n > 8)
|
|
117
|
16 |
2 |
if (not $n and my $ipn = &parse_ipv4($_[0]))
|
|
125
|
0 |
13 |
unless (defined $t)
|
|
133
|
4 |
9 |
if (@t and $t[-1] =~ /\./)
|
|
134
|
0 |
4 |
if $n > 6
|
|
136
|
0 |
4 |
unless my $ipn = &parse_ipv4(pop @t)
|
|
143
|
0 |
13 |
unless @h + @t == 8 or $_[0] =~ /::/
|
|
146
|
0 |
13 |
if grep((!/^[0-9a-fA-F]{1,4}$/), @h, @t)
|
|
167
|
0 |
2 |
$_[0] eq 'unix/' ? :
|
|
203
|
17 |
2 |
if ($_) { }
|
|
238
|
0 |
8 |
unless defined(my $proton = $PROTO_BYNAME{$name} || (CORE::getprotobyname $name)[2])
|
|
296
|
0 |
18 |
if m[^/]
|
|
300
|
13 |
5 |
unless (($host) = /^\s* ([0-9a-fA-F:]*:[0-9a-fA-F:]*:[0-9a-fA-F\.:]*)/cgx and &parse_ipv6($host))
|
|
306
|
6 |
7 |
if (/^ \[ ([^\[\]]+) \]/cgx) { }
|
|
|
6 |
1 |
elsif (/^ ([^\[\]:\ ]+) /cgx) { }
|
|
316
|
8 |
9 |
if (/\G (?:\s+|:|\#) ([^:[:space:]]+) \s*$/cgx) { }
|
|
|
6 |
3 |
elsif (/\G\s*$/cg and length $_[1]) { }
|
|
327
|
0 |
14 |
if $host =~ /:/ and not &parse_ipv6($host)
|
|
342
|
0 |
0 |
if length $port
|
|
343
|
0 |
0 |
if $host =~ /:/
|
|
356
|
2 |
0 |
16 == length $_[0] ? :
|
|
|
31 |
2 |
4 == length $_[0] ? :
|
|
407
|
0 |
0 |
if ($_[0] =~ /^\x00\x00\x00\x00\x00\x00\x00\x00/)
|
|
408
|
0 |
0 |
if (v0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0 eq $_[0]) { }
|
|
|
0 |
0 |
elsif (v0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.1 eq $_[0]) { }
|
|
|
0 |
0 |
elsif (v0.0.0.0.0.0.0.0.0.0.0.0 eq substr($_[0], 0, 12)) { }
|
|
|
0 |
0 |
elsif (v0.0.0.0.0.0.0.0.0.0.255.255 eq substr($_[0], 0, 12)) { }
|
|
|
0 |
0 |
elsif (v0.0.0.0.0.0.0.0.255.255.0.0 eq substr($_[0], 0, 12)) { }
|
|
427
|
0 |
0 |
unless $ip =~ s/(?:^|:) 0:0:0:0:0:0:0 (?:$|:)/::/x or $ip =~ s/(?:^|:) 0:0:0:0:0:0 (?:$|:)/::/x or $ip =~ s/(?:^|:) 0:0:0:0:0 (?:$|:)/::/x or $ip =~ s/(?:^|:) 0:0:0:0 (?:$|:)/::/x or $ip =~ s/(?:^|:) 0:0:0 (?:$|:)/::/x
|
|
438
|
20 |
0 |
if (4 == length $_[0]) { }
|
|
|
0 |
0 |
elsif (16 == length $_[0]) { }
|
|
|
0 |
0 |
elsif (1 == &address_family($_[0])) { }
|
|
441
|
0 |
0 |
$_[0] =~ /^\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xff\xff(....)$/s ? :
|
|
483
|
0 |
0 |
if (my $ipn = &parse_ipv4) { }
|
|
|
0 |
0 |
elsif (my $ipn = &parse_ipv6) { }
|
|
|
0 |
0 |
elsif ($name eq 'localhost') { }
|
|
490
|
0 |
0 |
unless $AnyEvent::DNS::VERSION
|
|
503
|
0 |
0 |
if ($ipv4)
|
|
511
|
0 |
0 |
if ($ipv6)
|
|
530
|
0 |
0 |
Socket::pack_sockaddr_in(21845, 'UUUU' | eval {
do {
Socket::pack_sockaddr_un('U')
}
}) =~ /^\x00/ ? :
|
|
|
8 |
0 |
$Socket::VERSION >= 1.75 ? :
|
|
558
|
19 |
1 |
if ($af == 2) { }
|
|
|
1 |
0 |
elsif ($af == 10) { }
|
|
|
0 |
0 |
elsif ($af == 1) { }
|
|
603
|
25 |
0 |
if ($af == 2) { }
|
|
|
0 |
0 |
elsif ($af == 10) { }
|
|
|
0 |
0 |
elsif ($af == 1) { }
|
|
678
|
0 |
1 |
unless @aliases
|
|
680
|
1 |
0 |
if (my $ip = &parse_ipv4($addr)) { }
|
|
|
0 |
0 |
elsif (my $ip = &parse_ipv6($addr)) { }
|
|
696
|
0 |
4 |
if (@dns) { }
|
|
700
|
4 |
0 |
length $ENV{'PERL_ANYEVENT_HOSTS'} ? :
|
|
708
|
4 |
0 |
unless ($#HOSTS_CHECKING)
|
|
713
|
1 |
3 |
if ((stat _)[9] ne $HOSTS_MTIME) { }
|
|
733
|
0 |
8 |
if ($node eq 'unix/')
|
|
734
|
0 |
0 |
if $family or not $service =~ m[^/]
|
|
736
|
0 |
0 |
defined $type ? :
|
|
746
|
0 |
8 |
if $family == 4 and not $AnyEvent::PROTOCOL{'ipv4'}
|
|
747
|
0 |
8 |
if $family == 6 and not $AnyEvent::PROTOCOL{'ipv6'}
|
|
749
|
0 |
8 |
unless $AnyEvent::PROTOCOL{'ipv6'}
|
|
750
|
0 |
8 |
unless $AnyEvent::PROTOCOL{'ipv4'}
|
|
753
|
0 |
8 |
$proto eq 'udp' ? :
|
|
755
|
0 |
8 |
unless my $proton = &AnyEvent::Socket::getprotobyname($proto)
|
|
760
|
0 |
8 |
if ($service =~ /^(\S+)=(\d+)$/) { }
|
|
|
8 |
0 |
elsif ($service =~ /^\d+$/) { }
|
|
765
|
0 |
0 |
unless $port = (getservbyname $service, $proto)[2]
|
|
778
|
0 |
1 |
unless $AnyEvent::PROTOCOL{$AnyEvent::Socket::b->[1]} <=> $AnyEvent::PROTOCOL{$AnyEvent::Socket::a->[1]}
|
|
789
|
7 |
2 |
if (my $noden = &parse_address($node)) { }
|
|
792
|
6 |
1 |
if ($af == 2 and $family != 6)
|
|
797
|
1 |
6 |
if ($af == 10 and $family != 4)
|
|
805
|
2 |
0 |
if ($family != 6)
|
|
821
|
2 |
0 |
if ($family != 4)
|
|
839
|
0 |
8 |
if $node =~ /[^\x00-\x7f]/
|
|
843
|
1 |
7 |
if ($node eq 'localhost') { }
|
|
|
0 |
7 |
elsif (defined $service and not &parse_address($node)) { }
|
|
849
|
0 |
0 |
if (@srv) { }
|
|
851
|
0 |
0 |
unless $srv[0][2] ne '' or $#srv
|
|
1003
|
0 |
6 |
unless exists $state{'fh'}
|
|
1008
|
0 |
0 |
unless exists $state{'fh'}
|
|
1012
|
0 |
6 |
unless my $target = shift @target
|
|
1018
|
0 |
6 |
unless socket $state{'fh'}, $domain, $type, $proto
|
|
1029
|
0 |
6 |
if $timeout
|
|
1032
|
6 |
0 |
if (connect $state{'fh'}, $sockaddr or ($! == 115 or $! == 11 or $! == -1e+99 or $! == -1e+99)) { }
|
|
1042
|
6 |
0 |
if (my $sin = getpeername $state{'fh'}) { }
|
|
1054
|
0 |
0 |
if ($! == 107)
|
|
1067
|
0 |
0 |
if $! == 11
|
|
1084
|
6 |
0 |
if defined wantarray
|
|
1180
|
0 |
1 |
$AnyEvent::PROTOCOL{'ipv4'} < $AnyEvent::PROTOCOL{'ipv6'} && 10 ? :
|
|
|
1 |
5 |
unless defined $host
|
|
1184
|
0 |
6 |
unless my $ipn = &parse_address($host)
|
|
1195
|
0 |
6 |
unless socket my $fh, $af, 1, 0
|
|
1200
|
6 |
0 |
if ($af == 2 or $af == 10) { }
|
|
|
0 |
0 |
elsif ($af == 1) { }
|
|
1201
|
0 |
6 |
unless setsockopt $fh, 1, 2, 1
|
|
1205
|
0 |
6 |
unless ($service =~ /^\d*$/)
|
|
1206
|
0 |
0 |
unless $service = (getservbyname $service, 'tcp')[2]
|
|
1213
|
0 |
6 |
unless bind $fh, &pack_sockaddr($service, $ipn)
|
|
1216
|
0 |
6 |
if ($af == 1 and defined wantarray)
|
|
1220
|
0 |
0 |
if (lstat $service)[1] == $ino
|
|
1229
|
6 |
0 |
if ($prepare)
|
|
1236
|
0 |
6 |
unless listen $fh, $len
|
|
1244
|
1 |
5 |
defined wantarray ? :
|
|
1296
|
0 |
0 |
defined 13 ? :
|