1 package DBIx::Class::DeploymentHandler::WithSqltDeployMethod;
4 # ABSTRACT: Delegate/Role for DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator
6 use DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator;
9 does => 'DBIx::Class::DeploymentHandler::HandlesDeploy',
12 handles => 'DBIx::Class::DeploymentHandler::HandlesDeploy',
15 has upgrade_directory => (
24 isa => 'DBIx::Class::DeploymentHandler::Databases',
26 default => sub { [qw( MySQL SQLite PostgreSQL )] },
29 has sql_translator_args => (
32 default => sub { {} },
35 sub _build_deploy_method {
38 schema => $self->schema,
39 databases => $self->databases,
40 upgrade_directory => $self->upgrade_directory,
41 sql_translator_args => $self->sql_translator_args,
44 $args->{schema_version} = $self->schema_version if $self->has_schema_version;
45 DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator->new($args);
50 # vim: ts=2 sw=2 expandtab
54 =head1 DELEGATION ROLE
56 This role is entirely for making delegation look like a role. The actual
57 docs for the methods and attributes are at
58 L<DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator>