| line |
true |
false |
branch |
|
57
|
1 |
38 |
if (&none(sub {
$_ eq $self->{'par_sep'};
}
, @PAR_SEP)) |
|
83
|
2 |
13 |
if (ref $value eq 'ARRAY') { } |
|
|
11 |
2 |
elsif (ref $value eq '') { } |
|
108
|
1 |
3 |
unless (defined $self->{'.parameters'}{$param}) |
|
128
|
25 |
54 |
unless (defined $param) |
|
136
|
45 |
9 |
if (not @new_values) { } |
|
137
|
4 |
41 |
unless (exists $self->{'.parameters'}{$param}) |
|
143
|
2 |
7 |
ref $new_values[0] eq 'ARRAY' ? : |
|
149
|
25 |
25 |
wantarray ? : |
|
155
|
4 |
1 |
if ($self->{'save_query_data'}) { } |
|
178
|
0 |
0 |
unless ($ENV{'CONTENT_TYPE'} =~ m[^multipart/form-data]imsx) |
|
182
|
0 |
0 |
unless ($filename) |
|
183
|
0 |
0 |
if ($writefile) |
|
188
|
0 |
0 |
$self->{'.filehandles'} ? : |
|
191
|
0 |
0 |
if ($fh) { } |
|
196
|
0 |
0 |
unless ($writefile) |
|
202
|
0 |
0 |
unless (open $out, '>', $writefile) |
|
209
|
0 |
0 |
unless (close $out) |
|
225
|
0 |
0 |
unless ($ENV{'CONTENT_TYPE'} =~ m[^multipart/form-data]imsx) |
|
230
|
0 |
0 |
unless ($filename) |
|
233
|
0 |
0 |
if ($info =~ /mime/ism) |
|
242
|
0 |
51 |
unless (defined $param) |
|
245
|
48 |
3 |
if ($overwrite or not exists $self->{'.parameters'}{$param}) |
|
250
|
35 |
16 |
ref $value eq 'ARRAY' ? : |
|
268
|
0 |
26 |
if ($length and $type =~ m[^multipart/form-data]imsx) { } |
|
|
2 |
24 |
elsif ($method eq 'POST') { } |
|
|
5 |
19 |
elsif ($method eq 'GET' or $method eq 'HEAD') { } |
|
274
|
0 |
0 |
if ($length != $got_data_length) |
|
285
|
0 |
2 |
if ($self->{'post_max'} != $POST_MAX_NO_LIMIT and $length > $self->{'post_max'}) { } |
|
|
2 |
0 |
elsif ($length) { } |
|
298
|
1 |
1 |
if ($self->{'save_query_data'}) |
|
303
|
0 |
2 |
if ($length != length $data) |
|
311
|
1 |
4 |
if ($self->{'save_query_data'}) |
|
317
|
7 |
19 |
if ($data) |
|
328
|
0 |
0 |
unless (defined $self->{'crlf'}) |
|
331
|
0 |
0 |
if ($CGI::Pure::OSNAME =~ /VMS/ism) { } |
|
361
|
26 |
12 |
if (not defined $init) { } |
|
|
7 |
5 |
elsif (ref $init eq 'HASH') { } |
|
|
1 |
4 |
elsif (eval {
do {
$init->isa('CGI::Pure')
}
}) { } |
|
391
|
0 |
0 |
unless ($boundary) |
|
397
|
0 |
0 |
unless (exists $ENV{'HTTP_USER_AGENT'} and $ENV{'HTTP_USER_AGENT'} =~ /
MSIE\s+
3\.0[12];
\s*
Mac
/imsx) |
|
417
|
0 |
0 |
if ($self->{'save_query_data'}) |
|
429
|
0 |
0 |
unless ($data =~ /^([\040-\176$CRLF]+?$CRLF$CRLF)/ms) |
|
456
|
0 |
0 |
if ($filename) |
|
473
|
0 |
0 |
if ($fh) |
|
479
|
0 |
0 |
if ($size) |
|
487
|
0 |
0 |
unless ($data =~ s/^\Q$header\E(.*?)$CRLF(?=$boundary)//s) |
|
501
|
0 |
0 |
if ($self->{'utf8'}) { } |
|
517
|
0 |
13 |
unless (defined $data) |
|
527
|
15 |
2 |
if ($self->{'utf8'}) { } |
|
528
|
7 |
8 |
if (ref $pairs_hr->{$key} eq 'ARRAY') { } |
|
562
|
0 |
0 |
if ($self->{'disable_upload'}) { } |
|
|
0 |
0 |
elsif ($filename) { } |
|
568
|
0 |
0 |
if ($CGI::Pure::EVAL_ERROR) |
|
572
|
0 |
0 |
unless ($fh) |
|
580
|
0 |
0 |
unless ($data) |
|
584
|
0 |
0 |
if ("$buffer$data" =~ /$boundary/ms) |
|
590
|
0 |
0 |
unless ($data) |
|
607
|
0 |
0 |
if ($1) |
|
618
|
22 |
0 |
if ($self->{'utf8'}) { } |