1 package DBIx::Class::DeploymentHandler::Dad;
4 use Method::Signatures::Simple;
5 use DBIx::Class::DeploymentHandler::Types;
6 require DBIx::Class::Schema; # loaded for type constraint
7 require DBIx::Class::ResultSet; # loaded for type constraint
8 use Carp::Clan '^DBIx::Class::DeploymentHandler';
11 isa => 'DBIx::Class::Schema',
14 handles => ['schema_version'],
17 has upgrade_directory => ( # configuration
24 has backup_directory => ( # configuration
27 predicate => 'has_backup_directory',
30 has to_version => ( # configuration
35 sub _build_to_version { $_[0]->schema->schema_version }
37 has databases => ( # configuration
39 isa => 'DBIx::Class::DeploymentHandler::Databases',
41 default => sub { [qw( MySQL SQLite PostgreSQL )] },
44 has sqltargs => ( # configuration
47 default => sub { {} },
51 croak 'Install not possible as versions table already exists in database'
52 if $self->version_storage_is_installed;
54 my $ddl = $self->deploy;
56 $self->version_storage->add_database_version({
57 version => $self->to_version,
64 while ( my $version_list = $self->next_version_set ) {
65 my ($ddl, $upgrade_sql) = @{$self->upgrade_single_step($version_list)||[]};
67 $self->add_database_version({
68 version => $version_list->[-1],
70 upgrade_sql => $upgrade_sql,
77 while ( my $version_list = $self->previous_version_set ) {
78 $self->downgrade_single_step($version_list);
80 # do we just delete a row here? I think so but not sure
81 $self->delete_database_version({ version => $version_list->[-1] });
85 method backup { $self->storage->backup($self->backup_directory) }
87 __PACKAGE__->meta->make_immutable;
95 =attr upgrade_directory
97 =attr backup_directory
111 vim: ts=2 sw=2 expandtab