ivanych/log-any-adapter-dupstd

CPAN module - Cunning adapter for logging to a duplicate of STDERR or STDOUT

log-any-adapter-dupstd's Issues

trst

Bug: В лог сообщения выводятся через некоторое время

В https://github.com/ivanych/Log-Any-Adapter-Dupstd/blob/master/lib/Log/Any/Adapter/Duperr.pm дублируется STDERR, соответственно открывается новый файловый хандлер с буфером.

Решить эту проблему можно так:

my $oldout = select $self->{fh};
$|=1;
select $oldout;

или

$self->{fh}->autoflush(1);

как указано в документации к перловым хандлерам: https://metacpan.org/pod/IO::Handle

Alternative implementation of the Duperr adapter as an extension of the Stderr adapter

This

package Log::Any::Adapter::Duperr;

#
# Cunning adapter for logging to a duplicate of STDERR
#

use 5.008001;
use strict;
use warnings;

use parent qw( Log::Any::Adapter::Stderr );

use Carp qw( croak );

our $VERSION = '0.05';

{
    open my $fh, '>&', *STDERR or croak "Can't dup STDERR: $!";    ## no critic [InputOutput::RequireBriefOpen]

    foreach my $method (Log::Any::Adapter::Util::logging_methods) {
        my $parent_method = __PACKAGE__->can($method);
        no strict 'refs';                                          ## no critic (ProhibitNoStrict)
        *{$method} = sub {
            local *STDERR = $fh;
            $parent_method->(@_);
        };
    }
}

1;

is an alternative implementation of the Duperr adapter as an extension of the Stderr adapter. Unfortunately the implementation does not pass your unit tests because the tests are not implementation agnostic:

# irresponsible penetration into the object
my $adapter_fh = $log->{adapter}->{fh};