File Coverage

blib/lib/XAS/Lib/Log.pm

Criterion	Covered	Total	%
statement	9	42	21.4
branch	0	12	0.0
condition			n/a
subroutine	3	10	30.0
pod	2	4	50.0
total	14	68	20.5

package XAS::Lib::Log;

our $VERSION = '0.03';

use DateTime;
use XAS::Constants ':logging HASHREF';

use XAS::Class
  version    => $VERSION,
  base       => 'XAS::Singleton',
  accessors  => 'logger',
  filesystem => 'File',
  utils      => ':boolean :validation load_module',
  vars => {
    LEVELS => {
      trace => 0,
      debug => 0,
      info  => 1,
      warn  => 1,
      error => 1,
      fatal => 1,
    }
  }
;

#use Data::Dumper;

# ------------------------------------------------------------------------
# Public Methods
# ------------------------------------------------------------------------

sub level {
    my $self  = shift;
    my ($level, $action) = validate_params(\@_, [
        { regex => LOG_LEVELS },
        { optional => 1, default => undef ,
          callbacks => {
              'must be a boolean value or undef' => sub {
                  my $param = shift;
                  return 1 unless (defined($param));
                  return 1 if (is_truthy($param));
                  return 1 if (is_falsey($param));
              }
          }
        },
    ]);

    $self->{$level} = $action if (defined($action));

    return $self->{$level};

}

sub build {
    my $self = shift;
    my ($level, $message) = validate_params(\@_, [
        { regex => LOG_LEVELS },
        1
    ]);

    return {
        hostname => $self->env->host,
        datetime => DateTime->now(time_zone => 'local'),
        process  => $self->env->script,
        pid      => $$,
        msgid    => 0,
        facility => $self->env->log_facility,
        priority => $level,
        message  => $message,
    };

}

sub activate {
    my $self = shift;

    my $type = $self->env->log_type;
    my $logger = 'XAS::Lib::Log::' . ucfirst($type);

    load_module($logger);

    $self->{'logger'} = $logger->new();

}

# ------------------------------------------------------------------------
# Private Methods
# ------------------------------------------------------------------------

sub init {
    my $class = shift;

    my $self = $class->SUPER::init(@_);

    # populate $self for each level using the
    # value in $LEVELS

    my $levels = $self->class->hash_vars('LEVELS');

    while (my ($level, $default) = each %$levels) {

        # set defined levels

        $self->level($level, $default);

        # autogenerate some methods, saves typing

        $self->class->methods($level => sub {
            my $self = shift;

            if ($self->{$level}) {

                my $args = $self->build($level, join(" ", @_));
                $self->logger->output($args);

            }

        });

        $self->class->methods($level . '_msg' => sub {
            my $self = shift;

            if ($self->{$level}) {

                my $args = $self->build($level, $self->message(@_));
                $self->logger->output($args);

            }

        });

    }

    # load and initialize our output mixin

    $self->activate();

    return $self;

}

1;

__END__