The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Test::More tests => 8;
use Log::Handler lhtest1 => 'LOG';

my $COUNT = 0;

ok(1, 'use');

foreach my $logger (qw/lhtest2 lhtest3/) {
    Log::Handler->create_logger($logger);
    ok(1, 'create logger');

    my $log = Log::Handler->get_logger($logger);

    $log->add(forward => {
        forward_to => sub { $COUNT++ },
        maxlevel   => 'info',
    });

    ok(1, 'add screen output');

    $log->info();
    ok(1, 'log');
}

ok($COUNT == 2, "check counter ($COUNT)");