8 |
|
|
9 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
10 |
|
|
11 |
under '' => [ |
under 'rev' => [ |
12 |
|
|
13 |
|
on qr{rev/(\d+)(/*.*)} => run { |
14 |
|
set revision => $1; |
15 |
|
set path => $2; |
16 |
|
}, |
17 |
|
|
18 |
|
show '/rev', |
19 |
|
]; |
20 |
|
|
21 |
|
under 'filter' => [ |
22 |
|
|
23 |
on qr{author/([^/]+)} => run { |
on qr{author/([^/]+)} => run { |
24 |
set author => $1; |
set author => $1; |
29 |
}, |
}, |
30 |
|
|
31 |
on qr{page/(\d+)} => run { |
on qr{page/(\d+)} => run { |
32 |
set on_page => $1; |
set per_page => $1; |
33 |
}, |
}, |
34 |
|
|
35 |
on qr{from/([^/]+)} => run { |
on qr{from/([^/]+)} => run { |
40 |
set to_date => $1; |
set to_date => $1; |
41 |
}, |
}, |
42 |
|
|
43 |
|
on qr{search/([^/]+)} => run { |
44 |
|
set search => $1; |
45 |
|
}, |
46 |
|
|
47 |
run { |
run { |
48 |
show '/list'; |
show '/list'; |
49 |
}, |
}, |
50 |
|
|
51 |
]; |
]; |
52 |
|
|
53 |
|
on '' => run { |
54 |
|
redirect '/filter'; |
55 |
|
}; |
56 |
|
|
57 |
1; |
1; |