File Coverage

blib/lib/Log/ger/Output/Callback.pm

Criterion	Covered	Total	%
statement	16	21	76.1
branch	2	4	50.0
condition			n/a
subroutine	4	5	80.0
pod	0	1	0.0
total	22	31	70.9

package Log::ger::Output::Callback;

our $DATE = '2018-12-20'; # DATE
our $VERSION = '0.004'; # VERSION

use strict;
use warnings;

sub get_hooks {
    my %conf = @_;

    my $hooks = {};

    if ($conf{logging_cb}) {
        $hooks->{create_logml_routine} = [
            __PACKAGE__, 50,
            sub {
                my %args = @_;
                my $logger = sub {
                    $conf{logging_cb}->(@_);
                };
                [$logger];
            },
        ];
    }

    if ($conf{detection_cb}) {
        $hooks->{create_is_routine} = [
            __PACKAGE__, 50,
            sub {
                my %args = @_;
                my $logger = sub {
                    $conf{detection_cb}->($args{level});
                };
                [$logger];
            },
        ];
    }

    return $hooks;
}

1;
# ABSTRACT: Send logs to a subroutine

__END__