| line |
true |
false |
branch |
|
23
|
1 |
29 |
$proto eq 'udp' ? : |
|
|
0 |
30 |
$^O eq 'MSWin32' ? : |
|
35
|
0 |
1 |
unless defined $host |
|
42
|
17 |
9 |
@_ && ref $_[0] eq 'HASH' ? : |
|
43
|
9 |
17 |
unless defined $host |
|
45
|
4 |
22 |
$proto ? : |
|
47
|
4 |
22 |
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 |
22 |
if $proto eq 'tcp' and check_port({'host', $host, 'port', $port}) |
|
68
|
107 |
2 |
@_ && ref $_[0] eq 'HASH' ? : |
|
69
|
2 |
107 |
unless defined $host |
|
71
|
83 |
26 |
$proto ? : |
|
75
|
0 |
0 |
$^O eq 'MSWin32' ? : |
|
|
109 |
0 |
$proto eq 'tcp' ? : |
|
91
|
16 |
91 |
if ($sock) { } |
|
107
|
5 |
82 |
if $max_wait >= 0 and $waited > $max_wait |
|
119
|
18 |
4 |
if (@_ and ref $_[0] eq 'HASH') { } |
|
|
1 |
3 |
elsif (@_ == 4) { } |
|
128
|
4 |
18 |
unless defined $host |
|
130
|
2 |
20 |
$proto ? : |
|
134
|
0 |
82 |
$^O eq 'MSWin32' && defined $port ? : |
|
|
16 |
65 |
if ($^O eq 'MSWin32' && defined $port ? `$^X -MTest::TCP::CheckPort -echeck_port $host $port $proto` : check_port({'host', $host, 'port', $port, 'proto', $proto})) |