#!/usr/bin/perl

use strict;
use warnings;
use FindBin ();
use lib $FindBin::Bin;
use TestApp;

my $webapp = TestApp->new();
$webapp->param(test => 1, one => 'hello', two => 'world');
$webapp->run();

package TestApp;

use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser);
use base ('CGI::Application');

sub setup{
    my ($self)  = @_;
    $self->start_mode('login');
    $self->mode_param('mode');
    $self->run_modes(AUTOLOAD        => \&login,
                     login           => \&login,);
}


sub login{
    my ($self) = @_;
    
    my $string = "";

    $string = join("<br />",map{$_ . " --> " . $self->param($_)}qw(test one two));

    return $string;
}

1;