| line |
true |
false |
branch |
|
34
|
0 |
0 |
if (-r (my $fn = delete $opts{'progname'} || $0)) { } |
|
41
|
0 |
0 |
if ((my $dn = $progname) =~ s[/html/cgi-bin/[^/]+$][]) |
|
45
|
0 |
0 |
unless $self->{'tmpldirs'} and @{$self->{'tmpldirs'};} |
|
57
|
0 |
0 |
delete $opts{'isolate_stderr'} // 1 ? : |
|
|
0 |
0 |
ref $fhset eq 'ARRAY' ? : |
|
61
|
0 |
0 |
if (my $sockfile = delete $opts{'listen'}) { } |
|
62
|
0 |
0 |
unless (-e (my $d = dirname($sockfile))) |
|
64
|
0 |
0 |
unless File::Path::make_path($d) |
|
67
|
0 |
0 |
unless FCGI::OpenSocket($sockfile, 100) |
|
77
|
0 |
0 |
$opts{'nointr'} ? : |
|
79
|
0 |
0 |
if (keys %opts) |
|
88
|
0 |
0 |
if (-e "$dir/.htdebug_env") |
|
94
|
0 |
0 |
if (my $err = &catch(sub {
$res = $self->call($env);
}
)) |
|
99
|
0 |
0 |
if (not defined $res) { } |
|
|
0 |
0 |
elsif (ref $res eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $res eq 'CODE') { } |
|
|
0 |
0 |
elsif (not ref $res or UNIVERSAL::can($res, 'message')) { } |
|
111
|
0 |
0 |
if $$stderr ne $stdout |
|
112
|
0 |
0 |
if ($self->is_debug_allowed($env)) { } |
|
125
|
0 |
0 |
if -e $progname and -M $progname < $age |
|
136
|
0 |
0 |
($init_env->{'HTTPS'} || 'off') =~ /^(?:on|1)$/i ? : |
|
171
|
0 |
0 |
if (defined $body) { } |