4 package Web::Dispatch::Upload;
5 use base qw(Plack::Request::Upload);
6 use overload '""' => 'tempname', fallback => 1;
14 package Web::Dispatch::NotAnUpload;
16 use overload '""' => '_explode', fallback => 1;
19 my ($class, %args) = @_;
21 filename => $args{filename},
22 reason => $args{reason}
28 sub reason { $_[0]->{reason} }
31 die "Not actually an upload: ".$_[0]->{reason}
34 sub filename { $_[0]->_explode }
35 sub headers { $_[0]->_explode }
36 sub size { $_[0]->_explode }
37 sub tempname { $_[0]->_explode }
38 sub path { $_[0]->_explode }
39 sub content_type { $_[0]->_explode }
40 sub type { $_[0]->_explode }
41 sub basename { $_[0]->_explode }