l# create authz object
lmy $authz =
IFL::Authz->new({ config => $authzconfig
});
l$authz->begin_transaction;
l$authz->add_object_type({
name => 'ring', ops => ['wear', 'destroy'], precedence => 1 });
l$authz->add_user({
user => 'unittest', metadata => { name => 'Ms. Unity Test', country => 'UK' }
});
l$authz->add_role({
role => 'tester', description => 'Tester Role' });
l$authz->grant_permission({role
=> 'tester', description
=> 'access rings', operations => [qw( access read )], allow_deny => 'allow',
object => { type
=> 'ring', precedence => 'DEFAULT', id => {} } } );