line |
true |
false |
branch |
99
|
0 |
3 |
unless $opts{'password'} |
101
|
0 |
3 |
unless defined $opts{'encryption'} |
103
|
0 |
3 |
unless defined $mcrypts{$opts{'encryption'}} |
106
|
0 |
3 |
unless ref $access eq 'ARRAY' |
108
|
0 |
3 |
unless $acl->isa('Net::Netmask') |
112
|
1 |
2 |
ref $options eq 'HASH' ? : |
143
|
0 |
3 |
unless $_[0]{'listener'} |
150
|
0 |
3 |
if ($self->{'alias'}) { } |
160
|
3 |
0 |
defined $self->{'address'} ? : |
|
3 |
0 |
defined $self->{'port'} ? : |
175
|
2 |
0 |
if (ref $_[10] eq 'HASH') { } |
|
0 |
0 |
elsif (ref $_[10] eq 'ARRAY') { } |
185
|
0 |
2 |
unless ($args{'event'}) |
189
|
0 |
2 |
if (defined $self->{'sessions'}{$sender_id}) { } |
203
|
0 |
0 |
if (ref $_[10] eq 'HASH') { } |
|
0 |
0 |
elsif (ref $_[10] eq 'ARRAY') { } |
214
|
0 |
0 |
if $data |
225
|
3 |
0 |
unless $self->{'alias'} |
243
|
0 |
3 |
unless grep {$_->match($peeraddr);} @{$$self{'access'};} |
253
|
0 |
3 |
unless $wheel |
276
|
0 |
5 |
unless $wheel_id and defined $self->{'clients'}{$wheel_id} |
282
|
0 |
2 |
unless $self->_conn_exists($id) |
289
|
0 |
1 |
unless $self->_conn_exists($id) |
296
|
0 |
2 |
unless $self->_conn_exists($id) |
300
|
2 |
0 |
if (length $packet == 720) |
304
|
0 |
2 |
unless $input |
306
|
0 |
0 |
unless $version == 3 or $client->{'version_already_checked'} |
353
|
2048 |
2048 |
if ($crc & 1) { } |
370
|
1 |
1 |
if ($encryption_method == 0) { } |
|
1 |
0 |
elsif ($encryption_method == 1) { } |
418
|
0 |
0 |
if ($HAVE_MCRYPT) { } |
420
|
0 |
0 |
if (defined $mcrypts{$encryption_method}) |
428
|
0 |
0 |
if (defined $td) |
437
|
0 |
0 |
if $@ |