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;