Commit | Line | Data |
c9d2e0a2 |
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' => 0, |
25 | 'size' => '10' |
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 = '1.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; |