File Coverage

blib/lib/Log/ger/Output/SimpleFile.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	6	8	75.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	28	31	90.3

package Log::ger::Output::SimpleFile;

our $DATE = '2017-07-14'; # DATE
our $VERSION = '0.001'; # VERSION

use strict;
use warnings;

sub get_hooks {
    my %conf = @_;

    my $fh;
    if (defined(my $path = $conf{path})) {
        open $fh, ">>", $path or die "Can't open log file '$path': $!";
    } elsif ($fh = $conf{handle}) {
    } else {
        die "Please specify 'path' or 'handle'";
    }

    return {
        create_log_routine => [
            __PACKAGE__, 50,
            sub {
                my %args = @_;

                my $logger = sub {
                    print $fh $_[1];
                    print $fh "\n" unless $_[1] =~ /\R\z/;
                    $fh->flush;
                };
                [$logger];
            }],
    };
}

1;
# ABSTRACT: Send logs to file

__END__