13 lines
269 B
Text
13 lines
269 B
Text
|
Simple eyecandy ASCII tables, as seen in Catalyst.
|
||
|
|
|
||
|
|
use Text::SimpleTable;
|
||
|
|
|
||
|
|
my $t1 = Text::SimpleTable->new( 5, 10 );
|
||
|
|
$t1->row( 'foobarbaz', 'yadayadayada' );
|
||
|
|
print $t1->draw;
|
||
|
|
|
||
|
|
.-------+------------.
|
||
|
|
| foob- | yadayaday- |
|
||
|
|
| arbaz | ada |
|
||
|
|
'-------+------------'
|