package HTML::FormFu::Element::File; use Moose; extends 'HTML::FormFu::Element'; with 'HTML::FormFu::Role::Element::Input'; after BUILD => sub { my $self = shift; $self->field_type('file'); $self->form->enctype('multipart/form-data'); return; }; __PACKAGE__->meta->make_immutable; 1; __END__ =head1 NAME HTML::FormFu::Element::File - File upload form field =head1 SYNOPSIS --- elements: type: File name: photo my $photo = $form->param('photo'); my $blob = $photo->slurp; =head1 DESCRIPTION File upload form field. See the documentation relevant to the L you're using: =over =item L =item L =item L =back =head1 METHODS =head1 SEE ALSO Is a sub-class of, and inherits methods from L, L, L L =head1 AUTHOR Carl Franks, C =head1 LICENSE This library is free software, you can redistribute it and/or modify it under the same terms as Perl itself. =cut