NAME
Log::Any::Adapter::Coderef - arbitrary code handlers for Log::Any messages
SYNOPSIS
use JSON::MaybeUTF8 qw(:v1);
use Log::Any::Adapter qw(Coderef) => sub {
my ($data) = @_;
STDERR->print(encode_json_utf8($data) . "\n");
};DESCRIPTION
Provides support for sending log messages through a custom sub, for cases when you want to do something that isn't provided by existing adapters.
Currently takes a single $code parameter as a callback. This will be called for every log message, passing a hashref which has the following keys:
epoch- current time, as a floating-point epoch valueseverity- log level, e.g.infoordebugmessage- the formatted log messagehost- current hostnamepid- current process ID ("$$" in perlvar)stack- arrayref of stacktrace entries, see caller
Additional keys may be added in future, for example structured data.
INHERITED METHODS
AUTHOR
Tom Molesworth <TEAM@cpan.org>.
LICENSE
Copyright Tom Molesworth 2020-2021. Licensed under the same terms as Perl itself.