package Doc::NodeVersion; use base 'Doc::DBI'; __PACKAGE__->table('nodeversions'); __PACKAGE__->columns(Primary => qw/vid/); __PACKAGE__->columns(Essential => qw/nid date author source mimetype extension/); __PACKAGE__->columns(Others => qw/content/); ### Make sure the content is not retrieved unneccessary __PACKAGE__->has_a(author => 'Doc::User'); __PACKAGE__->has_a(nid => 'Doc::Node'); __PACKAGE__->autoupdate(1); ... 1;