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 : { } }