line |
true |
false |
branch |
15
|
0 |
1 |
unless my $socket = 'IO::Socket::INET'->new('LocalAddr', $ip || undef, 'LocalPort', $port || undef, 'Proto', 'tcp', 'Listen', 7, 'Blocking', BLOCKING() & 2, 'Timeout', 5, 'ReuseAddr', 1) |
37
|
1 |
0 |
unless BLOCKING() & 2 |
76
|
2 |
0 |
if $$self{'R_HOST'} |
83
|
2 |
0 |
if $result |
92
|
2 |
0 |
unless BLOCKING() & 2 |
93
|
0 |
2 |
if (BLOCKING() & 1) { } |
110
|
0 |
1 |
unless ($socket) |
137
|
2 |
0 |
if exists $_[0] |
147
|
0 |
0 |
if (not defined $on or $on) { } |
148
|
0 |
0 |
if $self->accepting_modules($module) |
154
|
0 |
0 |
unless $$self{'R'}{'_understand_modules'}{$module} |
156
|
0 |
0 |
if ($module eq '_compress') { } |
|
0 |
0 |
elsif ($module eq '_encrypt') { } |
159
|
0 |
0 |
unless (SSL()) |
178
|
0 |
0 |
if not exists $$self{'O'}{'_understand_modules'}{$module} |
186
|
0 |
2 |
unless $$self{'O'}{'_understand_modules'}{$module} |
196
|
2 |
0 |
unless (exists $$self{'R'}{'_using_modules'}) |
201
|
0 |
2 |
if ($module eq '_encrypt') { } |
|
2 |
0 |
elsif ($module eq '_compress') { } |
202
|
0 |
0 |
if ($$self{'SSL_client'}) { } |
216
|
0 |
2 |
unless (exists $$self{'R'}{'_understand_modules'}) |
220
|
0 |
2 |
unless $self->accepting_modules($module) |
222
|
0 |
2 |
if ($module eq '_encrypt') { } |
|
2 |
0 |
elsif ($module eq '_compress') { } |
223
|
0 |
0 |
unless (SSL()) |
251
|
3 |
18 |
if $$self{'L'} or BLOCKING() |
253
|
17 |
1 |
if exists $$self{'ping_id'} |
266
|
0 |
0 |
if (ref $t ne 'IO::Socket::SSL') |
272
|
0 |
0 |
unless (BLOCKING()) |
282
|
0 |
2 |
unless (eval {
do {
require Net::PSYC::MMP::Compress
}
}) |
290
|
0 |
2 |
unless ($$self{'_compress'}) |
299
|
0 |
2 |
unless (eval {
do {
require Net::PSYC::MMP::Compress
}
}) |
304
|
2 |
0 |
unless ($$self{'_compress'}) |
343
|
2 |
0 |
unless (BLOCKING() & 1) |
346
|
1 |
1 |
if ($$self{'L'} or BLOCKING() & 1 and BLOCKING() & 2) |
390
|
0 |
11 |
if (not exists $$vars{'_source'} and exists $$self{'me'}) |
393
|
1 |
10 |
if (ref $data eq 'ARRAY') { } |
407
|
0 |
11 |
if $prio |
409
|
0 |
11 |
if (BLOCKING()) { } |
|
0 |
11 |
elsif ($$self{'OK'}) { } |
424
|
4 |
2 |
if $target |
433
|
1 |
5 |
if (not exists $$vars{'_source'} and exists $$self{'me'}) |
438
|
0 |
6 |
if (BLOCKING()) { } |
450
|
1 |
21 |
unless $$self{'OK'} |
456
|
6 |
15 |
if (scalar @$N) { } |
|
15 |
0 |
elsif (exists $$O[$$self{'O_COUNT'}]) { } |
465
|
5 |
16 |
if $$vars{'_amount_fragments'} |
478
|
0 |
21 |
if (not defined syswrite($$self{'SOCKET'}, $m)) { } |
481
|
0 |
0 |
if (++$$self{'error'} >= 3) |
495
|
2 |
19 |
if $cb |
501
|
17 |
4 |
if (($$vars{'_amount_fragments'} || @$data) == $count + 1) { } |
504
|
6 |
11 |
if (scalar @$N) { } |
516
|
8 |
13 |
unless exists $$O[$$self{'O_COUNT'}] |
517
|
18 |
3 |
if (@$N or @$O) |
518
|
0 |
18 |
if (BLOCKING() or $Net::PSYC::ANACHRONISM) { } |
535
|
0 |
7 |
unless $read |
540
|
0 |
7 |
unless ($self->trigger('decrypt', \$data)) |
546
|
0 |
7 |
unless defined $read |
556
|
4 |
3 |
unless ($$self{'LF'}) |
559
|
2 |
2 |
if ($$self{'I_LENGTH'} > 2) |
560
|
2 |
0 |
if ($$self{'I_BUFFER'} =~ s/^\.(\r?\n)//g) { } |
584
|
2 |
25 |
unless $$self{'LF'} |
585
|
4 |
21 |
if $$self{'I_LENGTH'} < 0 or '' eq $$self{'I_BUFFER'} |
589
|
0 |
21 |
unless defined $vars |
591
|
0 |
21 |
if ($vars < 0) |
596
|
0 |
21 |
if ($vars == 0) |
601
|
2 |
19 |
if (exists $$vars{'_using_modules'}) |
603
|
2 |
0 |
if (not ref $$vars{'_using_modules'} eq 'ARRAY') { } |
604
|
2 |
0 |
if $$vars{'_using_modules'} |
607
|
0 |
0 |
if $_ |
612
|
0 |
21 |
unless $self->trigger('receive', $vars, \$data) |
615
|
1 |
18 |
unless (exists $$self{'me'} or $$self{'L'} or not exists $$vars{'_target'}) |
618
|
1 |
0 |
if (ref $r and $$r{'host'}) { } |
622
|
0 |
1 |
unless ($ip) |
635
|
0 |
21 |
if each %{$$self{'vars'};} |
642
|
20 |
1 |
if (not exists $$vars{'_source'}) { } |
646
|
0 |
1 |
unless (ref $h) |
652
|
0 |
1 |
if (not same_host($$h{'host'}, $$self{'R_IP'})) { } |
653
|
0 |
0 |
if ($self->TRUST < 5) |
676
|
5 |
16 |
if (exists $$vars{'_fragment'}) |
681
|
1 |
4 |
unless (exists $$self{'CACHE'}{$packet_id}) |
694
|
5 |
0 |
unless $$c[$$vars{'_fragment'}] |
698
|
1 |
4 |
if ($$v{'_amount'} == $$v{'_amount_fragments'}) { } |
708
|
2 |
15 |
if $data eq '' |
717
|
0 |
0 |
if $$self{'SOCKET'} |