mywebapp.pl


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

#!/usr/bin/env perl
use Dancer;
use lib ('lib');
load_app 'mywebapp';

use Plack::Builder;
use Log::Dispatch::Config;
use Log::Dispatch::File;

my $logger = Log::Dispatch->new;
$logger->add(
    Log::Dispatch::File->new(
        min_level => 'info',
        filename  => 'logs/mywebapp.log',
        mode      => 'append',
        newline   => 1,
    )
);

my $app = sub {
    my $env     = shift;
    my $request = Dancer::Request->new($env);
    Dancer->dance($request);
};

builder {
    enable "Transaction";
    enable "APIRateLimit", requests_per_hour => 2;
    enable "LogDispatch", logger => $logger;
    $app;
};