From: Marcus Ramberg <mramberg@cpan.org>
Date: Thu, 21 Oct 2004 13:11:30 +0000 (+0000)
Subject: Removed obsolete comments, added comment about testing
X-Git-Tag: 2.10~113
X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=48f5cd806ad785fbd8a77b93eebbf786fb73091f;p=maypole.git

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