Mercurial > pub > Impl
comparison Lib/IMPL/Security/Role.pm @ 393:69a1f1508696
minor security refactoring
author | cin |
---|---|
date | Fri, 14 Feb 2014 16:41:12 +0400 |
parents | 6d8092d8ce1b |
children |
comparison
equal
deleted
inserted
replaced
392:54b1dc9e808a | 393:69a1f1508696 |
---|---|
8 use IMPL::declare { | 8 use IMPL::declare { |
9 base => [ | 9 base => [ |
10 'IMPL::Object' => undef, | 10 'IMPL::Object' => undef, |
11 'IMPL::Security::AbstractRole' => undef | 11 'IMPL::Security::AbstractRole' => undef |
12 ], | 12 ], |
13 props => [ | 13 _implement => 1 |
14 @{AbstractRole->abstractProps()} | |
15 ] | |
16 }; | 14 }; |
17 | |
18 __PACKAGE__->abstractProps([]); | |
19 | |
20 | 15 |
21 sub CTOR { | 16 sub CTOR { |
22 my ($this,$name,$parentRoles) = @_; | 17 my ($this,$name,$parentRoles) = @_; |
23 | 18 |
24 $this->roleName($name) if $name; | 19 $this->roleName($name) if $name; |