summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
371b76d)
"a style defines beers",
"a pub has beers on handpumps");
"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/};
sub BeerDB::Beer::classdata :Exported {};
sub BeerDB::Beer::list_columns { return qw/score name price style brewery url/};