Condition Coverage

blib/lib/HTTP/Headers.pm
Criterion Covered Total %
condition 51 58 87.9


and 3 conditions

line !l l&&!r l&&r condition
123 1 1 82 not $field =~ /^:/ and $TRANSLATE_UNDERSCORE
188 278 3 2 $op eq "INIT" and @old
337 40 1 381 defined $ct and length $ct
398 6 1 2 @_ and $_[0] =~ /#/
445 4 0 6 defined $old and $old =~ s/^\s*Basic\s+//

or 2 conditions

line l !l condition
211 194 84 $header_order{$a} || 999
172 106 $header_order{$b} || 999

or 3 conditions

line l !l&&r !l&&!r condition
135 7 1 6 $entity_header{$_} || /^content-/
140 9 2 9 $entity_header{$_} || /^content-/
154 1 1 867 rindex($field, ":") > 1 or not length $field
161 663 108 84 $standard_case{$field} or $self->{'::std_case'}{$field}
168 617 250 0 $op ||= defined $val ? "SET" : "GET"
188 541 17 266 $op eq "GET" or $op eq "INIT" and @old
219 3 6 0 $standard_case{$_} || $self->{'::std_case'}{$_} || $_
234 4 3 0 $standard_case{$key} || $self->{'::std_case'}{$key} || $key
238 1 1 0 $standard_case{$key} || $self->{'::std_case'}{$key} || $key
268 21 3 0 $standard_case{$key} || $self->{'::std_case'}{$key} || $key
278 87 3 0 $standard_case{$key} || $self->{'::std_case'}{$key} || $key
379 7 3 25 $self->content_type eq 'text/html' || $self->content_is_xhtml
384 4 2 30 $ct eq 'application/xhtml+xml' || $ct eq 'application/vnd.wap.xhtml+xml'