[FakeDBI.pm6] put the DBD 'use' commands into an eval, to avoid faili…

…ng on not installed driver modules
perlpilot · Jun 29, 2010 · a6f314b · a6f314b
1 parent f8bd692
commit a6f314b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/FakeDBI.pm6 b/lib/FakeDBI.pm6
@@ -25,8 +25,8 @@ class FakeDBI:auth<mberends>:ver<0.0.1> {
         }
         my $driver;
         given $drivername {
-            when 'CSV'     { use FakeDBD::CSV;   $driver = FakeDBD::CSV.new(); }
-            when 'mysql'   { use FakeDBD::mysql; $driver = FakeDBD::mysql.new(); }
+            when 'CSV'     { eval 'use FakeDBD::CSV;   $driver = FakeDBD::CSV.new()' }
+            when 'mysql'   { eval 'use FakeDBD::mysql; $driver = FakeDBD::mysql.new()' }
             default        { die "driver name '$drivername' is not known"; }
         }
         return $driver;