| line |
true |
false |
branch |
|
23
|
1 |
28 |
$proto eq 'udp' ? : |
|
|
0 |
29 |
$^O eq 'MSWin32' ? : |
|
35
|
0 |
1 |
unless defined $host |
|
42
|
16 |
8 |
@_ && ref $_[0] eq 'HASH' ? : |
|
43
|
8 |
16 |
unless defined $host |
|
45
|
4 |
20 |
$proto ? : |
|
47
|
4 |
20 |
if (defined $port) { } |
|
49
|
3 |
1 |
unless $port =~ /^[0-9]+$/ and $port < 49152 |
|
52
|
0 |
4 |
if $proto eq 'tcp' and check_port({'host', $host, 'port', $port}) |
|
53
|
4 |
0 |
if can_bind($host, $port, $proto) |
|
60
|
0 |
20 |
if $proto eq 'tcp' and check_port({'host', $host, 'port', $port}) |
|
68
|
90 |
2 |
@_ && ref $_[0] eq 'HASH' ? : |
|
69
|
2 |
90 |
unless defined $host |
|
71
|
68 |
24 |
$proto ? : |
|
75
|
0 |
0 |
$^O eq 'MSWin32' ? : |
|
|
92 |
0 |
$proto eq 'tcp' ? : |
|
91
|
14 |
76 |
if ($sock) { } |
|
107
|
4 |
67 |
if $max_wait >= 0 and $waited > $max_wait |
|
119
|
15 |
4 |
if (@_ and ref $_[0] eq 'HASH') { } |
|
|
1 |
3 |
elsif (@_ == 4) { } |
|
128
|
4 |
15 |
unless defined $host |
|
130
|
2 |
17 |
$proto ? : |
|
134
|
0 |
67 |
$^O eq 'MSWin32' && defined $port ? : |
|
|
14 |
52 |
if ($^O eq 'MSWin32' && defined $port ? `$^X -MTest::TCP::CheckPort -echeck_port $host $port $proto` : check_port({'host', $host, 'port', $port, 'proto', $proto})) |