1package # hide from PAUSE 2 DBICTest::Schema::CollectionObject; 3 4use base qw/DBICTest::BaseResult/; 5 6__PACKAGE__->table('collection_object'); 7__PACKAGE__->add_columns( 8 'collection' => { 9 data_type => 'integer', 10 }, 11 'object' => { 12 data_type => 'integer', 13 }, 14); 15__PACKAGE__->set_primary_key(qw/collection object/); 16 17__PACKAGE__->belongs_to( collection => "DBICTest::Schema::Collection", 18 { "foreign.collectionid" => "self.collection" } 19 ); 20__PACKAGE__->belongs_to( object => "DBICTest::Schema::TypedObject", 21 { "foreign.objectid" => "self.object" } 22 ); 23 241; 25