use strict;
use warnings;
use utf8;
use lib 'lib';

use Plusen;

my $p = Plusen->bootstrap({
    config => {
        meta  => {
            title => '無題ドキュメント',
            author => 'Shibuya.trac - Yappo',
            email => 'yappo <at> shibuya <döt> pl',
        },
        plugins => [
            { module => 'ScriptLoader::Simple' },
#            { module => 'Device::MozRepl', },
            { module => 'Device::Term', },
            {   
                module => 'Device::Partty',
                config => {
                    session_name      => 'CatalystCon',
                    message           => 'yappo',
                    writable_password => 'writable_password',
                    readonly_password => '',
                },
            },
#            { module => 'Device::Growl', },
            { module => 'Device::ControlFromFile', config => { path => '/tmp/devsumi-ctl.txt' } },
        ],
    },
});


__DATA__

===
title:  one more thing...

===
title: Catalystアプリで書くのが大げさな

===
title: HTTP Server付きソフト

===
title: 例えば

===
title: mobirc

===
title: Moxy

===
title: Plagger Server

===
title: とかそういうのを書く時に

===
title: HTTPd をどうしてますか?

===
title: HTTP::Server::Simple ?

===
title: Net::Server::PreFork ?

===
title: brad ?

===
title: POE ?

===
title: それをコピペして使い回す?

===
title: NO! NO! NO! DONT!

===
title: HTTP::Server::Wrapper を使おう

===
title: HTTP::Server::Wrapper とは
list:
  - Catalyst::Engine ベース
  - 正確には Soozy::Engine だけど
  - C::E の HTTP 処理部分だけを切り離して
  - 他のアプリから使い回せる

===
title: 使い方超簡単

===
title: TTP::Server::Wrapper->new('config.yaml', handle_request => sub {my $e = shift; $e->env('DUMY'); $e->res->body(Dumper($e)) } )->run;

===
title: これだけで動く

===
title: なんで Catalyst でやらないの?

===
title: そもそも Catalyst::Engine はおかしい

===
title: Engine というぐらいなんだから HTTP のハンドリングは全部そっちでやってくれ

===
title: リクエスト処理やレスポンス処理の拡張は Catalyst::Plugin じゃなくて Engine でやるのが自然じゃないかと思う

===
title: Catalyst::Plugin なんか誰も使ってないとかで有名だけど

===
title: Catalyst::Engine って拡張する方法って code ref 突っ込むか use base するしかないしー

===
title: だから

===
title: HTTP::Server::Wrapper を使おう

===
title: Class::Component によるプラグイン機構により簡単に拡張出来る

===
title: しかも Component::Plaggerize により Plagger っぽい config と logging !

===
title: 例えば HTTP::MobileAttibute を request につけるのは

===
title: sub mobileattribute : RequestMethod { HTTP::MobileAttribute->new($_[1]->req) }

===
title: これで

===
title: $self->req->mobileattribute ができる

===
title: HTTP::Server::Wrapper を使って WAF を作ると

===
title: WAF の開発者は WAF 本業の Controller や Dispatcher の実装のみに専念出来る

===
title: session やら auth などは HTTP::Server::Wrapper にお任せ

===
title: 今までは WAF 毎にバラバラに存在していたプラグインが統一されるので色々楽じゃね

===
title: Catalyst, Jifty, Sledge が、 HTW に対応するのも簡単なはずです

===
title: あとは

===
title: Catalyst なんか Engine 部分しか使ってないよって人にもおすすめ

===
title: どうぞご利用下さい

===
title: 一部構想だけの話も含まれていて、いまcommitしたコードとは若干異なります