File Coverage

lib/Log/Mini/Logger/FILE.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	3	4	75.0
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	35	37	94.5

package Log::Mini::Logger::FILE;

use strict;
use warnings;
use IO::Handle;

use base 'Log::Mini::Logger::Base';

sub new
{
    my $self = shift->SUPER::new(@_);
    my (%params) = @_;

    $self->{file} = $params{file};

    # TODO: Allow logrotate
    open my $fh, '>>', $params{file} or die $!;
    if (defined $params{'synced'}) {
        $fh->autoflush(1);
    }

    $self->{fh} = $fh;

    return $self;
}

sub _print
{
    my $self = shift;

    my $fh = $self->{fh};
    print $fh @_;
}

sub DESTROY
{
    close shift->{'fh'};
    return;
}

1;