--- a/Lib/IMPL/Security/Principal.pm	Mon Mar 29 06:56:05 2010 +0400
+++ b/Lib/IMPL/Security/Principal.pm	Mon Mar 29 17:40:06 2010 +0400
@@ -2,19 +2,49 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Object);
+use base qw(IMPL::Object IMPL::Object::Autofill);
 use IMPL::Class::Property;
 
 BEGIN {
-    public property Name => prop_get;
-    public property Description => prop_get;
+    public property name => prop_get;
+    public property description => prop_all;
 }
 
 my $nobody;
 
 sub nobody {
-    $nobody = $_[0]->new(Name => 'nobody', Description => '') unless $nobody;
+    $nobody = $_[0]->new(name => 'nobody', description => '') unless $nobody;
     return $nobody;
 }
 
 1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+C<IMPL::Security::Principal> Идентификатор пользователя
+
+C<[Autofill]>
+
+=head1 MEMBERS
+
+=over
+
+=item C<CTOR(%props)>
+
+Создает новый объект.
+
+=item C<[get] name>
+
+Возвращает имя пользователя.
+
+=item C<[get,set] description>
+
+Возвращает описание пользователя.
+
+=back
+
+=cut