monotonic (and others) now pass

[dbsrgits/DBIx-Class-DeploymentHandler.git] / lib / DBIx / Class / DeploymentHandler / VersionHandler / Monotonic.pm

diff --git a/lib/DBIx/Class/DeploymentHandler/VersionHandler/Monotonic.pm b/lib/DBIx/Class/DeploymentHandler/VersionHandler/Monotonic.pm
index b3dcfac..f42bff7 100644 (file)
--- a/lib/DBIx/Class/DeploymentHandler/VersionHandler/Monotonic.pm
+++ b/lib/DBIx/Class/DeploymentHandler/VersionHandler/Monotonic.pm
@@ -1,5 +1,8 @@
 package DBIx::Class::DeploymentHandler::VersionHandler::Monotonic;
 use Moose;
+
+# ABSTRACT: Obvious version progressions
+
 use Carp 'croak';
 
 with 'DBIx::Class::DeploymentHandler::HandlesVersioning';
@@ -37,7 +40,7 @@ sub _build__version { $_[0]->database_version }
 
 sub previous_version_set {
   my $self = shift;
-  if ($self->to_vesion > $self->_version) {
+  if ($self->to_version > $self->_version) {
     croak "you are trying to downgrade and your current version is less\n".
           "than the version you are trying to downgrade to.  Either upgrade\n".
           "or update your schema"
@@ -45,13 +48,13 @@ sub previous_version_set {
     return undef
   } else {
     $self->_dec_version;
-    return [$self->_version, $self->_version + 1];
+    return [$self->_version + 1, $self->_version];
   }
 }
 
 sub next_version_set {
   my $self = shift;
-  if ($self->to_vesion < $self->_version) {
+  if ($self->to_version < $self->_version) {
     croak "you are trying to upgrade and your current version is greater\n".
           "than the version you are trying to upgrade to.  Either downgrade\n".
           "or update your schema"
@@ -67,6 +70,7 @@ __PACKAGE__->meta->make_immutable;
 
 1;
 
+# vim: ts=2 sw=2 expandtab
+
 __END__
 
-vim: ts=2 sw=2 expandtab