Condition Coverage

blib/lib/Net/PSYC.pm
Criterion Covered Total %
condition 66 147 44.9


and 3 conditions

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'

or 2 conditions

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

or 3 conditions

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