Mercurial > pub > Impl
annotate Lib/IMPL/Object/Meta.pm @ 28:6d33f75c6e1f
ORM in works
| author | Sergey |
|---|---|
| date | Mon, 19 Oct 2009 04:13:54 +0400 |
| parents | 03e58a454b20 |
| children | 16ada169ca75 |
| rev | line source |
|---|---|
| 0 | 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; |