initial cut of deprecated bundle

[dbsrgits/DBIx-Class-DeploymentHandler.git] / lib / DBIx / Class / DeploymentHandler / Deprecated / WithDeprecatedSqltDeployMethod.pm

diff --git a/lib/DBIx/Class/DeploymentHandler/Deprecated/WithDeprecatedSqltDeployMethod.pm b/lib/DBIx/Class/DeploymentHandler/Deprecated/WithDeprecatedSqltDeployMethod.pm
new file mode 100644 (file)
index 0000000..ab68755
--- /dev/null
+++ b/lib/DBIx/Class/DeploymentHandler/Deprecated/WithDeprecatedSqltDeployMethod.pm
@@ -0,0 +1,27 @@
+package DBIx::Class::DeploymentHandler::Deprecated::WithDeprecatedSqltDeployMethod;
+use Moose::Role;
+
+use DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator::Deprecated;
+
+has deploy_method => (
+  does => 'DBIx::Class::DeploymentHandler::HandlesDeploy',
+  is  => 'ro',
+  lazy_build => 1,
+  handles =>  'DBIx::Class::DeploymentHandler::HandlesDeploy',
+);
+
+sub _build_deploy_method {
+  my $self = shift;
+  DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator::Deprecated->new({
+    schema            => $self->schema,
+    databases         => $self->databases,
+    upgrade_directory => $self->upgrade_directory,
+    sqltargs          => $self->sqltargs,
+  });
+}
+
+1;
+
+__END__
+
+vim: ts=2 sw=2 expandtab