Log::Dispatch::Screen::Color - attached color for Log::Dispatch::Screen
use Log::Dispatch::Screen::Color;
my $log = Log::Dispatch::Screen::Color->new( name => 'test', min_level => 'debug', stderr => 1, );
my $log = Log::Dispatch::Screen::Color->new( name => 'test', min_level => 'debug', stderr => 1, color => { info => { text => 'red', }, error => { background => 'red', }, alert => { text => 'red', background => 'white', }, warning => { text => 'red', background => 'white', bold => 1, }, }, );
$log->log( level => 'info', message => "I like wasabi!\n" );
Log::Dispatch::Screen::Color is attaching a color safely for Screen. because Log::Dispatch::Colorful has rewrite Log::Dispatch method problem.
Win32 is supported.
Note that a newline will not be added automatically at the end of a
message by default. To do that, pass newline => 1
.
Setting $Log::Dispatch::Screen::Color::DEFAULT_COLOR overrides. default color is changed.
local $Log::Dispatch::Screen::Color::DEFAULT_COLOR->{info} = { text => 'red', };
Kazuhiro Osawa <yappo shibuya <döt> pl>
Log::Dispatch, Log::Dispatch::Screen
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.