--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Lib/IMPL/Object/Meta.pm	Tue Jul 14 12:54:37 2009 +0400
@@ -0,0 +1,23 @@
+package IMPL::Object::Meta;
+use strict;
+use warnings;
+
+use base qw(IMPL::Object);
+use IMPL::Class::Property;
+use IMPL::Class::Property::Direct;
+
+BEGIN {
+    public _direct property Container => prop_get;
+}
+
+sub meta {
+    my $class = shift;
+    my $caller = caller;
+    my $meta = $class->surrogate();
+    $meta->{$Container} = $caller;
+    $meta->callCTOR(@_);
+    $caller->set_meta($meta);
+}
+
+
+1;