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 with 'DBIx::Class::DeploymentHandler::WithSqltDeployMethod';
10 with 'DBIx::Class::DeploymentHandler::WithDatabaseToSchemaVersions';
13 use Moose::Util::TypeConstraints;
14 subtype 'DBIx::Class::DeploymentHandler::Databases'
15 => as 'ArrayRef[Str]';
17 coerce 'DBIx::Class::DeploymentHandler::Databases'
20 no Moose::Util::TypeConstraints;
24 isa => 'DBIx::Class::Schema',
29 has upgrade_directory => ( # configuration
36 has backup_directory => ( # configuration
39 predicate => 'has_backup_directory',
42 has do_backup => ( # configuration
49 isa => 'DBIx::Class::ResultSet',
51 lazy_build => 1, # builder comes from another role...
52 # which is... probably not how we want it
53 handles => [qw( is_installed )],
56 has to_version => ( # configuration
58 lazy_build => 1, # builder comes from another role...
59 # which is... probably not how we want it
62 has databases => ( # configuration
64 isa => 'DBIx::Class::DeploymentHandler::Databases',
66 default => sub { [qw( MySQL SQLite PostgreSQL )] },
69 has sqltargs => ( # configuration
72 default => sub { {} },
76 carp 'Install not possible as versions table already exists in database'
77 if $self->is_installed;
79 my $new_version = $self->to_version;
84 $self->version_rs->create({
85 version => $new_version,
87 # upgrade_sql => $upgrade_sql,
93 while ( my $version_list = $_[0]->next_version_set ) {
94 $_[0]->_upgrade_single_step($version_list);
98 method backup { $self->storage->backup($self->backup_directory) }
100 __PACKAGE__->meta->make_immutable;
106 vim: ts=2 sw=2 expandtab