File Coverage

blib/lib/Warn/Colorful.pm

Criterion	Covered	Total	%
statement	19	29	65.5
branch	1	4	25.0
condition	1	3	33.3
subroutine	6	6	100.0
pod			n/a
total	27	42	64.2

package Warn::Colorful;
use 5.008_001;
use strict;
use warnings;

our $VERSION = '0.01';

use Term::ANSIColor;

my %colors = (
    base => 'blue',
    body => undef,
    file => undef,
    line => undef,
);

sub import {
    my ($package, %args) = @_;

    my $config = _parse_config();

    for my $name (keys %colors) {
        $colors{$name} = $args{$name} || $config->{$name} || $colors{base};
    }
}

$SIG{__WARN__} = sub {
    my $msg = shift;

    my (undef, $file, $line) = caller;

    my ($body) = $msg =~ /(.*) at ${file} line ${line}\.\n$/;
    my $out = sprintf "%s %s %s.\n",
        colored([$colors{body}], $body),
        colored([$colors{file}], "at ${file}"),
        colored([$colors{line}], "line ${line}");

    print STDERR $out;
};

sub _parse_config {
    my $config_path = "$ENV{HOME}/.warn-colorful";
    my $config = {};

    return $config unless -e $config_path;

    open my $fh, '<', $config_path;
    my $text = do { local $/; <$fh> };
    close $fh;

    for my $line (split /\n/, $text) {
        next unless $line;
        my ($key, $value) = split '=', $line;
        $config->{$key} = $value;
    }

    return $config;
}

1;
__END__