akiym/Plack-Middleware-Warn-txt · GitHub
use strict; use warnings; use Plack::Builder; my $app = sub { my $env = shift; return [200, ['Content-Type' => 'text/plain'], ['hello']]; }; builder { enable 'Plack::Middleware::Warn::txt', author => '2ch', url => [ qw( http://yaraon.blog109.fc2.com/ http://hamusoku.com/ http://blog.esuteru.com/ http://jin115.com/ http://blog.livedoor.jp/insidears/ ) ]; $app; };