1 package DBIx::Class::DeploymentHandler::WithDatabaseToSchemaVersions;
4 # ABSTRACT: Delegate/Role for DBIx::Class::DeploymentHandler::VersionHandler::DatabaseToSchemaVersions
6 use DBIx::Class::DeploymentHandler::VersionHandler::DatabaseToSchemaVersions;
10 has version_handler => (
13 does => 'DBIx::Class::DeploymentHandler::HandlesVersioning',
14 handles => 'DBIx::Class::DeploymentHandler::HandlesVersioning',
17 sub _build_version_handler {
21 database_version => $self->database_version,
22 schema_version => $self->schema_version,
25 $args->{to_version} = $self->to_version if $self->has_to_version;
26 DBIx::Class::DeploymentHandler::VersionHandler::DatabaseToSchemaVersions->new($args);
31 # vim: ts=2 sw=2 expandtab
35 =head1 DELEGATION ROLE
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::DatabaseToSchemaVersions>