The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package # hide from PAUSE
    DBICTest::Schema::ArtistGUID;

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;