lib/DBIx/Class/DeploymentHandler/WithDatabaseToSchemaVersions.pm

   1 package DBIx::Class::DeploymentHandler::WithDatabaseToSchemaVersions;
   2 use Moose::Role;
   3
   4 use DBIx::Class::DeploymentHandler::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   };
  21
  22   $args->{to_version} = $self->to_version if $self->has_to_version;
  23   DBIx::Class::DeploymentHandler::DatabaseToSchemaVersions->new($args);
  24 }
  25
  26 1;
  27
  28 __END__
  29
  30 vim: ts=2 sw=2 expandtab