I've recently been playing around with CGI::Application which I like a lot.

Every time I add a new runmode method, though, I forget to add it to the list that must be supplied to the run_modes method in the setup phase. Consequently, every time I try to run my app with a new mode, I get an error. "This is far too much work," I hollered, and changed my run_modes invocation to this:

package MyApp;

use strict;
use warnings;

use base 'CGI::Application';

sub setup { 
    my $self = shift;
    # ... other stuff

    my @modes = grep /^rm_/, keys %MyApp::;
    $self->run_modes( map { /rm_(.*)/ => $_ } @modes );
}
[download]

Sure enough, that nicely maps ?rm=foo to the method rm_foo and I can now add modes to my heart's content.

But it does kinda give me the heebie-jeebies. Anyway,

1. Does CGI::Application offer a better solution to what I'm doing?
2. Or is what I'm doing a completely horrible idea in the first place?
3. Suppose someone were to subclass MyApp and inherrit the setup method. They would get the MyApp runmodes but would not get any new modes in the subclass. Any way around that?

Much obliged, friedo