Mercurial > pub > Impl
annotate Lib/IMPL/Security/Principal.pm @ 72:eac47fa4f262
docs
author | wizard |
---|---|
date | Fri, 26 Mar 2010 16:26:31 +0300 |
parents | 16ada169ca75 |
children | 84aa8c395fce |
rev | line source |
---|---|
49 | 1 package IMPL::Security::Principal; |
2 use strict; | |
3 use warnings; | |
4 | |
5 use base qw(IMPL::Object); | |
6 use IMPL::Class::Property; | |
7 | |
8 BEGIN { | |
9 public property Name => prop_get; | |
10 public property Description => prop_get; | |
11 } | |
12 | |
13 my $nobody; | |
14 | |
15 sub nobody { | |
16 $nobody = $_[0]->new(Name => 'nobody', Description => '') unless $nobody; | |
17 return $nobody; | |
18 } | |
19 | |
20 1; |