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

package DBIx::Class::DeploymentHandler::Deprecated::WithDeprecatedVersionStorage;
use Moose::Role;

use DBIx::Class::DeploymentHandler::VersionStorage::Deprecated;

has version_storage => (
  does => 'DBIx::Class::DeploymentHandler::HandlesVersionStorage',
  is  => 'ro',
  builder => '_build_version_storage',
  handles =>  'DBIx::Class::DeploymentHandler::HandlesVersionStorage',
);

sub _build_version_storage {
  DBIx::Class::DeploymentHandler::VersionStorage::Deprecated
    ->new({ schema => $_[0]->schema });
}

1;

__END__

vim: ts=2 sw=2 expandtab
Commit	Line	Data
01342998	1	package DBIx::Class::DeploymentHandler::Deprecated::WithDeprecatedVersionStorage;
	2	use Moose::Role;
	3
	4	use DBIx::Class::DeploymentHandler::VersionStorage::Deprecated;
	5
	6	has version_storage => (
	7	does => 'DBIx::Class::DeploymentHandler::HandlesVersionStorage',
	8	is => 'ro',
fe3b6dff	9	builder => '_build_version_storage',
01342998	10	handles => 'DBIx::Class::DeploymentHandler::HandlesVersionStorage',
	11	);
	12
	13	sub _build_version_storage {
	14	DBIx::Class::DeploymentHandler::VersionStorage::Deprecated
	15	->new({ schema => $_[0]->schema });
	16	}
	17
	18	1;
	19
	20	__END__
	21
	22	vim: ts=2 sw=2 expandtab