The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

PERLANCAR / Log-ger-Screen-0.005 / lib / Log / ger / Screen.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
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

              
package Log::ger::Screen;
use strict;
use warnings;
use Log::ger::Level::FromVar;
use Log::ger::Level::FromEnv;
use Log::ger::Output 'Screen' => (colorize_tags=>1);
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2022-02-18'; # DATE
our $DIST = 'Log-ger-Screen'; # DIST
our $VERSION = '0.005'; # VERSION
sub import {
    my ($package, %per_target_conf) = @_;
    require Log::ger;
    my $caller = caller(0);
    Log::ger::_import_to($package, $caller, %per_target_conf);
}
1;
# ABSTRACT: Convenient packaging of Log::ger + Lg:Output::Screen + Lg:Level::FromVar + Lg:Level::FromEnv for one-liner
__END__
=pod
=encoding UTF-8
=head1 NAME
Log::ger::Screen - Convenient packaging of Log::ger + Lg:Output::Screen + Lg:Level::FromVar + Lg:Level::FromEnv for one-liner
=head1 VERSION
version 0.005
=head1 SYNOPSIS
Mostly in one-liners:
 % perl -MLog::ger::Screen -E'log_warn "blah..."; ...'
Set level from package variable (see L<Log::ger::Level::FromVar> for more
details):
 % perl -E'BEGIN { $Default_Log_Level = 'info' } use Log::ger::Screen; ...'
Set level from environment variable (see L<Log::ger::Level::FromEnv> for more
details):
 % TRACE=1 perl ...
But you can certainly use this module in your CLI script, as a more lightweight
alternative to L<Log::ger::App> when you only want to output log to screen:
 #!perl
 use strict;
 use warnings;
 BEGIN { our $Default_Log_Level = 'info' }
 use Log::ger::Screen;
 use Log::ger;
 use Getopt::Long;
 log_debug "Starting program ...";
 ...
 log_debug "Ending program ...";
=head1 DESCRIPTION
This is just a convenient packaging of:
 use Log::ger::Level::FromVar;
 use Log::ger::Level::FromEnv;
 use Log::ger::Output 'Screen';
 use Log::ger; # in the caller's package
mostly for one-liner usage, but you are also welcome to use it in your CLI
scripts.
=head1 SEE ALSO
L<Log::ger::App>
L<Log::ger>
L<Log::ger::Level::FromVar>
L<Log::ger::Level::FromEnv>
L<Log::ger::Output::Screen>
=head1 AUTHOR
perlancar <perlancar@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2022, 2020 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