Nailing down errors in deployment.

[dbsrgits/DBIx-Class-ResultSource-MultipleTableInheritance.git] / t / lib / MTITest / Result / Bar.pm

package MTITest::Result::Bar;

use strict;
use warnings;
use parent qw(MTITest::Result::Foo);

require MTITest::Result::Mixin;

__PACKAGE__->table('bar');

__PACKAGE__->result_source_instance->add_additional_parent(
    MTITest::Result::Mixin->result_source_instance );

__PACKAGE__->add_columns( b => { data_type => 'integer' } );

__PACKAGE__->belongs_to( 'b_thang', 'MTITest::Result::JustATable',
    { 'foreign.id' => 'self.b' },
);

__PACKAGE__->has_many( 'foos', 'MTITest::Result::Foo',
    { 'foreign.a' => 'self.id' } );

1;