File Coverage

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

Criterion	Covered	Total	%
statement	17	17	100.0
branch	6	6	100.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	27	28	96.4

package Log::ger::Format::Hashref;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2020-02-18'; # DATE
our $DIST = 'Log-ger-Format-Hashref'; # DIST
our $VERSION = '0.001'; # 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 = sub {
                    if (@_ == 1) {
                        if (ref $_[0] eq 'HASH') {
                            return $_[0];
                        } else {
                            return {message=>$_[0]};
                        }
                    } elsif (@_ % 2) {
                        die "Please log an even number of arguments";
                    } else {
                        return {@_};
                    }
                };
                [$formatter];

            }],
    };
}

1;
# ABSTRACT: Format arguments as hashref

__END__