Re: CGI::Application with 'main' runmodes and 'sub' runmodes

CGI::Application::Dispatch was created to help you with problems like this so e.g. instead of your App::Main you'd have an invocation script like:

#!/usr/bin/perl
use strict;
use CGI::Application::Dispatch;

CGI::Application::Dispatch->dispatch(
    prefix  => 'App',
    default => 'one',
);
[download]

This should do what you want (including the path info dispatch), but CGI::Application::Dispatch has lots more configuration options should you need more power.

Having said this, I now prefer CGI::Prototype over CGI::App, beacuse with CGI::Prototype, run modes are handled by classes so each of your two dozen (and growing) run modes would live in its own small module. I find this makes the application a lot more manageable as it increases in size.

Comment on Re: CGI::Application with 'main' runmodes and 'sub' runmodes Download Code

Replies are listed 'Best First'.

Re^2: CGI::Application with 'main' runmodes and 'sub' runmodes
by Rhandom (Curate) on Apr 28, 2007 at 20:17 UTC

CGI::Prototype

CGI::Ex::App


#!/usr/bin/perl

package Foo;

use strict;
use warnings;
use base qw(CGI::Ex::App);

Foo->new->navigate;
exit;

sub base_dir_abs { '/var/www/templates' }

### tell the application to
### look for a module to handle each run mode (step)
sub allow_morph { 1 }

{
    # This could be in its own file - or
    # embedded in here is fine
    # you can get here by going to
    # /cgi-bin/my_cgi
    # or /cgi-bin/my_cgi/main
    # or /cgi-bin/my_cgi?step=main
    package Foo::Main;

    sub file_print {
       return \ <<'HERE';
<h1>Step Main</h1>
This is the default run mode.
You said [% hello %].
HERE

    sub hash_swap {
        return {hello => "I'm main!"};
    }

} # end of Foo::Main


# you get to step2 by calling
# /cgi-bin/my_cgi?step=step2
# or
# /cgi-bin/my_cgi/step2

# these methods are just sitting the the Foo class
sub step2_file_print {
    return \ <<'HERE';
<h1>I'm in step 2</h1>
You said [% hello %].
HERE

sub step2_hash_swap {
    return {hello => 'Hello Step2'};
}

# uncomment for a trace of which methods were looked for
# sub post_navigate {
#    use CGI::Ex::Dump qw(debug);
#    debug shift->dump_history;
#}
[download]

my @a=qw(random brilliant braindead); print $a[rand(@a)];

[reply]
[d/l]


Think about Loose Coupling
	PerlMonks