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

[PR]記事内のアフィリエイトリンクから収入を得る場合があります
  • URLをコピーしました!

NewImage

普段は味気ないログメッセージに顔文字をいれて和ませてくれるログライブラリが「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が表示されても平静な心で問題に対処できそうです。

よかったらシェアしてね!
  • URLをコピーしました!
  • URLをコピーしました!
目次