NAME

Log::Any::Adapter::Callback - Send Log::Any logs to a subroutine

VERSION

version 0.03

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

AUTHOR

Steven Haryanto <stevenharyanto@gmail.com>

COPYRIGHT AND LICENSE

This software is copyright (c) 2011 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.