Mercurial > pub > Impl
view Lib/IMPL/Security/Principal.pm @ 178:658a80d19d33
new constructor syntax
author | sourcer |
---|---|
date | Wed, 12 Oct 2011 00:06:07 +0300 (2011-10-11) |
parents | 4267a2ac3d46 |
children | d1676be8afcc |
line wrap: on
line source
package IMPL::Security::Principal; use strict; use warnings; use parent qw(IMPL::Object IMPL::Object::Autofill); use IMPL::Class::Property; __PACKAGE__->PassThroughArgs; BEGIN { public property name => prop_get; public property description => prop_all; } my $nobody; sub nobody { $nobody = $_[0]->new(name => 'nobody', description => '') unless $nobody; return $nobody; } 1; __END__ =pod =head1 NAME C<IMPL::Security::Principal> ������������� ������������ C<[Autofill]> =head1 MEMBERS =over =item C<CTOR(%props)> ������� ����� ������. =item C<[get] name> ���������� ��� ������������. =item C<[get,set] description> ���������� �������� ������������. =back =cut