1package # hide from PAUSE 2 DBICTest::Schema::BooksInLibrary; 3 4use base qw/DBICTest::BaseResult/; 5 6__PACKAGE__->table('books'); 7__PACKAGE__->add_columns( 8 'id' => { 9 data_type => 'integer', 10 is_auto_increment => 1, 11 }, 12 'source' => { 13 data_type => 'varchar', 14 size => '100', 15 }, 16 'owner' => { 17 data_type => 'integer', 18 }, 19 'title' => { 20 data_type => 'varchar', 21 size => '100', 22 }, 23 'price' => { 24 data_type => 'integer', 25 is_nullable => 1, 26 }, 27); 28__PACKAGE__->set_primary_key('id'); 29 30__PACKAGE__->resultset_attributes({where => { source => "Library" } }); 31 32__PACKAGE__->belongs_to ( owner => 'DBICTest::Schema::Owners', 'owner' ); 33 341; 35