NAME

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

VERSION

 version 0.02

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->info("Test info");

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

    #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');

DESCRIPTION

    C<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

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.