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 'ExtraColumn' => { 35 'data_type' => 'VARCHAR', 36 'is_auto_increment' => 0, 37 'default_value' => undef, 38 'is_foreign_key' => 0, 39 'is_nullable' => 1, 40 'size' => '20' 41 } 42 ); 43 44__PACKAGE__->set_primary_key('Version'); 45 46package DBICVersion::Schema; 47use base 'DBIx::Class::Schema'; 48use strict; 49use warnings; 50 51our $VERSION = '3.0'; 52 53__PACKAGE__->register_class('Table', 'DBICVersion::Table'); 54__PACKAGE__->load_components('+DBIx::Class::Schema::Versioned'); 55__PACKAGE__->upgrade_directory('t/var/'); 56__PACKAGE__->backup_directory('t/var/backup/'); 57 581; 59