1package # hide from PAUSE 2 DBICTest::Schema::ArtistGUID; 3 4use base qw/DBICTest::BaseResult/; 5 6# test MSSQL uniqueidentifier type 7 8__PACKAGE__->table('artist'); 9__PACKAGE__->add_columns( 10 'artistid' => { 11 data_type => 'uniqueidentifier' # auto_nextval not necessary for PK 12 }, 13 'name' => { 14 data_type => 'varchar', 15 size => 100, 16 is_nullable => 1, 17 }, 18 rank => { 19 data_type => 'integer', 20 default_value => 13, 21 }, 22 charfield => { 23 data_type => 'char', 24 size => 10, 25 is_nullable => 1, 26 }, 27 a_guid => { 28 data_type => 'uniqueidentifier', 29 auto_nextval => 1, # necessary here, because not a PK 30 is_nullable => 1, 31 } 32); 33__PACKAGE__->set_primary_key('artistid'); 34 351; 36