File Coverage

blib/lib/Log/ger/Layout/Pattern/Multiline.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	30	32	93.7

package Log::ger::Layout::Pattern::Multiline;

our $DATE = '2019-10-27'; # DATE
our $VERSION = '0.003'; # VERSION

use 5.010001;
use strict;
use warnings;

use Log::ger::Layout::Pattern ();

sub _layout {
    my $format = shift;
    my $msg = shift;
    #my ($init_args, $lvlnum, $lvlname) = @_;

    join(
        "\n",
        map {
            Log::ger::Layout::Pattern::_layout($format, [], [], $_, @_)
          }
            split(/\R/, $msg)
        );
}

sub get_hooks {
    my %conf = @_;

    $conf{format} or die "Please specify format";

    return {
        create_layouter => [
            __PACKAGE__, # key
            50,          # priority
            sub {        # hook
                my %hook_args = @_;

                my $layouter = sub {
                    _layout($conf{format}, @_);
                };
                [$layouter];
            }],
    };
}

1;
# ABSTRACT: Pattern layout (with multiline message split)

__END__