lib/Log/Contextual/SimpleLogger.pm

   1 package Log::Contextual::SimpleLogger;
   2
   3 use strict;
   4 use warnings;
   5
   6 {
   7   for my $name (qw[ trace debug info warn error fatal ]) {
   8
   9     no strict 'refs';
  10
  11     *{$name} = sub {
  12       my $self = shift;
  13
  14       $self->_log( $name, @_ )
  15         if ($self->{$name});
  16     };
  17
  18     *{"is_$name"} = sub {
  19       my $self = shift;
  20       return $self->{$name};
  21     };
  22   }
  23 }
  24
  25 sub new {
  26   my ($class, $args) = @_;
  27   my $self = bless {}, $class;
  28
  29   $self->{$_} = 1 for @{$args->{levels}};
  30   $self->{coderef} = $args->{coderef} || sub { print STDERR @_};
  31   return $self;
  32 }
  33
  34 sub _log {
  35   my $self    = shift;
  36   my $level   = shift;
  37   my $message = join( "\n", @_ );
  38   $message .= "\n" unless $message =~ /\n$/;
  39   $self->{coderef}->(sprintf( "[%s] %s", $level, $message ));
  40 }
  41
  42 1;
  43