File Coverage

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

Criterion	Covered	Total	%
statement	17	17	100.0
branch	4	6	66.6
condition	2	3	66.6
subroutine	4	4	100.0
pod	0	1	0.0
total	27	31	87.1

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

our $DATE = '2017-07-16'; # DATE
our $VERSION = '0.001'; # VERSION

use strict;
use warnings;

sub get_hooks {
    my %conf = @_;

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

    return {
        create_log_routine => [
            __PACKAGE__, 50,
            sub {
                my %args = @_;

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

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

__END__