|
51
|
1 package IMPL::Security::Role;
|
|
|
2
|
|
166
|
3 use parent qw(IMPL::Object);
|
|
51
|
4
|
|
|
5 use IMPL::Class::Property;
|
|
|
6
|
|
|
7 BEGIN {
|
|
194
|
8 public property roleName => prop_get | owner_set;
|
|
|
9 public property parentRoles => prop_get | owner_set | prop_list;
|
|
51
|
10 }
|
|
|
11
|
|
|
12 sub CTOR {
|
|
194
|
13 my ($this,$name,$parentRoles) = @_;
|
|
|
14
|
|
|
15 $this->roleName($name) if $name;
|
|
|
16 $this->parentRoles($parentRoles) if $parentRoles;
|
|
51
|
17 }
|
|
|
18
|
|
|
19 sub Satisfy {
|
|
194
|
20 my ($this,@roles) = @_;
|
|
|
21
|
|
|
22 return 1 unless $this->_FilterRoles( @roles );
|
|
|
23 return 0;
|
|
51
|
24 }
|
|
|
25
|
|
|
26 sub _FilterRoles {
|
|
194
|
27 my ($this,@roles) = @_;
|
|
|
28
|
|
|
29 @roles = grep not (ref $_ ? $this == $_ : $this->roleName eq $_), @roles;
|
|
|
30
|
|
|
31 @roles = $_->_FilterRoles(@roles) or return foreach $this->parentRoles ;
|
|
|
32
|
|
|
33 return @roles;
|
|
51
|
34 }
|
|
|
35
|
|
|
36
|
|
|
37 1;
|
|
|
38
|
|
|
39 __END__
|
|
|
40
|
|
|
41 =pod
|
|
|
42
|
|
73
|
43 =head1 NAME
|
|
|
44
|
|
180
|
45 C<IMPL::Security::Role> Роль
|
|
73
|
46
|
|
51
|
47 =head1 DESCRIPTION
|
|
|
48
|
|
180
|
49 Может включать в себя базовые роли.
|
|
|
50 Имеется метод для проверки наличия необходимых ролей в текущей роли.
|
|
51
|
51
|
|
|
52 =head1 MEMBERS
|
|
|
53
|
|
|
54 =over
|
|
|
55
|
|
73
|
56 =item C<[get] roleName>
|
|
51
|
57
|
|
180
|
58 Имя роли, ее идентификатор
|
|
51
|
59
|
|
73
|
60 =item C<[get,list] parentRoles>
|
|
51
|
61
|
|
180
|
62 Список родительских ролей
|
|
51
|
63
|
|
|
64 =item C<Satisfy(@roles_list)>
|
|
|
65
|
|
180
|
66 Проверяет наличие ролей указанных ролей из списка @roles_list.
|
|
|
67 Допускается использование как самих объектов, так и имен ролей.
|
|
|
68 Возвращает 0 в случае неудачи (хотябы одна роль не была удовлетворена), 1 при наличии необходимых ролей.
|
|
51
|
69
|
|
|
70 =back
|
|
|
71
|
|
180
|
72 =cut
|
