t/lib/DBICTest/Schema/FourKeys.pm

   1 package # hide from PAUSE
   2     DBICTest::Schema::FourKeys;
   3
   4 use base qw/DBICTest::BaseResult/;
   5
   6 __PACKAGE__->table('fourkeys');
   7 __PACKAGE__->add_columns(
   8   'foo' => { data_type => 'integer' },
   9   'bar' => { data_type => 'integer' },
  10   'hello' => { data_type => 'integer' },
  11   'goodbye' => { data_type => 'integer' },
  12   'sensors' => { data_type => 'character', size => 10 },
  13   'read_count' => { data_type => 'integer', is_nullable => 1 },
  14 );
  15 __PACKAGE__->set_primary_key(qw/foo bar hello goodbye/);
  16
  17 __PACKAGE__->has_many(
  18   'fourkeys_to_twokeys', 'DBICTest::Schema::FourKeys_to_TwoKeys', {
  19     'foreign.f_foo' => 'self.foo',
  20     'foreign.f_bar' => 'self.bar',
  21     'foreign.f_hello' => 'self.hello',
  22     'foreign.f_goodbye' => 'self.goodbye',
  23 });
  24
  25 __PACKAGE__->many_to_many(
  26   'twokeys', 'fourkeys_to_twokeys', 'twokeys',
  27 );
  28
  29 1;