| line |
true |
false |
branch |
|
27
|
0 |
0 |
if require FCGI |
|
|
0 |
0 |
unless (eval {
do {
require CGI::Fast if require FCGI
}
}) |
|
31
|
0 |
0 |
unless (eval {
do {
require HTTP::Response
}
}) |
|
35
|
0 |
0 |
if (ref $self and not -x $self->{'cf_fcgiscript'}) |
|
57
|
0 |
0 |
if (-x (my $fn = $pack->join($path, $exe))) |
|
80
|
0 |
0 |
unless (mkdir $sessdir, 448) |
|
86
|
0 |
0 |
if (not defined($self->{'kidpid'} = fork)) { } |
|
|
0 |
0 |
elsif (not $self->{'kidpid'}) { } |
|
90
|
0 |
0 |
unless open STDIN, '<&', $sock |
|
91
|
0 |
0 |
unless open STDOUT, '>&', $sock |
|
96
|
0 |
0 |
if (my $switch = $ENV{'HARNESS_PERL_SWITCHES'}) |
|
106
|
0 |
0 |
if ($self->{'kidpid'}) |
|
112
|
0 |
0 |
if (-e $self->{'sockfile'}) |
|
124
|
0 |
0 |
if (defined $res) |
|
137
|
0 |
0 |
unless $self->{'cookie_jar'} |
|
151
|
0 |
0 |
if (not defined $self->{'res'}) { } |
|
|
0 |
0 |
elsif (ref $self->{'res'}) { } |
|
162
|
0 |
0 |
unless defined(my $res = $self->content) |
|
163
|
0 |
0 |
unless my($title) = $res =~ m[(.*?)]s |
|
174
|
0 |
0 |
unless defined(my $res = $self->content) |
|
188
|
0 |
0 |
unless my $glob = $symtab->{$ns} |
|
191
|
0 |
0 |
unless $symtab = *{$glob;}{'HASH'} |
|
205
|
0 |
0 |
if (eval {
do {
require FCGI::Client
}
}) { } |
|
|
0 |
0 |
elsif ($pack->which('cgi-fcgi')) { } |
|
229
|
0 |
0 |
if $reason |
|
231
|
0 |
0 |
unless (eval {
do {
require FCGI::Client
}
}) |
|
241
|
0 |
0 |
unless $self->{'kidpid'} |
|
246
|
0 |
0 |
$self->is_coverage_mode ? : |
|
257
|
0 |
0 |
if (defined $query) |
|
258
|
0 |
0 |
if ($env->{'REQUEST_METHOD'} eq 'GET') { } |
|
|
0 |
0 |
elsif ($env->{'REQUEST_METHOD'} eq 'POST') { } |
|
274
|
0 |
0 |
if (my $cookies = $self->bake_cookies) |
|
279
|
0 |
0 |
if $self->{'cf_debug_fcgi'} |
|
285
|
0 |
0 |
if $self->{'cf_debug_fcgi'} |
|
287
|
0 |
0 |
if $self->{'cf_debug_fcgi'} |
|
289
|
0 |
0 |
if (defined $self->{'raw_error'} and $self->{'raw_error'} ne '') |
|
290
|
0 |
0 |
if ($want_error) |
|
300
|
0 |
0 |
unless (defined $self->{'raw_result'}) |
|
307
|
0 |
0 |
if ($self->{'raw_result'} =~ m[^HTTP/\d+\.\d+ \d+ ]) { } |
|
|
0 |
0 |
elsif ($self->{'raw_result'} =~ /^Status: (\d+ .*)/) { } |
|
331
|
0 |
0 |
if $reason |
|
333
|
0 |
0 |
unless $self->{'wrapper'} = 'YATT::Lite::Test::TestFCGI::cgi_fcgi'->which('cgi-fcgi') |
|
336
|
0 |
0 |
unless (-x $self->{'cf_fcgiscript'}) |
|
355
|
0 |
0 |
unless $is_post |
|
357
|
0 |
0 |
if $is_post |
|
360
|
0 |
0 |
if $is_post |
|
366
|
0 |
0 |
unless my $kid = open2(my $read, my $write, $self->{'wrapper'}, ('-bind', '-connect'), $self->{'sockfile'}) |
|
367
|
0 |
0 |
if ($is_post) |