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

   1 package DBIx::Class::DeploymentHandler::VersionStorage::Deprecated;
   2
   3 use Moose;
   4 use DBIx::Class::DeploymentHandler::LogImporter ':log';
   5
   6
   7 # ABSTRACT: (DEPRECATED) Use this if you are stuck in the past
   8
   9 has 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   my $version = $_[1]->{version};
  35   log_debug { "Adding database version $version" };
  36   $_[0]->version_rs->create({ version => $version })
  37 }
  38
  39 sub delete_database_version {
  40   my $version = $_[1]->{version};
  41   log_debug { "Deleting database version $version" };
  42   $_[0]->version_rs->search({ version => $version})->delete
  43 }
  44
  45 __PACKAGE__->meta->make_immutable;
  46
  47 1;
  48
  49 # vim: ts=2 sw=2 expandtab
  50
  51 __END__
  52
  53 =head1 DEPRECATED
  54
  55 I begrudgingly made this module (and other related modules) to keep porting
  56 from L<DBIx::Class::Schema::Versioned> relatively simple.  I will make changes
  57 to ensure that it works with output from L<DBIx::Class::Schema::Versioned> etc,
  58 but I will not add any new features to it.
  59
  60 Once I hit major version 1 usage of this module will emit a warning.
  61 On version 2 it will be removed entirely.
  62
  63 =head1 THIS SUCKS
  64
  65 Here's how to convert from that crufty old Deprecated VersionStorage to a shiny
  66 new Standard VersionStorage:
  67
  68  my $s  = My::Schema->connect(...);
  69  my $dh = DeploymentHandler({
  70    schema => $s,
  71  });
  72
  73  $dh->prepare_version_storage_install;
  74  $dh->install_version_storage;
  75
  76  my @versions = $s->{vschema}->resultset('Table')->search(undef, {
  77    order_by => 'installed',
  78  })->get_column('version')->all;
  79
  80  $dh->version_storage->add_database_vesion({ version => $_ })
  81    for @versions;
  82
  83 =head1 SEE ALSO
  84
  85 This class is an implementation of
  86 L<DBIx::Class::DeploymentHandler::HandlesVersionStorage>.  Pretty much all the
  87 documentation is there.