t/lib/DBICVersion_v1.pm

   1 package DBICVersion::Table;
   2
   3 use base 'DBIx::Class::Core';
   4 use strict;
   5 use warnings;
   6
   7 __PACKAGE__->table('TestVersion');
   8
   9 __PACKAGE__->add_columns
  10     ( 'Version' => {
  11         'data_type' => 'INTEGER',
  12         'is_auto_increment' => 1,
  13         'default_value' => undef,
  14         'is_foreign_key' => 0,
  15         'is_nullable' => 0,
  16         'size' => ''
  17         },
  18       'VersionName' => {
  19         'data_type' => 'VARCHAR',
  20         'is_auto_increment' => 0,
  21         'default_value' => undef,
  22         'is_foreign_key' => 0,
  23         'is_nullable' => 0,
  24         'size' => '10'
  25         },
  26       );
  27
  28 __PACKAGE__->set_primary_key('Version');
  29
  30 package DBICVersion::Schema;
  31 use base 'DBIx::Class::Schema';
  32 use strict;
  33 use warnings;
  34
  35 our $VERSION = '1.0';
  36
  37 __PACKAGE__->register_class('Table', 'DBICVersion::Table');
  38 __PACKAGE__->load_components('+DBIx::Class::Schema::Versioned');
  39
  40 sub upgrade_directory
  41 {
  42     return 't/var/';
  43 }
  44
  45 sub ordered_schema_versions {
  46   return('1.0','2.0','3.0');
  47 }
  48
  49 1;