NAME

Text::SimpleTable - Simple Eyecandy ASCII Tables

SYNOPSIS

use Text::SimpleTable;

my $t1 = Text::SimpleTable->new(5, 10);
$t1->row('foobarbaz', 'yadayadayada');
print $t1->draw;

.-------+------------.
| foob- | yadayaday- |
| arbaz | ada        |
'-------+------------'

my $t2 = Text::SimpleTable->new([5, 'Foo'], [10, 'Bar']);
$t2->row('foobarbaz', 'yadayadayada');
$t2->row('barbarbarbarbar', 'yada');
print $t2->draw;

.-------+------------.
| Foo   | Bar        |
+-------+------------+
| foob- | yadayaday- |
| arbaz | ada        |
| barb- | yada       |
| arba- |            |
| rbar- |            |
| bar   |            |
'-------+------------'

my $t3 = Text::SimpleTable->new([5, 'Foo'], [10, 'Bar']);
$t3->row('foobarbaz', 'yadayadayada');
$t3->hr;
$t3->row('barbarbarbarbar', 'yada');
print $t3->draw;

.-------+------------.
| Foo   | Bar        |
+-------+------------+
| foob- | yadayaday- |
| arbaz | ada        |
+-------+------------+
| barb- | yada       |
| arba- |            |
| rbar- |            |
| bar   |            |
'-------+------------'

DESCRIPTION

Simple eyecandy ASCII tables.

METHODS

Text::SimpleTable implements the following methods.

new

my $t = Text::SimpleTable->new(5, 10);
my $t = Text::SimpleTable->new([5, 'Col1', 10, 'Col2']);

draw

my $ascii = $t->draw;

hr

$t = $t->hr;

row

$t = $t->row('col1 data', 'col2 data');

AUTHOR

Sebastian Riedel, sri@cpan.org.

CREDITS

In alphabetical order:

Brian Cassidy

COPYRIGHT

Copyright (C) 2005-2009, Sebastian Riedel.

LICENSE

This program is free software, you can redistribute it and/or modify it under the same terms as Perl 5.10.