blib/lib/Net/Flotum/Logger/Log4perl.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 10 | 10 | 100.0 |
branch | n/a | ||
condition | n/a | ||
subroutine | 4 | 4 | 100.0 |
pod | n/a | ||
total | 14 | 14 | 100.0 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | package Net::Flotum::Logger::Log4perl; | ||||||
2 | 7 | 7 | 23 | use strict; | |||
7 | 9 | ||||||
7 | 159 | ||||||
3 | 7 | 7 | 23 | use Moo; | |||
7 | 8 | ||||||
7 | 29 | ||||||
4 | |||||||
5 | 7 | 7 | 6283 | use Log::Log4perl qw(:easy); | |||
7 | 220078 | ||||||
7 | 29 | ||||||
6 | |||||||
7 | Log::Log4perl->easy_init( | ||||||
8 | { | ||||||
9 | level => $DEBUG, | ||||||
10 | layout => '%p{1}%d{yyyy-MM-dd HH:mm:ss.SSS}[%P] %m{indent=1}%n', | ||||||
11 | 'utf8' => 1 | ||||||
12 | } | ||||||
13 | ); | ||||||
14 | |||||||
15 | has 'logger' => ( is => 'rw', lazy => 1, builder => '_build_logger' ); | ||||||
16 | |||||||
17 | sub _build_logger { | ||||||
18 | 7 | 7 | 7140 | get_logger; | |||
19 | } | ||||||
20 | 1; |