Mercurial > pub > Impl

comparison Lib/IMPL/Object/Meta.pm @ 0:03e58a454b20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Создан репозитарий
author Sergey
date Tue, 14 Jul 2009 12:54:37 +0400
parents
children 16ada169ca75
comparison
equal deleted inserted replaced
-1:000000000000 0:03e58a454b20
1 package IMPL::Object::Meta;
2 use strict;
3 use warnings;
4
5 use base qw(IMPL::Object);
6 use IMPL::Class::Property;
7 use IMPL::Class::Property::Direct;
8
9 BEGIN {
10 public _direct property Container => prop_get;
11 }
12
13 sub meta {
14 my $class = shift;
15 my $caller = caller;
16 my $meta = $class->surrogate();
17 $meta->{$Container} = $caller;
18 $meta->callCTOR(@_);
19 $caller->set_meta($meta);
20 }
21
22
23 1;