Mercurial > pub > Impl
view Lib/Security.pm @ 49:16ada169ca75
migrating to the Eclipse IDE
author | wizard@linux-odin.local |
---|---|
date | Fri, 26 Feb 2010 10:49:21 +0300 |
parents | 1c3c3e63a314 |
children |
line wrap: on
line source
use strict; package Security; use constant { AUTH_FAILED => 0, AUTH_SUCCESS => 1, AUTH_INCOMPLETE => 2, AUTH_NOAUTH => 3 }; my $CurrentSession; sub CurrentSession { my ($class,$newSession) = @_; $CurrentSession = $newSession if @_>=2; return $CurrentSession; } 1;