#!/usr/bin/perl

use 5.010;
use strict;
use warnings;

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

our $VERSION = '0.02'; # VERSION

#binmode(STDOUT, ":utf8");

my $t = Text::ANSITable->new;
my $all_bs = $t->list_border_styles(1);

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

print $t;

#ABSTRACT: Display a list of known border styles using Text::ASCIITable (temp script)
#PODNAME: ansitable-list-border-styles-using-asciitable

__END__
=pod

=encoding utf-8

=head1 NAME

ansitable-list-border-styles-using-asciitable - Display a list of known border styles using Text::ASCIITable (temp script)

=head1 VERSION

version 0.02

=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

