File Coverage

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

Criterion	Covered	Total	%
statement	19	19	100.0
branch	6	8	75.0
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	30	34	88.2

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

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2020-03-11'; # DATE
our $DIST = 'Log-ger-Output-SimpleFile'; # DIST
our $VERSION = '0.004'; # VERSION

use strict;
use warnings;

sub meta { +{
    v => 2,
} }

sub get_hooks {
    my %plugin_conf = @_;

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

    return {
        create_outputter => [
            __PACKAGE__, # key
            50,          # priority
            sub {        # hook
                my %hook_args = @_; # see Log::ger::Manual::Internals/"Arguments passed to hook"

                my $outputter = sub {
                    my ($per_target_conf, $fmsg, $per_msg_conf) = @_;
                    print $fh $fmsg . ($fmsg =~ /\R\z/ ? "" : "\n");
                    $fh->flush;
                };
                [$outputter];
            }],
    };
}

1;
# ABSTRACT: Send logs to file

__END__