File Coverage

blib/lib/Decision/ACL/Constants.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 28 28 100.0


line stmt bran cond sub pod time code
1             package Decision::ACL::Constants;
2              
3 2     2   10 use strict;
  2         4  
  2         60  
4 2     2   10 use Exporter;
  2         4  
  2         73  
5              
6 2     2   10 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
  2         3  
  2         255  
7             @ISA = qw(Exporter);
8              
9             @EXPORT = qw(ACL_RULE_UNCONCERNED
10             ACL_RULE_CONCERNED
11             ACL_RULE_DENY
12             ACL_RULE_ALLOW);
13             @EXPORT_OK = qw(ACL_RULE_UNCONCERNED
14             ACL_RULE_CONCERNED
15             ACL_RULE_DENY
16             ACL_RULE_ALLOW);
17             %EXPORT_TAGS = (rule => [qw(ACL_RULE_UNCONCERNED
18             ACL_RULE_CONCERNED
19             ACL_RULE_DENY
20             ACL_RULE_ALLOW)]);
21              
22             #Rule Status Constants
23 2     2   11 use constant ACL_RULE_UNCONCERNED => 0;
  2         3  
  2         158  
24 2     2   10 use constant ACL_RULE_CONCERNED => 1;
  2         10  
  2         97  
25 2     2   10 use constant ACL_RULE_DENY => 2;
  2         3  
  2         92  
26 2     2   9 use constant ACL_RULE_ALLOW => 3;
  2         4  
  2         105  
27              
28             666;