Mercurial > pub > Impl

comparison Lib/IMPL/Security/Rule/RoleCheck.pm @ 51:a1498298d3ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Security in progress
author wizard@linux-odin.local
date Mon, 01 Mar 2010 17:25:36 +0300
parents
children 79bf75223afe
comparison
equal deleted inserted replaced
50:521c9c1a3ea1 51:a1498298d3ee
1 package IMPL::Security::Rule::RoleCheck;
2
3 require IMPL::Security::Role;
4
5 sub SatisfyAll {
6 my ($secPackage,$object,$desiredAccess,$context) = @_;
7
8 my $roleEffective = new IMPL::Security::Role ( effective => $context->AssignedRoles );
9
10 return $roleEffective->Satisfy(ExtractRoles($object));
11 }
12
13 sub _ExtractRoles {
14 return ();
15 }
16