The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

MARKSTOS / CGI-Application-Dispatch-3.12 / t / lib / MyApp / Dispatch.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13

              
package MyApp::Dispatch;
use base 'CGI::Application::Dispatch';
sub translate_module_name {
    my $self = shift;
    return 'MyApp::Module::Name';
}
sub get_runmode {
    return 'rm2';
}
1;