t/lib/MTITest/Result/Foo.pm

   1 package MTITest::Result::Foo;
   2
   3 use strict;
   4 use warnings;
   5 use parent qw(DBIx::Class::Core);
   6 use aliased 'DBIx::Class::ResultSource::MultipleTableInheritance';
   7
   8 __PACKAGE__->table_class(MultipleTableInheritance);
   9
  10 __PACKAGE__->table('foo');
  11
  12 __PACKAGE__->add_columns(
  13   id => { data_type => 'integer', is_auto_increment => 1 },
  14   a => { data_type => 'integer' }
  15 );
  16
  17 __PACKAGE__->set_primary_key('id');
  18
  19 __PACKAGE__->belongs_to(
  20   'bar',
  21   'MTITest::Result::Bar',
  22   { 'foreign.id' => 'self.a' }
  23 );
  24
  25 1;