NAME
Mojo::Log - Simple logger
SYNOPSIS
use Mojo::Log;
# Log to STDERR
my $log = Mojo::Log->new;
# Customize log file location and minimum log level
my $log = Mojo::Log->new(path => '/var/log/mojo.log', level => 'warn');
# Log messages
$log->debug('Why is this not working?');
$log->info('FYI: it happened again.');
$log->warn('This might be a problem.');
$log->error('Garden variety error.');
$log->fatal('Boom!');DESCRIPTION
Mojo::Log is a simple logger for Mojo projects.
EVENTS
Mojo::Log inherits all events from Mojo::EventEmitter and can emit the following new ones.
message
$log->on(message => sub {
my ($log, $level, @lines) = @_;
...
});Emitted when a new message gets logged.
$log->unsubscribe('message');
$log->on(message => sub {
my ($log, $level, @lines) = @_;
say "$level: ", @lines;
});ATTRIBUTES
Mojo::Log implements the following attributes.
handle
my $handle = $log->handle;
$log = $log->handle(IO::Handle->new);Log filehandle used by default "message" event, defaults to opening "path" or STDERR.
history
my $history = $log->history;
$log = $log->history([[time, 'debug', 'That went wrong.']]);The last few logged messages.
level
my $level = $log->level;
$log = $log->level('debug');Active log level, defaults to debug. Available log levels are debug, info, warn, error and fatal, in that order. Note that the MOJO_LOG_LEVEL environment variable can override this value.
max_history_size
my $size = $log->max_history_size;
$log = $log->max_history_size(5);Maximum number of logged messages to store in "history", defaults to 10.
path
my $path = $log->path
$log = $log->path('/var/log/mojo.log');Log file path used by "handle".
METHODS
Mojo::Log inherits all methods from Mojo::EventEmitter and implements the following new ones.
new
my $log = Mojo::Log->new;Construct a new Mojo::Log object and subscribe to "message" event with default logger.
debug
$log = $log->debug('You screwed up, but that is ok.');
$log = $log->debug('All', 'cool!');Log debug message.
error
$log = $log->error('You really screwed up this time.');
$log = $log->error('Wow', 'seriously!');Log error message.
fatal
$log = $log->fatal('Its over...');
$log = $log->fatal('Bye', 'bye!');Log fatal message.
format
my $msg = $log->format(debug => 'Hi there!');
my $msg = $log->format(debug => 'Hi', 'there!');Format log message.
info
$log = $log->info('You are bad, but you prolly know already.');
$log = $log->info('Ok', 'then!');Log info message.
is_level
my $bool = $log->is_level('debug');Check log level.
is_debug
my $bool = $log->is_debug;Check for debug log level.
is_error
my $bool = $log->is_error;Check for error log level.
is_fatal
my $bool = $log->is_fatal;Check for fatal log level.
is_info
my $bool = $log->is_info;Check for info log level.
is_warn
my $bool = $log->is_warn;Check for warn log level.
log
$log = $log->log(debug => 'This should work.');
$log = $log->log(debug => 'This', 'too!');Emit "message" event.
warn
$log = $log->warn('Dont do that Dave...');
$log = $log->warn('No', 'really!');Log warn message.