Mercurial > pub > Impl

comparison Lib/IMPL/Security/Principal.pm @ 74:84aa8c395fce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
doc minor fixes
author wizard
date Mon, 29 Mar 2010 17:40:06 +0400
parents 16ada169ca75
children 964587c5183c
comparison
equal deleted inserted replaced
73:2f31ecabe9ea 74:84aa8c395fce
1 package IMPL::Security::Principal; 1 package IMPL::Security::Principal;
2 use strict; 2 use strict;
3 use warnings; 3 use warnings;
4 4
5 use base qw(IMPL::Object); 5 use base qw(IMPL::Object IMPL::Object::Autofill);
6 use IMPL::Class::Property; 6 use IMPL::Class::Property;
7 7
8 BEGIN { 8 BEGIN {
9 public property Name => prop_get; 9 public property name => prop_get;
10 public property Description => prop_get; 10 public property description => prop_all;
11 } 11 }
12 12
13 my $nobody; 13 my $nobody;
14 14
15 sub nobody { 15 sub nobody {
16 $nobody = $_[0]->new(Name => 'nobody', Description => '') unless $nobody; 16 $nobody = $_[0]->new(name => 'nobody', description => '') unless $nobody;
17 return $nobody; 17 return $nobody;
18 } 18 }
19 19
20 1; 20 1;
21
22 __END__
23
24 =pod
25
26 =head1 NAME
27
28 C<IMPL::Security::Principal> Идентификатор пользователя
29
30 C<[Autofill]>
31
32 =head1 MEMBERS
33
34 =over
35
36 =item C<CTOR(%props)>
37
38 Создает новый объект.
39
40 =item C<[get] name>
41
42 Возвращает имя пользователя.
43
44 =item C<[get,set] description>
45
46 Возвращает описание пользователя.
47
48 =back
49
50 =cut