ref. http://d.hatena.ne.jp/hirose31/20130215/1360908384 継承でかけるので楽。 package Log::Pony::Emotional; use parent qw(Log::Pony); our $EMOTION = { DEBUG => '(☼ Д ☼)', INFO => 'm9(^Д^)', WARN => '(´・ω・`)', CRITICAL => '(; Д ) ゜ ゜', }; sub process { my ( $self, $level, $message ) = @_; my $time = $self->time(); my $trace = $self->trace_info(); if ( $self->color ) { $message = $self->colorize( $level, $mess