HTTPx::Middlewareのイメージ。request_handlerをwrapできればよいというのをMouseで実装すると以下のような感じ。Middlewareの仕様としては、 MouseのRoleとする handle_requestメソッドを実装 handle_requestの引数は、request Rackとかのcallメソッドに対…

HTTP::Engine::Middleware http://coderepos.org/share/browser/lang/perl/HTTP-Engine-Middleware/branches/functional/wrapでrequest_handlerをwrapしていく感じ。後はrequestにメソッド生やす系。 組み立て部分は、以下の部分。App/Mobirc/Plugin/Compone…

MobircのMiddlewareの仕様にあわせてCatalyst::Plugin::Unicodeをそのまんま移植してみた。 package HTTPx::Middleware::Unicode; use Mouse; use utf8; sub wrap { my ( $class, $next ) = @_; sub { my $req = shift; decode_params($req); my $res = $nex…

Middlewareにもconfig渡すようにしてみると、使いやすいんじゃないかという気がした。イメージ的には、以下のようなイメージ。こうすると、handlerもconstructorに渡したくなるような気もする。。 sub build_request_handler { my ($self, $handler, $args) …

趣味でPerlのWAF作りをはじめてから、何故かRubyのコードばかり読んでいる今日この頃なんですが、merbはなかなか良さそうですね。幾つか面白い機構があるので、それは暇みつけて書いていってみよう。merbはrailsよりは大分コードもわかりやすいですし、読み…