Mercurial > pub > Impl
comparison Lib/IMPL/Security/Context.pm @ 68:739f1288ca84
Auth in progress
author | wizard |
---|---|
date | Tue, 23 Mar 2010 16:55:25 +0300 |
parents | f47f93534005 |
children | 84aa8c395fce |
comparison
equal
deleted
inserted
replaced
67:9f5795a10939 | 68:739f1288ca84 |
---|---|
10 | 10 |
11 my $current; | 11 my $current; |
12 my $nobody; | 12 my $nobody; |
13 | 13 |
14 BEGIN { | 14 BEGIN { |
15 public property Principal => prop_get; | 15 public property principal => prop_get; |
16 public property AssignedRoles => prop_all | prop_list; | 16 public property rolesAssigned => prop_all | prop_list; |
17 public property AuthSession => prop_all; | 17 public property auth => prop_all; |
18 } | 18 } |
19 | 19 |
20 sub Impersonate { | 20 sub Impersonate { |
21 my ($this,$code) = @_; | 21 my ($this,$code) = @_; |
22 | 22 |
34 } | 34 } |
35 } | 35 } |
36 | 36 |
37 sub contextNobody { | 37 sub contextNobody { |
38 my ($self) = @_; | 38 my ($self) = @_; |
39 $nobody = $self->new(Principal => IMPL::Security::Principal->nobody, AssignedRoles => undef) unless $nobody; | 39 $nobody = $self->new(principal => IMPL::Security::Principal->nobody, rolesAssigned => undef) unless $nobody; |
40 $nobody; | 40 $nobody; |
41 } | 41 } |
42 | 42 |
43 sub contextCurrent { | 43 sub contextCurrent { |
44 my ($self) = @_; | 44 my ($self) = @_; |