Condition Coverage

blib/lib/AnyEvent/Socket.pm
Criterion Covered Total %
condition 37 101 36.6


and 2 conditions

line l !l condition
1180 1 0 $AnyEvent::PROTOCOL{'ipv4'} < $AnyEvent::PROTOCOL{'ipv6'} && 10

and 3 conditions

line !l l&&!r l&&r condition
117 0 2 16 not $n and my $ipn = &parse_ipv4($_[0])
133 0 9 4 @t and $t[-1] =~ /\./
300 13 0 5 ($host) = /^\s* ([0-9a-fA-F:]*:[0-9a-fA-F:]*:[0-9a-fA-F\.:]*)/cgx and &parse_ipv6($host)
316 2 1 6 /\G\s*$/cg and length $_[1]
327 7 7 0 $host =~ /:/ and not &parse_ipv6($host)
746 8 0 0 $family == 4 and not $AnyEvent::PROTOCOL{'ipv4'}
747 8 0 0 $family == 6 and not $AnyEvent::PROTOCOL{'ipv6'}
792 1 0 6 $af == 2 and $family != 6
797 6 0 1 $af == 10 and $family != 4
843 7 0 0 defined $service and not &parse_address($node)
1022 0 6 0 $prepare && &$prepare($state{'fh'})
1216 6 0 0 $af == 1 and defined wantarray
1231 0 6 0 $prepare && &$prepare($fh, &format_address($host), $service)
1262 0 6 6 $rstate->{'fh'} and my $peer = accept(my $fh, $rstate->{'fh'})

or 2 conditions

line l !l condition
749 0 0 $family ||= 4
750 0 0 $family ||= 6
752 0 8 $proto ||= 'tcp'
815 2 0 $HOSTS{$node} || []
830 2 0 $HOSTS{$node} || []
1234 0 6 $len ||= 128

or 3 conditions

line l !l&&r !l&&!r condition
116 18 0 13 $n < 2 or $n > 8
143 0 13 0 @h + @t == 8 or $_[0] =~ /::/
238 8 0 0 $PROTO_BYNAME{$name} || (CORE::getprotobyname $name)[2]
427 0 0 0 $ip =~ s/(?:^|:) 0:0:0:0:0:0:0 (?:$|:)/::/x or $ip =~ s/(?:^|:) 0:0:0:0:0:0 (?:$|:)/::/x
0 0 0 $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
0 0 0 $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
0 0 0 $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
734 0 0 0 $family or not $service =~ m[^/]
753 0 8 0 $type ||= $proto eq 'udp' ? 2 : 1
851 0 0 0 $srv[0][2] ne '' or $#srv
1032 6 0 0 $! == 115 or $! == 11
6 0 0 $! == 115 or $! == 11 or $! == -1e+99
0 0 0 $! == 115 or $! == 11 or $! == -1e+99 or $! == -1e+99
0 6 0 connect $state{'fh'}, $sockaddr or ($! == 115 or $! == 11 or $! == -1e+99 or $! == -1e+99)
1200 6 0 0 $af == 2 or $af == 10