--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Lib/IMPL/Object/PublicSerializable.pm	Tue Mar 09 19:47:39 2010 +0300
@@ -0,0 +1,35 @@
+package IMPL::Object::PublicSerializable;
+use strict;
+
+use IMPL::Class::Member;
+
+sub restore {
+    my ($class,$data,$refSurrogate) = @_;
+    
+    if ($refSurrogate) {
+        $refSurrogate->callCTOR(@$data);
+        return $refSurrogate;
+    } else {
+        return $class->new(@$data);
+    }
+}
+
+sub save {
+	my ($this,$ctx) = @_;
+	
+	my %seen;
+	
+	$ctx->AddVar($_,$this->$_()) foreach
+		map $_->Name,$this->get_meta(
+			'IMPL::Class::PropertyInfo',
+			sub {
+				$_->Access == IMPL::Class::Member::MOD_PUBLIC and
+				$_->canGet and
+				not $_->ownerSet and
+				not $seen{$_->Name} ++
+			},
+			1
+		);
+}
+
+1;
\ No newline at end of file