#!/usr/bin/perl -w
use strict;

package BookmarkApp::Dispatch;
use base 'CGI::Application::Dispatch';

sub dispatch_args {
    return {
        table => [
            '[get]'           => { app => 'BookmarkApp', rm => 'list' },
            'list[get]'       => { app => 'BookmarkApp', rm => 'list' },
            'feed[get]'       => { app => 'BookmarkApp', rm => 'feed' },
            ':id[get]'        => { app => 'BookmarkApp', rm => 'view' },
            ':id/:field[get]' => { app => 'BookmarkApp', rm => 'view_field' },
            ':id?[post]'      => { app => 'BookmarkApp', rm => 'edit' },
        ],
    };
}

package main;
BookmarkApp::Dispatch->dispatch();