Dearest Monks and Monkesses,

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

In reply to CGI::Application - A little too lazy? by friedo

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.