/
Flowers.pm
48 lines (33 loc) · 929 Bytes
/
Flowers.pm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
package Flowers;
use Dancer ':syntax';
use Dancer::Plugin::Form;
use Dancer::Plugin::Nitesi;
use Dancer::Plugin::Nitesi::Routes;
use Flowers::Products qw/product product_list/;
use Flowers::Routes::Account;
use Flowers::Routes::Checkout;
use Flowers::Routes::Item;
use Flowers::Routes::Payment;
use Flowers::Routes::Search;
our $VERSION = '0.0001';
hook 'before_template' => sub {
my $tokens = shift;
$tokens->{form} ||= form;
$tokens->{total} = cart->total;
$tokens->{main_menu} = query->select(table => 'navigation',
type => 'category',
where => {});
};
get '/' => sub {
my ($form, $sort, $products);
$form = form('sort');
$sort = param('sort');
$form->fill(sort => $sort);
$products = product_list(sort => $sort);
template 'listing', {products => $products, sort => $sort, form => $form};
};
shop_setup_routes;
true;
=head1 NAME
Flowers - Flowers Website
=cut