| blib/lib/HTTP/Entity/Parser/MultiPart.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % | 
| condition | 8 | 9 | 88.8 | 
| line | !l | l&&!r | l&&r | condition | 
|---|---|---|---|---|
| 119 | 50 | 17 | 71 | $final and $part->{'filename'} ne '' | 
| line | l | !l&&r | !l&&!r | condition | 
|---|---|---|---|---|
| 47 | 23 | 13 | 7 | $k eq 'name' or $k eq 'filename' | 
| 100 | 46 | 42 | 0 | $self->{'tempdir'} ||= do { my $dir = 'File::Temp'->newdir('XXXXX', 'TMPDIR', 1, 'CLEANUP', 1); push @{$$env{'http.entity.parser.multipart.tempdir'};}, $dir; $dir } |