initial import

1 files changed, 31 insertions, 0 deletions

diff --git a/mywebapp.pl b/mywebapp.pl
new file mode 100755
index 0000000..9af1372
--- /dev/null
+++ b/mywebapp.pl
@@ -0,0 +1,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;
+};