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

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

# ABSTRACT: (DEPRECATED) Use this if you are stuck in the past

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;

# vim: ts=2 sw=2 expandtab

__END__

=head1 DELEGATION ROLE

This role is entirely for making delegation look like a role.  The actual
docs for the methods and attributes are at
L<DBIx::Class::DeploymentHandler::VersionStorage::Deprecated>
Commit	Line	Data
01342998	1	package DBIx::Class::DeploymentHandler::Deprecated::WithDeprecatedVersionStorage;
	2	use Moose::Role;
	3
9deabd1f	4	# ABSTRACT: (DEPRECATED) Use this if you are stuck in the past
9deabd1f	5
01342998	6	use DBIx::Class::DeploymentHandler::VersionStorage::Deprecated;
	7
	8	has version_storage => (
	9	does => 'DBIx::Class::DeploymentHandler::HandlesVersionStorage',
	10	is => 'ro',
fe3b6dff	11	builder => '_build_version_storage',
01342998	12	handles => 'DBIx::Class::DeploymentHandler::HandlesVersionStorage',
	13	);
	14
	15	sub _build_version_storage {
	16	DBIx::Class::DeploymentHandler::VersionStorage::Deprecated
	17	->new({ schema => $_[0]->schema });
	18	}
	19
	20	1;
	21
e52174e3	22	# vim: ts=2 sw=2 expandtab
01342998	23
e52174e3	24	__END__
feca70da	25
	26	=head1 DELEGATION ROLE
	27
	28	This role is entirely for making delegation look like a role. The actual
	29	docs for the methods and attributes are at
	30	L<DBIx::Class::DeploymentHandler::VersionStorage::Deprecated>