"database" sub-command: Provide an exit status

1 files changed, 5 insertions, 0 deletions

diff --git a/lib/Travelynx/Command/database.pm b/lib/Travelynx/Command/database.pm
index a42d378..5e1b38a 100644
--- a/lib/Travelynx/Command/database.pm
+++ b/lib/Travelynx/Command/database.pm
@@ -110,6 +110,7 @@ my @migrations = (
 
 sub run {
 	my ( $self, $command ) = @_;
+	my $exit_status = 0;
 
 	my $dbh = $self->app->dbh;
 
@@ -120,6 +121,7 @@ sub run {
 		}
 		else {
 			$dbh->rollback;
+			$exit_status = 1;
 		}
 	}
 	elsif ( $command eq 'migrate' ) {
@@ -134,6 +136,7 @@ sub run {
 			if ( not $migrations[$i]($dbh) ) {
 				say "Aborting migration; rollback to v${schema_version}";
 				$dbh->rollback;
+				$exit_status = 1;
 				last;
 			}
 		}
@@ -147,6 +150,7 @@ sub run {
 		}
 		else {
 			say "no";
+			$exit_status = 1;
 		}
 	}
 	else {
@@ -155,6 +159,7 @@ sub run {
 
 	$dbh->disconnect;
 
+	exit($exit_status);
 }
 
 1;