package MyApp::Module::Rest;
use base 'CGI::Application';

sub setup {
    my $self = shift;
    $self->start_mode('rm1');
    $self->run_modes([qw/
        rm1_GET
        rm1_POST
        rm2_post
        get_rm3 
        rm4
    /]); 
}

sub rm1_GET {
    my $self = shift;
    return 'MyApp::Module::Rest->rm1_GET';
}

sub rm1_POST {
    my $self = shift;
    return 'MyApp::Module::Rest->rm1_POST';
}

sub rm2_post {
    my $self = shift;
    return 'MyApp::Module::Rest->rm2_post';
}

sub get_rm3 {
    my $self = shift;
    return 'MyApp::Module::Rest->get_rm3';
}

sub rm4 {
    my $self = shift;
    return 'MyApp::Module::Rest->rm4';
}


1;