use warnings;
use strict;
use HTTP::Server::Brick;
my $server = HTTP::Server::Brick->new( port => 7777 );
my $html = << ''
<html>
<head>
<title>コレはテストです！</title>
<head>
<body>
<h1>HTTP::Server::Brickはすげえ！</h1>
<hr>
<p>いやまじんこすげえ！</p>
</body>
</html>
$server->mount('/' => {
handler => sub {
my ( $req, $res ) = @_;
$res->header('content_type','text/html; charset=euc-jp');
$res->add_content($html);
1;
},
wildcard => 1
});
$server->start;
で、見ると、
こんな感じになる。
あたりまえの事をそつ無くこなすところとか、依存パッケージが馬鹿に少ないところとか、とにかくシンプルなところとか、mod_perlに載せやすいとか、色々萌え要素が多すぎて、いろんな意味で成人指定な感じがしましたよお兄さん！
