| line |
true |
false |
branch |
|
15
|
0 |
2 |
unless ($PAB3::CGI::VERSION) |
|
30
|
0 |
0 |
if ($key eq 'content-type') { } |
|
|
0 |
0 |
elsif ($key eq 'content-length') { } |
|
|
0 |
0 |
elsif ($key eq 'status') { } |
|
|
0 |
0 |
elsif ($key eq 'intredir') { } |
|
|
0 |
0 |
elsif ($key eq 'location') { } |
|
35
|
0 |
0 |
if $GLOBAL::MODPERL == 1 |
|
39
|
0 |
0 |
if ($val =~ /\s*(\d+)\s+(.+)/) { } |
|
42
|
0 |
0 |
$1 >= 300 ? : |
|
46
|
0 |
0 |
int $val >= 300 ? : |
|
70
|
0 |
0 |
if ($GLOBAL::MODPERL == 2) { } |
|
|
0 |
0 |
elsif ($GLOBAL::MODPERL == 1) { } |
|
71
|
0 |
0 |
if ($GLOBAL::MPREQ->handler eq 'modperl') |
|
79
|
0 |
0 |
if ($GLOBAL::MODPERL) { } |
|
81
|
0 |
0 |
if $needct and $key eq 'content-type' || $key eq 'location' |
|
82
|
0 |
0 |
if (ref $PAB3::CGI::HEAD{$key}) { } |
|
85
|
0 |
0 |
if $needct |
|
90
|
0 |
0 |
if $needct |
|
95
|
0 |
0 |
if ($val = $PAB3::CGI::HEAD{'status'}) |
|
97
|
0 |
0 |
if ref $val |
|
98
|
0 |
0 |
if ($val =~ /\s*(\d+)\s+/) { } |
|
99
|
0 |
0 |
if $needct and $1 >= 300 |
|
102
|
0 |
0 |
if $needct and int $val >= 300 |
|
107
|
0 |
0 |
if $needct and $key eq 'content-type' || $key eq 'location' |
|
108
|
0 |
0 |
if (ref $PAB3::CGI::HEAD{$key}) { } |
|
118
|
0 |
0 |
if ($needct) |
|
123
|
0 |
0 |
if ($GLOBAL::MODPERL) { } |
|
130
|
0 |
0 |
unless ($GLOBAL::MODPERL) |