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
|
package DBIx::Class::DeploymentHandler::LogRouter;
$DBIx::Class::DeploymentHandler::LogRouter::VERSION = '0.002233';
use Moo;
use DBIx::Class::DeploymentHandler::Logger;
with 'Log::Contextual::Role::Router';
has _logger => (
is => 'lazy',
builder => sub { DBIx::Class::DeploymentHandler::Logger->new },
);
sub handle_log_request {
my ($self, %message_info) = @_;
my $log_code_block = $message_info{message_sub};
my $args = $message_info{message_args};
my $log_level_name = $message_info{message_level};
my $logger = $self->_logger;
my $is_active = $logger->can("is_${log_level_name}");
return unless defined $is_active && $logger->$is_active;
my $log_message = $log_code_block->(@$args);
$self->_logger->$log_level_name($log_message);
}
sub before_import {}
sub after_import {}
1;
|
