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

   1 package DBIx::Class::DeploymentHandler::VersionStorage::Deprecated;
   2 use Moose;
   3
   4 # ABSTRACT: (DEPRECATED) Use this if you are stuck in the past
   5
   6 use Method::Signatures::Simple;
   7
   8 has schema => (
   9   isa      => 'DBIx::Class::Schema',
  10   is       => 'ro',
  11   required => 1,
  12 );
  13
  14 has version_rs => (
  15   isa        => 'DBIx::Class::ResultSet',
  16   is         => 'ro',
  17   builder    => '_build_version_rs',
  18   handles    => [qw( database_version version_storage_is_installed )],
  19 );
  20
  21 with 'DBIx::Class::DeploymentHandler::HandlesVersionStorage';
  22
  23 use DBIx::Class::DeploymentHandler::VersionStorage::Deprecated::VersionResult;
  24 sub _build_version_rs {
  25   $_[0]->schema->register_class(
  26     dbix_class_schema_versions =>
  27       'DBIx::Class::DeploymentHandler::VersionStorage::Deprecated::VersionResult'
  28   );
  29   $_[0]->schema->resultset('dbix_class_schema_versions')
  30 }
  31
  32 sub add_database_version {
  33   # deprecated doesn't support ddl or upgrade_ddl
  34   $_[0]->version_rs->create({ version => $_[1]->{version} })
  35 }
  36
  37 sub delete_database_version {
  38   $_[0]->version_rs->search({ version => $_[1]->{version}})->delete
  39 }
  40
  41 __PACKAGE__->meta->make_immutable;
  42
  43 1;
  44
  45 # vim: ts=2 sw=2 expandtab
  46
  47 __END__
  48
  49 =head1 THIS SUCKS
  50
  51 Here's how to convert from that crufty old Deprecated VersionStorage to a shiny
  52 new Standard VersionStorage:
  53
  54  my $s  = My::Schema->connect(...);
  55  my $dh = DeploymentHandler({
  56    schema => $s,
  57  });
  58
  59  $dh->prepare_version_storage_install;
  60  $dh->install_version_storage;
  61
  62  my @versions = $s->{vschema}->resultset('Table')->search(undef, {
  63    order_by => 'installed',
  64  })->get_column('version')->all;
  65
  66  $dh->version_storage->add_database_vesion({ version => $_ })
  67    for @versions;
  68