File Coverage

blib/lib/XAS/Lib/Log/Syslog.pm

Criterion	Covered	Total	%
statement	6	18	33.3
branch			n/a
condition			n/a
subroutine	2	5	40.0
pod	2	2	100.0
total	10	25	40.0

package XAS::Lib::Log::Syslog;

our $VERSION = '0.01';

use Sys::Syslog qw(:standard :extended);

use XAS::Class
  debug     => 0,
  version   => $VERSION,
  base      => 'XAS::Base',
  utils     => ':validation level2syslog',
  constants => 'HASHREF',
;

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

sub output {
    my $self  = shift;
    my ($args) = validate_params(\@_, [
        { type => HASHREF }
    ]);

    my $priority = level2syslog(lc($args->{'priority'}));
    my $message = sprintf('%s', $args->{'message'});

    syslog($priority, $message);

}

sub DESTROY {
    my $self = shift;

    closelog();

}

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

sub init {
    my $class = shift;

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

    setlogsock('unix');
    openlog($self->env->script, 'pid', $self->env->log_facility);

    return $self;

}

1;

__END__