--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/IMPL/Security.pm	Fri Sep 04 19:40:23 2015 +0300
@@ -0,0 +1,29 @@
+package IMPL::Security;
+use strict;
+use Carp qw(carp);
+
+##VERSION##
+
+require IMPL::Exception;
+require IMPL::Security::Rule::RoleCheck;
+
+use IMPL::require { 
+    Principal => 'IMPL::Security::Principal',
+    AbstractContext => 'IMPL::Security::AbstractContext',
+    Context => 'IMPL::Security::Context'
+};
+
+sub principal {
+    return
+        AbstractContext->current
+        && AbstractContext->current->principal
+        || Principal->nobody; 
+}
+
+sub context {
+    AbstractContext->current || Context->nobody;
+}
+
+1;
+
+__END__
\ No newline at end of file