lib/SVNBrowser/Dispatcher.pm

#
package SVNBrowser::Dispatcher;

use strict;
use warnings;

use Jifty::Dispatcher -base;

use Data::Dump qw/dump/;

under '' => [

        on qr{author/([^/]+)} => run {
                set author => $1;
        },

        on qr{actions} => run {
                set show_actions => 1;
        },

        on qr{page/(\d+)} => run {
                set per_page => $1;
        },

        on qr{from/([^/]+)} => run {
                set from_date => $1;
        },

        on qr{to/([^/]+)} => run {
                set to_date => $1;
        },

        on qr{search/([^/]+)} => run {
                set search => $1;
        },

        run {
                show '/list';
        },

];

1;
1	dpavlin	5	#
2			package SVNBrowser::Dispatcher;
3
4			use strict;
5			use warnings;
6
7			use Jifty::Dispatcher -base;
8
9			use Data::Dump qw/dump/;
10
11	dpavlin	22	under '' => [
12	dpavlin	5
13	dpavlin	22	on qr{author/([^/]+)} => run {
14			set author => $1;
15			},
16	dpavlin	5
17	dpavlin	22	on qr{actions} => run {
18			set show_actions => 1;
19			},
20
21			on qr{page/(\d+)} => run {
22	dpavlin	23	set per_page => $1;
23	dpavlin	22	},
24
25			on qr{from/([^/]+)} => run {
26			set from_date => $1;
27			},
28
29			on qr{to/([^/]+)} => run {
30			set to_date => $1;
31			},
32
33	dpavlin	23	on qr{search/([^/]+)} => run {
34			set search => $1;
35			},
36
37	dpavlin	22	run {
38			show '/list';
39			},
40
41			];
42
43	dpavlin	5	1;