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 } |