Removed obsolete comments, added comment about testing

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@249 48953598-375a-da11-a14b-00016c27c3ee

diff --git a/ex/BeerDB.pm b/ex/BeerDB.pm
index 9d9867dcd49af94cfbdff4b1ebbdd037c4988c38..64f69541ba97aa4cf398a664dd0f438b1c5eb2b6 100644 (file)
--- 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/};