1 package MTITest::Result::Bar;
5 use parent qw(MTITest::Result::Foo);
7 require MTITest::Result::Mixin;
9 __PACKAGE__->table('bar');
11 __PACKAGE__->result_source_instance->add_additional_parent(
12 MTITest::Result::Mixin->result_source_instance
15 __PACKAGE__->add_columns(
16 b => { data_type => 'integer' }
19 __PACKAGE__->belongs_to(
21 'MTITest::Result::JustATable',
22 { 'foreign.id' => 'self.b' },
25 __PACKAGE__->has_many(
27 'MTITest::Result::Foo',
28 { 'foreign.a' => 'self.id' }