HTML::FormFu::Upload - uploaded file

HTML-FormFu documentation

Contained in the HTML-FormFu distribution.

Index

Code Index:

package HTML::FormFu::Upload
- BUILD
- _param
- slurp
__END__
EOF

NAME

HTML::FormFu::Upload - uploaded file

DESCRIPTION

An instance is created for each uploaded file.

You will normally get an object of one of the following classes, which inherit from HTML::FormFu::Upload:

HTML::FormFu::QueryType::CGI
HTML::FormFu::QueryType::Catalyst
HTML::FormFu::QueryType::CGI::Simple

METHODS

parent

Returns the field (HTML::FormFu::Element::_Field) object that the upload object is associated with.

form

Returns the HTML::FormFu object that the upload object's field is attached to.

populate

See populate in HTML::FormFu for details.

SEE ALSO

AUTHOR

Carl Franks, cfranks@cpan.org

LICENSE

This library is free software, you can redistribute it and/or modify it under the same terms as Perl itself.

HTML-FormFu documentation

Contained in the HTML-FormFu distribution.

package HTML::FormFu::Upload;
use Moose;

with 'HTML::FormFu::Role::Populate';

use Carp qw( croak );

use HTML::FormFu::ObjectUtil qw( form parent );
use HTML::FormFu::UploadParam;
use Scalar::Util qw( reftype );

has headers  => ( is => 'rw', traits  => ['Chained'] );
has filename => ( is => 'rw', traits  => ['Chained'] );
has size     => ( is => 'rw', traits  => ['Chained'] );
has type     => ( is => 'rw', traits  => ['Chained'] );

sub BUILD {}

sub _param {
    my ( $self, $param ) = @_;

    if ( @_ > 1 ) {
        $param = HTML::FormFu::UploadParam->new( { param => $param, } );

        $param->form( $self->form );

        $self->{_param} = $param;
    }

    return defined $self->{_param} ? $self->{_param}->param : ();
}

sub slurp {
    my ($self) = @_;

    my $fh = $self->fh;

    return if !defined $fh;

    binmode $fh;

    local $/;

    return <$fh>;
}

__PACKAGE__->meta->make_immutable;

1;

__END__