#!/usr/bin/env perl
use warnings;
use strict;

use lib "../lib";
use Term::Colormap qw( color_table colormap_names );
use Term::Colormap::Brewer;

if ( not defined $ARGV[0] ) {
    for my $name ( colormap_names() ) {
        next unless $name =~ m|^\w+\-\d+|; # brewer colors are named like accent-5
        color_table($name);
    }
    exit 0;
}

my $name = $ARGV[0] || 'unknown';

# After a long usage message...the usage message is obscured since
# there are so many brewer colormaps...
eval {
    color_table($name);
};
my $error = $@;
if ($error) {
    print $@;
    print "\nInvalid colormap '$name'\n";
    print "\nusage: $0 colormap_name\n\n";
}

exit 0;
