lib/DBIx/Class/DeploymentHandler/DatabaseToSchemaVersions.pm

   1 package DBIx::Class::DeploymentHandler::DatabaseToSchemaVersions;
   2 use Moose;
   3 use Method::Signatures::Simple;
   4
   5 has schema => (
   6   isa      => 'DBIx::Class::Schema',
   7   is       => 'ro',
   8   required => 1,
   9   handles => [qw( ddl_filename schema_version )],
  10 );
  11
  12 has version_rs => (
  13   isa        => 'DBIx::Class::ResultSet',
  14   is         => 'ro',
  15   lazy_build => 1,
  16   handles    => [qw( is_installed db_version )],
  17 );
  18
  19 method _build_version_rs {
  20    $self->schema->set_us_up_the_bomb;
  21    $self->schema->resultset('__VERSION')
  22 }
  23
  24 method ordered_schema_versions {
  25   ( $self->db_version, $self->schema_version)
  26 }
  27
  28 __PACKAGE__->meta->make_immutable;
  29
  30 1;
  31
  32 __END__
  33
  34 vim: ts=2 sw=2 expandtab