package DBIx::Class::DeploymentHandler::VersionStorage::Standard;
-use Moose;
+use Moo;
+use DBIx::Class::DeploymentHandler::LogImporter ':log';
+use DBIx::Class::DeploymentHandler::Types 'ResultSet';
# ABSTRACT: Version storage that does the normal stuff
-use Method::Signatures::Simple;
+use DBIx::Class::DeploymentHandler::VersionStorage::Standard::VersionResult;
has schema => (
- isa => 'DBIx::Class::Schema',
is => 'ro',
required => 1,
);
has version_rs => (
- isa => 'DBIx::Class::ResultSet',
+ isa => ResultSet,
is => 'ro',
- lazy_build => 1,
+ builder => '_build_version_rs',
handles => [qw( database_version version_storage_is_installed )],
);
$_[0]->schema->resultset('__VERSION')
}
-sub add_database_version { $_[0]->version_rs->create($_[1]) }
+sub add_database_version {
+ my $version = $_[1]->{version};
+ log_debug { "Adding database version $version" };
+ $_[0]->version_rs->create($_[1])
+}
sub delete_database_version {
- $_[0]->version_rs->search({ version => $_[1]->{version}})->delete
+ my $version = $_[1]->{version};
+ log_debug { "Deleting database version $version" };
+ $_[0]->version_rs->search({ version => $version})->delete
}
-__PACKAGE__->meta->make_immutable;
-
1;
# vim: ts=2 sw=2 expandtab
__END__
+=head1 SEE ALSO
+
+This class is an implementation of
+L<DBIx::Class::DeploymentHandler::HandlesVersionStorage>. Pretty much all the
+documentation is there.