#!/usr/bin/perl

use 5.010;
use strict;
use warnings;

use Text::ANSITable;
use Text::ASCIITable;

our $VERSION = '0.01'; # VERSION

#binmode(STDOUT, ":utf8");

my $t = Text::ANSITable->new;
my $all_ct = $t->list_color_themes(1);

$t = Text::ASCIITable->new;
$t->setCols('name', 'module', 'summary', '256');
for my $name (sort keys %$all_ct) {
    my $ct = $all_ct->{$name};
    $t->addRow($name, $ct->{module}, $ct->{summary}, $ct->{256} ? 1:0);
}

print $t;

#ABSTRACT: Display a list of color styles using Text::ASCIITable (temp script?)
#PODNAME: ansitable-list-color-themes-using-asciitable

__END__
=pod

=encoding utf-8

=head1 NAME

ansitable-list-color-themes-using-asciitable - Display a list of color styles using Text::ASCIITable (temp script?)

=head1 VERSION

version 0.01

=head1 AUTHOR

Steven Haryanto <stevenharyanto@gmail.com>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2013 by Steven Haryanto.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut

