package BeerDB;
-use Maypole::Application qw/-Debug/;
+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)