1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
package Log::ger::Plugin::MultilevelLog;
use strict;
use warnings;
use Log::ger::Util;
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-12-29'; # DATE
our $DIST = 'Log-ger'; # DIST
our $VERSION = '0.042'; # VERSION
sub meta { +{
v => 2,
} }
sub get_hooks {
my %conf = @_;
my $sub_name = $conf{sub_name} || 'log';
my $method_name = $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 $level = Log::ger::Util::numeric_level(shift);
return 0 unless $level <= $Log::ger::Current_Level;
{level=>$level};
};
[$filter, 0, 'ml'];
},
],
create_formatter => [
__PACKAGE__, # key
50, # priority
sub { # hook
my %hook_args = @_; # see Log::ger::Manual::Internals/"Arguments passed to hook"
my $formatter =
# just like the default formatter, except it accepts first
# argument (level)
sub {
shift; # level
return $_[0] if @_ < 2;
my $fmt = shift;
my @args;
for (@_) {
if (!defined($_)) {
push @args, '<undef>';
} elsif (ref $_) {
push @args, Log::ger::Util::_dump($_);
} else {
push @args, $_;
}
}
# redefine is just a dummy category for perls < 5.22
# which don't have 'redundant' yet
no warnings ($warnings::Bits{'redundant'} ? 'redundant' : 'redefine');
sprintf $fmt, @args;
};
[$formatter, 0, 'ml'];
},
],
create_routine_names => [
__PACKAGE__, # key
50, # priority
sub { # hook
my %hook_args = @_; # see Log::ger::Manual::Internals/"Arguments passed to hook"
return [{
logger_subs => [[$sub_name , undef, 'ml', undef, 'ml']],
logger_methods => [[$method_name, undef, 'ml', undef, 'ml']],
}, $conf{exclusive}];
},
],
};
}
1;
# ABSTRACT: (DEPRECATED) Old name for Log::ger::Format::MultilevelLog
__END__
=pod
=encoding UTF-8
=head1 NAME
Log::ger::Plugin::MultilevelLog - (DEPRECATED) Old name for Log::ger::Format::MultilevelLog
=head1 VERSION
version 0.042
=head1 DESCRIPTION
This plugin has been renamed to L<Log::ger::Format::MultilevelLog> in 0.038. The
old name is provided for backward compatibility for now, but is deprecated and
will be removed in the future. Please switch to the new name and be aware that
format plugins only affect the current package.
=for Pod::Coverage ^(.+)$
=head1 SEE ALSO
L<Log::ger::Format::MultilevelLog>
=head1 AUTHOR
perlancar <perlancar@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2023, 2022, 2020, 2019, 2018, 2017 by perlancar <perlancar@cpan.org>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|
