comparison Lib/IMPL/Security.pm @ 74:84aa8c395fce

doc minor fixes
author wizard
date Mon, 29 Mar 2010 17:40:06 +0400
parents 2f31ecabe9ea
children 67eb8eaec3d4
comparison
equal deleted inserted replaced
73:2f31ecabe9ea 74:84aa8c395fce
65 65
66 my $this = shift; 66 my $this = shift;
67 67
68 #forced delegation 68 #forced delegation
69 my $delegatedContext = IMPL::Security::Context->new( 69 my $delegatedContext = IMPL::Security::Context->new(
70 Principal => IMPL::Security::Principal->new( 70 principal => IMPL::Security::Principal->new(
71 Name => 'suser' 71 name => 'suser'
72 ), 72 ),
73 AssignedRoles => ['administrator'] 73 rolesAssigned => ['administrator']
74 ) 74 )
75 75
76 my $result; 76 my $result;
77 77
78 $delegatedContext->Impersonate(sub{ 78 $delegatedContext->Impersonate(sub{