lib/DBIx/Class/DeploymentHandler.pm

   1 package DBIx::Class::DeploymentHandler;
   2
   3 use Moose;
   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';
   8
   9 with 'DBIx::Class::DeploymentHandler::WithSqltDeployMethod',
  10      'DBIx::Class::DeploymentHandler::WithDatabaseToSchemaVersions',
  11      'DBIx::Class::DeploymentHandler::WithStandardVersionStorage';
  12
  13 BEGIN {
  14   use Moose::Util::TypeConstraints;
  15   subtype 'DBIx::Class::DeploymentHandler::Databases'
  16     => as 'ArrayRef[Str]';
  17
  18   coerce 'DBIx::Class::DeploymentHandler::Databases'
  19     => from 'Str'
  20     => via { [$_] };
  21   no Moose::Util::TypeConstraints;
  22 }
  23
  24 has schema => (
  25   isa      => 'DBIx::Class::Schema',
  26   is       => 'ro',
  27   required => 1,
  28 );
  29
  30 has upgrade_directory => ( # configuration
  31   isa      => 'Str',
  32   is       => 'ro',
  33   required => 1,
  34   default  => 'sql',
  35 );
  36
  37 has backup_directory => ( # configuration
  38   isa => 'Str',
  39   is  => 'ro',
  40   predicate  => 'has_backup_directory',
  41 );
  42
  43 has to_version => ( # configuration
  44   is         => 'ro',
  45   lazy_build => 1, # builder comes from another role...
  46                    # which is... probably not how we want it
  47 );
  48
  49 has databases => ( # configuration
  50   coerce  => 1,
  51   isa     => 'DBIx::Class::DeploymentHandler::Databases',
  52   is      => 'ro',
  53   default => sub { [qw( MySQL SQLite PostgreSQL )] },
  54 );
  55
  56 has sqltargs => ( # configuration
  57   isa => 'HashRef',
  58   is  => 'ro',
  59   default => sub { {} },
  60 );
  61
  62 method install {
  63   carp 'Install not possible as versions table already exists in database'
  64     if $self->version_storage_is_installed;
  65
  66   my $new_version = $self->to_version;
  67
  68   if ($new_version) {
  69     $self->_deploy;
  70
  71     $self->add_database_version({
  72       version     => $new_version,
  73       # ddl         => $ddl,
  74       # upgrade_sql => $upgrade_sql,
  75     });
  76   }
  77 }
  78
  79 sub upgrade {
  80   my $self = shift;
  81   while ( my $version_list = $self->next_version_set ) {
  82     $self->_upgrade_single_step($version_list);
  83
  84     $self->add_database_version({
  85       version     => $version_list->[-1],
  86       # ddl         => $ddl,
  87       # upgrade_sql => $upgrade_sql,
  88     });
  89   }
  90 }
  91
  92 method backup { $self->storage->backup($self->backup_directory) }
  93
  94 __PACKAGE__->meta->make_immutable;
  95
  96 1;
  97
  98 __END__
  99
 100 vim: ts=2 sw=2 expandtab