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
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
|
package Parse::Dia::SQL::Logger;
# $Id: Logger.pm,v 1.9 2011/02/16 10:23:11 aff Exp $
=pod
=head1 NAME
Parse::Dia::SQL::Logger - Wrapper for Log::Log4perl
=head1 SYNOPSIS
use Parse::Dia::SQL::Logger;
my $logger = Parse::Dia::SQL::Logger::->new(loglevel => 'INFO');
my $log = $logger->get_logger(__PACKAGE__);
$log->error('error');
$log->info('info');
=head1 DESCRIPTION
This module is a wrapper around Log::Log4perl.
=cut
use warnings;
use strict;
use Log::Log4perl;
use constant APPENDER_THRESHOLDS_ADJUST_LOGOFF => 7;
use constant APPENDER_THRESHOLDS_ADJUST_LOGON => -7;
=head2 new
The constructor.
=cut
sub new {
my ( $class, %param ) = @_;
my $self = {
log => undef,
loglevel => $param{loglevel} || undef,
};
bless( $self, $class );
$self->_init_log();
return $self;
}
# Initialize the logger. The commented lines are deliberately left to
# serve as exmples.
sub _init_log {
my $self = shift;
# Init logging
my $conf = undef;
if ($self->{loglevel}) {
$conf = qq(
# Loglevel set by user
log4perl.category.Parse::Dia::SQL = $self->{loglevel}, screen-main
log4perl.appender.screen-main = Log::Log4perl::Appender::Screen
log4perl.appender.screen-main.stderr = 1
log4perl.appender.screen-main.layout = PatternLayout
log4perl.appender.screen-main.layout.ConversionPattern=[%p] %m%n
);
} else {
# Default logging
$conf = q(
# Main logger for Parse::Dia::SQL
log4perl.category.Parse::Dia::SQL = INFO, screen-main
log4perl.appender.screen-main = Log::Log4perl::Appender::Screen
log4perl.appender.screen-main.stderr = 1
log4perl.appender.screen-main.layout = PatternLayout
log4perl.appender.screen-main.layout.ConversionPattern=[%p] %m%n
# Separate logger for Output::*
log4perl.category.Parse::Dia::SQL::Output = INFO, screen-output
log4perl.appender.screen-output = Log::Log4perl::Appender::Screen
log4perl.appender.screen-output.stderr = 1
log4perl.appender.screen-output.layout = PatternLayout
log4perl.appender.screen-output.layout.ConversionPattern=[%p] %m%n
log4perl.additivity.Parse::Dia::SQL::Output = 0
# Separate logger for Utils.pm
log4perl.category.Parse::Dia::SQL::Utils = INFO, screen-utils
log4perl.appender.screen-utils = Log::Log4perl::Appender::Screen
log4perl.appender.screen-utils.stderr = 1
log4perl.appender.screen-utils.layout = PatternLayout
log4perl.appender.screen-utils.layout.ConversionPattern=[%p] %m%n
log4perl.additivity.Parse::Dia::SQL::Utils = 0
);
}
Log::Log4perl::init( \$conf );
# Adjust call stack for caller class, see man Log::Log4perl
$Log::Log4perl::caller_depth = 1;
return 1;
}
=head2 get_logger
Return logger singleton object.
=cut
sub get_logger {
my ($self, $name) = @_;
#return $self->{logger};
return Log::Log4perl::->get_logger($name);
}
=head2 log_off
Decrease log level on all appenders.
1
=cut
sub log_off {
my $self = shift;
# Make sure it works also in case this is
# called as function before object is blessed.
_init_log() if ( !Log::Log4perl->initialized() );
Log::Log4perl->appender_thresholds_adjust(APPENDER_THRESHOLDS_ADJUST_LOGOFF);
return 1;
}
=head2 log_on
Increase log level on all appenders.
=cut
sub log_on {
my $self = shift;
# Make sure it works also in case this is
# called as function before object is blessed.
_init_log() if ( !Log::Log4perl->initialized() );
Log::Log4perl->appender_thresholds_adjust(APPENDER_THRESHOLDS_ADJUST_LOGON);
return 1;
}
1;
__END__
# End of Parse::Dia::SQL::Logger
|
