Re^4: CHECKING IF HEADER DEFINED

Working on the assumption that you would already have one sub per action (which probably calls several other subs in turn) and merely use the id/elsif/sleif/else to decide which to dispatch to, then I still fail to see what benefits CGI::Application gives you.

From the documentation, you are expected to do this:

sub setup {
        my $self = shift;
        $self->start_mode('mode1');
        $self->mode_param('rm');
        $self->run_modes(
                'mode1' => 'do_stuff',
                'mode2' => 'do_more_stuff',
                'mode3' => 'do_something_else'
        );
  }
[download]

which really is just another way of writing this:

if    ($cgi{rm} eq 'mode1') { do_stuff }
 elsif($cgi{rm} eq 'mode2') { do_more_stuff }
 ...
[download]

it's just different boilerplate.

Comment on Re^4: CHECKING IF HEADER DEFINED Select or Download Code

Replies are listed 'Best First'.
Re^5: CHECKING IF HEADER DEFINED by trwww (Priest) on Aug 06, 2010 at 07:26 UTC
The `$self->run_modes` stuff takes care of the HTTP headers for you, which is the exact problem the OP has. So its much more useful than a large conditional where you claim it is identical. If you don't like configuring the runmodes in the setup method, you can just use CGI::Application::Plugin::AutoRunmode. Also, once you go with CGI::Application, you immediately have all of the plugins that others have shared on CPAN so you don't have to keep reinventing wheels that have already been done better by others.	[reply] [d/l]

Replies are listed 'Best First'.

Re^5: CHECKING IF HEADER DEFINED
by trwww (Priest) on Aug 06, 2010 at 07:26 UTC

The $self->run_modes stuff takes care of the HTTP headers for you, which is the exact problem the OP has. So its much more useful than a large conditional where you claim it is identical.

If you don't like configuring the runmodes in the setup method, you can just use CGI::Application::Plugin::AutoRunmode.

Also, once you go with CGI::Application, you immediately have all of the plugins that others have shared on CPAN so you don't have to keep reinventing wheels that have already been done better by others.

[reply]
[d/l]