--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/IMPL/Security/Rule/RoleCheck.pm	Fri Sep 04 19:40:23 2015 +0300
@@ -0,0 +1,18 @@
+package IMPL::Security::Rule::RoleCheck;
+use strict;
+
+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 ();
+}
+
+1;