view release on metacpan or  search on metacpan

README  view on Meta::CPAN

    Version 0.0004

SYNOPSIS
        use ACL::Lite;

        $acl = ACL::Lite->new(permissions => 'foo,bar');

        $acl->check('foo');

        if ($ret = $acl->check([qw/baz bar/])) {
            print "Check successful with permission $ret\n";
        }

        unless ($acl->check('baz')) {
            print "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".

lib/ACL/Lite.pm  view on Meta::CPAN

=head1 SYNOPSIS

    use ACL::Lite;

    $acl = ACL::Lite->new(permissions => 'foo,bar');

    $acl->check('foo');

    if ($ret = $acl->check([qw/baz bar/])) {
        print "Check successful with permission $ret\n";
    }

    unless ($acl->check('baz')) {
        print "Permission denied\n";
    }

    $acl = ACL::Lite->new(uid => 666);

    $acl->check('authenticated');

=head1 DESCRIPTION

C<ACL::Lite> is a simple permission checker without any prerequisites.

t/00-load.t  view on Meta::CPAN

#!perl -T

use Test::More tests => 1;

BEGIN {
    use_ok( 'ACL::Lite' ) || print "Bail out!\n";
}

diag( "Testing ACL::Lite $ACL::Lite::VERSION, Perl $], $^X" );