| line |
true |
false |
branch |
|
29
|
0 |
0 |
if (-r (my $fn = delete $opts->{'progname'} || $0)) { } |
|
36
|
0 |
0 |
if ((my $dn = $self->{'cf_progname'}) =~ s[/html/cgi-bin/[^/]+$][]) |
|
40
|
0 |
0 |
unless $self->{'tmpldirs'} and @{$self->{'tmpldirs'};} |
|
67
|
0 |
0 |
delete $opts{'isolate_stderr'} // 1 ? : |
|
|
0 |
0 |
ref $fhset eq 'ARRAY' ? : |
|
70
|
0 |
0 |
if (my $sockfile = delete $opts{'listen'}) { } |
|
71
|
0 |
0 |
unless (-e (my $d = dirname($sockfile))) |
|
73
|
0 |
0 |
unless File::Path::make_path($d) |
|
76
|
0 |
0 |
unless &FCGI::OpenSocket($sockfile, 100) |
|
86
|
0 |
0 |
$opts{'nointr'} ? : |
|
88
|
0 |
0 |
if (keys %opts) |
|
97
|
0 |
0 |
if (-e "$dir/.htdebug_env") |
|
103
|
0 |
0 |
if (my $err = &catch(sub {
$res = &$app($env);
}
)) |
|
108
|
0 |
0 |
do {
UNIVERSAL::can($res, 'message') unless not ref $res
} ? : |
|
|
0 |
0 |
do {
ref $res eq 'CODE'
} ? : |
|
|
0 |
0 |
do {
ref $res eq 'ARRAY'
} ? : |
|
|
0 |
0 |
defined $res ? : |
|
119
|
0 |
0 |
unless not ref $res |
|
120
|
0 |
0 |
if $$stderr ne $stdout |
|
121
|
0 |
0 |
if ($self->is_debug_allowed($env)) { } |
|
134
|
0 |
0 |
if -e $self->{'cf_progname'} and -M $self->{'cf_progname'} < $age |
|
174
|
0 |
0 |
if (defined $body) { } |