| inc/Test/TCP.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 28 | 64.2 |
| line | true | false | branch |
|---|---|---|---|
| 21 | 2 | 4 | unless $port =~ /^[0-9]+$/ and $port < 19000 |
| 24 | 0 | 6 | $^O eq 'MSWin32' ? : |
| 31 | 6 | 0 | if $sock |
| 39 | 0 | 8 | unless exists $args{$k} |
| 43 | 2 | 2 | if (my $pid = 'Test::SharedFork'->fork) { } |
| 2 | 0 | elsif ($pid == 0) { } | |
| 61 | 4 | 0 | if ($^O ne 'MSWin32') |
| 62 | 0 | 4 | if (WIFSIGNALED($?)) |
| 64 | 0 | 0 | if ($signame =~ /^(ABRT|PIPE)$/) |
| 69 | 2 | 2 | if ($kid == 0 or $kid == -1) |
| 75 | 0 | 2 | if ($sig) |
| 78 | 0 | 2 | if ($err) |
| 100 | 2 | 2 | if ($remote) { } |
| 114 | 2 | 2 | if _check_port($port) |