File Coverage

lib/BalanceOfPower/Role/Logger.pm

Criterion	Covered	Total	%
statement	22	23	95.6
branch	3	4	75.0
condition			n/a
subroutine	7	7	100.0
pod	0	3	0.0
total	32	37	86.4

package BalanceOfPower::Role::Logger;
$BalanceOfPower::Role::Logger::VERSION = '0.400110';
use strict;
use v5.10;
use Moo::Role;

use Cwd;

has log_active => (
    is => 'rw',
    default => 1
);

has log_name => (
    is => 'rw',
    default => "bop.log"
);

has log_dir => (
    is => 'rw',
    default => sub { getcwd }
);

has log_on_stdout => (
    is => 'rw',
    default => 0
);

sub log_path
{
    my $self = shift;
    return $self->log_dir . "/" .$self->log_name;
}

sub log
{
    my $self = shift;
    return if(! $self->log_active);
    my $message = shift;
    open(my $log, ">>", $self->log_path);
    print $log $message . "\n";
    close($log);
    if($self->log_on_stdout)
    {
        print $message . "\n";
    }
}

sub delete_log
{
    my $self = shift;
    unlink $self->log_path;
}

1;