The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package # hide from PAUSE
    Upload;

use strict;
use Catalyst;

our $VERSION = '0.01';

Upload->config( 
    name => 'Upload',
);

Upload->setup( qw/-Debug
                  Static::Simple
                  Cache::FastMmap
                  UploadProgress
                  / );

sub default : Private {
    my ( $self, $c ) = @_;

    $c->res->redirect( $c->uri_for('/upload') );
}

sub end : Private {
    my ( $self, $c ) = @_;
    
    return 1 if $c->res->status =~ /^3\d\d$/;
    return 1 if $c->res->body;
    $c->res->content_type( 'text/html; charset=utf-8' ) 
        unless ( $c->res->content_type );    

    $c->forward( $c->view('TT') ) unless $c->response->body;
    die if $c->debug && $c->req->params->{die};
}

1;