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 "" |