File Coverage

blib/lib/Log/Any/Adapter/Multiplexor.pm

Criterion	Covered	Total	%
statement	18	20	90.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	25	27	92.5

package Log::Any::Adapter::Multiplexor;

use 5.008001;

use strict;
use warnings;
use utf8;
use open qw(:std :utf8);
use Carp 'croak';
use Log::Any::Adapter;
#Default adapter
Log::Any::Adapter->set('Stdout');
use Data::Printer;

our $VERSION    = '0.01';

my %LOG_LEVELS = (
                    '0'     => 'EMERGENCY',
                    '1'     => 'ALERT',
                    '2'     => 'CRITICAL',
                    '3'     => 'ERROR',
                    '4'     => 'WARNING',
                    '5'     => 'NOTICE',
                    '6'     => 'INFO',
                    '7'     => 'DEBUG',
                    '8'     => 'TRACE',
                );

sub new {
    my $class = shift;
    my $log = shift;
    my %opt = @_;
    my $self = {};
    $self->{log} = $log;
    bless $self, $class;


    for my $key (keys %opt) {
        my $adapter = shift @{$opt{$key}};
        my @param = @{$opt{$key}};
        $self->set_logger($key, $adapter, @param);

    }

    $log->{filter} = sub {
                                no strict 'refs';
                                my $log_level_name = $LOG_LEVELS{$_[1]} || 'trace';
                                $log_level_name = lc($log_level_name);
                                $self->{adapters}->{$log_level_name}->$log_level_name($_[2]);
                                return '';
    };

    return $self;
}


sub set_logger {
    no strict 'refs';
    my ($self, $log_level, $package, @param) = @_;
    my $log = $self->{log};
    $self->{adapters}->{$log_level} = $log->clone();
    eval "require $package";
    if ($@) {
        croak $@;
    }
    $self->{adapters}->{$log_level} = $package->new(@param);

    return 1;
}

1;

__END__