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;