--- a/Lib/IMPL/Security/Context.pm	Sat Feb 27 16:28:45 2010 +0300
+++ b/Lib/IMPL/Security/Context.pm	Mon Mar 01 17:25:36 2010 +0300
@@ -8,12 +8,13 @@
 
 require IMPL::Security::Principal;
 
-my $current = __PACKAGE__->nobody;
+my $current;
 my $nobody;
 
 BEGIN {
     public property Principal => prop_get;
     public property AssignedRoles => prop_all;
+    public property AuthSession => prop_all;
 }
 
 sub Impersonate {
@@ -33,10 +34,17 @@
     }
 }
 
-sub nobody {
+sub contextNobody {
     my ($self) = @_;
     $nobody = $self->new(Principal => IMPL::Security::Principal->nobody, AssignedRoles => undef) unless $nobody;
     $nobody;
 }
 
+sub contextCurrent {
+	my ($self) = @_;
+	
+	$current = __PACKAGE__->nobody unless $current;
+	$current;
+}
+
 1;