more namespace reorg
[dbsrgits/DBIx-Class-DeploymentHandler.git] / lib / DBIx / Class / DeploymentHandler / WithSqltDeployMethod.pm
index 79d1a2d..b81e084 100644 (file)
@@ -1,9 +1,7 @@
 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 => (
 
@@ -13,31 +11,29 @@ has deploy_method => (
 # < mst> and that role should supply those methods
 # < mst> then you can pass handles => <some role> as well
 
-  isa => 'DBIx::Class::DeploymentHandler::SqltDeployMethod',
+  isa => 'DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator',
   is  => 'ro',
   lazy_build => 1,
   handles => [qw{
-    deployment_statements
-    deploy
-        create_install_ddl
-        create_update_ddl
-        create_ddl_dir
-        upgrade_single_step
+    _deploy
+   prepare_install
+   prepare_update
+   _upgrade_single_step
   }],
 );
 
 sub _build_deploy_method {
-       my $self = shift;
-       my $args = {
-               schema            => $self->schema,
-               databases         => $self->databases,
-               upgrade_directory => $self->upgrade_directory,
-               sqltargs          => $self->sqltargs,
-               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;
+  my $args = {
+    schema            => $self->schema,
+    databases         => $self->databases,
+    upgrade_directory => $self->upgrade_directory,
+    sqltargs          => $self->sqltargs,
+    do_backup         => $self->do_backup,
+  };
+  $args->{backup_directory} = $self->backup_directory
+    if $self->has_backup_directory;
+  DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator->new($args);
 }
 
 1;