lib/DBIx/Class/DeploymentHandler/Deprecated/WithDeprecatedSqltDeployMethod.pm

   1 package DBIx::Class::DeploymentHandler::Deprecated::WithDeprecatedSqltDeployMethod;
   2 use Moose::Role;
   3
   4 # ABSTRACT: (DEPRECATED) Use this if you are stuck in the past
   5
   6 use DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator::Deprecated;
   7
   8 has deploy_method => (
   9   does => 'DBIx::Class::DeploymentHandler::HandlesDeploy',
  10   is  => 'ro',
  11   lazy_build => 1,
  12   handles =>  'DBIx::Class::DeploymentHandler::HandlesDeploy',
  13 );
  14
  15 has upgrade_directory => (
  16   isa      => 'Str',
  17   is       => 'ro',
  18   required => 1,
  19   default  => 'sql',
  20 );
  21
  22 has databases => (
  23   coerce  => 1,
  24   isa     => 'DBIx::Class::DeploymentHandler::Databases',
  25   is      => 'ro',
  26   default => sub { [qw( MySQL SQLite PostgreSQL )] },
  27 );
  28
  29 has sql_translator_args => (
  30   isa => 'HashRef',
  31   is  => 'ro',
  32   default => sub { {} },
  33 );
  34
  35 sub _build_deploy_method {
  36   my $self = shift;
  37   DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator::Deprecated->new({
  38     schema              => $self->schema,
  39     databases           => $self->databases,
  40     upgrade_directory   => $self->upgrade_directory,
  41     sql_translator_args => $self->sql_translator_args,
  42   });
  43 }
  44
  45 1;
  46
  47 # vim: ts=2 sw=2 expandtab
  48
  49 __END__
  50
  51 =head1 DEPRECATED
  52
  53 This component has been suplanted by
  54 L<DBIx::Class::DeploymentHandler::WithSqltDeployMethod>.
  55 In the next major version (1) we will begin issuing a warning on it's use.
  56 In the major version after that (2) we will remove it entirely.
  57
  58 =head1 DELEGATION ROLE
  59
  60 This role is entirely for making delegation look like a role.  The actual
  61 docs for the methods and attributes are at
  62 L<DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator::Deprecated>