From 48f5cd806ad785fbd8a77b93eebbf786fb73091f Mon Sep 17 00:00:00 2001
From: Marcus Ramberg <mramberg@cpan.org>
Date: Thu, 21 Oct 2004 13:11:30 +0000
Subject: [PATCH] Removed obsolete comments, added comment about testing

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@249 48953598-375a-da11-a14b-00016c27c3ee
---
 ex/BeerDB.pm | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

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/};
 
-- 
2.39.5