File Coverage

blib/lib/Dancer2/Logger/File.pm

Criterion	Covered	Total	%
statement	32	34	94.1
branch	1	2	50.0
condition			n/a
subroutine	12	12	100.0
pod			n/a
total	45	48	93.7

package Dancer2::Logger::File;
# ABSTRACT: file-based logging engine for Dancer2
$Dancer2::Logger::File::VERSION = '2.1.0';
use Carp 'carp';
use Moo;
use Dancer2::Core::Types;

with 'Dancer2::Core::Role::Logger';

use Fcntl qw(:flock SEEK_END);
use Path::Tiny ();
use IO::File;

has environment => (
    is       => 'ro',
    required => 1,
);

has location => (
    is       => 'ro',
    required => 1,
);

has log_dir => (
    is      => 'rw',
    isa     => sub {
        my $dir = shift;

        if ( !-d $dir && !mkdir $dir ) {
            die "log directory \"$dir\" does not exist and unable to create it.";
        }
        if ( !-w $dir ) {
            die "log directory \"$dir\" is not writable."
        }
    },
    lazy    => 1,
    builder => '_build_log_dir',
);

has _log_dir_path => (
    is       => 'ro',
    lazy     => 1,
    builder  => '_build_log_dir_path',
    init_arg => undef,
);

has file_name => (
    is      => 'ro',
    isa     => Str,
    builder => '_build_file_name',
    lazy    => 1
);

has log_file => (
    is      => 'ro',
    isa     => Str,
    lazy    => 1,
    builder => '_build_log_file',
);

has _log_file_path => (
    is       => 'ro',
    lazy     => 1,
    builder  => '_build_log_file_path',
    init_arg => undef,
);

has fh => (
    is      => 'ro',
    lazy    => 1,
    builder => '_build_fh',
);

sub _build_log_dir { Path::Tiny::path( $_[0]->location, 'logs' )->stringify }

sub _build_log_dir_path {
    my $self = shift;
    return Path::Tiny::path( $self->log_dir );
}

sub _build_file_name {$_[0]->environment . ".log"}

sub _build_log_file {
    my $self = shift;
    return $self->_log_dir_path->child( $self->file_name )->stringify;
}

sub _build_log_file_path {
    my $self = shift;
    return Path::Tiny::path( $self->log_file );
}

sub _build_fh {
    my $self    = shift;
    my $logfile = $self->_log_file_path->stringify;

    my $fh = eval {
        $self->_log_file_path->filehandle(
            '>>', ':encoding(UTF-8)',
        );
    } or do {
        Carp::carp("unable to create or append to $logfile");
        return;
    };

    $fh->autoflush;

    return $fh;
}

sub log {
    my ( $self, $level, $message ) = @_;
    my $fh = $self->fh;

    return unless ( ref $fh && $fh->opened );

    flock( $fh, LOCK_EX )
      or carp "locking logfile $self->{logfile} failed: $!";
    seek( $fh, 0, SEEK_END );
    $fh->print( $self->format_message( $level => $message ) )
      or carp "writing to logfile $self->{logfile} failed";
    flock( $fh, LOCK_UN )
      or carp "unlocking logfile $self->{logfile} failed: $!";
}

1;

__END__