#!/usr/bin/env perl
use strict;
use warnings;
use Tickit::DSL;
my $tbl = table {
warn "activated one or more items";
} data => [
[ 1, 'first line' ],
[ 2, 'second line' ],
], columns => [
{ label => 'ID', width => 9 },
{ label => 'Description' },
];
tickit->run;