Condition Coverage

blib/lib/Coro/Socket.pm
Criterion Covered Total %
condition 0 42 0.0


and 3 conditions

line !l l&&!r l&&r condition
103 0 0 0 $host =~ s/:([^:]+)$//u and $port = $1

or 2 conditions

line l !l condition
137 0 0 $arg{'Proto'} ||= 'tcp'
185 0 0 $arg->{'LocalHost'} || '0.0.0.0'
0 0 $arg->{'LocalPort'} || 0

or 3 conditions

line l !l&&r !l&&!r condition
81 0 0 0 $_proto{$_[0]} ||= do { croak("unsupported protocol: $_[0]") unless (getprotobyname $_[0])[2] or (getprotobynumber $_[0])[2] }
82 0 0 0 (getprotobyname $_[0])[2] or (getprotobynumber $_[0])[2]
88 0 0 0 $_port{join $;, $_[0], $_[1]} ||= do { return $_[0] if $_[0] =~ /^\d+$/u; croak("unparsable port number: $_[0]") unless $_[0] =~ /([^(]+)\s*(?:\((\d+)\))?/ux; croak("unknown port: $_[0]") unless (getservbyname $1, $_[1])[2] or (getservbyport $1, $_[1])[2] or $2 }
93 0 0 0 (getservbyname $1, $_[1])[2] or (getservbyport $1, $_[1])[2]
0 0 0 (getservbyname $1, $_[1])[2] or (getservbyport $1, $_[1])[2] or $2
138 0 0 0 $arg{'LocalHost'} ||= delete $arg{'LocalAddr'}
139 0 0 0 $arg{'PeerHost'} ||= delete $arg{'PeerAddr'}
184 0 0 0 $arg->{'LocalPort'} or $arg->{'LocalHost'}
204 0 0 0 $!{'ECONNREFUSED'} or $!{'ENETUNREACH'}
0 0 0 $!{'ECONNREFUSED'} or $!{'ENETUNREACH'} or $!{'ETIMEDOUT'}
0 0 0 $!{'ECONNREFUSED'} or $!{'ENETUNREACH'} or $!{'ETIMEDOUT'} or $!{'EHOSTUNREACH'}