#!/usr/bin/perl use strict; use warnings; use lib ('lib'); use File::Basename; use FeedDiscovery::Handler; use Tatsumaki::Application; use Plack::Builder; use Redis; my $app = Tatsumaki::Application->new( [ '/' => 'FeedDiscovery::Handler' ], ); $app->template_path(dirname(__FILE__) . "/templates"); $app->static_path(dirname(__FILE__) . "/static"); builder { enable "Plack::Middleware::ConditionalGET"; enable "Plack::Middleware::ETag"; enable "Plack::Middleware::Throttle::Hourly", backend => Redis->new( server => '127.0.0.1:6379', ), max => 10; $app; };