X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=ex%2FBeerDB.pm;h=6df04914611ad19d1f176209c53c49917015cac4;hb=24259799350483f32219fd3755e0bed54f909c54;hp=26f8e94cd249197ff919a9746120421e09245235;hpb=8f6d0577a304bb99d072c9eaf707ab278927bb09;p=maypole.git

diff --git a/ex/BeerDB.pm b/ex/BeerDB.pm
index 26f8e94..6df0491 100644
--- a/ex/BeerDB.pm
+++ b/ex/BeerDB.pm
@@ -2,10 +2,17 @@ package BeerDB;
 use Maypole::Application;
 use Class::DBI::Loader::Relationship;
 
+sub debug { $ENV{BEERDB_DEBUG} }
+
 BEGIN {
 # This is the sample application. Change this to the path to your
 # database. (or use mysql or something)
-BeerDB->setup("dbi:SQLite:t/beerdb.db");
+eval { require DBD::SQLite };
+if ($@) {
+   BeerDB->setup("dbi:SQLite2:t/beerdb.db");
+} else {
+    BeerDB->setup("dbi:SQLite:t/beerdb.db");
+}
 }
 
 # Give it a name.
@@ -31,11 +38,7 @@ BeerDB->config->{loader}->relationship($_) for (
     "a style defines beers",
     "a pub has beers on handpumps");
 
-#package BeerDB::Beer;
-#our %remember;
-#sub MODIFY_CODE_ATTRIBUTES { $remember{ $_[1] } = $_[2]; () }
-#sub FETCH_CODE_ATTRIBUTES { $remember{ $_[1] } }
-
+# For testing classmetadata
 sub BeerDB::Beer::classdata :Exported {};
 sub BeerDB::Beer::list_columns  { return qw/score name price style brewery url/};