lib/DBIx/Class/DeploymentHandler/WithDatabaseToSchemaVersions.pm

   1 package DBIx::Class::DeploymentHandler::WithDatabaseToSchemaVersions;
   2 use Moose::Role;
   3
   4 use DBIx::Class::DeploymentHandler::VersionHandler::DatabaseToSchemaVersions;
   5
   6 use Carp 'carp';
   7
   8 has version_handler => (
   9   is         => 'ro',
  10   lazy_build => 1,
  11   does       => 'DBIx::Class::DeploymentHandler::HandlesVersioning',
  12   handles    => 'DBIx::Class::DeploymentHandler::HandlesVersioning',
  13 );
  14
  15 sub _build_version_handler {
  16   my $self = shift;
  17
  18   my $args = {
  19     schema          => $self->schema,
  20     version_storage => $self->version_storage,
  21   };
  22
  23   $args->{to_version} = $self->to_version if $self->has_to_version;
  24   DBIx::Class::DeploymentHandler::VersionHandler::DatabaseToSchemaVersions->new($args);
  25 }
  26
  27 1;
  28
  29 __END__
  30
  31 vim: ts=2 sw=2 expandtab