| line |
true |
false |
branch |
|
31
|
1 |
0 |
unless $ENV{'GATEWAY_INTERFACE'} and $ENV{'GATEWAY_INTERFACE'} =~ /CGI/ |
|
33
|
0 |
0 |
if defined $SIG{'__DIE__'} and $SIG{'__DIE__'} ne 'IGNORE' and $SIG{'__DIE__'} ne 'DEFAULT' |
|
53
|
0 |
0 |
if (defined $caller[3]) { } |
|
56
|
0 |
0 |
if $caller[3] eq '(eval)' |
|
72
|
0 |
0 |
if ($error =~ s/^(.*?\s+at\s+(.*?)\s+line\s+(\d+)[^\n]*)//s) |
|
85
|
0 |
0 |
unless ($filename) |
|
97
|
0 |
0 |
$CGI::HTMLError::CONF{'css'} ? : |
|
120
|
0 |
0 |
if ($filename and $number) { } |
|
127
|
0 |
0 |
if (open SOURCE, "< $filename") { } |
|
128
|
0 |
0 |
$number - 10 >= 0 ? : |
|
131
|
0 |
0 |
if $startline > 1 |
|
133
|
0 |
0 |
if $. > $endline |
|
135
|
0 |
0 |
if ($. > $startline) |
|
137
|
0 |
0 |
if ($. == $number) { } |
|
|
0 |
0 |
elsif ($. > $number - 5 and $. < $number + 5) { } |
|
146
|
0 |
0 |
unless eof SOURCE |
|
162
|
0 |
0 |
if ($CGI::HTMLError::CONF{'trace'}) |
|
166
|
0 |
0 |
unless my($pack, $file, $number, $sub) = caller $i |
|
178
|
0 |
0 |
if ($CGI::HTMLError::OLD_HANDLER) |