| blib/lib/IO/Socket/INET.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 37 | 65 | 56.9 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 76 | 21 | 26 | 7 | defined $addr and $addr =~ s[:([\w\(\)/]+)$][] |
| 79 | 21 | 11 | 22 | defined $proto and $proto =~ /\D/ |
| 101 | 11 | 0 | 0 | @serv and not $proto |
| 127 | 10 | 0 | 0 | $multi and not $addr_str =~ /^\d+(?:\.\d+){3}$/ |
| 142 | 35 | 0 | 0 | exists $arg->{'LocalHost'} and not exists $arg->{'LocalAddr'} |
| 156 | 34 | 0 | 1 | exists $arg->{'PeerHost'} and not exists $arg->{'PeerAddr'} |
| line | l | !l | condition |
|---|---|---|---|
| 92 | 0 | 0 | _get_proto_name($proto) || '' |
| 104 | 33 | 21 | $addr || undef |
| 11 | 43 | $port || undef | |
| 33 | 21 | $proto || undef | |
| 203 | 0 | 23 | $lport || 0 |
| 208 | 12 | 4 | $arg->{'Listen'} || 5 |
| 236 | 1 | 0 | $@ || 'Timeout' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 95 | 0 | 11 | 0 | $serv[2] || $defport || $pnum |
| 165 | 22 | 13 | 0 | $proto ||= _get_proto_number("tcp") |
| 167 | 0 | 35 | 0 | $arg->{'Type'} || $socket_type{lc _get_proto_name($proto)} |
| 187 | 0 | 0 | 37 | $arg->{'Reuse'} or $arg->{'ReuseAddr'} |
| 202 | 0 | 22 | 15 | $lport or $laddr ne "\0\0\0\0" |
| 22 | 1 | 14 | $lport or $laddr ne "\0\0\0\0" or exists $arg->{'Listen'} | |
| 218 | 13 | 0 | 0 | $rport or $type == 2 |
| 13 | 0 | 0 | $rport or $type == 2 or $type == 3 | |
| 222 | 12 | 1 | 0 | $type == 1 or defined $raddr |
| 253 | 12 | 0 | 0 | @_ == 2 or @_ == 3 |
| 260 | 0 | 23 | 0 | @_ == 2 or @_ == 3 |