Mercurial > pub > Impl
view Lib/IMPL/Object/Meta.pm @ 208:3d433a977e3b
corrected RestController for empty PAT_INFO
corrected charset for ErrorHandler
author | sergey |
---|---|
date | Fri, 18 May 2012 18:43:00 +0400 |
parents | d1676be8afcc |
children | 4ddb27ff4a0b |
line wrap: on
line source
package IMPL::Object::Meta; use strict; use warnings; use parent qw(IMPL::Object); use IMPL::Class::Property; use IMPL::Class::Property::Direct; BEGIN { public _direct property Container => prop_get | owner_set; } sub meta { my $class = shift; my $caller = caller; my $meta = $class->surrogate(); $meta->IMPL::Object::Meta::Container(scalar caller); $meta->callCTOR(@_); $caller->set_meta($meta); } 1; __END__ =pod =head1 SYNOPSIS package Foo; meta BarAttribute('Simple bar attribute'); #mark Foo with BarAttribute =head1 DESCRIPTION Базовый класс для мета-свойств класса. Определяет оператор C< meta > для создания метаданных в вызвавшем классе. =head1 MEMBERS =over =item C< Container > Свойство заполняется до вызова конструктора и содержит имя модуля к которому применяется атрибут. =back =cut