NAME¶
Log::Any::Adapter::Callback - Send Log::Any logs to a subroutine
VERSION¶
version 0.09
SYNOPSIS¶
# say, let's POST each log message to an HTTP API server
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
use Log::Any::Adapter;
Log::Any::Adapter->set('Callback',
min_level => 'warn',
logging_cb => sub {
my ($method, $self, $format, @params) = @_;
$ua->post("https://localdomain/log", level=>$method, Content=>$format);
sleep 1; # don't overload the server
},
detection_cb => sub { ... }, # optional, default is: sub { 1 }
);
DESCRIPTION¶
This adapter lets you specify callback subroutine to be called by Log::Any's
logging methods (like $log->
debug(), $log->
error(), etc)
and detection methods (like $log->
is_warning(),
$log->
is_fatal(), etc.).
This adapter is used for customized logging, and is mostly a convenient
construct to save a few lines of code. You could achieve the same effect by
creating a full Log::Any adapter class.
Your logging callback subroutine will be called with these arguments:
($method, $self, $format, @params)
where $method is the name of method (like "debug") and ($self,
$format, @params) are given by Log::Any.
SEE ALSO¶
Log::Any
HOMEPAGE¶
Please visit the project's homepage at
<
https://metacpan.org/release/Log-Any-Adapter-Callback>.
SOURCE¶
Source repository is at
<
https://github.com/sharyanto/perl-Log-Any-Adapter-Callback>.
BUGS¶
Please report any bugs or feature requests on the bugtracker website
<
https://rt.cpan.org/Public/Dist/Display.html?Name=Log-Any-Adapter-Callback>
When submitting a bug or request, please include a test-file or a patch to an
existing test-file that illustrates the bug or desired feature.
AUTHOR¶
Steven Haryanto <stevenharyanto@gmail.com>
COPYRIGHT AND LICENSE¶
This software is copyright (c) 2014 by Steven Haryanto.
This is free software; you can redistribute it and/or modify it under the same
terms as the Perl 5 programming language system itself.