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

   1 package DBIx::Class::DeploymentHandler::VersionStorage::Standard;
   2 use Moose;
   3 use Method::Signatures::Simple;
   4
   5 has schema => (
   6   isa      => 'DBIx::Class::Schema',
   7   is       => 'ro',
   8   required => 1,
   9 );
  10
  11 has version_rs => (
  12   isa        => 'DBIx::Class::ResultSet',
  13   is         => 'ro',
  14   lazy_build => 1,
  15   handles    => [qw( database_version version_storage_is_installed )],
  16 );
  17
  18 with 'DBIx::Class::DeploymentHandler::HandlesVersionStorage';
  19
  20 sub _build_version_rs {
  21   $_[0]->schema->register_class(
  22     dbix_class_schema_versions =>
  23       'DBIx::Class::DeploymentHandler::VersionStorage::Deprecated::VersionResult'
  24   );
  25   $_[0]->schema->resultset('dbix_class_schema_versions')
  26 }
  27
  28 sub add_database_version {
  29   # deprecated doesn't support ddl or upgrade_ddl
  30   $_[0]->version_rs->create({ version => $_[1]->{version} })
  31 }
  32
  33 __PACKAGE__->meta->make_immutable;
  34
  35 1;
  36
  37 __END__
  38
  39 vim: ts=2 sw=2 expandtab