# HG changeset patch
# User Vincent Tondellier <tonton+hg@team1664.org>
# Date 1449932211 -3600
# Node ID d33b5f6e08622a5e784bb29422e73a5e91b02f37
# Parent  4ae8bb6f8a960430058fece2519839cc2bbca97e
Display exceptions when loading Mojo DB drivers

diff -r 4ae8bb6f8a96 -r d33b5f6e0862 lib/CrashTest/Plugin/Storage/Sql.pm
--- a/lib/CrashTest/Plugin/Storage/Sql.pm	Sat Dec 12 15:55:55 2015 +0100
+++ b/lib/CrashTest/Plugin/Storage/Sql.pm	Sat Dec 12 15:56:51 2015 +0100
@@ -37,7 +37,10 @@
     my $self = shift;
 
     my $type = $self->dbtype;
-    load_class "Mojo::$type";
+    # Handle exceptions
+    if(my $e = load_class "Mojo::$type") {
+        die ref $e ? "Exception: $e" : "Mojo::$type is not installed";
+    }
     state $dbh = "Mojo::$type"->new($self->config->{db}->{$type});
 };