| blib/lib/HTTP/Message.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 73 | 82 | 89.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 68 | 13 | 18 | 5 | @hdr and $str =~ s/^([ \t].*)\n?// |
| 147 | 4 | 97 | 3 | not ref $_[1] and ref $self->{'_content'} eq "SCALAR" |
| 321 | 16 | 12 | 2 | not $content_ref_iscopy and keys %limiter_options |
| 438 | 11 | 0 | 3 | $$content_ref =~ /[^\x00-\x7F]/ and defined &utf8::upgrade |
| 457 | 1 | 0 | 2 | $alt_charset and $charset ne $alt_charset |
| 602 | 47 | 17 | 9 | @_ == 1 && length $content && !($content =~ /\n\z/) |
| 619 | 1 | 12 | 1 | $maxlen and length $content > $maxlen * "1.1" + 3 |
| 669 | 8 | 18 | 1 | defined wantarray and !exists $self->{'_parts'} || ref $self->{'_content'} eq 'SCALAR' |
| line | l | !l | condition |
|---|---|---|---|
| 371 | 4 | 24 | $limiter_options{'LimitOutput'} || 0 |
| 431 | 24 | 0 | $opt{'charset'} || $self->content_type_charset || $opt{'default_charset'} || $self->content_charset || 'ISO-8859-1' |
| 456 | 2 | 1 | $opt{'alt_charset'} || '' |
| 675 | 5 | 3 | $self->content_type || '' |
| 693 | 3 | 1 | $self->content_type || '' |
| 804 | 9 | 5 | $self->{'_parts'} ||= [] |
| 811 | 10 | 0 | $self->{'_headers'}->header('Content-Type') || 'multipart/mixed' |
| 867 | 1 | 6 | shift() || (return 'xYzZY') |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 317 | 2 | 2 | 101 | $ce eq "identity" or $ce eq "none" |
| 318 | 24 | 6 | 71 | $ce eq "gzip" or $ce eq "x-gzip" |
| 6 | 22 | 31 | $ce eq "x-bzip2" or $ce eq "bzip2" | |
| 1 | 1 | 23 | $ce eq "compress" or $ce eq "x-compress" | |
| 336 | 0 | 28 | 0 | $res == Compress::Raw::Zlib::Z_OK() or $res == Compress::Raw::Zlib::Z_STREAM_END() |
| 379 | 0 | 26 | 2 | $res == Compress::Raw::Bzip2::BZ_OK() or $res == Compress::Raw::Bzip2::BZ_STREAM_END() |
| 426 | 69 | 29 | 9 | $self->content_is_text or my $is_xml = $self->content_is_xml |
| 434 | 11 | 3 | 27 | $charset eq "us-ascii" or $charset eq "iso-8859-1" |
| 542 | 1 | 1 | 10 | $encoding eq "identity" or $encoding eq "none" |
| 1 | 1 | 6 | $encoding eq "gzip" or $encoding eq "x-gzip" | |
| 1 | 1 | 3 | $encoding eq "x-bzip2" or $encoding eq "bzip2" | |
| 669 | 12 | 1 | 6 | !exists $self->{'_parts'} || ref $self->{'_content'} eq 'SCALAR' |
| 693 | 1 | 0 | 1 | not exists $self->{'_parts'} or ref $self->{'_content'} eq "SCALAR" |
| 700 | 1 | 0 | 1 | $p->headers->header_field_names or $p->content ne "" |