1 package Object::Remote::Logging::LogAnyInjector;
4 use Object::Remote::Logging qw( router );
8 our %LEVEL_NAME_MAP = (
9 #key is Log::Any log level name or alias and value is Object::Remote::Logging
11 trace => 'trace', debug => 'debug', info => 'info', notice => 'verbose',
12 warning => 'warn', error => 'error', fatal => 'fatal',
13 critical => 'error', alert => 'error', 'emergency' => 'error',
14 inform => 'info', warn => 'warn', err => 'error', crit => 'error',
19 my ($self, @content) = @_;
20 (my $log_level) = (our $AUTOLOAD =~ /([^:]+)$/);
22 my $log_contextual_level;
25 #just a proof of concept - support for the is_ methods can
26 #be done but requires modifications to the router
27 return 1 if $log_level =~ m/^is_/;
28 #skip DESTROY and friends
29 return if $log_level =~ m/^[A-Z]+$/;
31 if ($log_level =~ s/f$//) {
32 my $format = shift(@content);
33 $generator = sub { sprintf($format, @content) };
35 $generator = sub { @content };
38 $log_contextual_level = $LEVEL_NAME_MAP{$log_level};
39 croak "invalid log level name: $log_level" unless defined $log_contextual_level;
41 router->handle_log_request({
42 controller => 'Log::Any',
43 package => scalar(caller),
45 level => $log_contextual_level,