view release on metacpan or  search on metacpan

lib/Log/Log4Cli.pm  view on Meta::CPAN

use 5.006;
use strict;
use warnings;
use parent qw(Exporter);

use Term::ANSIColor qw(colored);

BEGIN {
    *CORE::GLOBAL::die = sub {
        my $msg = join(' ', grep { defined } @_) || "Died";
        $msg .= " at " . join(' line ', (caller)[1,2]);
        &die_fatal($msg, 255);
    };
}

our $VERSION = '0.22'; # Don't forget to change in pod below

our @EXPORT = qw(
    die_fatal
    die_info
    die_alert