The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Decision::ACL::Constants;

use strict;
use Exporter;

use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
@ISA = qw(Exporter);

@EXPORT = qw(ACL_RULE_UNCONCERNED 
				ACL_RULE_CONCERNED
				ACL_RULE_DENY
				ACL_RULE_ALLOW);
@EXPORT_OK = qw(ACL_RULE_UNCONCERNED 
				ACL_RULE_CONCERNED
				ACL_RULE_DENY
				ACL_RULE_ALLOW);
%EXPORT_TAGS = (rule => [qw(ACL_RULE_UNCONCERNED
							ACL_RULE_CONCERNED
							ACL_RULE_DENY
							ACL_RULE_ALLOW)]);

#Rule Status Constants
use constant ACL_RULE_UNCONCERNED => 0;
use constant ACL_RULE_CONCERNED => 1;
use constant ACL_RULE_DENY => 2;
use constant ACL_RULE_ALLOW => 3;

666;