--- a/Lib/IMPL/Object/Factory.pm	Tue Oct 09 03:09:41 2012 +0400
+++ b/Lib/IMPL/Object/Factory.pm	Tue Oct 09 20:12:47 2012 +0400
@@ -1,15 +1,19 @@
 package IMPL::Object::Factory;
 use strict;
 
-use parent qw(IMPL::Object IMPL::Object::Serializable);
-
-use IMPL::lang qw(:declare :constants);
+use IMPL::Const qw(:prop);
 
-BEGIN {
-    public property factory => PROP_GET | PROP_OWNERSET;
-    public property parameters => PROP_GET | PROP_OWNERSET;
-    public property method => PROP_GET | PROP_OWNERSET; 
-}
+use IMPL::declare {
+    base => [
+        'IMPL::Object' => undef,
+        'IMPL::Object::Serializable' => undef
+    ],
+    props => [
+        factory => PROP_RO,
+        parameters => PROP_RO,
+        method => PROP_RO
+    ]
+};
 
 # custom factory, overrides default
 sub new {