package
# hide from PAUSE
DBICTest::Schema::ArtistGUID;
use
warnings;
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;