File Coverage

blib/lib/Log/ger/Filter/Code.pm

Criterion	Covered	Total	%
statement	6	12	50.0
branch	0	2	0.0
condition			n/a
subroutine	2	5	40.0
pod	0	2	0.0
total	8	21	38.1

package Log::ger::Filter::Code;

use strict;
use warnings;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-12-29'; # DATE
our $DIST = 'Log-ger'; # DIST
our $VERSION = '0.042'; # VERSION

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

sub get_hooks {
    my %conf = @_;

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

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

                [$conf{code}];
            }],
    };
}

1;
# ABSTRACT: Filter using a coderef

__END__