diff Lib/IMPL/Security/Context.pm @ 81:077357224bec

IMPL::Web::Security alpha version IMPL::Security improovements
author Sergey
date Wed, 07 Apr 2010 14:45:34 +0400
parents 84aa8c395fce
children 79bf75223afe
line wrap: on
line diff
--- a/Lib/IMPL/Security/Context.pm	Wed Apr 07 01:05:02 2010 +0400
+++ b/Lib/IMPL/Security/Context.pm	Wed Apr 07 14:45:34 2010 +0400
@@ -42,6 +42,16 @@
     }
 }
 
+sub isTrusted {
+	my ($this) = @_;
+	
+	if (my $auth = $this->auth) {
+		return $auth->isTrusted;
+	} else {
+		return 0;
+	}
+}
+
 sub nobody {
     my ($self) = @_;
     $nobody = $self->new(principal => IMPL::Security::Principal->nobody, rolesAssigned => undef) unless $nobody;
@@ -106,6 +116,10 @@
 
 Объект асторизации C<IMPL::Security::Auth>, использованный при создании текущего контекста.
 
+=item C<[get] isTrusted>
+
+Возвращает значение является ли контекст доверенным, тоесть сессия аутетифицирована.
+
 =item C<Impersonate($code)>
 
 Делает контекст текущим и выполняет в нем функцию по ссылке C<$code>. По окончании