Branch Coverage

blib/lib/DiaColloDB/WWW/CGI.pm
Criterion Covered Total %
branch 0 150 0.0


line true false branch
130 0 0 if ($dbcgi->{'cgipkg'})
132 0 0 if $@
184 0 0 $csock ? :
185 0 0 $csock ? :
192 0 0 $csock ? :
193 0 0 $csock ? :
200 0 0 if (not exists $vars{$_}) { }
203 0 0 unless ref $vars{$_}
204 0 0 ref $add->{$_} ? :
208 0 0 if ($hreq->method eq 'POST')
209 0 0 if ($hreq->content_type eq 'application/x-www-form-urlencoded') { }
0 0 elsif ($hreq->content_type eq 'multipart/form-data') { }
0 0 elsif ($hreq->content_length > 0) { }
217 0 0 if ($pdis =~ /^form-data\b/)
219 0 0 if ($pdis =~ /\bname=[\"\']?([\w\-\.\,\+]*)[\'\"]?/)
244 0 0 if defined $dbcgi->{'vars'} and not defined $vars
245 0 0 $dbcgi->cgi('param') ? :
247 0 0 if (($dbcgi->{'cgipkg'} // 'CGI') ne 'CGI' or defined $vars->{'POSTDATA'})
254 0 0 if not exists $vars->{$_}
0 0 unless $dbcgi->{'defaults'}
263 0 0 if ($dbcgi->{'charset'} and not utf8::is_utf8($tmp) and not exists $dbcgi->{'nodecode'}{$_})
279 0 0 unless open RC, '<:raw', $file
283 0 0 unless close RC
285 0 0 unless my $data = &JSON::from_json($buf, {'utf8', 1, 'relaxed', 1})
300 0 0 unless $key
310 0 0 if defined $_
311 0 0 wantarray ? :
326 0 0 if -f "$_/$file"
343 0 0 unless $dbcgi->{'ttk_config'}
344 0 0 unless $targs
358 0 0 unless $dbcgi->{'ttk_vars'}
0 0 unless $tvars
360 0 0 unless $dbcgi->{'ttk_process'}
361 0 0 defined $output ? :
0 0 unless $pargs
0 0 unless $t->process($src, {'package', $dbcgi->{'ttk_package'}, 'version', $VERSION, 'ENV', {%ENV}, %{{} unless $dbcgi->{'ttk_vars'};}, 'cdb', $dbcgi, %{{} unless $tvars;}}, defined $output ? $output : \$outbuf, %{{} unless $dbcgi->{'ttk_process'};}, %{{} unless $pargs;})
364 0 0 defined $output ? :
374 0 0 unless defined $status
392 0 0 if $dbcgi->{'charset'}
394 0 0 if (ref $method) { }
0 0 elsif ($sub = $dbcgi->{'cgipkg'}->can($method)) { }
0 0 elsif ($sub = 'CGI'->can($method)) { }
414 0 0 $israw ? :
0 0 $israw ? :
416 0 0 if ($@) { }
0 0 elsif (not @content && defined $content[0]) { }
425 0 0 if ($dbcgi->{'charset'})
427 0 0 $israw ? :
459 0 0 if $_[0]{'server_port'}
461 0 0 if $host and $host =~ /:([0-9]+)$/
462 0 0 $ENV{'HTTPS'} ? :
469 0 0 if defined $_[1]
473 0 0 $ENV{'HTTPS'} ? :
474 0 0 $host ? :
0 0 $host && $host =~ /:[0-9]+$/ || $port == ($scheme eq 'https' ? 443 : 80) ? :
525 0 0 if isa($_[0], 'DiaColloDB::WWW::CGI')
528 0 0 utf8::is_utf8($_) ? :
0 0 unless $form
535 0 0 if isa($_[0], 'DiaColloDB::WWW::CGI')
542 0 0 if isa($_[0], 'DiaColloDB::WWW::CGI')
548 0 0 if isa($_[0], 'DiaColloDB::WWW::CGI')
556 0 0 if $file =~ /^dbi:/
573 0 0 if isa($_[0], 'DiaColloDB::WWW::CGI')
574 0 0 if @_ == 1
581 0 0 if isa($_[0], 'DiaColloDB::WWW::CGI')
588 0 0 if isa($_[0], 'DiaColloDB::WWW::CGI')
595 0 0 if isa($_[0], 'DiaColloDB::WWW::CGI')
604 0 0 if isa($_[0], 'DiaColloDB::WWW::CGI')
615 0 0 if isa($_[0], 'DiaColloDB::WWW::CGI')
617 0 0 unless @_
618 0 0 if @_ == 1
626 0 0 if isa($_[0], 'DiaColloDB::WWW::CGI')
627 0 0 unless $_[1] or utf8::is_utf8($_[0])
635 0 0 if isa($_[0], 'DiaColloDB::WWW::CGI')
636 0 0 if not $_[1] and utf8::is_utf8($_[0])