view release on metacpan or  search on metacpan

lib/App/highlight.pm  view on Meta::CPAN

# windows support
if ($^O eq 'MSWin32') {
    $COLOR_MODULES{'Win32::Console::ANSI'} = [];
}

try {
    for my $module (sort keys %COLOR_MODULES) {
        load($module, @{ $COLOR_MODULES{$module} });
    }

    @COLORS = map { [ color("bold $_"), color('reset') ] } (
        qw(red green yellow blue magenta cyan)
    );
}
catch {
    $COLOR_SUPPORT = 0;
};

my @NOCOLORS = (
    [ '<<', '>>' ],
    [ '[[', ']]' ],