--- a/Lib/IMPL/Security/Principal.pm	Tue Feb 23 22:57:16 2010 +0300
+++ b/Lib/IMPL/Security/Principal.pm	Fri Feb 26 01:43:42 2010 +0300
@@ -10,6 +10,11 @@
     public property Description => prop_get;
 }
 
+my $nobody;
 
+sub nobody {
+    $nobody = $_[0]->new(Name => 'nobody', Description => '') unless $nobody;
+    return $nobody;
+}
 
 1;

--- a/Lib/Security.pm	Tue Feb 23 22:57:16 2010 +0300
+++ b/Lib/Security.pm	Fri Feb 26 01:43:42 2010 +0300
@@ -17,22 +17,5 @@
     return $CurrentSession;
 }
 
-package Security::AuthResult;
-use Common;
-our @ISA = qw(Object);
-
-BEGIN {
-    DeclareProperty State => ACCESS_READ;
-    DeclareProperty Session => ACCESS_READ;
-    DeclareProperty ClientSecData => ACCESS_READ;
-    DeclareProperty AuthMod => ACCESS_READ;
-}
-
-sub isSuccess {
-    my ($this) = @_;
-    return $this->{$State} == Security::AUTH_SUCCESS;
-}
-
-
 1;