Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

package # hide from PAUSE
DBICTest::Schema::ArtistGUID;
use strict;
# test MSSQL uniqueidentifier type
__PACKAGE__->table('artist_guid');
__PACKAGE__->add_columns(
'artistid' => {
data_type => 'uniqueidentifier' # auto_nextval not necessary for PK
},
'name' => {
data_type => 'varchar',
size => 100,
is_nullable => 1,
},
rank => {
data_type => 'integer',
default_value => 13,
},
charfield => {
data_type => 'char',
size => 10,
is_nullable => 1,
},
a_guid => {
data_type => 'uniqueidentifier',
auto_nextval => 1, # necessary here, because not a PK
is_nullable => 1,
}
);
__PACKAGE__->set_primary_key('artistid');
1;