t/lib/DBIC/Test/Schema/Test.pm

   1 # $Id$
   2 package DBIC::Test::Schema::Test;
   3 use strict;
   4 use warnings;
   5
   6 BEGIN {
   7     use base qw/DBIx::Class::Core/;
   8 };
   9
  10 __PACKAGE__->load_components(qw/UUIDColumns Core/);
  11 __PACKAGE__->table('test');
  12 __PACKAGE__->add_columns(
  13   'id' => {
  14     data_type => 'varchar',
  15     size      => 36,
  16   },
  17 );
  18 __PACKAGE__->set_primary_key('id');
  19 __PACKAGE__->uuid_columns('id');
  20
  21 1;