Arc Forumnew | comments | leaders | submitlogin
3 points by rhandom 6168 days ago | link | parent

Here is another Perl one with CGI::Ex::App (with an un-released version with session support).

  use base qw(CGI::Ex::App);
  __PACKAGE__->navigate;

  sub main_file_print  { \"<form method=post><input name=foo><input type=submit></form>" }
  sub main_finalize    { my $self = shift; $self->session($self->form); 1 }
  sub main_next_step   { 'click' }
  sub click_file_print { \"<a href=[%script_name%]/show>click here</a>" }
  sub show_file_print  { \"you said: [% session.foo.html %]" }