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;