| line |
true |
false |
branch |
|
50
|
0 |
0 |
if $$self{'tempdir'} |
|
52
|
0 |
0 |
if (my $status = $$self{'cgi'}->cgi_error) |
|
56
|
0 |
0 |
if ($ENV{'REQUEST_METHOD'} eq 'POST' and not $ENV{'CONTENT_TYPE'} =~ m[^multipart/form-data\b]i) |
|
121
|
0 |
0 |
if (@_) |
|
139
|
0 |
0 |
if (@_) |
|
166
|
0 |
0 |
unless @_ % 2 == 0 and @_ > 0 |
|
171
|
0 |
0 |
unless $names{$name} |
|
174
|
0 |
0 |
unless $args{'uploaddir'} |
|
177
|
0 |
0 |
unless -d $dir |
|
178
|
0 |
0 |
unless -r $dir and -w _ and -x _ |
|
181
|
0 |
0 |
if $args{'maxsize'} and not $args{'maxsize'} =~ /^-?\d+$/ |
|
194
|
0 |
0 |
unless $^O eq 'MSWin32' |
|
202
|
0 |
0 |
unless -e $path |
|
214
|
0 |
0 |
unless open my $OUT, '>', $path |
|
215
|
0 |
0 |
if ($files{$name}{'mimetype'} =~ /^text\b/) { } |
|
224
|
0 |
0 |
unless close $TEMP |
|
225
|
0 |
0 |
unless close $OUT |