File Coverage

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

Criterion	Covered	Total	%
statement	20	20	100.0
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	28	30	93.3

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

our $DATE = '2019-03-26'; # DATE
our $VERSION = '0.001'; # VERSION

use 5.010001;
use strict;
use warnings;

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

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

    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__, 50,
            sub {
                [sub { _layout($conf{format}, @_) }];
            }],
    };
}

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

__END__