Branch Coverage

blib/lib/CGI/WebOut.pm
Criterion Covered Total %
branch 41 120 34.1


line true false branch
116 0 0 !($_[0] =~ /^\w+:/) ? :
117 0 3 if ref $_[0]
3 0 !($_[0] =~ /^\w+:/) ? :
119 2 0 if ($needRestart)
125 0 2 if tied *STDOUT and ref tied *STDOUT eq 'CGI::WebOut::Tie'
132 0 19 $ENV{'SCRIPT_NAME'} ? :
149 0 21 if (grep {not defined $_;} @_)
151 0 0 if eval { do { require Carp } }
154 21 0 defined $_ ? :
155 0 21 if $txt eq ''
157 16 5 if $UseAutoflush and $rCurBuf == $rRootBuf
174 0 3 if ($@ and $catch)
183 0 0 if ($HeadersSent)
184 0 0 if eval { do { require Carp } }
198 0 18 if (not $HeadersSent and IsWebMode)
203 0 0 if ($Headers[$i] =~ /^content-type: *(.*)$/i)
207 0 0 if ($Headers[$i] =~ /^location: /i)
211 0 0 if (not $Redirected) { }
227 18 0 unless ($Redirected)
239 3 2 unless defined $rBuf
266 2 3 if ($rCurBuf == $rRootBuf)
270 1 1 if @Errors
313 1 0 if not tied *STDOUT or ref tied *STDOUT ne 'CGI::WebOut::Tie'
327 2 16 if $txt eq ''
328 14 2 if ($obj) { }
329 14 0 if (ref $obj eq 'CGI::WebOut::Tie') { }
347 79 0 unless $DEBUG
357 0 0 unless $gd =~ /global\s*destruction/i
360 0 0 $opened++ ? :
361 0 0 defined $_ ? :
0 0 $gd ? :
461 13 1 if $doNotUntie
467 1 0 if ($$this{'prevObj'})
492 1 13 if ($obj) { }
13 0 elsif ($save) { }
500 14 0 wantarray ? :
501 14 0 if ($save) { }
0 0 elsif ($obj) { }
508 0 14 wantarray ? :
545 1 0 @Errors > @SvErrors ? :
551 0 1 wantarray ? :
557 1 0 if ($@)
568 0 1 ref $_[0] ? :
579 0 0 if (defined $mode)
610 0 0 unless ($url =~ /^\w+:/)
612 0 0 unless ($url =~ m[^/])
627 0 0 if $NoCached++
628 0 0 unless Header('Expires: Mon, 26 Jul 1997 05:00:00 GMT')
629 0 0 unless Header('Last-Modified: ' . gmtime(time) . ' GMT')
630 0 0 unless Header('Cache-Control: no-cache, must-revalidate')
631 0 0 unless Header('Pragma: no-cache')
646 0 0 if defined $lev
664 0 1 unless (@Errors and $ErrorReporting)
668 0 1 if (IsWebMode) { }
669 0 0 if ($ErrorReporting == ER_Err2Browser())
677 0 0 if $wasErr{$st}
678 0 0 if $st =~ /^Fatal:/
680 0 0 if ($ErrorReporting == ER_Err2Browser()) { }
0 0 elsif ($ErrorReporting == ER_Err2Comment()) { }
0 0 elsif ($ErrorReporting == ER_Err2Plain()) { }