t/lib/RTest/TestDB/Baz.pm

   1 package # hide from PAUSE
   2   RTest::TestDB::Baz;
   3
   4 use DBIx::Class 0.07;
   5
   6 use base qw/DBIx::Class Reaction::Object/;
   7 use Reaction::Class;
   8
   9 has 'id' => (isa => 'Int', is => 'ro', required => 1);
  10 has 'name' => (isa => 'NonEmptySimpleStr', is => 'rw', required => 1);
  11 has 'foo_list' => (isa => 'ArrayRef', is => 'ro', required => 1);
  12
  13 __PACKAGE__->load_components(qw/InflateColumn::DateTime Core/);
  14
  15 __PACKAGE__->table('baz');
  16
  17 __PACKAGE__->add_columns(
  18   id => { data_type => 'integer', size => 16, is_auto_increment => 1 },
  19   name => { data_type => 'varchar', size => 255 },
  20 );
  21
  22 sub display_name { shift->name; }
  23
  24 __PACKAGE__->set_primary_key('id');
  25
  26 __PACKAGE__->has_many('links_to_foo_list' => 'RTest::TestDB::FooBaz', 'baz');
  27 __PACKAGE__->many_to_many('foo_list' => 'links_to_foo_list' => 'foo');
  28
  29 1;