t/lib/DBICVersionNew.pm

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