package testapp;

use base 'CGI::Application';
use Data::Dumper;

sub setup {
    my $self = shift;
    $self->start_mode('index');
    $self->run_modes('index' => 'index');
}

## update
# sub cgiapp_get_query {
#  my $self = shift;
#  require CGI::Simple;
#  return  CGI::Simple->new();
# }

sub index {
        my $self = shift;

        return '<pre>'.Dumper($self);
}

1;