Mercurial > pub > Impl

view Lib/IMPL/Security/Rule/RoleCheck.pm @ 100:df6b4f054957

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Schema in progress Added simple mailer
author wizard
date Thu, 06 May 2010 00:54:17 +0400
parents 79bf75223afe
children 4d0e1962161c
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->rolesAssigned );
	
	return $roleEffective->Satisfy(ExtractRoles($object));
}

sub _ExtractRoles {
	return ();
}