File Coverage

blib/lib/IRC/Indexer/Logger.pm

Criterion	Covered	Total	%
statement	36	42	85.7
branch	6	8	75.0
condition	2	5	40.0
subroutine	9	10	90.0
pod	0	3	0.0
total	53	68	77.9

package IRC::Indexer::Logger;

use 5.10.1;
use strict;
use warnings;
use Carp;

use Scalar::Util qw/blessed/;

use Log::Handler;

sub new {
  my $self = {};
  my $class = shift;
  bless $self, $class;
  ## Set up a Log::Handler for specified LogFile

  my %args = @_;
  $args{lc $_} = delete $args{$_} for keys %args;

  if ($args{devnull}) {
    ## Sometimes it's useful to have a log object present,
    ## but not necessarily logging anywhere:
    $self->{DevNull} = 1;
  } else {
    $self->{LogFile} = $args{logfile}
      || croak "No LogFile specified in new()";
  }
  $self->{LogLevel} = $args{loglevel} || 'info' ;

  $self->logger( $self->_create_logger );

  return $self
}

sub _create_logger {
  my ($self) = @_;
  my $logger = Log::Handler->new();
  $logger->add(
    file => {
      maxlevel => $self->{LogLevel},
      timeformat => "%Y/%m/%d %H:%M:%S",
      message_layout => "[%T] %L %p %m",

      filename => $self->{LogFile},
      filelock => 1,
      fileopen => 1,
      reopen   => 1,
      utf8     => 1,
      autoflush => 1,
    },
  ) unless $self->{DevNull};

  return $logger
}

sub logger {
  my ($self, $logger) = @_;
  ## Return/set our Log::Handler
  return $self->{LogObj} = $logger if blessed $logger;
  return $self->{LogObj}
}

sub log_to {
  ## Adjust the log destination
  my ($self, $path) = @_;
  return unless $path;
  $self->{LogFile} = $path;
  $self->logger->flush;
  $self->logger( $self->_create_logger );
  return $self->logger
}

1;
__END__