File Coverage

blib/lib/Log/ger/Output/ArrayRotate.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	4	6	66.6
condition	2	3	66.6
subroutine	5	5	100.0
pod	0	2	0.0
total	29	34	85.2

package Log::ger::Output::ArrayRotate;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2020-03-11'; # DATE
our $DIST = 'Log-ger-Output-ArrayRotate'; # DIST
our $VERSION = '0.004'; # VERSION

use strict;
use warnings;

sub meta { +{
    v => 2,
} }

sub get_hooks {
    my %plugin_conf = @_;

    my $ary = $plugin_conf{array} or die "Please specify array";
    ref $ary eq 'ARRAY' or die "Please specify arrayref in array";

    return {
        create_outputter => [
            __PACKAGE__, # key
            50,          # priority
            sub {        # hook
                my %hook_args = @_; # see Log::ger::Manual::Internals/"Arguments passed to hook"

                my $outputter = sub {
                    my ($ctx, $msg) = @_;
                    push @$ary, $msg;
                    if (defined $plugin_conf{max_elems} && @$ary > $plugin_conf{max_elems}) {
                        shift @$ary;
                    }
                };
                [$outputter];
            }],
    };
}

1;
# ABSTRACT: Log to array, rotating old elements

__END__