1 package DBIx::Class::DeploymentHandler::WithDatabaseToSchemaVersions;
4 use DBIx::Class::DeploymentHandler::DatabaseToSchemaVersions;
8 has version_handler => (
10 # < mst> isa => 'DBIx::Class::DeploymentHandler::SqltDeployMethod',
12 # < mst> does => <some role>
13 # < mst> and that role should supply those methods
14 # < mst> then you can pass handles => <some role> as well
16 does => 'DBIx::Class::DeploymentHandler::HandlesVersioning',
19 handles => 'DBIx::Class::DeploymentHandler::HandlesVersioning',
22 sub _build_version_handler {
26 schema => $self->schema,
29 $args->{to_version} = $self->to_version if $self->has_to_version;
30 DBIx::Class::DeploymentHandler::DatabaseToSchemaVersions->new($args);
37 vim: ts=2 sw=2 expandtab