package venue; use strict; use DBIx::Table; use vars qw / @ISA /; @ISA = qw / DBIx::Table /; sub describe { my $self = shift || return undef; $self->{'table'}='venue'; $self->{'unique_keys'}=[qw /venue_id/ ]; $self->{'columns'}= { venue_id => { 'immutable' => 1, 'autoincrement' => 1 }, venue_name => {quoted => 1 } }; } 1;