| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
package Kelp::Module::Logger::Simple; |
|
2
|
1
|
|
|
1
|
|
1203
|
use Kelp::Base 'Kelp::Module::Logger'; |
|
|
1
|
|
|
|
|
7
|
|
|
|
1
|
|
|
|
|
13
|
|
|
3
|
1
|
|
|
1
|
|
9
|
use Plack::Util; |
|
|
1
|
|
|
|
|
3
|
|
|
|
1
|
|
|
|
|
132
|
|
|
4
|
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
sub _logger |
|
6
|
|
|
|
|
|
|
{ |
|
7
|
0
|
|
|
0
|
|
|
my ($self, %args) = @_; |
|
8
|
|
|
|
|
|
|
return $self->SUPER::_logger( |
|
9
|
|
|
|
|
|
|
outputs => [ |
|
10
|
|
|
|
|
|
|
[ |
|
11
|
|
|
|
|
|
|
'Screen', |
|
12
|
|
|
|
|
|
|
min_level => $args{min_level} // 'debug', |
|
13
|
|
|
|
|
|
|
newline => 1, |
|
14
|
|
|
|
|
|
|
stderr => !$args{stdout}, |
|
15
|
0
|
|
0
|
|
|
|
] |
|
16
|
|
|
|
|
|
|
] |
|
17
|
|
|
|
|
|
|
); |
|
18
|
|
|
|
|
|
|
} |
|
19
|
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
1; |
|
21
|
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
__END__ |
|
23
|
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
=pod |
|
25
|
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
=head1 NAME |
|
27
|
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
Kelp::Module::Logger::Simple - Simple log to standard output |
|
29
|
|
|
|
|
|
|
|
|
30
|
|
|
|
|
|
|
=head1 SYNOPSIS |
|
31
|
|
|
|
|
|
|
|
|
32
|
|
|
|
|
|
|
use Kelp::Less; |
|
33
|
|
|
|
|
|
|
|
|
34
|
|
|
|
|
|
|
module 'Logger::Simple', min_level => 'error', stdout => 1; |
|
35
|
|
|
|
|
|
|
|
|
36
|
|
|
|
|
|
|
... |
|
37
|
|
|
|
|
|
|
|
|
38
|
|
|
|
|
|
|
=head1 DESCRIPTION |
|
39
|
|
|
|
|
|
|
|
|
40
|
|
|
|
|
|
|
A very simple logger that dumps everything to C<STDERR> or C<STDOUT> if C<< |
|
41
|
|
|
|
|
|
|
stdout => 1 >> was configured. |
|
42
|
|
|
|
|
|
|
|
|
43
|
|
|
|
|
|
|
=cut |
|
44
|
|
|
|
|
|
|
|