Mercurial > pub > Impl
view Lib/IMPL/Object/Meta.pm @ 43:009aa9ca2e48
merge
author | Sergey |
---|---|
date | Thu, 07 Jan 2010 15:41:49 +0300 |
parents | 03e58a454b20 |
children | 16ada169ca75 |
line wrap: on
line source
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;