YappoLogs

Log::Dispatch::Screen::Color - ログに色付けるよ

Log::Dispatch::Screen::Color を shipit しました。(りぽじとりはこっち)
昨年末に空前のlog colorブームがあったのですが、最近僕もようやくLog::Dispatchをまともに使うようになったので、Log::Dispatch::Screenに色付けたくなって付けました。
うそです。hirose31さんが呟いてたので作りました。

こんなコードと

use strict;
use warnings;
use Log::Dispatch::Config;

Log::Dispatch::Config->configure('test.cfg');
my $log = Log::Dispatch::Config->instance();

$log->info('いんふぉー');
$log->error('えらーーーーーだよ');
$log->warning('warningwarningwarning');

こんなconfigで

dispatchers = screen

screen.class = Log::Dispatch::Screen::Color
screen.min_level = debug
screen.stderr = 1
screen.format = [%d] [%p] %m at %F line %L%n

こうなります

もちろんLog::Dispatch::Colorfulは知っているのですが、これを使うとLog::Dispatchのメソッドを書き換えちゃうので、やや微妙という所もありすっきり仕上げてみたしだいです。
パッチ送れって話もあるですが、$foo->debug({ foo => 'bar' })みたいな事したらDumpしてくれるようにvalidateとか変えてあって、ちょっと僕の欲しい物の方向性じゃ無さそうだという所で新たに作ったのでした。

Log::Dispatch::Colorfulとの互換性はあるので安心です。

とか書いてるうちにcharsbarさんがWin32対応書いてくれたす charsbar++

Posted by Yappo at 2009年05月08日 14:44 | TrackBack | Perl