line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Qudo::Plugin::Logger; |
2
|
1
|
|
|
1
|
|
4
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
36
|
|
3
|
1
|
|
|
1
|
|
4
|
use warnings; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
25
|
|
4
|
1
|
|
|
1
|
|
5
|
use base 'Qudo::Plugin'; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
6524
|
|
5
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
our $VERSION = '0.01'; |
7
|
|
|
|
|
|
|
|
8
|
1
|
|
|
1
|
|
1049
|
use Log::Dispatch::Configurator::Any; |
|
1
|
|
|
|
|
25404
|
|
|
1
|
|
|
|
|
33
|
|
9
|
1
|
|
|
1
|
|
1034
|
use Log::Dispatch::Config; |
|
1
|
|
|
|
|
36862
|
|
|
1
|
|
|
|
|
143
|
|
10
|
|
|
|
|
|
|
|
11
|
0
|
|
|
0
|
0
|
|
sub plugin_name { 'logger' } |
12
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
sub load { |
14
|
0
|
|
|
0
|
0
|
|
my ($class, $option) = @_; |
15
|
|
|
|
|
|
|
|
16
|
0
|
|
|
|
|
|
my $any = Log::Dispatch::Configurator::Any->new($option); |
17
|
0
|
|
|
|
|
|
Log::Dispatch::Config->configure($any); |
18
|
|
|
|
|
|
|
|
19
|
0
|
|
|
|
|
|
$class->register( |
20
|
|
|
|
|
|
|
Log::Dispatch::Config->instance |
21
|
|
|
|
|
|
|
); |
22
|
|
|
|
|
|
|
} |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
1; |
25
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
__END__ |