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.
"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/};