Code Index:

package CGI::Dispatcher::Simple
- new
- dispatch
EOF

NAME

CGI::Dispatcher::Simple - Simple CGI Dispacher by PATH_INFO

SYNOPSIS

  # In your App

  package MyApp;
  use base qw/CGI::Dispacher::Simple/;

  sub run {
      my $self = shift;

      $self->dispatch({
          '/' => 'default',
	  '/list' => 'list',
	  '/add' => 'add',
      });
  }

  sub default {
      :
  }

   :

  # And in your CGI script

  my $app = MyApp->new;
  $app->run;

DESCRIPTION

This module provide you to simple dispatcher by using PATH_INFO.

You can set some methods as hashref, PATH_INFO are keys, METHODS are values. like:

  '/' => 'default',
  '/list/add' => 'add',

And, rest of PATH_INFO is saved in $self->args as arrayref. When PATH_INFO is '/list/add/foo/bar' in above example, $self->args is:

  [ 'foo', 'bar' ]

If you define $self->begin or $self->end methods, these are called automatically before/after PATH_INFO method.

And when PATH_INFO is not defined, dispatch to '/' method.

METHODS

new
dispatch

AUTHOR

Daisuke Murase <typester@cpan.org>

COPYRIGHT

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

The full text of the license can be found in the LICENSE file included with this module.