t/lib/DBICTest/Schema/FourKeys.pm

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