gistfile1.txt

315     # And a route to list records already in the table:
316     get "$args{prefix}" => sub {
317         # TODO: handle pagination
318         my $sth = $dbh->prepare("select * from $table_name");
319         $sth->execute;   
320         my $table = HTML::Table::FromDatabase->new(
321             -sth => $sth,
322             -border => 1,                                                                         
323         );               
324         return $table->getTable;
325     };