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