X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=ex%2FBeerDB.pm;fp=ex%2FBeerDB.pm;h=64f69541ba97aa4cf398a664dd0f438b1c5eb2b6;hb=48f5cd806ad785fbd8a77b93eebbf786fb73091f;hp=9d9867dcd49af94cfbdff4b1ebbdd037c4988c38;hpb=371b76dc4be5e9a9cd9955e58f689725d458f46b;p=maypole.git

diff --git a/ex/BeerDB.pm b/ex/BeerDB.pm
index 9d9867d..64f6954 100644
--- a/ex/BeerDB.pm
+++ b/ex/BeerDB.pm
@@ -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/};