| blib/lib/Blosxom/Plugin/Web/Request.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 2 | 3 | 66.6 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 43 | 2 | 1 | 0 | $$self{'upload'} ||= do { require Blosxom::Plugin::Web::Request::Upload; my $query = $$self{'query'}; my %upload; foreach my $field ($query->param) { my @uploads; foreach my $fh ($query->upload($field)) { my $upload = 'Blosxom::Plugin::Web::Request::Upload'->new('fh', $fh, 'path', $query->tmpFileName($fh), 'header', $query->uploadInfo($fh)); push @uploads, $upload; } ; $upload{$field} = \@uploads if @uploads; } ; \%upload } |