Branch Coverage

blib/lib/YATT/Lite/WebMVC0/SiteApp/CGI.pm
Criterion Covered Total %
branch 17 72 23.6


line true false branch
19 0 0 if ($self->{'cf_noheader'}) { }
0 0 elsif ($env->{'GATEWAY_INTERFACE'}) { }
23 0 0 if @_
27 0 0 if (my $err = &catch(sub { $res = &$app($env); } ))
33 0 0 if (my $err = &catch(sub { $res = &$app($env); } ))
46 0 16 if (-e '.htdebug_env')
53 0 16 if ($self->{'cf_noheader'}) { }
16 0 elsif ($env->{'GATEWAY_INTERFACE'}) { }
58 0 0 if @_
68 0 16 if (defined $fh and fileno $fh >= 0)
69 0 0 unless open STDERR, '>&', $fh
97 0 16 unless my $dh = $self->get_dirhandler(untaint_any($params{'dir'}))
107 0 14 wantarray ? :
119 0 16 if ($self->{'cf_noheader'}) { }
121 0 16 if (ref $args and UNIVERSAL::can($args, 'param')) { }
130 0 16 unless (@pi)
139 0 0 unless (defined $path)
142 0 0 unless ($path =~ m[^/])
143 0 0 unless (-e $path)
161 16 0 if $env->{'GATEWAY_INTERFACE'}
162 8 8 if $env->{'DOCUMENT_ROOT'}
169 0 0 do { ref $_[0] eq 'ARRAY' } ? :
0 0 do { not defined $_[0] } ? :
0 0 do { defined $_[0] and not ref $_[0] unless @_ > 1 } ? :
0 0 do { $_[0] =~ /[&;]/ if @_ == 1 and defined $_[0] and not ref $_[0] } ? :
0 16 @_ ? :
171 0 0 if @_ == 1 and defined $_[0] and not ref $_[0]
173 0 0 unless @_ > 1
191 14 2 if (not $error or is_done($error)) { }
2 0 elsif (ref $error eq 'ARRAY') { }
0 0 elsif (defined $con and UNIVERSAL::isa($error, $self->Error)) { }
192 0 14 if (not tell $fh and my $len = length $con->buffer) { }
214 0 0 if @rest
220 0 0 if $con
252 0 0 if (my(@kv) = $self->secure_text_plain) { }
269 0 0 ($init_env->{'HTTPS'} || 'off') =~ /^(?:on|1)$/i ? :