| 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 ? : |
|
463
|
0 |
0 |
if defined $_[1] |
|
467
|
0 |
0 |
$ENV{'HTTPS'} ? : |
|
468
|
0 |
0 |
$host ? : |
|
|
0 |
0 |
$scheme eq 'https' ? : |
|
|
0 |
0 |
$port == ($scheme eq 'https' ? 443 : 80) ? : |
|
518
|
0 |
0 |
if isa($_[0], 'DiaColloDB::WWW::CGI') |
|
521
|
0 |
0 |
utf8::is_utf8($_) ? : |
|
|
0 |
0 |
unless $form |
|
528
|
0 |
0 |
if isa($_[0], 'DiaColloDB::WWW::CGI') |
|
535
|
0 |
0 |
if isa($_[0], 'DiaColloDB::WWW::CGI') |
|
541
|
0 |
0 |
if isa($_[0], 'DiaColloDB::WWW::CGI') |
|
549
|
0 |
0 |
if $file =~ /^dbi:/ |
|
566
|
0 |
0 |
if isa($_[0], 'DiaColloDB::WWW::CGI') |
|
567
|
0 |
0 |
if @_ == 1 |
|
574
|
0 |
0 |
if isa($_[0], 'DiaColloDB::WWW::CGI') |
|
581
|
0 |
0 |
if isa($_[0], 'DiaColloDB::WWW::CGI') |
|
588
|
0 |
0 |
if isa($_[0], 'DiaColloDB::WWW::CGI') |
|
597
|
0 |
0 |
if isa($_[0], 'DiaColloDB::WWW::CGI') |
|
608
|
0 |
0 |
if isa($_[0], 'DiaColloDB::WWW::CGI') |
|
610
|
0 |
0 |
unless @_ |
|
611
|
0 |
0 |
if @_ == 1 |
|
619
|
0 |
0 |
if isa($_[0], 'DiaColloDB::WWW::CGI') |
|
620
|
0 |
0 |
unless $_[1] or utf8::is_utf8($_[0]) |
|
628
|
0 |
0 |
if isa($_[0], 'DiaColloDB::WWW::CGI') |
|
629
|
0 |
0 |
if not $_[1] and utf8::is_utf8($_[0]) |