Branch Coverage

blib/lib/HTTP/XSHeaders.pm
Criterion Covered Total %
branch 49 64 76.5


line true false branch
105 8 0 if (_is_xsheaders($self) or not $orig)
117 5 11 if (defined $time) { }
122 6 10 if defined $old
129 7 13 if @_
130 0 20 if ref $ct eq "ARRAY"
131 4 16 unless defined $ct and length $ct
137 2 14 if (wantarray) { }
148 2 1 if (s/^\s*(=*[^\s=;,]+)//) { }
0 1 elsif (s/^\s*,//) { }
1 0 elsif (s/^\s*;// or s/^\s+//) { }
151 1 1 if (s/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) { }
0 1 elsif (s/^\s*=\s*([^;,\s]*)//) { }
168 0 0 if @cur
178 1 1 if @cur
192 0 2 if ref $h
193 1 1 unless defined $h
195 1 1 if (@v)
198 1 0 if ($ct)
202 1 0 if ($charset)
205 0 1 if $charset eq ""
207 0 1 if wantarray
210 0 1 if wantarray
216 2 6 if (@_ and $_[0] =~ /#/)
220 1 1 if (ref $uri) { }
244 4 5 if (defined $user)
245 1 3 if $user =~ /:/
247 1 2 unless defined $passwd
251 5 3 if (defined $old and $old =~ s/^\s*Basic\s+//)
253 2 3 unless wantarray
287 0 2 if $ct eq "text/xml"
288 0 2 if $ct eq "application/xml"
289 1 1 if $ct =~ /\+xml$/