use Method::Signatures::Simple;
require DBIx::Class::Schema; # loaded for type constraint
use Carp::Clan '^DBIx::Class::DeploymentHandler';
+use Log::Contextual::WarnLogger;
+use Log::Contextual ':log', -default_logger => Log::Contextual::WarnLogger->new({
+ env_prefix => 'DBICDH'
+});
has schema => (
isa => 'DBIx::Class::Schema',
sub _build_schema_version { $_[0]->schema->schema_version }
method install {
+ log_info { '[DBICDH] installing version ' . $self->to_version };
croak 'Install not possible as versions table already exists in database'
if $self->version_storage_is_installed;
}
sub upgrade {
+ log_info { '[DBICDH] upgrading' };
my $self = shift;
while ( my $version_list = $self->next_version_set ) {
my ($ddl, $upgrade_sql) = @{
}
sub downgrade {
+ log_info { '[DBICDH] upgrading' };
my $self = shift;
while ( my $version_list = $self->previous_version_set ) {
$self->downgrade_single_step({ version_set => $version_list });
}
}
-method backup { $self->storage->backup($self->backup_directory) }
+method backup {
+ log_info { '[DBICDH] backing up' };
+ $self->storage->backup($self->backup_directory)
+}
__PACKAGE__->meta->make_immutable;