Branch Coverage

blib/lib/Net/ICAP/Message.pm
Criterion Covered Total %
branch 116 168 69.0


line true false branch
80 1 25 if exists $args{'version'}
81 3 23 if exists $args{'headers'} and $rv
83 1 25 if exists $args{'reqhdr'} and $rv
84 0 26 if exists $args{'reshdr'} and $rv
85 1 25 if $rv and exists $args{'body_type'} and exists $args{'body'}
89 1 25 if exists $args{'trailer'} and $rv
120 25 23 if (defined $msg)
140 2 13 scalar @_ ? :
159 0 13 scalar @_ ? :
178 1 0 scalar @_ ? :
197 2 26 if (@_) { }
204 26 2 ref $rv eq 'ARRAY' ? :
216 11 10 defined $version ? :
222 11 10 if (defined $version) { }
225 11 0 if ($version eq 'ICAP/1.0') { }
238 21 0 defined $rv ? :
260 233 0 if (defined $ref) { }
261 5 228 if (ref $ref eq 'SCALAR') { }
5 223 elsif (ref $ref eq 'GLOB') { }
223 0 elsif ($ref->isa('IO::Handle')) { }
276 233 0 defined $line ? :
300 48 0 if (defined $ref) { }
301 48 0 if (ref $ref eq 'SCALAR') { }
0 0 elsif (ref $ref eq 'GLOB') { }
0 0 elsif ($ref->isa('IO::Handle')) { }
334 23 0 if (scalar @lines)
345 0 105 unless defined $k and defined $v
346 0 105 exists $headers{$k} ? :
369 58 166 if (exists $headers{$h})
371 58 0 if defined $v and length $v
395 87 25 if ($k =~ /^X-\w+[\w-]*/ms or grep {$_ eq $k;} @valid) { }
409 26 0 if scalar keys %headers
437 9 51 @_ ? :
444 60 0 if ($header =~ /^X-\w+[\w-]*/ms or grep {$_ eq $header;} @valid) { }
447 9 51 if (@_) { }
451 9 0 if (defined $value) { }
473 58 2 defined $rv ? :
494 5 0 if (defined($line = $obj->_getLine($input)))
507 0 6 unless (defined $line)
519 5 0 if (length $chunk == $c) { }
526 5 0 if (defined $line) { }
561 6 0 if (defined $body)
577 6 0 defined $rv ? :
600 10 0 if (defined $encap) { }
607 0 10 unless ($n == 1)
612 0 10 unless ($entities[$#entities] =~ /^\w+-body=\d+$/ms)
620 0 10 unless ($n <= 1)
625 0 10 unless ($n <= 1)
633 0 19 unless (not defined $n or $_ > $n)
639 10 9 unless (defined $n)
640 0 10 unless ($_ == 0)
651 0 10 if (scalar grep((!/^(?:re[qs]-hdr|(?:opt|null|re[qs])-body)=\d+$/ms), @entities))
658 10 0 if ($rv)
664 9 10 if ($t =~ /-hdr$/ms) { }
10 0 elsif ($t =~ /-body$/ms) { }
668 9 52 if $line eq "\r\n"
676 5 5 unless ($t eq 'null-body')
684 9 10 if (@entities)
686 8 1 $l == 0 ? :
687 0 9 unless (length $text == $l)
698 5 5 if (grep /\b(?:res|req|opt)-body=/ms, $encap)
700 0 5 if (defined $line and $line ne "\r\n")
703 0 0 if $line eq "\r\n"
737 7 6 if (defined $t and length $t)
744 3 10 if (defined $t and length $t)
745 1 2 if length $encap
752 6 7 if (defined $tt and length $tt and defined $t and length $t) { }
753 6 0 if length $encap
756 3 4 if length $encap
791 23 128 if $line eq "\r\n"
796 23 0 if (length $icap_msg)
832 2 11 unless defined $d and length $d
836 13 0 length $t ? :
13 0 if $rv = defined $t
839 13 0 if ($rv)
842 13 0 length $t ? :
13 0 if $rv = defined $t
846 13 0 if ($rv)
848 7 6 if (defined $t and length $t)
856 13 0 if ($rv)
858 3 10 if (defined $t and length $t)
866 13 0 if ($rv)
868 6 7 if (defined $t and length $t)
875 13 0 if ($rv)