File Coverage

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

Criterion	Covered	Total	%
statement	3	20	15.0
branch	0	10	0.0
condition			n/a
subroutine	1	3	33.3
pod	2	2	100.0
total	6	35	17.1

package XAS::Lib::Log::File;

our $VERSION = '0.01';

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

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

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

    $self->env->log_file->append(
        sprintf("[%s] %-5s - %s\n",
            $args->{'datetime'}->strftime('%Y-%m-%d %H:%M:%S'),
            uc($args->{'priority'}),
            $args->{'message'}
    ));

}

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

sub init {
    my $class = shift;

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

    # check to see if the file exists, otherwise create it

    unless ($self->env->log_file->exists) {

        if (my $fh = $self->env->log_file->open('>')) {

            $fh->close;

        } else {

            $self->throw_msg(
                dotid($self->class) . '.init.creatfile',
                'file_create',
                $self->env->log_file->path
            );

        }

    }

    # Change the file permissions to rw-rw-r, skip this on Windows
    # as this will create a read only file.

    if ($^O ne "MSWin32") {

        my ($cnt, $mode, $permissions);

        # set file permissions

        $mode = ($self->env->log_file->stat)[2];
        $permissions = sprintf("%04o", $mode & 07777);

        if ($permissions ne "0664") {

            $cnt = chmod(0664, $self->env->log_file->path);
            $self->throw_msg(
                dotid($self->class) . '.init.invperms',
                'file_perms',
                $self->env->log_file->path) if ($cnt < 1);

        }

    }

    return $self;

}

1;

__END__