感情を表現するログライブラリ「Log::Minimal::Emotional 」

普段は味気ないログメッセージに顔文字をいれて和ませてくれるログライブラリが「Log::Minimal::Emotional」です。ソースコードをみればわかりますが、ログレベルごとに顔文字が定義されていますね。

[perl]
package Log::Minimal::Emotional;

use strict;
use warnings;

use parent qw(Log::Minimal);

our $EMOTION = {
DEBUG => '(☼ Д ☼)',
INFO => 'm9(^Д^)',
WARN => '(´･ω･`)',
CRITICAL => '(； Д ) ゜ ゜',
};

$Log::Minimal::PRINT = sub {
my ( $time, $type, $message, $trace, $raw_message) = @_;
warn "$time ", ($EMOTION->{$type}||"[$type]"), " $message at $trace\n";
};

1;

[/perl]

これならCRITICALが表示されても平静な心で問題に対処できそうです。