#!/usr/bin/perl
use strict;
use warnings;
use Text::Table;

print "==== Monks I think rock! ====\n\n";

my $tB = Text::Table->new(
    \'[ ',
    {
        title => 'Name',
        align => 'left',
    },
    \" | ", #separator
    {
        title => ' ',
        align => 'right',
    },
    \' ]',
);


$tB->load(
    [ steves => 'rocks plenty, found Text::Table'],
    [ 'Anno Siegel' => 'rocks plenty, after all he wrote Text::Table'],
);

print $tB->title();

print $tB->rule('#','#');
print $tB->body(0);
# bugger, a buG
# print $tB->title_rule('.');
print $tB->rule();
print $tB->body(1);
print $tB->body_rule('.');
print $tB->rule();
# this one ought to be called align
# and part of the package
print Text::Aligner::align(
    right =>
        ( ' ' x ( $tB->width() - length '... and many more ' ) )
        . '... and many more ' ),"\n";

__END__
==== Monks I think rock! ====

[ Name        |                                              ]
##############################################################
[ steves      |              rocks plenty, found Text::Table ]
[             |                                              ]
[ Anno Siegel | rocks plenty, after all he wrote Text::Table ]
[.............|..............................................]
[             |                                              ]
                                            ... and many more