view Lib/DOM/Providers/Security.pm @ 40:ac21a032e7a9

bnf parser in progress
author Sergey
date Thu, 10 Dec 2009 17:43:39 +0300
parents 03e58a454b20
children 16ada169ca75
line wrap: on
line source

use strict;

package DOM::Providers::Security;
use Security;

sub GetProviderInfo {
    return {
        Name => 'Security',
        Host => 'DOM::Site',
        Objects => {
            Session => \&GetSession
        }
    }
}

sub GetSession {
    return Security->CurrentSession;
}
1;