source: bookmarks/trunk/index.cgi @ 29

#!/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/:field?[get]'   => { app => 'BookmarkApp', rm => 'view' },
            ':id?[post]'         => { app => 'BookmarkApp', rm => 'edit' },
        ],
    };
}

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