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.