| 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'} |