File Coverage

blib/lib/OTRS/OPM/Installer/Logger.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	2	2	100.0
condition	1	2	50.0
subroutine	10	10	100.0
pod	0	2	0.0
total	50	53	94.3

package OTRS::OPM::Installer::Logger;
$OTRS::OPM::Installer::Logger::VERSION = '0.05';
# ABSTRACT: A simple logger for OTRS::OPM::Installer

use strict;
use warnings;

use Moo;
use IO::All;
use File::Temp;
use Time::Piece;

my $file = File::Temp->new->filename;

has log  => ( is => 'ro', lazy => 1, default => sub { $file } );

for my $level (qw/notice info debug warn error/) {
    no strict 'refs';
    *{"OTRS::OPM::Installer::Logger::$level"} = sub {
        shift->print( $level, @_ );
    };
}

sub print {
    my ($self, $tag, %attr) = @_;

    my $attrs   = join " ", map{
        my $escaped = $attr{$_} // '';
        $escaped =~ s{\\}{\\\\}g;
        $escaped =~ s{"}{\\"}g;

        sprintf '%s="%s"', $_, $escaped
    }sort keys %attr;

    my $date    = localtime;
    my $message = sprintf "[%s] [%s %s] %s \n", uc $tag, $date->ymd, $date->hms, $attrs;
    $message >> io $self->log;
}

sub BUILD {
    my ($self, $param) = @_;

    if ( $param->{path} ) {
        $file = $param->{path};
    }

    my $date    = localtime;
    my $message = sprintf "[DEBUG] [%s %s] Start installation...\n", $date->ymd, $date->hms;

    $message > io $self->log
}

1;

__END__