line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Log::Any::Adapter::FileScreenBase; |
2
|
|
|
|
|
|
|
{ |
3
|
|
|
|
|
|
|
$Log::Any::Adapter::FileScreenBase::VERSION = '0.11'; |
4
|
|
|
|
|
|
|
} |
5
|
2
|
|
|
2
|
|
14
|
use Log::Any::Adapter::Util qw(make_method); |
|
2
|
|
|
|
|
4
|
|
|
2
|
|
|
|
|
100
|
|
6
|
2
|
|
|
2
|
|
10
|
use strict; |
|
2
|
|
|
|
|
4
|
|
|
2
|
|
|
|
|
52
|
|
7
|
2
|
|
|
2
|
|
11
|
use warnings; |
|
2
|
|
|
|
|
3
|
|
|
2
|
|
|
|
|
62
|
|
8
|
2
|
|
|
2
|
|
11
|
use base qw(Log::Any::Adapter::Base); |
|
2
|
|
|
|
|
3
|
|
|
2
|
|
|
|
|
1172
|
|
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
sub make_logging_methods { |
11
|
4
|
|
|
4
|
0
|
11
|
my ( $class, $code ) = @_; |
12
|
4
|
|
|
|
|
25
|
foreach my $method ( Log::Any->logging_methods() ) { |
13
|
36
|
|
|
|
|
104
|
make_method( $method, $code, $class ); |
14
|
|
|
|
|
|
|
} |
15
|
|
|
|
|
|
|
} |
16
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
foreach my $method ( Log::Any->detection_methods() ) { |
18
|
0
|
|
|
0
|
|
|
make_method( $method, sub { 1 } ); |
19
|
|
|
|
|
|
|
} |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
1; |