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

diff --git a/ex/BeerDB.pm b/ex/BeerDB.pm
index 26f8e94..64f6954 100644
--- a/ex/BeerDB.pm
+++ b/ex/BeerDB.pm
@@ -1,5 +1,5 @@
 package BeerDB;
-use Maypole::Application;
+use Maypole::Application qw/-Debug/;
 use Class::DBI::Loader::Relationship;
 
 BEGIN {
@@ -31,11 +31,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/};