| line |
true |
false |
branch |
|
28
|
0 |
2 |
if @_ & 1 |
|
32
|
0 |
2 |
unless defined $parms{'Alias'} and $parms{'Alias'} |
|
33
|
2 |
0 |
unless defined $parms{'tcp'} and $parms{'tcp'} == 0 |
|
34
|
2 |
0 |
unless defined $parms{'udp'} and $parms{'udp'} == 0 |
|
40
|
0 |
2 |
ref $parms{'options'} eq 'HASH' ? : |
|
58
|
2 |
0 |
if ($$self{'CONFIG'}{'tcp'}) |
|
59
|
2 |
0 |
defined $$self{'CONFIG'}{'BindAddress'} ? : |
|
|
2 |
0 |
defined $$self{'CONFIG'}{'BindPort'} ? : |
|
70
|
2 |
0 |
if ($$self{'CONFIG'}{'udp'}) |
|
72
|
2 |
0 |
defined $$self{'CONFIG'}{'BindPort'} ? : |
|
74
|
0 |
2 |
unless socket my $socket, 2, 2, $proto |
|
75
|
0 |
2 |
unless bind $socket, $paddr |
|
125
|
1 |
0 |
if (defined $$self{'Clients'}{$wheel_id} and defined $$self{'Clients'}{$wheel_id}{'Wheel'}) |
|
141
|
0 |
1 |
unless defined $remote_address |
|
143
|
0 |
1 |
unless send($socket, $message, 0, $remote_address) == length $message |
|
151
|
1 |
0 |
if $$self{'CONFIG'}{'tcp'} |
|
152
|
0 |
1 |
unless $name |
|
158
|
0 |
1 |
unless $$self{'CONFIG'}{'udp'} and $$self{'udp_socket'} |