Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

use strict;
sub new {
my ($class, $q, $name) = @_;
my $upload = $q->upload($name);
return unless $upload;
bless {
q => $q,
name => $name,
upload => $upload,
}, $class;
}
sub size { shift->{upload}->size }
sub type { shift->{upload}->type }
sub fh {
my ($self, ) = @_;
$self->{upload}->fh;
}
1;