lib/Object/Remote/Logging/LogAnyInjector.pm

   1 package Object::Remote::Logging::LogAnyInjector;
   2
   3 use Moo;
   4 use Object::Remote::Logging qw( router );
   5 use Carp qw(croak);
   6
   7 BEGIN {
   8   our %LEVEL_NAME_MAP = (
   9     #key is Log::Any log level name or alias and value is Object::Remote::Logging
  10     #log level name
  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',
  15   );
  16 }
  17
  18 sub AUTOLOAD {
  19   my ($self, @content) = @_;
  20   (my $log_level) = (our $AUTOLOAD =~ /([^:]+)$/);
  21   my $generator;
  22   my $log_contextual_level;
  23   our %LEVEL_NAME_MAP;
  24
  25   #just a proof of concept - support for the is_ methods can
  26   #be done but requires more 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]+$/;
  30
  31   if ($log_level =~ s/f$//) {
  32       my $format = shift(@content);
  33       $generator = sub { sprintf($format, @content) };
  34   } else {
  35       $generator = sub { @content };
  36   }
  37
  38   $log_contextual_level = $LEVEL_NAME_MAP{$log_level};
  39   croak "invalid log level name: $log_level" unless defined $log_contextual_level;
  40
  41   router->handle_log_request({
  42     controller => 'Log::Any',
  43     package => scalar(caller),
  44     caller_level => 1,
  45     level => $log_contextual_level,
  46   }, $generator);
  47
  48   return;
  49 }
  50
  51 1;