28/10/2008
Role Based Access Control
29
Code
Examples - Create Authz / 1
use IFL::Authz;
use
IFL::Authz::Config::PerlFile;
# load config
my $authzconfig =
IFL::Authz::Config::PerlFile
->new({ configfilepath => "authz.xpl" });
->new({ configfilepath => "authz.xpl" });
# contains
#
store => {
#
class =>
'IFL::Authz::Serialiser::PerlFile',
#
storefilepath = 'authz_schema.xpl',
#
},
#
objectmatch => { class => 'TestAdminAuthz' },
# relies on plugin TestAdminAuthz.pm
which gives
# match_object() that understands rings of power