lib/DBIx/Class/DeploymentHandler/WithSqltDeployMethod.pm

   1 package DBIx::Class::DeploymentHandler::WithSqltDeployMethod;
   2 use Moose::Role;
   3
   4 use DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator;
   5
   6 has deploy_method => (
   7   does => 'DBIx::Class::DeploymentHandler::HandlesDeploy',
   8   is  => 'ro',
   9   lazy_build => 1,
  10   handles =>  'DBIx::Class::DeploymentHandler::HandlesDeploy',
  11 );
  12
  13 sub _build_deploy_method {
  14   my $self = shift;
  15   my $args = {
  16     schema            => $self->schema,
  17     databases         => $self->databases,
  18     upgrade_directory => $self->upgrade_directory,
  19     sqltargs          => $self->sqltargs,
  20     do_backup         => $self->do_backup,
  21   };
  22   $args->{backup_directory} = $self->backup_directory
  23     if $self->has_backup_directory;
  24   DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator->new($args);
  25 }
  26
  27 1;
  28
  29 __END__
  30
  31 vim: ts=2 sw=2 expandtab