Branch Coverage

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


line true false branch
12 0 16 if (-e '.htdebug_env')
19 0 16 if ($self->{'cf_noheader'}) { }
16 0 elsif ($env->{'GATEWAY_INTERFACE'}) { }
24 0 0 if @_
34 0 16 if (defined $fh and fileno $fh >= 0)
35 0 0 unless open STDERR, '>&', $fh
63 0 16 unless my $dh = $self->get_dirhandler(untaint_any($params{'dir'}))
73 0 14 wantarray ? :
85 16 0 if (not $self->{'cf_noheader'}) { }
87 0 16 if (ref $args and UNIVERSAL::can($args, 'param')) { }
96 0 16 unless (@pi)
105 0 0 unless (defined $path)
108 0 0 unless ($path =~ m[^/])
109 0 0 unless (-e $path)
127 16 0 if $env->{'GATEWAY_INTERFACE'}
128 8 8 if $env->{'DOCUMENT_ROOT'}
135 16 0 if (not @_) { }
0 0 elsif (@_ > 1 or defined $_[0] and not ref $_[0]) { }
0 0 elsif (not defined $_[0]) { }
0 0 elsif (ref $_[0] eq 'ARRAY') { }
154 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)) { }
155 0 14 if (not tell $fh and my $len = length $con->buffer) { }
177 0 0 if @rest
183 0 0 if $con
215 0 0 if (my(@kv) = $self->secure_text_plain) { }