--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Lib/IMPL/Security/Rule/RoleCheck.pm	Mon Mar 01 17:25:36 2010 +0300
@@ -0,0 +1,16 @@
+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 ();
+}
+