1package # hide from PAUSE 2 DBICTest::Schema::Bookmark; 3 4 use base qw/DBICTest::BaseResult/; 5 6 7use strict; 8use warnings; 9 10__PACKAGE__->table('bookmark'); 11__PACKAGE__->add_columns( 12 'id' => { 13 data_type => 'integer', 14 is_auto_increment => 1 15 }, 16 'link' => { 17 data_type => 'integer', 18 is_nullable => 1, 19 }, 20); 21 22__PACKAGE__->set_primary_key('id'); 23__PACKAGE__->belongs_to(link => 'DBICTest::Schema::Link', 'link', { on_delete => 'SET NULL' } ); 24 251; 26