File Coverage

blib/lib/FormValidator/Lite/Upload/CGI.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod	0	4	0.0
total	26	31	83.8

package FormValidator::Lite::Upload::CGI;
use strict;
use warnings;
use base qw/FormValidator::Lite::Upload/;

sub new {
    my ($class, $q, $name) = @_;
    my $file = $q->param($name);
    return unless $file;

    my $info = $q->uploadInfo($file);
    bless {
        q        => $q,
        name     => $name,
        info     => $info,
    }, $class;
}

sub size { shift->{info}->{'Content-Length'} }
sub type { shift->{info}->{'Content-Type'}   }

sub fh {
    my ($self, ) = @_;
    $self->{q}->upload($self->{name});
}

1;