Mercurial > pub > Impl

view Lib/IMPL/Security/Rule/RoleCheck.pm @ 59:0f3e369553bd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rewritten property implementation (probably become slower but more flexible) Configuration infrastructure in progress (in the aspect of the lazy activation) Initial concept for the code generator
author wizard
date Tue, 09 Mar 2010 02:50:45 +0300
parents a1498298d3ee
children 79bf75223afe
line wrap: on
line source

package IMPL::Security::Rule::RoleCheck;

require IMPL::Security::Role;

sub SatisfyAll {
	my ($secPackage,$object,$desiredAccess,$context) = @_;
	
	my $roleEffective = new IMPL::Security::Role ( effective => $context->AssignedRoles );
	
	return $roleEffective->Satisfy(ExtractRoles($object));
}

sub _ExtractRoles {
	return ();
}