1package # hide from PAUSE 2 DBICTest::Schema::Employee; 3 4use base qw/DBICTest::BaseResult/; 5 6__PACKAGE__->load_components(qw( Ordered )); 7 8__PACKAGE__->table('employee'); 9 10__PACKAGE__->add_columns( 11 employee_id => { 12 data_type => 'integer', 13 is_auto_increment => 1 14 }, 15 position => { 16 data_type => 'integer', 17 }, 18 group_id => { 19 data_type => 'integer', 20 is_nullable => 1, 21 }, 22 group_id_2 => { 23 data_type => 'integer', 24 is_nullable => 1, 25 }, 26 group_id_3 => { 27 data_type => 'integer', 28 is_nullable => 1, 29 }, 30 name => { 31 data_type => 'varchar', 32 size => 100, 33 is_nullable => 1, 34 }, 35); 36 37__PACKAGE__->set_primary_key('employee_id'); 38__PACKAGE__->position_column('position'); 39 40#__PACKAGE__->add_unique_constraint(position_group => [ qw/position group_id/ ]); 41 42__PACKAGE__->mk_classdata('field_name_for', { 43 employee_id => 'primary key', 44 position => 'list position', 45 group_id => 'collection column', 46 name => 'employee name', 47}); 48 491; 50