File Coverage

blib/lib/FusionInventory/Agent/Logger/Stderr.pm

Criterion	Covered	Total	%
statement	16	28	57.1
branch	0	10	0.0
condition			n/a
subroutine	5	6	83.3
pod	2	2	100.0
total	23	46	50.0

package FusionInventory::Agent::Logger::Stderr;

use strict;
use warnings;
use base 'FusionInventory::Agent::Logger::Backend';

use English qw(-no_match_vars);

sub new {
    my ($class, %params) = @_;

    my $self = {
        color => $params{config}->{color},
    };
    bless $self, $class;

    return $self;
}

sub addMessage {
    my ($self, %params) = @_;

    my $level = $params{level};
    my $message = $params{message};

    my $format;
    if ($self->{color}) {
        if ($level eq 'warning') {
            $format = "\033[1;35m[%s] %s\033[0m\n";
        } elsif ($level eq 'error') {
            $format = "\033[1;31m[%s] %s\033[0m\n";
        } elsif ($level eq 'info') {
            $format = "\033[1;34m[%s]\033[0m %s\n";
        } elsif ($level =~ /^debug/ ) {
            $format = "\033[1;1m[%s]\033[0m %s\n";
        }
    } else {
        $format = "[%s] %s\n";
    }

    printf STDERR $format, $level, $message;

}

1;
__END__