The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

package Thing;
use strict;
use base qw(Class::DBI);
Thing->table('things');
Thing->columns(Primary => qw(id));
Thing->columns(Essential => qw(id title description date));
sub class_title { 'Thing' }
sub class_plural { 'Things' }
sub class_description { 'Things of one kind or another.' }
1;