use Moose::Util 'apply_all_roles';
extends 'DBIx::Class::DeploymentHandler::Dad';
+use DBIx::Class::DeploymentHandler::WithApplicatorDumple2;
# a single with would be better, but we can't do that
# see: http://rt.cpan.org/Public/Bug/Display.html?id=46347
-with 'DBIx::Class::DeploymentHandler::WithApplicatorDumple' => {
+with WithApplicatorDumple2(
interface_role => 'DBIx::Class::DeploymentHandler::HandlesDeploy',
class_name => 'DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator::Deprecated',
delegate_name => 'deploy_method',
attributes_to_assume => ['schema'],
attributes_to_copy => [qw( script_directory databases sql_translator_args )],
- },
- 'DBIx::Class::DeploymentHandler::WithApplicatorDumple' => {
+ ),
+ WithApplicatorDumple2(
interface_role => 'DBIx::Class::DeploymentHandler::HandlesVersionStorage',
class_name => 'DBIx::Class::DeploymentHandler::VersionStorage::Deprecated',
delegate_name => 'version_storage',
attributes_to_assume => ['schema'],
- };
+ );
with 'DBIx::Class::DeploymentHandler::WithReasonableDefaults';
sub BUILD {
if ($self->schema->can('ordered_versions') && $self->schema->ordered_versions) {
apply_all_roles(
$self,
- 'DBIx::Class::DeploymentHandler::WithApplicatorDumple' => {
+ WithApplicatorDumple2(
interface_role => 'DBIx::Class::DeploymentHandler::HandlesVersioning',
class_name => 'DBIx::Class::DeploymentHandler::VersionHandler::ExplicitVersions',
delegate_name => 'version_handler',
attributes_to_assume => [qw( database_version schema_version to_version )],
- }
+ )
);
} else {
apply_all_roles(
$self,
- 'DBIx::Class::DeploymentHandler::WithApplicatorDumple' => {
+ WithApplicatorDumple2(
interface_role => 'DBIx::Class::DeploymentHandler::HandlesVersioning',
class_name => 'DBIx::Class::DeploymentHandler::VersionHandler::DatabaseToSchemaVersions',
delegate_name => 'version_handler',
attributes_to_assume => [qw( database_version schema_version to_version )],
- }
+ )
);
}
# the following is just a hack so that ->version_storage