| inc/Test/TCP.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 16 | 26 | 61.5 |
| line | true | false | branch |
|---|---|---|---|
| 20 | 0 | 1 | unless $port =~ /^[0-9]+$/ and $port < 19000 |
| 30 | 1 | 0 | if $sock |
| 38 | 0 | 2 | unless exists $args{$k} |
| 42 | 1 | 0 | if (my $pid = 'Test::SharedFork'->fork) { } |
| 0 | 0 | elsif ($pid == 0) { } | |
| 60 | 2 | 0 | if ($^O ne 'MSWin32') |
| 61 | 1 | 1 | if (WIFSIGNALED($?)) |
| 63 | 0 | 1 | if ($signame =~ /^(ABRT|PIPE)$/) |
| 68 | 1 | 1 | if ($kid == 0 or $kid == -1) |
| 74 | 0 | 1 | if ($sig) |
| 77 | 0 | 1 | if ($err) |
| 99 | 1 | 1 | if ($remote) { } |
| 113 | 1 | 1 | if _check_port($port) |