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