File Coverage

blib/lib/Log/ger/Format/Default.pm

Criterion	Covered	Total	%
statement	18	21	85.7
branch	3	8	37.5
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	25	34	73.5

package Log::ger::Format::Default;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2020-02-18'; # DATE
our $DIST = 'Log-ger-Format-Default'; # DIST
our $VERSION = '0.002'; # VERSION

use strict;
use warnings;

sub get_hooks {
    my %conf = @_;

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


             my $formatter =

                 # the default formatter is sprintf-style that dumps data
                 # structures arguments as well as undef as ''.
                 sub {
                     return $_[0] if @_ < 2;
                     my $fmt = shift;
                     my @args;
                     for (@_) {
                         if (!defined($_)) {
                             push @args, '';
                         } elsif (ref $_) {
                             require Log::ger::Util unless $Log::ger::_dumper;
                             push @args, Log::ger::Util::_dump($_);
                         } else {
                             push @args, $_;
                         }
                     }
                     sprintf $fmt, @args;
                 };

             [$formatter];


            }],
    };
}

1;
# ABSTRACT: Use default Log::ger formatting style

__END__