line |
true |
false |
branch |
72
|
61 |
0 |
$_[0] =~ /^_/ ? : |
73
|
61 |
0 |
$_[0] =~ /^_/ ? : |
103
|
0 |
0 |
unless ($BASE =~ m[/$]) |
121
|
0 |
1 |
unless defined $level |
122
|
1 |
0 |
if DEBUG >= $level |
127
|
416 |
1 |
if DEBUG < $level |
146
|
3 |
78 |
if exists $_[0] |
151
|
0 |
10 |
if exists $_[0] |
156
|
0 |
0 |
if eval {
do {
require IO::Socket::SSL;
my $t = $IO::Socket::SSL::VERSION;
$1 + 0.1 ** (length($t) - 2) * $2 >= 0.93 if $t =~ /(\d)\.(\d+)/
}
} |
159
|
0 |
0 |
if $t =~ /(\d)\.(\d+)/ |
175
|
4 |
12 |
if ($list =~ s/Event=(\S+) | :event | :nonblock / /) { } |
|
0 |
12 |
elsif ($list =~ s/ :anachronism / /) { } |
179
|
1 |
3 |
$match ? : |
191
|
0 |
0 |
unless (Net::PSYC::Event::init('IO::Select')) |
208
|
0 |
15 |
if ($list =~ s/ :tls | :ssl | :encrypt / /) |
209
|
0 |
0 |
if (SSL) { } |
216
|
1 |
14 |
if ($list =~ s/ :zlib | :compress / /) |
217
|
1 |
0 |
if (eval {
do {
require Net::PSYC::MMP::Compress
}
}) { } |
224
|
0 |
15 |
if ($list =~ s/ :fork / /) |
230
|
0 |
15 |
unless $list =~ /\w/ |
232
|
0 |
15 |
if ($list =~ / :all /) { } |
|
2 |
13 |
elsif ($list =~ / :base /) { } |
240
|
15 |
0 |
if (scalar @subs) |
253
|
0 |
179 |
if ($_ =~ /^([$%\@*&])/) { } |
|
0 |
179 |
elsif ($_ =~ /^\>(\w+)/) { } |
258
|
0 |
0 |
$1 eq '%' ? : |
|
0 |
0 |
$1 eq '@' ? : |
|
0 |
0 |
$1 eq '$' ? : |
|
0 |
0 |
$1 eq '&' ? : |
282
|
9 |
2 |
if (exists $hosts{$ip}) { } |
291
|
15 |
4 |
if ($hosts{$host} eq $_) |
302
|
1 |
0 |
if ($name =~ /\d+\.\d+\.\d+\.\d+/) |
303
|
1 |
0 |
if $callback |
307
|
0 |
0 |
if ($addr) { } |
311
|
0 |
0 |
if $callback |
314
|
0 |
0 |
if $callback |
322
|
19 |
0 |
if ($one and $two and exists $hosts{$one} || dns_lookup($one) and exists $hosts{$two} || dns_lookup($two)) |
323
|
2 |
17 |
if ($callback) |
328
|
0 |
0 |
if $callback |
337
|
0 |
0 |
unless (/_state|_encrypt|_compress|_fragments|_length|_context/) |
354
|
2 |
0 |
if $host |
356
|
1 |
1 |
if (not $prots or $prots =~ /d/io) |
359
|
1 |
0 |
if (ref $sock) { } |
367
|
1 |
1 |
if (not $prots or $prots =~ /c/io) |
370
|
1 |
0 |
if (ref $sock) { } |
381
|
0 |
2 |
if ($prots and $prots =~ /s/io) |
385
|
0 |
2 |
unless $return |
388
|
2 |
0 |
$host =~ /\./ ? : |
389
|
0 |
2 |
unless $unlhost |
394
|
2 |
0 |
if defined wantarray |
401
|
0 |
0 |
if $$obj{'SOCKET'} |
403
|
0 |
0 |
if $C{$_} eq $obj |
406
|
0 |
0 |
if $R{$_} eq $obj |
416
|
0 |
17 |
unless (defined $user) |
423
|
17 |
0 |
if (not $prots or $prots =~ /c/i) { } |
|
0 |
0 |
elsif ($prots =~ /d/i) { } |
|
0 |
0 |
elsif ($prots =~ /s/i) { } |
443
|
17 |
0 |
if (@addresses > 4) |
446
|
16 |
1 |
if (exists $C{$host . ':' . $port}) |
449
|
0 |
1 |
if ($R{$target} or $R{$host . ':' . $port} or $R{$host}) |
457
|
0 |
0 |
unless ($UDP) |
468
|
0 |
10 |
if not STATE() and BLOCKING() & 2 |
470
|
0 |
10 |
if (ref $_[0]) { } |
474
|
0 |
0 |
if $MMPvars and not ref $MMPvars |
478
|
0 |
10 |
if $MMPvars and not ref $MMPvars |
479
|
0 |
10 |
if (exists $$MMPvars{'_source'}) |
482
|
10 |
0 |
unless ($state) |
491
|
0 |
10 |
unless $target |
493
|
0 |
10 |
if (not $MMPvars) { } |
|
0 |
10 |
elsif (not ref $MMPvars) { } |
505
|
0 |
10 |
unless ref $connection |
516
|
0 |
1 |
unless $target |
521
|
0 |
1 |
if ($vars) { } |
528
|
0 |
1 |
unless $connection |
537
|
0 |
0 |
unless -e $fn |
540
|
0 |
0 |
unless %Net::PSYC::Tie::File:: |
544
|
0 |
0 |
unless my $o = tie(@file, 'Net::PSYC::Tie::File', $fn, 6024, int $offset, int $length) |
550
|
0 |
0 |
if $offset |
553
|
0 |
0 |
if ($length) { } |
566
|
0 |
0 |
if ($mod ne '_') { } |
572
|
0 |
0 |
unless ISMMPVAR($key) |
588
|
0 |
0 |
exists $_[0]{$1} ? : |
589
|
0 |
0 |
exists $_[0]{$1} ? : |
590
|
0 |
0 |
!exists($_[0]{$1}) ? : |
591
|
0 |
0 |
!exists($_[0]{$1}) ? : |
592
|
2 |
0 |
exists $_[0]{$1} ? : |
|
0 |
2 |
ref $ref eq 'ARRAY' ? : |
601
|
0 |
27 |
if (ref $lf) { } |
614
|
27 |
0 |
if (ref $d eq 'SCALAR') { } |
634
|
50 |
27 |
if ($line =~ /^([+-:=-?])(_\w+)[\t\ ](.*)$/ or $line =~ /^([+-:=-?])(_\w+)$/) { } |
|
24 |
3 |
elsif ($line eq '') { } |
|
3 |
0 |
elsif ($line eq '.') { } |
|
0 |
0 |
elsif ($line =~ /^([+-:=-?])[\t\ ](.*)$/) { } |
|
0 |
0 |
elsif ($line =~ /^\t(.*)$/) { } |
638
|
0 |
50 |
if $var eq '_length' |
641
|
0 |
24 |
if ($length) { } |
|
2 |
22 |
elsif (".$lf" eq substr($$d, $b + $l, 1 + $l)) { } |
642
|
0 |
0 |
if (length $$d < $b + $length + 2 * $l) |
647
|
0 |
0 |
unless ("$lf.$lf" eq substr($$d, $b + $l + $length, 2 * $l + 1)) |
659
|
0 |
22 |
if $length == -1 |
662
|
22 |
2 |
unless (defined $data) |
671
|
0 |
0 |
if (not $lmod) { } |
|
0 |
0 |
elsif ($1 ne $lmod) { } |
|
0 |
0 |
elsif ($1 eq '-') { } |
|
0 |
0 |
elsif (not $lval) { } |
680
|
0 |
0 |
if (ref $lval eq 'ARRAY') { } |
688
|
0 |
0 |
unless ($lval) |
698
|
50 |
27 |
if ($lvar) |
699
|
47 |
3 |
if ($lmod eq ':') { } |
|
0 |
3 |
elsif (ref $o) { } |
706
|
0 |
0 |
if ($lmod eq '=') { } |
|
0 |
0 |
elsif ($lmod eq '+') { } |
|
0 |
0 |
elsif ($lmod eq '-') { } |
717
|
2 |
48 |
if $lmod eq '=' |
725
|
0 |
27 |
unless defined $data |
732
|
0 |
16 |
if ref $d eq 'SCALAR' |
760
|
3 |
16 |
if ($line =~ /^([+-:=-?])(_\w+)[\t\ ](.*)$/ or $line =~ /^([+-:=-?])(_\w+)$/) { } |
|
0 |
16 |
elsif ($line =~ /^([+-:=-?])[\t\ ](.*)$/) { } |
|
0 |
16 |
elsif ($line =~ /^\t(.*)$/) { } |
|
16 |
0 |
elsif ($line =~ /^(_\w+)$/) { } |
763
|
0 |
3 |
if $var =~ /^_list/ |
765
|
0 |
0 |
if (not $lmod) { } |
|
0 |
0 |
elsif ($1 ne $lmod) { } |
|
0 |
0 |
elsif ($1 eq '-') { } |
|
0 |
0 |
elsif (not $lval) { } |
774
|
0 |
0 |
if (ref $lval eq 'ARRAY') { } |
782
|
0 |
0 |
unless ($lvar) |
796
|
3 |
16 |
if ($lvar) |
797
|
0 |
3 |
if ($lvar =~ /^_list/ and ref $lval ne 'ARRAY') |
800
|
3 |
0 |
if ($lmod eq ':') { } |
816
|
0 |
3 |
if $lmod eq '=' |
824
|
0 |
16 |
unless $mc |
835
|
0 |
48 |
if (not defined $val) { } |
|
4 |
44 |
elsif (ref $val eq 'ARRAY') { } |
852
|
22 |
0 |
if (not exists $$vars{'_length'}) { } |
|
0 |
0 |
elsif (not defined $$vars{'_length'}) { } |
853
|
0 |
22 |
if $data =~ /^.\n/ or index($data, "\n.\n") != -1 or index($data, "\r\n.\r\n") != -1 |
865
|
0 |
58 |
if ($mod ne '_') { } |
869
|
45 |
13 |
if ISMMPVAR($var) |
885
|
2 |
20 |
if (not $data) { } |
903
|
0 |
3 |
if $var =~ /^_INTERNAL_/ |
905
|
0 |
3 |
if ($mod ne '_') { } |
909
|
3 |
0 |
unless ISMMPVAR($var) |
927
|
16 |
0 |
if $m and $data |
934
|
0 |
0 |
if (ref $value eq 'ARRAY') |
936
|
0 |
0 |
unless ref $_ |
940
|
0 |
0 |
if (not exists $$vars{$key}) { } |
|
0 |
0 |
elsif (ref $$vars{$key} ne 'ARRAY') { } |
953
|
0 |
0 |
unless exists $$vars{$key} |
955
|
0 |
0 |
if (ref $$vars{$key} ne 'ARRAY') { } |
956
|
0 |
0 |
if $$vars{$key} eq $value |
968
|
0 |
0 |
if wantarray |
976
|
45 |
26 |
if (exists $URLS{$arg}) |
978
|
39 |
6 |
unless wantarray |
988
|
1 |
25 |
unless s/^(\w+)\:// |
991
|
22 |
3 |
if ($scheme eq 'psyc' or $scheme eq 'irc') |
992
|
0 |
22 |
unless s[^\G//][] |
995
|
5 |
20 |
if (s/([\w\-+]+)\@//) { } |
|
0 |
20 |
elsif ($scheme eq 'mailto' or $scheme eq 'xmpp') { } |
1003
|
1 |
24 |
unless s[^([\w\-.]*)(?:\:\-?(\d*)([cd]?)|)(?:\z|/)][] |
1004
|
19 |
5 |
$2 ? : |
1007
|
1 |
23 |
if $transport and $scheme ne 'psyc' |
1009
|
20 |
3 |
unless length $_ |
1011
|
0 |
3 |
if ($scheme eq 'mailto') |
1016
|
0 |
3 |
unless $scheme ne 'psyc' or /^[\@~][\w\-]+$/ |
1019
|
14 |
9 |
if wantarray |
1039
|
0 |
2 |
if not $port or $port == 4404 |
1040
|
2 |
0 |
if (not $object) { } |
1046
|
0 |
2 |
unless $type |
1047
|
0 |
2 |
unless ($host) |
1052
|
0 |
2 |
if $user |
1053
|
0 |
2 |
unless $port or $type |
1079
|
0 |
0 |
if (exists $sockets{$key}) |
1080
|
0 |
0 |
unless (defined $sockets{$key}->read) |
1088
|
0 |
0 |
unless defined $MMPdata |
1091
|
0 |
0 |
if $mc |
1094
|
0 |
0 |
if $sockets{$key}{'LAST_RECV'} |
1096
|
0 |
0 |
if $ip |