Fix building on perls with no . in @INC
[dbsrgits/DBIx-Class.git] / t / lib / DBICTest / DynamicForeignCols / Computer.pm
1 package DBICTest::DynamicForeignCols::Computer;
2
3 use warnings;
4 use strict;
5
6 use base 'DBIx::Class::Core';
7
8 __PACKAGE__->table('Computers');
9
10 __PACKAGE__->add_columns('id');
11
12 __PACKAGE__->set_primary_key('id');
13
14 __PACKAGE__->has_many(computer_test_links => 'DBICTest::DynamicForeignCols::TestComputer', 'computer_id');
15
16 1;