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', is_nullable       => 1 }
  15 );
  16
  17 __PACKAGE__->set_primary_key('id');
  18
  19 __PACKAGE__->belongs_to( 'bar', 'MTITest::Result::Bar',
  20     { 'foreign.id' => 'self.a' } );
  21
  22 1;