File Coverage

blib/lib/HTTP/Engine/Request/Upload.pm

Criterion	Covered	Total	%
statement	6	19	31.5
branch	0	2	0.0
condition			n/a
subroutine	2	5	40.0
pod	3	3	100.0
total	11	29	37.9

package HTTP::Engine::Request::Upload;
use Any::Moose;
has filename => (
    is => 'ro',
);
has headers  => (
    is => 'ro',
    handles => {
        type => 'content_type'
    },
);
has size     => (
    is => 'ro',
);
has tempname => (
    is => 'ro',
);
has basename => (
    is => 'ro',
    lazy    => 1,
    default => sub {
        my $self = shift;
        require File::Spec::Unix;
        my $basename = $self->filename;
        $basename =~ s|\\|/|g;
        $basename = ( File::Spec::Unix->splitpath($basename) )[2];
        $basename =~ s|[^\w\.-]+|_|g;
        $basename;
    }
);

has fh => (
    is => 'ro',
    lazy     => 1,
    default  => sub {
        my $self = shift;

        open my $fh, '<', $self->tempname or die "Can't open '@{[ $self->tempname ]}': '$!'";
        return $fh;
    },
);

sub copy_to {
    my $self = shift;
    require File::Copy;
    File::Copy::copy( $self->tempname, @_ );
}

sub link_to {
    my ( $self, $target ) = @_;
    CORE::link( $self->tempname, $target );
}

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

    $layer = ':raw' unless $layer;

    my $content = undef;
    my $handle  = $self->fh;

    binmode( $handle, $layer );

    while ( $handle->read( my $buffer, 8192 ) ) {
        $content .= $buffer;
    }

    $content;
}

no Any::Moose;
__PACKAGE__->meta->make_immutable(inline_destructor => 1);
1;
__END__