ansitable-invalid-color.pl

#!/usr/bin/env perl

use Text::ANSITable;
use strict;

my %Flag;
foreach (
    'durian', 'rambutan', 'salak', 'belimbing', 'mangga'
) { $Flag { $_ } = undef; }

my $tw = 2;
my @ta = ();
my $tb = Text::ANSITable->new;

# $tb->color_theme("Text::ANSITable::Standard::NoGradation");

$tb->columns(["X", "Y"]);

my $i;

foreach $i ( sort keys %Flag ) {
    push @ta, $Flag{$i}, $i;
    if ((scalar @ta) == $tw) {
        $tb->add_row([@ta]);
        @ta = ();
    }
}

print $tb->draw;