Condition Coverage

blib/lib/IO/Socket/INET6.pm
Criterion Covered Total %
condition 45 78 57.6


and 2 conditions

line l !l condition
297 2 0 'Socket6'->VERSION <= 0.17 and 1

and 3 conditions

line !l l&&!r l&&r condition
88 21 19 19 defined $proto and $proto =~ /\D/
111 18 0 0 @serv and not $proto
140 40 0 0 exists $$arg{'LocalHost'} and not exists $$arg{'LocalAddr'}
142 40 0 0 exists $$arg{'PeerHost'} and not exists $$arg{'PeerAddr'}

or 2 conditions

line l !l condition
90 19 0 $proto[2] || undef
102 0 0 $proto[0] || ''
111 0 0 (getprotobyname $serv[3])[2] || undef
116 24 35 $addr || undef
18 41 $port || undef
38 21 $proto || undef
148 16 22 !($$arg{'LocalAddr'} || $$arg{'PeerAddr'}) && 10 || 0
157 10 30 $laddr ||= ''
158 4 36 $lport ||= 0
224 1 0 $$arg{'LocalFlow'} || 0
225 0 1 _scope_ntohl($$arg{'LocalScope'}) || 0
255 2 0 $sock->bind($lres) or return _error($sock, $!, "bind: $!")
259 8 1 $sock->bind($lres) or return _error($sock, $!, "bind: $!")
264 16 4 $$arg{'Listen'} || 5
274 0 0 $$arg{'PeerFlow'} || 0
275 0 0 _scope_ntohl($$arg{'PeerScope'}) || 0
283 1 0 $@ || 'Timeout'

or 3 conditions

line l !l&&r !l&&!r condition
105 0 18 0 $serv[2] || $defport || $pnum
148 2 16 22 $family ||= !($$arg{'LocalAddr'} || $$arg{'PeerAddr'}) && 10 || 0
159 19 21 0 $proto ||= (getprotobyname 'tcp')[2]
165 0 0 0 $laddr || $lport
173 0 40 0 $$arg{'Type'} || $socket_type{(getprotobynumber $proto)[0]}
222 1 0 37 $$arg{'LocalFlow'} or $$arg{'LocalScope'}
238 0 1 40 $$arg{'Reuse'} or $$arg{'ReuseAddr'}
255 2 0 1 $a ne "\000\000\000\000" or $p != 0
259 8 1 29 $a ne in6addr_any() or $p != 0
272 0 0 14 $$arg{'PeerFlow'} or $$arg{'PeerScope'}