File Coverage

blib/lib/Log/ger/Plugin/HashArgs.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	3	4	75.0
condition	3	4	75.0
subroutine	8	8	100.0
pod	0	2	0.0
total	44	48	91.6

package Log::ger::Plugin::HashArgs;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2020-03-11'; # DATE
our $DIST = 'Log-ger-Plugin-HashArgs'; # DIST
our $VERSION = '0.002'; # VERSION

use strict;
use warnings;

use Log::ger::Util;

sub meta { +{
    v => 2,
} }

sub get_hooks {
    my %plugin_conf = @_;

    my $sub_name    = $plugin_conf{sub_name}    || "log";
    my $method_name = $plugin_conf{method_name} || "log";

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

                my $filter = sub {
                    my %log_args = @_;
                    # die "$logger_name(): Please specify 'level'" unless exists $log_args{level};
                    my $level = Log::ger::Util::numeric_level($log_args{level});
                    return 0 unless $level <= $Log::ger::Current_Level;
                    my $per_msg_conf = {level=>$level};
                    $per_msg_conf->{category} = $log_args{category}
                        if defined $log_args{category};
                    $per_msg_conf;
                };

                [$filter, 0, 'ml_hashargs'];
            },
        ],

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

                my $formatter = sub {
                    my %log_args = @_;
                    $log_args{message};
                };

                [$formatter, 0, 'ml_hashargs'];
            },
        ],

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

                return [{
                    log_subs    => [[$sub_name   , undef, 'ml_hashargs', undef, 'ml_hashargs']],
                    log_methods => [[$method_name, undef, 'ml_hashargs', undef, 'ml_hashargs']],
                }, $plugin_conf{exclusive}];
            },
        ],

    };
}

1;
# ABSTRACT: Log using hash arguments

__END__