File Coverage

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

Criterion	Covered	Total	%
statement	12	28	42.8
branch	0	10	0.0
condition			n/a
subroutine	4	6	66.6
pod	2	2	100.0
total	18	46	39.1

package Armadito::Agent::Logger::Stderr;

use strict;
use warnings;
use base 'Armadito::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__

=head1 NAME

Armadito::Agent::Logger::Stderr - A stderr backend for the logger

=head1 DESCRIPTION

This is a stderr-based backend for the logger. It supports coloring based on
message level on Unix platforms.