Mercurial > pub > Impl
comparison 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 |
comparison
equal
deleted
inserted
replaced
47:a9b70d836b28 | 48:1c3c3e63a314 |
---|---|
8 BEGIN { | 8 BEGIN { |
9 public property Name => prop_get; | 9 public property Name => prop_get; |
10 public property Description => prop_get; | 10 public property Description => prop_get; |
11 } | 11 } |
12 | 12 |
13 my $nobody; | |
13 | 14 |
15 sub nobody { | |
16 $nobody = $_[0]->new(Name => 'nobody', Description => '') unless $nobody; | |
17 return $nobody; | |
18 } | |
14 | 19 |
15 1; | 20 1; |