libcgi-application-plugin-actiondispatch-perl 0.99-2 / usr / share / doc / libcgi-application-plugin-actiondispatch-perl / examples / TestApp.pm

package TestApp;

use base 'CGI::Application';
use lib '../lib';
use CGI::Application::Plugin::ActionDispatch;

sub product : Regex('^/products/books/war_and_peace/(\d+)/')  {
  my $self = shift;
  my $page_num = $self->action_args();
  return "Runmode: product\nCategory: books\nProduct: war_and_peace\nArgs: $page_num\n";
}

sub home : Default {
  return "Runmode: home\n";
}

sub test : Runmode {
  my @args = $self->action_args();
  return "Runmode: test\n";
}

sub fail : Path('fail') {
  die "Call error mode";
}

sub error_page : ErrorRunmode {
  return "Runmode: error_page\n";
}

1;