comparison Lib/IMPL/Security/Context.pm @ 66:f47f93534005

Documentation
author wizard
date Thu, 18 Mar 2010 17:58:33 +0300
parents a1498298d3ee
children 739f1288ca84
comparison
equal deleted inserted replaced
65:2840c4c85db8 66:f47f93534005
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; 16 public property AssignedRoles => prop_all | prop_list;
17 public property AuthSession => prop_all; 17 public property AuthSession => prop_all;
18 } 18 }
19 19
20 sub Impersonate { 20 sub Impersonate {
21 my ($this,$code) = @_; 21 my ($this,$code) = @_;