1 package DBIx::Class::DeploymentHandler;
4 use Method::Signatures::Simple;
5 require DBIx::Class::Schema; # loaded for type constraint
6 require DBIx::Class::ResultSet; # loaded for type constraint
7 use Carp::Clan '^DBIx::Class::DeploymentHandler';
9 use DBIx::Class::DeploymentHandler::Types;
10 with 'DBIx::Class::DeploymentHandler::WithSqltDeployMethod',
11 'DBIx::Class::DeploymentHandler::WithDatabaseToSchemaVersions',
12 'DBIx::Class::DeploymentHandler::WithStandardVersionStorage';
16 isa => 'DBIx::Class::Schema',
19 handles => ['schema_version'],
22 has upgrade_directory => ( # configuration
29 has backup_directory => ( # configuration
32 predicate => 'has_backup_directory',
35 has to_version => ( # configuration
40 sub _build_to_version { $_[0]->schema->schema_version }
42 has databases => ( # configuration
44 isa => 'DBIx::Class::DeploymentHandler::Databases',
46 default => sub { [qw( MySQL SQLite PostgreSQL )] },
49 has sqltargs => ( # configuration
52 default => sub { {} },
56 croak 'Install not possible as versions table already exists in database'
57 if $self->version_storage_is_installed;
59 my $ddl = $self->_deploy;
61 $self->version_storage->add_database_version({
62 version => $self->to_version,
69 while ( my $version_list = $self->next_version_set ) {
70 $self->_upgrade_single_step($version_list);
72 $self->add_database_version({
73 version => $version_list->[-1],
75 # upgrade_sql => $upgrade_sql,
80 method backup { $self->storage->backup($self->backup_directory) }
82 __PACKAGE__->meta->make_immutable;
88 vim: ts=2 sw=2 expandtab