Mercurial > pub > Impl
view Lib/IMPL/Object/Meta.pm @ 87:6d3bca490556
small fixes in the security moodules
author | wizard |
---|---|
date | Mon, 19 Apr 2010 23:20:46 +0400 (2010-04-19) |
parents | 76b878ad6596 |
children | 42fbb38d4a48 |
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 | owner_set; } sub meta { my $class = shift; my $caller = caller; my $meta = $class->surrogate(); $meta->IMPL::Object::Meta::Container(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