Dogcows Code - chaz/p5-DBIx-Class-ResultSet-RecursiveUpdate/blob - t/lib/DBICTest/Schema/FourKeys.pm

   1 package # hide from PAUSE
   2     DBICTest::Schema::FourKeys;
   3
   4 use base 'DBIx::Class::Core';
   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' },
  13 );
  14 __PACKAGE__->set_primary_key(qw/foo bar hello goodbye/);
  15
  16 __PACKAGE__->has_many(
  17   'fourkeys_to_twokeys', 'DBICTest::Schema::FourKeys_to_TwoKeys', {
  18     'foreign.f_foo' => 'self.foo',
  19     'foreign.f_bar' => 'self.bar',
  20     'foreign.f_hello' => 'self.hello',
  21     'foreign.f_goodbye' => 'self.goodbye',
  22 });
  23
  24 __PACKAGE__->many_to_many(
  25   'twokeys', 'fourkeys_to_twokeys', 'twokeys',
  26 );
  27
  28 1;