Mercurial > pub > Impl
view lib/IMPL/Security.pm @ 407:c6e90e02dd17 ref20150831
renamed Lib->lib
author | cin |
---|---|
date | Fri, 04 Sep 2015 19:40:23 +0300 |
parents | |
children |
line wrap: on
line source
package IMPL::Security; use strict; use Carp qw(carp); ##VERSION## require IMPL::Exception; require IMPL::Security::Rule::RoleCheck; use IMPL::require { Principal => 'IMPL::Security::Principal', AbstractContext => 'IMPL::Security::AbstractContext', Context => 'IMPL::Security::Context' }; sub principal { return AbstractContext->current && AbstractContext->current->principal || Principal->nobody; } sub context { AbstractContext->current || Context->nobody; } 1; __END__