Condition Coverage

blib/lib/DiaColloDB/WWW/CGI.pm
Criterion Covered Total %
condition 0 59 0.0


and 3 conditions

line !l l&&!r l&&r condition
244 0 0 0 defined $dbcgi->{'vars'} and not defined $vars
263 0 0 0 $dbcgi->{'charset'} and not utf8::is_utf8($tmp)
0 0 0 $dbcgi->{'charset'} and not utf8::is_utf8($tmp) and not exists $dbcgi->{'nodecode'}{$_}
416 0 0 0 @content && defined $content[0]
461 0 0 0 $host and $host =~ /:([0-9]+)$/
636 0 0 0 not $_[1] and utf8::is_utf8($_[0])

or 2 conditions

line l !l condition
163 0 0 $ENV{'REMOTE_ADDR'} || '0.0.0.0'
165 0 0 $ENV{'REQUEST_METHOD'} || 'GET'
183 0 0 $path[$#path] || 'index'
247 0 0 $dbcgi->{'cgipkg'} // 'CGI'
321 0 0 $dbcgi->{'ttk_dir'} || '.'
377 0 0 $, // ''
471 0 0 $dbcgi->httpHost // ''

or 3 conditions

line l !l&&r !l&&!r condition
87 0 0 0 ref $that || $that
0 0 0 ref $that || $that
164 0 0 0 $ENV{'REMOTE_USER'} || getpwuid $>
166 0 0 0 $ENV{'REQUEST_URI'} || $0
191 0 0 0 $uri->host || $csock->sockhost
245 0 0 0 $vars ||= $dbcgi->cgi('param') ? {%{$dbcgi->cgi('Vars');}} : {}
247 0 0 0 ($dbcgi->{'cgipkg'} // 'CGI') ne 'CGI' or defined $vars->{'POSTDATA'}
474 0 0 0 $host && $host =~ /:[0-9]+$/ || $port == ($scheme eq 'https' ? 443 : 80)
627 0 0 0 $_[1] or utf8::is_utf8($_[0])