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
122 1 1 82 not $field =~ /^:/ and $TRANSLATE_UNDERSCORE
187 278 3 2 $op eq "INIT" and @old
349 40 1 381 defined $ct and length $ct
410 6 1 2 @_ and $_[0] =~ /#/
457 4 0 6 defined $old and $old =~ s/^\s*Basic\s+//

or 2 conditions

line l !l condition
210 238 111 $header_order{$a} || 999
210 139 $header_order{$b} || 999

or 3 conditions

line l !l&&r !l&&!r condition
134 7 1 6 $entity_header{$_} || /^content-/
139 9 2 9 $entity_header{$_} || /^content-/
153 1 1 958 rindex($field, ":") > 1 or not length $field
160 704 118 124 $standard_case{$field} or $self->{'::std_case'}{$field}
167 708 250 0 $op ||= defined $val ? "SET" : "GET"
187 541 17 266 $op eq "GET" or $op eq "INIT" and @old
218 3 6 0 $standard_case{$_} || $self->{'::std_case'}{$_} || $_
233 24 3 0 $standard_case{$key} || $self->{'::std_case'}{$key} || $key
237 31 1 0 $standard_case{$key} || $self->{'::std_case'}{$key} || $key
267 21 3 0 $standard_case{$key} || $self->{'::std_case'}{$key} || $key
277 87 3 0 $standard_case{$key} || $self->{'::std_case'}{$key} || $key
391 7 3 25 $self->content_type eq 'text/html' || $self->content_is_xhtml
396 4 2 30 $ct eq 'application/xhtml+xml' || $ct eq 'application/vnd.wap.xhtml+xml'