4 package Web::Dispatch::Upload;
5 require Plack::Request::Upload;
6 our @ISA = qw(Plack::Request::Upload);
7 use overload '""' => 'tempname', fallback => 1;
15 package Web::Dispatch::NotAnUpload;
17 use overload '""' => '_explode', fallback => 1;
20 my ($class, %args) = @_;
22 filename => $args{filename},
23 reason => $args{reason}
29 sub reason { $_[0]->{reason} }
32 die "Not actually an upload: ".$_[0]->{reason}
35 sub filename { $_[0]->_explode }
36 sub headers { $_[0]->_explode }
37 sub size { $_[0]->_explode }
38 sub tempname { $_[0]->_explode }
39 sub path { $_[0]->_explode }
40 sub content_type { $_[0]->_explode }
41 sub type { $_[0]->_explode }
42 sub basename { $_[0]->_explode }