package SMU::Schema::Result::Hubba; use DBIx::Class; use Moose; extends 'DBIx::Class'; has 'id' => ( is => "ro", isa => "Int"); has 'a' => ( is => "rw", isa => "Str"); has 'b' => ( is => "rw", isa => "Str"); sub dump { my($this)=@_; return $this->id . " - " . $this->a . " - " . $this->b; } __PACKAGE__->load_components('Core'); __PACKAGE__->table('hubba'); __PACKAGE__->add_columns( id => { data_type => 'integer', size => 16 }, a => { data_type => 'varchar', size => 20 }, b => { data_type => 'varchar', size => 20 }, ); __PACKAGE__->set_primary_key('id'); 1;