| 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])
|