1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
package # hide from PAUSE
DBICTest::Schema::ArtistGUID;
use warnings;
use strict;
use base qw/DBICTest::BaseResult/;
# 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;
|
