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

   1 package DBIx::Class::DeploymentHandler::VersionStorage::Standard;
   2
   3 use Moose;
   4 use DBIx::Class::DeploymentHandler::LogImporter ':log';
   5
   6 # ABSTRACT: Version storage that does the normal stuff
   7
   8 use DBIx::Class::DeploymentHandler::VersionStorage::Standard::VersionResult;
   9
  10 has schema => (
  11   is       => 'ro',
  12   required => 1,
  13 );
  14
  15 has version_rs => (
  16   isa        => 'DBIx::Class::ResultSet',
  17   is         => 'ro',
  18   builder    => '_build_version_rs',
  19   handles    => [qw( database_version version_storage_is_installed )],
  20 );
  21
  22 with 'DBIx::Class::DeploymentHandler::HandlesVersionStorage';
  23
  24 sub _build_version_rs {
  25   $_[0]->schema->register_class(
  26     __VERSION =>
  27       'DBIx::Class::DeploymentHandler::VersionStorage::Standard::VersionResult'
  28   );
  29   $_[0]->schema->resultset('__VERSION')
  30 }
  31
  32 sub add_database_version {
  33   my $version = $_[1]->{version};
  34   log_debug { "Adding database version $version" };
  35   $_[0]->version_rs->create($_[1])
  36 }
  37
  38 sub delete_database_version {
  39   my $version = $_[1]->{version};
  40   log_debug { "Deleting database version $version" };
  41   $_[0]->version_rs->search({ version => $version})->delete
  42 }
  43
  44 __PACKAGE__->meta->make_immutable;
  45
  46 1;
  47
  48 # vim: ts=2 sw=2 expandtab
  49
  50 __END__
  51
  52 =head1 SEE ALSO
  53
  54 This class is an implementation of
  55 L<DBIx::Class::DeploymentHandler::HandlesVersionStorage>.  Pretty much all the
  56 documentation is there.