Mercurial > pub > Impl

view Lib/IMPL/Security/Rule/RoleCheck.pm @ 197:6b1dda998839

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added IMPL::declare, IMPL::require, to simplify module definitions IMPL::Transform now admires object inheritance while searching for the transformation Added HTTP some exceptions IMPL::Web::Application::RestResource almost implemented
author sergey
date Thu, 19 Apr 2012 02:10:02 +0400
parents 4d0e1962161c
children 6d8092d8ce1b
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 ();
}