Branch Coverage

blib/lib/CGI/PSGI.pm
Criterion Covered Total %
branch 23 50 46.0


line true false branch
47 0 0 unless (defined $res)
52 0 0 if ($res == 0)
78 24 76 if (defined $header)
85 6 18 if ($header =~ /$CGI::CRLF|\015|\012/)
87 0 6 if length $header > 72
93 0 6 unless defined $type
94 0 6 if (defined $charset) { }
97 5 1 if $type =~ m[^text/]
106 0 3 unless my($header, $value) = /([^ \r\n\t=]+)=\"?(.+?)\"?$/
111 5 0 if $type ne '' and not $type =~ /\bcharset\b/ and defined $charset and $charset ne ''
120 0 6 if $target
121 0 6 if ($p3p)
122 0 0 if ref $p3p eq 'ARRAY'
127 0 6 if ($cookie)
128 0 0 ref $cookie && ref $cookie eq 'ARRAY' ? :
130 0 0 UNIVERSAL::isa($_, 'CGI::Cookie') ? :
131 0 0 if $cs ne ''
137 0 6 if $expires
139 0 6 if $expires or $cookie or $nph
140 0 6 if $self->cache
141 0 6 if $attachment
144 5 1 if $type ne ''
157 6 0 unless defined $status
165 0 6 if $target
168 0 6 if $cookie