| inc/Test/TCP.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 5 | 11 | 45.4 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 20 | 0 | 0 | 1 | $port =~ /^[0-9]+$/ and $port < 19000 |
| line | l | !l | condition |
|---|---|---|---|
| 19 | 0 | 1 | shift() || 10000 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 40 | 0 | 1 | 0 | $args{'port'} || empty_port() |
| 68 | 0 | 1 | 1 | $kid == 0 or $kid == -1 |