NAME

Gestinanna::Upload - manages file uploads

METHODS

new

name

filename

fh

sub fh { my $self = shift; # return IO::String object my $R = Gestinanna::Request -> instance;

    my $ob = $R -> factory(upload => object_id => $self -> {id});
    return IO::String -> new($ob -> content);
}

content

sub content { my $self = shift; # return IO::String object my $R = Gestinanna::Request -> instance;

    my $ob = $R -> factory(upload => object_id => $self -> {id});
    return \($ob -> content);
}

size

info

sub info { @_ > 1 ? undef : { } }

type

hash