X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FDeploymentHandler%2FWithSqltDeployMethod.pm;h=b81e0849ec4a11a5b76fc2cba8edc9d4b3355205;hb=45d0d9d59e7b545fa37bdfeac517ccc0e71c5ac6;hp=55f7c05731721722d21b96ba1f8c637faebcb58a;hpb=7f50d101838b1cb69f53128fa658b6039bd0d3ce;p=dbsrgits%2FDBIx-Class-DeploymentHandler.git

diff --git a/lib/DBIx/Class/DeploymentHandler/WithSqltDeployMethod.pm b/lib/DBIx/Class/DeploymentHandler/WithSqltDeployMethod.pm
index 55f7c05..b81e084 100644
--- a/lib/DBIx/Class/DeploymentHandler/WithSqltDeployMethod.pm
+++ b/lib/DBIx/Class/DeploymentHandler/WithSqltDeployMethod.pm
@@ -1,40 +1,43 @@
 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',
+
+# < mst> isa => 'DBIx::Class::DeploymentHandler::SqltDeployMethod',
+# < mst> should be
+# < mst> does => <some role>
+# < mst> and that role should supply those methods
+# < mst> then you can pass handles => <some role> as well
+
+  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;
 
 __END__
 
-vim: ts=2,sw=2,expandtab
+vim: ts=2 sw=2 expandtab