Commit | Line | Data |
fe3b6dff |
1 | package DBIx::Class::DeploymentHandler::WithExplicitVersions; |
2 | use Moose::Role; |
3 | |
9deabd1f |
4 | # ABSTRACT: Delegate/Role for DBIx::Class::DeploymentHandler::VersionHandler::ExplicitVersions |
5 | |
fe3b6dff |
6 | use DBIx::Class::DeploymentHandler::VersionHandler::ExplicitVersions; |
7 | |
8 | use Carp 'carp'; |
9 | |
10 | has version_handler => ( |
11 | is => 'ro', |
12 | lazy_build => 1, |
13 | does => 'DBIx::Class::DeploymentHandler::HandlesVersioning', |
14 | handles => 'DBIx::Class::DeploymentHandler::HandlesVersioning', |
15 | ); |
16 | |
17 | sub _build_version_handler { |
18 | my $self = shift; |
19 | |
20 | my $args = { |
21 | database_version => $self->database_version, |
22 | schema_version => $self->schema_version, |
23 | }; |
24 | |
25 | $args->{to_version} = $self->to_version if $self->has_to_version; |
26 | DBIx::Class::DeploymentHandler::VersionHandler::ExplicitVersions->new($args); |
27 | } |
28 | |
29 | 1; |
30 | |
e52174e3 |
31 | # vim: ts=2 sw=2 expandtab |
32 | |
fe3b6dff |
33 | __END__ |
34 | |
feca70da |
35 | =head1 DELEGATION ROLE |
36 | |
37 | This role is entirely for making delegation look like a role. The actual |
38 | docs for the methods and attributes are at |
39 | L<DBIx::Class::DeploymentHandler::VersionHandler::ExplicitVersions> |