NAME
ACL::Lite - Liteweight and flexible ACL checks
VERSION
Version 0.0004
SYNOPSIS
use
ACL::Lite;
$acl
= ACL::Lite->new(
permissions
=>
'foo,bar'
);
$acl
->check(
'foo'
);
if
(
$ret
=
$acl
->check([
qw/baz bar/
])) {
"Check successful with permission $ret\n"
;
}
unless
(
$acl
->check(
'baz'
)) {
"Permission denied\n"
;
}
$acl
= ACL::Lite->new(
uid
=> 666);
$acl
->check(
'authenticated'
);
DESCRIPTION
ACL::Lite
is a simple permission checker without any prerequisites.
ACL
stands for "Access Control Lists".
DEFAULT PERMISSION
The default permission depends on whether you pass a uid
(authenticated) or not (anonymous).
CONSTRUCTOR
new
Creates an ACL::Lite object by passing the following parameters:
- uid
-
User identifier for authenticated users.
- permissions
-
Granted permissions.
- separator
-
Separator used to parse permission strings. Defaults to
,
.
check $permissions, $uid
Checks whether any of the permissions in $permissions is granted. Returns first permission which grants access.
permissions
Returns permissions as hash reference:
$perms
=
$acl
->permissions;
Returns permissions as list:
@perms
=
$acl
->permissions;
CAVEATS
Please anticipate API changes in this early state of development.
AUTHOR
Stefan Hornburg (Racke), racke@linuxia.de
BUGS
Please report any bugs or feature requests to bug-acl-lite at rt.cpan.org
, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=ACL-Lite. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
SUPPORT
You can find documentation for this module with the perldoc command.
perldoc ACL::Lite
You can also look for information at:
RT: CPAN's request tracker (report bugs here)
AnnoCPAN: Annotated CPAN documentation
CPAN Ratings
Search CPAN
ACKNOWLEDGEMENTS
LICENSE AND COPYRIGHT
Copyright 2011-2013 Stefan Hornburg (Racke).
This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.
See http://dev.perl.org/licenses/ for more information.