| line |
true |
false |
branch |
|
76
|
0 |
3 |
if ($flags{':preload'}) |
|
89
|
1 |
0 |
if ($Nes::Minimal::form_initial_read) |
|
94
|
0 |
1 |
if (1 == $Nes::Minimal::_mod_perl) { } |
|
|
0 |
1 |
elsif (2 == $Nes::Minimal::_mod_perl) { } |
|
139
|
0 |
0 |
if (2 == $Nes::Minimal::_mod_perl) |
|
147
|
1 |
0 |
if (@_ > 0) { } |
|
155
|
1 |
0 |
if (@_ > 0) { } |
|
163
|
0 |
0 |
if (@_ > 0) { } |
|
171
|
0 |
0 |
if (@_ > 0) { } |
|
179
|
1 |
0 |
if (@_ > 0) { } |
|
212
|
0 |
0 |
if ($tagged_names{$parm}) { } |
|
230
|
0 |
0 |
unless defined $$vars{'field'}{$field_name} |
|
231
|
0 |
0 |
if exists $$vars{'from_file'}{'fh'}{$field_name} |
|
234
|
0 |
0 |
if (not $$vars{'from_file'}{$field_name}) { } |
|
251
|
0 |
0 |
if $$vars{'from_file'}{$field_name} |
|
260
|
0 |
0 |
if $Nes::Minimal::_ERROR_max_upload |
|
269
|
0 |
0 |
if $Nes::Minimal::_ERROR_max_post |
|
279
|
0 |
1 |
if (1 < @_) { } |
|
|
0 |
2 |
elsif (1 == @_ and ref $_[0] eq 'HASH') { } |
|
281
|
0 |
0 |
if ($n_parms % 2 == 1) |
|
302
|
1 |
0 |
if ($#_ == -1) { } |
|
307
|
0 |
0 |
if (defined $$vars{'field'}{$fname}) |
|
312
|
1 |
0 |
if (wantarray) { } |
|
|
0 |
0 |
elsif ($#result > -1) { } |
|
320
|
0 |
0 |
unless defined $Nes::Minimal::_BUFFER |
|
330
|
0 |
0 |
unless $fh |
|
361
|
0 |
1 |
if (2 == $Nes::Minimal::_mod_perl and not defined $req_method) |
|
365
|
1 |
0 |
unless (defined $req_method) |
|
375
|
0 |
0 |
if ($req_method eq 'POST') { } |
|
|
0 |
0 |
elsif ($req_method eq 'GET' or $req_method eq 'HEAD') { } |
|
377
|
0 |
0 |
if ($Nes::Minimal::_allow_hybrid_post_get) |
|
399
|
0 |
0 |
if (2 == $Nes::Minimal::_mod_perl) |
|
405
|
0 |
0 |
if (2 == $Nes::Minimal::_mod_perl and not defined $clen) |
|
408
|
0 |
0 |
if ($clen < $read_length) |
|
412
|
0 |
0 |
defined $ENV{'CONTENT_TYPE'} ? : |
|
413
|
0 |
0 |
if (not $content_type and 2 == $Nes::Minimal::_mod_perl) |
|
417
|
0 |
0 |
if $content_type =~ m[^multipart/form-data; boundary=(.*)$]i |
|
422
|
0 |
0 |
if ($bdry and $Nes::Minimal::_sub_filter or $bdry and $ENV{'CONTENT_LENGTH'} > $Nes::Minimal::_use_tmp and $Nes::Minimal::_use_tmp) { } |
|
425
|
0 |
0 |
if ($ENV{'CONTENT_LENGTH'} > $Nes::Minimal::_max_upload) |
|
433
|
0 |
0 |
if (2 == $Nes::Minimal::_mod_perl) { } |
|
441
|
0 |
0 |
if ($ENV{'CONTENT_LENGTH'} > $$vars{'max_buffer'}) |
|
448
|
0 |
0 |
if ($read_length) |
|
449
|
0 |
0 |
if (2 == $Nes::Minimal::_mod_perl) { } |
|
454
|
0 |
0 |
if $Nes::Minimal::_sub_filter |
|
459
|
0 |
0 |
$read_bytes < $clen ? : |
|
461
|
0 |
0 |
unless (defined $Nes::Minimal::_BUFFER_saved) |
|
469
|
0 |
0 |
if ($content_type =~ m[^multipart/form-data; boundary=(.*)$]i) { } |
|
484
|
0 |
0 |
if ($r) { } |
|
513
|
0 |
0 |
if ($Nes::Minimal::_save_BUFFER) |
|
522
|
0 |
0 |
if ($read_bytes > $Nes::Minimal::_max_upload) |
|
530
|
0 |
0 |
if ($data =~ /^(--\Q$bdry\E\015\012Content-Disposition:[^\015\012]* name\=\"([^\"]*)\"(?:[^\015\012]* filename\=\"([^\"]*)"[^\015\012]*|[^\015\012]*)\015\012([^\015\012]*)\015\012)/is) { } |
|
|
0 |
0 |
elsif ($data =~ /^(\015\012--\Q$bdry\E--.*)/is) { } |
|
536
|
0 |
0 |
if $buffer_fh |
|
537
|
0 |
0 |
if ($file_name and $use_tmp) |
|
540
|
0 |
0 |
if $buffer_fh |
|
549
|
0 |
0 |
if $buffer_fh |
|
554
|
0 |
0 |
if ($data =~ /(\015\012)(--\Q$bdry\E\015\012)/) { } |
|
557
|
0 |
0 |
if $content_type =~ /Content-Type: text/i or not $content_type |
|
558
|
0 |
0 |
if ($file_name and $use_tmp) { } |
|
561
|
0 |
0 |
if $buffer_fh |
|
567
|
0 |
0 |
if $buffer_fh |
|
570
|
0 |
0 |
if $content_type =~ /Content-Type: text/i or not $content_type |
|
571
|
0 |
0 |
unless $file_name and $use_tmp |
|
572
|
0 |
0 |
if $file_name and $use_tmp |
|
573
|
0 |
0 |
if $buffer_fh |
|
579
|
0 |
0 |
if $buffer_fh |
|
588
|
0 |
0 |
unless $Nes::Minimal::_sub_filter |
|
603
|
0 |
0 |
if (1 == $Nes::Minimal::_mod_perl) { } |
|
|
0 |
0 |
elsif (2 == $Nes::Minimal::_mod_perl) { } |
|
609
|
0 |
0 |
unless (exists $ENV{'REQUEST_METHOD'} or $Nes::Minimal::_no_subprocess_env) |
|
612
|
0 |
0 |
unless $req_method |
|
614
|
0 |
0 |
if defined $ENV{'QUERY_STRING'} |
|
616
|
0 |
0 |
if ($req_method ne 'POST') |
|
637
|
0 |
0 |
$buffer ? : |
|
642
|
0 |
0 |
unless defined $name |
|
645
|
0 |
0 |
defined $1 ? : |
|
646
|
0 |
0 |
unless defined $data |
|
649
|
0 |
0 |
defined $1 ? : |
|
651
|
0 |
0 |
unless (defined $$vars{'field'}{$name}{'count'}) |
|
670
|
0 |
0 |
if $] >= 5.006 |
|
672
|
0 |
0 |
if ($c < 128) { } |
|
|
0 |
0 |
elsif ($c < 2048) { } |
|
|
0 |
0 |
elsif ($c < 65536) { } |
|
|
0 |
0 |
elsif ($c < 2097152) { } |
|
|
0 |
0 |
elsif ($c < 67108864) { } |
|
|
0 |
0 |
elsif ($c < 2147483648) { } |
|
714
|
0 |
0 |
unless defined $s |
|
727
|
0 |
0 |
unless defined $s |