28/10/2008
Role Based Access Control
31
Code Examples - Create Authz / 3
l$authz->add_role({ role => 'ring_bearer', description => 'Ring Bearer Role' });
l$authz->grant_permission({ role => 'ring_bearer', description => 'wear rings', operations => [qw( wear )], allow_deny => 'allow', object => { type => 'ring', precedence => 'DEFAULT', id => {} } });
l$authz->add_inheritance({ role_asc => 'tester', role_desc => 'ring_bearer' });
l$authz->assign_user({ user => 'unittest', role => 'ring_bearer' });
l$authz->end_transaction;
l$authz->save;