--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Lib/IMPL/Object/Fields.pm	Mon Mar 28 01:36:24 2011 +0400
@@ -0,0 +1,26 @@
+package IMPL::Object::Fields;
+use strict;
+use warnings;
+
+use base qw(IMPL::Object::Abstract);
+
+sub new {
+	my $class = shift;
+	
+	$class = ref $class || $class;
+	
+	my $this = fields::new($class);
+	$this->callCTOR(@_);
+	
+	return $this;
+}
+
+sub surrogate {
+	my $class = shift;
+	
+	$class = ref $class || $class;
+	
+	return fields::new($class);
+}
+
+1;
\ No newline at end of file