1package DBICVersion::Table; 2 3use base 'DBIx::Class::Core'; 4use strict; 5use 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 'NewVersionName' => { 27 'data_type' => 'VARCHAR', 28 'is_auto_increment' => 0, 29 'default_value' => undef, 30 'is_foreign_key' => 0, 31 'is_nullable' => 1, 32 'size' => '20' 33 } 34 ); 35 36__PACKAGE__->set_primary_key('Version'); 37 38package DBICVersion::Schema; 39use base 'DBIx::Class::Schema'; 40use strict; 41use warnings; 42 43our $VERSION = '2.0'; 44 45__PACKAGE__->register_class('Table', 'DBICVersion::Table'); 46__PACKAGE__->load_components('+DBIx::Class::Schema::Versioned'); 47__PACKAGE__->upgrade_directory('t/var/'); 48__PACKAGE__->backup_directory('t/var/backup/'); 49 50#sub upgrade_directory 51#{ 52# return 't/var/'; 53#} 54 551; 56