Commit | Line | Data |
4a65f60b |
1 | package DBIx::Class::DeploymentHandler::WithMonotonicVersions; |
2 | use Moose::Role; |
3 | |
4 | use DBIx::Class::DeploymentHandler::VersionHandler::Monotonic; |
5 | |
6 | has version_handler => ( |
7 | is => 'ro', |
8 | lazy_build => 1, |
9 | does => 'DBIx::Class::DeploymentHandler::HandlesVersioning', |
10 | handles => 'DBIx::Class::DeploymentHandler::HandlesVersioning', |
11 | ); |
12 | |
13 | sub _build_version_handler { |
14 | my $self = shift; |
15 | |
16 | my $args = { |
17 | database_version => $self->database_version, |
18 | schema_version => $self->schema_version, |
19 | }; |
20 | |
21 | $args->{to_version} = $self->to_version if $self->has_to_version; |
22 | DBIx::Class::DeploymentHandler::VersionHandler::Monotonic->new($args); |
23 | } |
24 | |
25 | 1; |
26 | |
27 | __END__ |
28 | |
29 | vim: ts=2 sw=2 expandtab |