The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package CogWiki;
use 5.008003;
use Mouse;
extends 'Cog::Plugin';

our $VERSION = '0.02';

sub url_map {
    [
        '()',
        ['/' => 'redirect', ('/pages/')],
        ['/home/?' => 'home_page'],
        ['/pages/?' => 'page_list'],
        ['/page/([A-Z0-9]{4})/?' => 'page_display', ('$1')],
        ['/page/name/([^/]+)/?' => 'page_by_name', ('$1')],
        ['/tags/' => 'tag_list' ],
        ['/tag/([^/]+)/?' => 'tag_page_list', ('$1')],
    ]
}

sub site_navigation {
    [
        '()',
        ['Home' => '/home/'],
        ['Recent Changes' => '/pages/'],
        ['Tags' => '/tags/'],
    ]
}

1;

=encoding utf8

=head1 NAME

CogWiki - Cog Based Wiki Framework

=head1 SYNOPSIS

    > cog init CogWiki
    > cog make
    > cog start

=head1 AUTHOR

Ingy döt Net <ingy@cpan.org>

=head1 COPYRIGHT

Copyright (c) 2010. Ingy döt Net.

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

See http://www.perl.com/perl/misc/Artistic.html

=cut