File Coverage

blib/lib/Log/ger/Plugin/SingleLog.pm

Criterion	Covered	Total	%
statement	30	34	88.2
branch	3	4	75.0
condition	6	10	60.0
subroutine	6	6	100.0
pod	0	1	0.0
total	45	55	81.8

package Log::ger::Plugin::SingleLog;

our $DATE = '2017-06-28'; # DATE
our $VERSION = '0.001'; # VERSION

use strict;
use warnings;

use Log::ger::Util;

sub get_hooks {
    my %conf = @_;

    $conf{sub_name} //= "log";
    $conf{method_name} //= "log";

    return {
        before_install_routines => [
            __PACKAGE__, 99,

            sub {
                my %args = @_;

                my @logger_subs;
                for (@{ $args{routines} }) {
                    $logger_subs[$_->[2]]    = $_->[0] if $_->[3] & 1 && !($_->[3] & 2);
                }
                my @logger_methods;
                for (@{ $args{routines} }) {
                    $logger_methods[$_->[2]] = $_->[0] if $_->[3] & 1 &&  ($_->[3] & 2);
                }

                push @{ $args{routines} }, [
                    sub {
                        my $level = Log::ger::Util::numeric_level(shift);
                        goto &{$logger_subs[$level]};
                    },
                    $conf{sub_name},
                    -1,
                    1 | 0,
                ];
                push @{ $args{routines} }, [
                    sub {
                        shift;
                        my $level = Log::ger::Util::numeric_level(shift);
                        goto &{$logger_methods[$level]};
                    },
                    $conf{method_name},
                    -1,
                    1 | 2,
                ];

                [1];
            }],
    };
}

1;
# ABSTRACT: Create a log($LEVEL, ...) subroutine/method

__END__