File: example.pl

package info (click to toggle)
libtext-formattable-perl 1.01-2
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 72 kB
  • ctags: 25
  • sloc: perl: 404; makefile: 45
file content (10 lines) | stat: -rw-r--r-- 288 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
 
use lib 'lib';
use Text::FormatTable;
my $table = Text::FormatTable->new('r|l');
$table->head('a', 'b');
$table->rule('=');
$table->row('this a test, a nice test', 'a test!');
$table->rule;
$table->row('you mean it\'s really a test?', 'yep');
$table->rule('=');
print $table->render(20);