| line |
true |
false |
branch |
|
27
|
0 |
2 |
if @_ & 1 |
|
31
|
0 |
2 |
unless defined $parms{'Alias'} and $parms{'Alias'} |
|
32
|
2 |
0 |
unless defined $parms{'tcp'} and $parms{'tcp'} == 0 |
|
33
|
2 |
0 |
unless defined $parms{'udp'} and $parms{'udp'} == 0 |
|
46
|
0 |
2 |
ref $parms{'options'} eq 'HASH' ? : |
|
57
|
2 |
0 |
if ($self->{'CONFIG'}{'tcp'}) |
|
60
|
2 |
0 |
defined $self->{'CONFIG'}{'BindAddress'} ? : |
|
|
2 |
0 |
defined $self->{'CONFIG'}{'BindPort'} ? : |
|
69
|
2 |
0 |
if ($self->{'CONFIG'}{'udp'}) |
|
71
|
2 |
0 |
defined $self->{'CONFIG'}{'BindPort'} ? : |
|
73
|
0 |
2 |
unless socket my $socket, 2, 2, $proto |
|
74
|
0 |
2 |
unless bind $socket, $paddr |
|
124
|
1 |
0 |
if (defined $self->{'Clients'}{$wheel_id} and defined $self->{'Clients'}{$wheel_id}{'Wheel'}) |
|
140
|
0 |
1 |
unless defined $remote_address |
|
142
|
0 |
1 |
unless send($socket, $message, 0, $remote_address) == length $message |
|
150
|
1 |
0 |
if $self->{'CONFIG'}{'tcp'} |
|
151
|
0 |
1 |
unless $name |
|
157
|
0 |
1 |
unless $self->{'CONFIG'}{'udp'} and $self->{'udp_socket'} |