From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

PERLANCAR / Log-ger-Level-FromEnv-0.005 / lib / Log / ger / Level / FromEnv.pm 

            

              
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

              
# minimalism
## no critic: TestingAndDebugging::RequireUseStrict
package Log::ger::Level::FromEnv;
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2022-02-18'; # DATE
our $DIST = 'Log-ger-Level-FromEnv'; # DIST
our $VERSION = '0.005'; # VERSION
use Log::ger::Util;
if (defined($ll = $ENV{LOG_LEVEL})) {
    Log::ger::Util::set_level($ll);
} elsif ($ENV{TRACE}) {
    Log::ger::Util::set_level("trace");
} elsif ($ENV{DEBUG}) {
    Log::ger::Util::set_level("debug");
} elsif ($ENV{VERBOSE}) {
    Log::ger::Util::set_level("info");
} elsif ($ENV{QUIET}) {
    Log::ger::Util::set_level("error");
}
1;
# ABSTRACT: Set default log level from some environment variables
__END__
=pod
=encoding UTF-8
=head1 NAME
Log::ger::Level::FromEnv - Set default log level from some environment variables
=head1 VERSION
version 0.005
=head1 SYNOPSIS
 use Log::ger;
 use Log::ger::Level::FromEnv;
 log_warn "blah ...";
=head1 DESCRIPTION
This module sets C<$Log::ger::Current_Level> based on hints from several
environment variables: C<LOG_LEVEL> (for example, if set to C<warn> or
C<warning> will set the log level to warning (30)), C<TRACE> (if true, will set
log level to trace (60)), C<DEBUG> (if true, will set log level to debug (50)),
C<VERBOSE> (if true, will set log level to info (40)), C<QUIET> (if true, will
set log level to error (20)).
This is convenient for CLI programs or one-liners.
=head1 SEE ALSO
L<Log::ger::App> also observes the same set of environment variables.
L<Log::ger::Screen> uses us.
L<Log::ger::Level::FromVar>
=head1 AUTHOR
perlancar <perlancar@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2022, 2020, 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