Mercurial > pub > Impl
diff Lib/IMPL/Security/Auth.pm @ 87:6d3bca490556
small fixes in the security moodules
| author | wizard |
|---|---|
| date | Mon, 19 Apr 2010 23:20:46 +0400 |
| parents | 077357224bec |
| children | 4267a2ac3d46 |
line wrap: on
line diff
--- a/Lib/IMPL/Security/Auth.pm Mon Apr 19 02:38:18 2010 +0400 +++ b/Lib/IMPL/Security/Auth.pm Mon Apr 19 23:20:46 2010 +0400 @@ -5,7 +5,7 @@ use constant { AUTH_SUCCESS => 1, AUTH_INCOMPLETE => 2, - AUT_FAIL => 3 + AUTH_FAIL => 3 }; use base qw(Exporter); @@ -32,6 +32,12 @@ 0; } +sub Create { + my ($self,%args) = @_; + + return $self->new($self->CreateSecData(%args)); +} + 1; __END__ @@ -113,6 +119,11 @@ Создает данные безопасности, на основе параметров. Параметры зависят от пакета аутентификации. +=item C<[static] Create(%args)> + +Создает объект аутентификации, на основе параметров. Параметры зависят от пакета аутентификации. +Внутри вызывает метод C<CreateSecData(%args)>. + =item C<[static] SecDataArgs()> Возвращает хеш с описанием параметров для функции C<CreateSecData>. Ключами являются