Branch Coverage

inc/Test/TCP.pm
Criterion Covered Total %
branch 3 28 10.7


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