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

use strict;
use base 'Catalyst::Controller';
use Data::Dumper;

sub default : Private {
    my ( $self, $c ) = @_;
    
    $c->forward( 'form' );
}

# The form method displays the upload form 
sub form : Local {
    my ( $self, $c ) = @_;
    
    $c->stash->{template} = 'form.xhtml';
}

1;