Author image Pavel Andryushin
and 1 contributors

NAME

Log::Any::Adapter::Multiplexor - Run any Log::Any:Adapter together

VERSION

 version 0.03

SYNOPSIS

    #log warn message to a file, but info message to Stdout
    use Log::Any '$log';
    use Log::Any::Adapter;
    use Log::Any::Adapter::Multiplexor;

    #Create Log::Any::Adapter::Multiplexor object
    my $multiplexor = Log::Any::Adapter::Multiplexor->new(
                                                              $log,
                                                              'error' => ['Log::Any::Adapter::File', 'log.txt'],
                                                              'info'  => ['Log::Any::Adapter::Stdout'],
                                                            );
    #Log message to file log.txt
    $log->error("Test error");

    #Log message to Stdout
    $log->info("Test info");

    #You can override the behavior of log level
    #Example: Send warning log message to file warn_log.txt
    $multiplexor->set_logger('warning', 'Log::Any::Adapter::File', 'warn_log.txt');
    $log->warning('Warning message');

    #Combine log level 'info' and 'debug'
    $multiplexor->combine('info', 'debug');
    $log->info($message); 
    #Equals to:
    $log->info($message);
    $log->debug($message);

DESCRIPTION

Log::Any::Adapter::Multiplexor connects any Log::Any::Adapter to use together

Functions

Specification function

new

    my $multiplexor = Log::Any::Adapter::Multiplexor->new($log, %param);

    $log - $Log::Any::log object
%param
key     => Log level name
value   => Arrayref ['Adapter name', @params]

set_logger

Set or override exists logger for Log::Any::Adapter::Multiplexor object

    $multiplexor->set_logger($log_level, $adapter, @param);
$log_level  => Log levels (e.g. warning, info, error)
$adapter    => Log::Any::Adapter for this log level (etc 'Log::Any::Adapter::File)
@param      => Adapter params (e.g. filename)

combine

Duplicated logs from different log levels

    $multiplexor->combine('info', 'debug');
    $log->info($message);
    #equals to
    $log->info($message);
    $log->debug($message);

uncombine

Delete associations of log levels $multiplexor->uncombine();

DEPENDENCE

Log::Any, Log::Any::Adapter

AUTHORS

  • Pavel Andryushin <vrag867@gmail.com>

COPYRIGHT AND LICENSE

This software is copyright (c) 2017 by Pavel Andryushin.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.