|
49
|
1 package IMPL::Security::Principal;
|
|
|
2 use strict;
|
|
|
3 use warnings;
|
|
|
4
|
|
166
|
5 use parent qw(IMPL::Object IMPL::Object::Autofill);
|
|
49
|
6 use IMPL::Class::Property;
|
|
|
7
|
|
97
|
8 __PACKAGE__->PassThroughArgs;
|
|
|
9
|
|
49
|
10 BEGIN {
|
|
74
|
11 public property name => prop_get;
|
|
|
12 public property description => prop_all;
|
|
49
|
13 }
|
|
|
14
|
|
|
15 my $nobody;
|
|
|
16
|
|
|
17 sub nobody {
|
|
74
|
18 $nobody = $_[0]->new(name => 'nobody', description => '') unless $nobody;
|
|
49
|
19 return $nobody;
|
|
|
20 }
|
|
|
21
|
|
|
22 1;
|
|
74
|
23
|
|
|
24 __END__
|
|
|
25
|
|
|
26 =pod
|
|
|
27
|
|
|
28 =head1 NAME
|
|
|
29
|
|
|
30 C<IMPL::Security::Principal>
|
|
|
31
|
|
|
32 C<[Autofill]>
|
|
|
33
|
|
|
34 =head1 MEMBERS
|
|
|
35
|
|
|
36 =over
|
|
|
37
|
|
|
38 =item C<CTOR(%props)>
|
|
|
39
|
|
|
40 .
|
|
|
41
|
|
|
42 =item C<[get] name>
|
|
|
43
|
|
|
44 .
|
|
|
45
|
|
|
46 =item C<[get,set] description>
|
|
|
47
|
|
|
48 .
|
|
|
49
|
|
|
50 =back
|
|
|
51
|
|
|
52 =cut
|
