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