| line |
true |
false |
branch |
|
18
|
0 |
1 |
scalar @_ ? : |
|
19
|
0 |
1 |
if ($$self{'debug'}) |
|
36
|
0 |
1 |
if $$self{'debug'} |
|
40
|
0 |
3 |
if $$self{'debug'} |
|
42
|
0 |
1 |
if $$self{'debug'} |
|
60
|
1 |
3 |
exists $$$var{'address'} ? : |
|
62
|
0 |
4 |
unless my $send = 'IO::Socket::INET'->new('Proto', 'tcp', 'PeerAddr', $address, 'PeerPort', $$$var{'port'}) |
|
71
|
0 |
4 |
if ($$$var{'debug'}) |
|
93
|
1 |
3 |
exists $$$var{'address'} ? : |
|
94
|
0 |
4 |
unless my $message = 'IO::Socket::INET'->new('Proto', 'tcp', 'PeerPort', $$$var{'port'}, 'PeerAddr', $address) |
|
106
|
0 |
4 |
if ($$$var{'debug'}) |
|
119
|
0 |
4 |
unless $message = 'IO::Socket::INET'->new('Listen', 128, 'LocalPort', $port, 'Reuse', 1, 'LocalAddr', '127.0.0.1') |
|
126
|
0 |
4 |
if ($$$var{'debug'}) |
|
133
|
0 |
4 |
if ($$$var{'debug'}) |
|
143
|
4 |
0 |
if $connection->connected |
|
147
|
0 |
0 |
if $message->connected |
|
165
|
0 |
2 |
if $$self{'debug'} |
|
169
|
0 |
3 |
if $$self{'debug'} |
|
172
|
0 |
3 |
if $$self{'debug'} |
|
174
|
0 |
2 |
if $$self{'debug'} |