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