package DBIx::Class::DeploymentHandler::WithSqltDeployMethod;
use Moose::Role;
-use DBIx::Class::DeploymentHandler::SqltDeployMethod;
-
-use Carp 'carp';
+use DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator;
has deploy_method => (
- isa => 'DBIx::Class::DeploymentHandler::SqltDeployMethod',
+ does => 'DBIx::Class::DeploymentHandler::HandlesDeploy',
is => 'ro',
lazy_build => 1,
- handles => [qw{
- deployment_statements
- deploy
- create_install_ddl
- create_update_ddl
- create_ddl_dir
- upgrade_single_step
- }],
+ handles => 'DBIx::Class::DeploymentHandler::HandlesDeploy',
);
sub _build_deploy_method {
- my $self = shift;
- my $args = {
- schema => $self->schema,
- databases => $self->databases,
- upgrade_directory => $self->upgrade_directory,
- sqltargs => $self->sqltargs,
- storage => $self->storage,
- do_backup => $self->do_backup,
- };
- $args->{backup_directory} = $self->backup_directory
- if $self->has_backup_directory;
- DBIx::Class::DeploymentHandler::SqltDeployMethod->new($args);
+ my $self = shift;
+ DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator->new({
+ schema => $self->schema,
+ databases => $self->databases,
+ upgrade_directory => $self->upgrade_directory,
+ sqltargs => $self->sqltargs,
+ });
}
1;
+
+__END__
+
+vim: ts=2 sw=2 expandtab