package DBIx::Class::DeploymentHandler::VersionHandler::DatabaseToSchemaVersions;
-use Moose;
+use Moo;
+use Sub::Quote 'quote_sub';
+use MooX::Types::MooseLike::Base qw(Str Bool);
# ABSTRACT: Go straight from Database to Schema version
with 'DBIx::Class::DeploymentHandler::HandlesVersioning';
has schema_version => (
- isa => 'Str',
+ isa => Str,
is => 'ro',
required => 1,
);
has database_version => (
- isa => 'Str',
+ isa => Str,
is => 'ro',
required => 1,
);
has to_version => ( # configuration
- is => 'ro',
- isa => 'Str',
- lazy_build => 1,
+ is => 'ro',
+ isa => Str,
+ builder => '_build_to_version',
);
sub _build_to_version { $_[0]->schema_version }
has once => (
is => 'rw',
- isa => 'Bool',
- default => undef,
+ isa => Bool,
+ default => quote_sub(q{undef}),
);
sub next_version_set {
return [$self->database_version, $self->to_version];
}
-
-__PACKAGE__->meta->make_immutable;
-
1;
# vim: ts=2 sw=2 expandtab