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;