Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success 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;