| line |
true |
false |
branch |
|
72
|
67 |
102 |
if @_ |
|
80
|
1 |
511 |
unless @_ |
|
85
|
4 |
231 |
$seen{lc $field}++ ? : |
|
|
235 |
335 |
@_ ? : |
|
88
|
60 |
449 |
if wantarray |
|
89
|
443 |
6 |
if @old <= 1 |
|
103
|
41 |
1 |
if @_ == 2 |
|
112
|
1 |
4 |
if @_ != 3 |
|
123
|
82 |
1 |
if not $field =~ /^:/ and $TRANSLATE_UNDERSCORE |
|
125
|
8 |
34 |
ref $v eq 'ARRAY' ? : |
|
|
42 |
42 |
if defined $v |
|
133
|
5 |
4 |
unless (defined wantarray) |
|
143
|
2 |
2 |
if (exists $self->{'::std_case'}) |
|
154
|
2 |
867 |
if rindex($field, ":") > 1 or not length $field |
|
157
|
855 |
12 |
unless ($field =~ /^:/) |
|
158
|
820 |
35 |
if $TRANSLATE_UNDERSCORE |
|
161
|
84 |
108 |
unless ($standard_case{$field} or $self->{'::std_case'}{$field}) |
|
168
|
45 |
205 |
defined $val ? : |
|
169
|
43 |
824 |
if ($op eq "PUSH_H") |
|
171
|
11 |
32 |
if (exists $self->{$field}) |
|
173
|
2 |
9 |
if (ref $h eq 'ARRAY') { } |
|
174
|
1 |
1 |
ref $val eq 'ARRAY' ? : |
|
177
|
1 |
8 |
ref $val eq 'ARRAY' ? : |
|
186
|
337 |
463 |
defined $h ? : |
|
|
24 |
800 |
ref $h eq 'ARRAY' ? : |
|
188
|
281 |
2 |
unless ($op eq "GET" or $op eq "INIT" and @old) |
|
189
|
280 |
1 |
if (defined $val) { } |
|
|
1 |
0 |
elsif ($op ne 'PUSH') { } |
|
190
|
4 |
276 |
$op eq 'PUSH' ? : |
|
191
|
272 |
8 |
if (ref $val ne 'ARRAY') { } |
|
197
|
12 |
268 |
@new > 1 ? : |
|
211
|
0 |
222 |
unless ($header_order{$a} || 999) <=> ($header_order{$b} || 999) |
|
219
|
10 |
5 |
if wantarray |
|
231
|
4 |
10 |
if (ref $vals eq 'ARRAY') { } |
|
259
|
47 |
79 |
unless defined $endl |
|
263
|
0 |
219 |
if index($key, "_") == 0 |
|
265
|
14 |
205 |
if (ref $vals eq 'ARRAY') { } |
|
267
|
0 |
35 |
unless defined $val |
|
270
|
0 |
35 |
if (index($val, "\n") >= 0) |
|
277
|
0 |
205 |
unless defined $vals |
|
280
|
13 |
192 |
if (index($vals, "\n") >= 0) |
|
307
|
17 |
117 |
if (defined $time) |
|
310
|
57 |
77 |
if defined $old |
|
335
|
37 |
385 |
if @_ |
|
336
|
0 |
422 |
if ref $ct eq "ARRAY" |
|
337
|
41 |
381 |
unless defined $ct and length $ct |
|
343
|
2 |
379 |
wantarray ? : |
|
350
|
0 |
92 |
if ref $h |
|
351
|
2 |
90 |
unless defined $h |
|
353
|
90 |
2 |
if (@v) |
|
356
|
90 |
0 |
if ($ct) |
|
360
|
16 |
74 |
if ($charset) |
|
363
|
0 |
16 |
if $charset eq "" |
|
365
|
0 |
90 |
if wantarray |
|
368
|
0 |
2 |
if wantarray |
|
390
|
1 |
83 |
if $ct eq "text/xml" |
|
391
|
44 |
39 |
if $ct eq "application/xml" |
|
392
|
2 |
37 |
if $ct =~ /\+xml$/ |
|
398
|
2 |
7 |
if (@_ and $_[0] =~ /#/) |
|
401
|
1 |
1 |
if (ref $uri) { } |
|
438
|
5 |
6 |
if (defined $user) |
|
439
|
1 |
4 |
if $user =~ /:/ |
|
441
|
1 |
3 |
unless defined $passwd |
|
445
|
6 |
4 |
if (defined $old and $old =~ s/^\s*Basic\s+//) |
|
447
|
2 |
4 |
unless wantarray |