view Lib/Security.pm @ 113:7b14e0122b79

Updated PostToDOM transformation added selectSingleNode method to IMPL::DOM::Node Implemented FormWrapper in the Web::Application::ControllerUnit
author wizard
date Fri, 21 May 2010 02:38:11 +0400
parents 16ada169ca75
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;