| blib/lib/Net/PSYC.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 66 | 147 | 44.9 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 322 | 0 | 0 | 19 | $one and $two |
| 0 | 19 | 0 | $one and $two and exists $hosts{$one} || dns_lookup($one) | |
| 0 | 19 | 0 | $one and $two and exists $hosts{$one} || dns_lookup($one) and exists $hosts{$two} || dns_lookup($two) | |
| 381 | 0 | 2 | 0 | $prots and $prots =~ /s/io |
| 468 | 0 | 10 | 0 | not STATE() and BLOCKING() & 2 |
| 474 | 0 | 0 | 0 | $MMPvars and not ref $MMPvars |
| 478 | 2 | 8 | 0 | $MMPvars and not ref $MMPvars |
| 626 | 27 | 0 | 77 | not defined $data and $a < length $$d |
| 27 | 0 | 77 | not defined $data and $a < length $$d and -1 != ($b = index($$d, $lf, $a)) | |
| 753 | 16 | 0 | 19 | not $mc and $a < length $d |
| 16 | 19 | 0 | not $mc and $a < length $d and -1 != ($b = index($d, $linefeed, $a)) || ($b = length $d) | |
| 797 | 3 | 0 | 0 | $lvar =~ /^_list/ and ref $lval ne 'ARRAY' |
| 927 | 0 | 0 | 16 | $m and $data |
| 1007 | 16 | 7 | 1 | $transport and $scheme ne 'psyc' |
| line | l | !l | condition |
|---|---|---|---|
| 347 | 2 | 0 | shift() || 'psyc://:/' |
| 388 | 0 | 0 | $ip || '127.0.0.1' |
| 424 | 17 | 0 | $port ||= 4404 |
| 427 | 0 | 0 | $port ||= 4404 |
| 606 | 22 | 5 | $lf ||= "\n" |
| 608 | 27 | 0 | $lf ||= "\n" |
| 747 | 16 | 0 | $linefeed ||= "\n" |
| 928 | 16 | 0 | $data || '' |
| 966 | 0 | 0 | $_[2] || {} |
| 1019 | 0 | 14 | $user || '' |
| 14 | 0 | $host || '' | |
| 3 | 11 | $transport || '' | |
| 1 | 13 | $object || '' | |
| 1022 | 8 | 1 | $host || '' |
| 4 | 5 | $transport || '' | |
| 2 | 7 | $object || '' | |
| 3 | 6 | $user || '' | |
| 9 | 0 | $scheme || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 322 | 19 | 0 | 0 | exists $hosts{$one} || dns_lookup($one) |
| 19 | 0 | 0 | exists $hosts{$two} || dns_lookup($two) | |
| 356 | 0 | 1 | 1 | not $prots or $prots =~ /d/io |
| 367 | 0 | 1 | 1 | not $prots or $prots =~ /c/io |
| 371 | 1 | 0 | 0 | $host ||= $$sock{'IP'} |
| 423 | 17 | 0 | 0 | not $prots or $prots =~ /c/i |
| 430 | 0 | 0 | 0 | $port ||= PSYCS_PORT() |
| 449 | 0 | 0 | 1 | $R{$target} or $R{$host . ':' . $port} |
| 0 | 0 | 1 | $R{$target} or $R{$host . ':' . $port} or $R{$host} | |
| 450 | 0 | 0 | 0 | $R{$target} || $R{$host . ':' . $port} || $R{$host} |
| 499 | 0 | 10 | 0 | $$MMPvars{'_target'} ||= $target |
| 522 | 0 | 0 | 0 | $$vars{'_target'} ||= $target |
| 561 | 0 | 0 | 0 | $$vars{'_name_file'} ||= substr($fn, rindex($fn, '/') + 1) |
| 634 | 50 | 0 | 27 | $line =~ /^([+-:=-?])(_\w+)[\t\ ](.*)$/ or $line =~ /^([+-:=-?])(_\w+)$/ |
| 753 | 19 | 0 | 0 | -1 != ($b = index($d, $linefeed, $a)) || ($b = length $d) |
| 760 | 3 | 0 | 16 | $line =~ /^([+-:=-?])(_\w+)[\t\ ](.*)$/ or $line =~ /^([+-:=-?])(_\w+)$/ |
| 853 | 0 | 0 | 22 | $data =~ /^.\n/ or index($data, "\n.\n") != -1 |
| 0 | 0 | 22 | $data =~ /^.\n/ or index($data, "\n.\n") != -1 or index($data, "\r\n.\r\n") != -1 | |
| 991 | 22 | 0 | 3 | $scheme eq 'psyc' or $scheme eq 'irc' |
| 995 | 0 | 0 | 20 | $scheme eq 'mailto' or $scheme eq 'xmpp' |
| 1016 | 0 | 3 | 0 | $scheme ne 'psyc' or /^[\@~][\w\-]+$/ |
| 1039 | 0 | 0 | 2 | not $port or $port == 4404 |
| 1053 | 2 | 0 | 0 | $port or $type |