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

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
Commit	Line	Data
01342998	1	package DBIx::Class::DeploymentHandler::Deprecated::WithDeprecatedSqltDeployMethod;
	2	use Moose::Role;
	3
	4	use DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator::Deprecated;
	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	DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator::Deprecated->new({
	16	schema => $self->schema,
	17	databases => $self->databases,
	18	upgrade_directory => $self->upgrade_directory,
	19	sqltargs => $self->sqltargs,
	20	});
	21	}
	22
	23	1;
	24
	25	__END__
	26
	27	vim: ts=2 sw=2 expandtab