Mercurial > pub > Impl
diff Lib/IMPL/Security/Auth.pm @ 194:4d0e1962161c
Replaced tabs with spaces
IMPL::Web::View - fixed document model, new features (control classes, document constructor parameters)
author | cin |
---|---|
date | Tue, 10 Apr 2012 20:08:29 +0400 |
parents | d1676be8afcc |
children | 6d8092d8ce1b |
line wrap: on
line diff
--- a/Lib/IMPL/Security/Auth.pm Tue Apr 10 08:13:22 2012 +0400 +++ b/Lib/IMPL/Security/Auth.pm Tue Apr 10 20:08:29 2012 +0400 @@ -3,9 +3,9 @@ use Digest::MD5 qw(md5_hex); use constant { - AUTH_SUCCESS => 1, - AUTH_INCOMPLETE => 2, - AUTH_FAIL => 3 + AUTH_SUCCESS => 1, + AUTH_INCOMPLETE => 2, + AUTH_FAIL => 3 }; use parent qw(Exporter); @@ -21,21 +21,21 @@ } sub DoAuth { - die new IMPL::NotImplementedException; + die new IMPL::NotImplementedException; } sub ValidateSession { - die new IMPL::NotImplementedException; + die new IMPL::NotImplementedException; } sub isTrusted { - 0; + 0; } sub Create { - my ($self,%args) = @_; - - return $self->new($self->CreateSecData(%args)); + my ($self,%args) = @_; + + return $self->new($self->CreateSecData(%args)); } 1;