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; |
