|
49
|
1 package IMPL::Security::Principal;
|
|
|
2 use strict;
|
|
|
3 use warnings;
|
|
|
4
|
|
74
|
5 use base qw(IMPL::Object IMPL::Object::Autofill);
|
|
49
|
6 use IMPL::Class::Property;
|
|
|
7
|
|
|
8 BEGIN {
|
|
74
|
9 public property name => prop_get;
|
|
|
10 public property description => prop_all;
|
|
49
|
11 }
|
|
|
12
|
|
|
13 my $nobody;
|
|
|
14
|
|
|
15 sub nobody {
|
|
74
|
16 $nobody = $_[0]->new(name => 'nobody', description => '') unless $nobody;
|
|
49
|
17 return $nobody;
|
|
|
18 }
|
|
|
19
|
|
|
20 1;
|
|
74
|
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
|
