[Bps-public-commit] r11475 - SVN-PropDB/lib/Prophet

[clkao at bestpractical.com]

Author: clkao
Date: Thu Apr  3 23:37:26 2008
New Revision: 11475

Modified:
   SVN-PropDB/lib/Prophet/Record.pm

Log:
properties should be class data.


Modified: SVN-PropDB/lib/Prophet/Record.pm
==============================================================================
--- SVN-PropDB/lib/Prophet/Record.pm	(original)
+++ SVN-PropDB/lib/Prophet/Record.pm	Thu Apr  3 23:37:26 2008
@@ -17,7 +17,11 @@
 
 __PACKAGE__->mk_accessors(qw'handle uuid type');
 __PACKAGE__->mk_classdata(REFERENCES => {});
-__PACKAGE__->mk_classdata(declared_props => {});
+__PACKAGE__->mk_classdata(PROPERTIES => {});
+
+sub declared_props {
+    return sort keys %{ $_[0]->PROPERTIES };
+}
 
 use Params::Validate;
 use Prophet::HistoryEntry;