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,
);
# not use default color map
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 <at> 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.