- eval { require DBD::SQLite };
- my $dbh;
- if ($@) {
- eval { require DBD::SQLite2 };
- die "No, wait, we don't have SQLite installed. Never mind\n" if $@;
- require DBI;
- $dbh = DBI->connect("dbi:SQLite2:dbname=t/beerdb.db");
- } else {
- require DBI;
- $dbh = DBI->connect("dbi:SQLite:dbname=t/beerdb.db");
- }
+ my $driver = 'SQLite';
+ eval { require DBD::SQLite } or do {
+ print "Error loading DBD::SQLite, trying DBD::SQLite2\n";
+ eval {require DBD::SQLite2} ? $driver = 'SQLite2'
+ : die "DBD::SQLite2 is not installed";
+ };
+ require DBI;
+ my $dbh = DBI->connect("dbi:$driver:dbname=t/beerdb.db");