Branch Coverage

blib/lib/YATT/Lite/Test/TestFCGI.pm
Criterion Covered Total %
branch 0 96 0.0


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)