199 |
|
|
200 |
=cut |
=cut |
201 |
|
|
202 |
|
my $_logger_seen; |
203 |
|
|
204 |
sub _get_logger { |
sub _get_logger { |
205 |
my $self = shift; |
my $self = shift; |
206 |
|
|
208 |
$self->{'_logger_'} ||= $self->_init_logger; |
$self->{'_logger_'} ||= $self->_init_logger; |
209 |
|
|
210 |
my $log = get_logger( $name ); |
my $log = get_logger( $name ); |
211 |
warn "# get_logger( $name ) level ", $log->level, "\n" if ($log_debug); |
warn "# get_logger( $name ) level ", $log->level, "\n" if ($log_debug || !defined($_logger_seen->{$name})); |
212 |
|
$_logger_seen->{$name}++; |
213 |
return $log; |
return $log; |
214 |
} |
} |
215 |
|
|
245 |
also use method names, and not only classes (which are just few) |
also use method names, and not only classes (which are just few) |
246 |
to filter logging. |
to filter logging. |
247 |
|
|
248 |
|
=cut |
249 |
|
|
250 |
|
1; |