view release on metacpan or  search on metacpan

lib/Blosxom/Plugin/Web/Request/Upload.pm  view on Meta::CPAN

    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;