X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FDeploymentHandler%2FDad.pm;h=b65fabf1fc87b8240b4f63811f98aa1260a4a832;hb=09bc35e3b405fbac725a45739e15cf30543d7f77;hp=093904eb089d9217ed5f26504b429e725b78f03e;hpb=8465e76797613fa0b9c85365c03d26cacbaab31a;p=dbsrgits%2FDBIx-Class-DeploymentHandler.git diff --git a/lib/DBIx/Class/DeploymentHandler/Dad.pm b/lib/DBIx/Class/DeploymentHandler/Dad.pm index 093904e..b65fabf 100644 --- a/lib/DBIx/Class/DeploymentHandler/Dad.pm +++ b/lib/DBIx/Class/DeploymentHandler/Dad.pm @@ -41,7 +41,7 @@ has schema_version => ( sub _build_schema_version { $_[0]->schema->schema_version } method install { - log_info { '[DBICDH] installing version ' . $self->to_version }; + log_info { 'installing version ' . $self->to_version }; croak 'Install not possible as versions table already exists in database' if $self->version_storage_is_installed; @@ -54,9 +54,11 @@ method install { } sub upgrade { - log_info { '[DBICDH] upgrading' }; + log_info { 'upgrading' }; my $self = shift; + my $ran_once = 0; while ( my $version_list = $self->next_version_set ) { + $ran_once = 1; my ($ddl, $upgrade_sql) = @{ $self->upgrade_single_step({ version_set => $version_list }) ||[]}; @@ -67,21 +69,26 @@ sub upgrade { upgrade_sql => $upgrade_sql, }); } + + log_warn { 'no need to run upgrade' } unless $ran_once; } sub downgrade { - log_info { '[DBICDH] upgrading' }; + log_info { 'upgrading' }; my $self = shift; + my $ran_once = 0; while ( my $version_list = $self->previous_version_set ) { + $ran_once = 1; $self->downgrade_single_step({ version_set => $version_list }); # do we just delete a row here? I think so but not sure $self->delete_database_version({ version => $version_list->[-1] }); } + log_warn { 'no version to run downgrade' } unless $ran_once; } method backup { - log_info { '[DBICDH] backing up' }; + log_info { 'backing up' }; $self->storage->backup($self->backup_directory) }