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

doc minor fixes
author wizard
date Mon, 29 Mar 2010 17:40:06 +0400
parents 2f31ecabe9ea
children 67eb8eaec3d4
line wrap: on
line diff
--- a/Lib/IMPL/Security.pm	Mon Mar 29 06:56:05 2010 +0400
+++ b/Lib/IMPL/Security.pm	Mon Mar 29 17:40:06 2010 +0400
@@ -67,10 +67,10 @@
 	
 	#forced delegation 
 	my $delegatedContext = IMPL::Security::Context->new(
-		Principal => IMPL::Security::Principal->new(
-			Name => 'suser'
+		principal => IMPL::Security::Principal->new(
+			name => 'suser'
 		),
-		AssignedRoles => ['administrator']
+		rolesAssigned => ['administrator']
 	)
 	
 	my $result;