File Coverage

blib/lib/Blosxom/Plugin/Web/Request/Upload.pm

Criterion	Covered	Total	%
statement	30	34	88.2
branch	1	2	50.0
condition			n/a
subroutine	10	12	83.3
pod	7	8	87.5
total	48	56	85.7

package Blosxom::Plugin::Web::Request::Upload;
use strict;
use warnings;
use File::Spec::Unix;

sub new {
    my ( $class, %args ) = @_;

    my %header;
    if ( my $header = delete $args{header} ) {
        my @fields = map { lc } keys %{ $header };
        @header{ @fields } = values %{ $header };
    }

    my %self = (
        header => \%header,
        fh     => delete $args{fh},
        path   => delete $args{path},
    );

    bless \%self, $class;
}

sub path { shift->{path} }

sub fh       { $_[0]->{fh}    }
sub size     { -s $_[0]->{fh} }
sub filename { "$_[0]->{fh}"  }

sub content_type { shift->{header}->{'content-type'} }

sub header {
    my ( $self, $field ) = @_;
    $field =~ tr/_A-Z/-a-z/;
    $self->{header}->{$field};
}

sub basename {
    my $self = shift;
    ( my $basename = $self->filename ) =~ s{\\}{/}g;
    $basename = ( File::Spec::Unix->splitpath($basename) )[2];
    $basename =~ s{[^\w\.-]+}{_}g;
    $basename;
}

package Fh; # See CGI.pm

sub file {
    require IO::File;
    IO::File->new_from_fd( fileno $_[0], '<' );
}

1;

__END__