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

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