Commit | Line | Data |
fe3b6dff |
1 | package DBIx::Class::DeploymentHandler::VersionStorage::Deprecated; |
01342998 |
2 | use Moose; |
3 | use Method::Signatures::Simple; |
4 | |
5 | has schema => ( |
6 | isa => 'DBIx::Class::Schema', |
7 | is => 'ro', |
8 | required => 1, |
9 | ); |
10 | |
11 | has version_rs => ( |
12 | isa => 'DBIx::Class::ResultSet', |
13 | is => 'ro', |
fe3b6dff |
14 | builder => '_build_version_rs', |
01342998 |
15 | handles => [qw( database_version version_storage_is_installed )], |
16 | ); |
17 | |
18 | with 'DBIx::Class::DeploymentHandler::HandlesVersionStorage'; |
19 | |
fe3b6dff |
20 | use DBIx::Class::DeploymentHandler::VersionStorage::Deprecated::VersionResult; |
01342998 |
21 | sub _build_version_rs { |
22 | $_[0]->schema->register_class( |
23 | dbix_class_schema_versions => |
24 | 'DBIx::Class::DeploymentHandler::VersionStorage::Deprecated::VersionResult' |
25 | ); |
26 | $_[0]->schema->resultset('dbix_class_schema_versions') |
27 | } |
28 | |
29 | sub add_database_version { |
30 | # deprecated doesn't support ddl or upgrade_ddl |
31 | $_[0]->version_rs->create({ version => $_[1]->{version} }) |
32 | } |
33 | |
34 | __PACKAGE__->meta->make_immutable; |
35 | |
36 | 1; |
37 | |
38 | __END__ |
39 | |
40 | vim: ts=2 sw=2 expandtab |