Plack::Middleware::Warn::txt書いた

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;
};