File Coverage

blib/lib/Log/Any/Plugin/ANSIColor.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	10	10	100.0
condition	5	6	83.3
subroutine	7	7	100.0
pod	0	1	0.0
total	52	54	96.3

package Log::Any::Plugin::ANSIColor;
use 5.008001;
use strict;
use warnings;

our $VERSION = "0.01";

use Log::Any::Plugin::Util  qw( get_old_method set_new_method );
use Term::ANSIColor         qw( colored colorvalid );

our %default = (
    emergency  => 'bold magenta',
    alert      => 'magenta',
    critical   => 'bold red',
    error      => 'red',
    warning    => 'yellow',
    debug      => 'cyan',
    trace      => 'blue',
);

sub install {
    my ($class, $adapter_class, %color_map) = @_;

    if ((delete $color_map{default}) || (keys %color_map == 0)) {
        # Copy the default colors, leaving any the user has specified.
        for my $method (keys %default) {
            $color_map{$method} ||= $default{$method};
        }
    }

    for my $method_name (Log::Any->logging_methods) {
        if (my $color = delete $color_map{$method_name}) {
            # Specifying none as the color name disables colorisation for that
            # method.
            next if $color eq 'none';

            if (!colorvalid($color)) {
                warn "Invalid color name \"$color\" for $method_name";
                next;
            }

            my $old_method = get_old_method($adapter_class, $method_name);
            set_new_method($adapter_class, $method_name, sub {
                my $self = shift;
                $self->$old_method(colored([$color], @_));
            });
        }
    }

    if (my @remainder = sort keys %color_map) {
        warn 'Unknown logging methods: ', join(', ', @remainder);
    }
}

1;
__END__