diff Lib/IMPL/Security/Principal.pm @ 48:1c3c3e63a314

security in progress
author Sergey
date Fri, 26 Feb 2010 01:43:42 +0300
parents a9b70d836b28
children 16ada169ca75
line wrap: on
line diff
--- 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;