| line |
true |
false |
branch |
|
12
|
1 |
18 |
unless defined $opts{'rules'} |
|
16
|
0 |
18 |
unless ref $rules eq 'HASH' |
|
20
|
1 |
17 |
if ($opts{'entity_groups'}) |
|
21
|
0 |
1 |
unless ref $opts{'entity_groups'} eq 'HASH' |
|
25
|
0 |
1 |
unless my $group_rules = delete $$rules{$group} |
|
34
|
1 |
17 |
if ($opts{'resource_groups'}) |
|
35
|
0 |
1 |
unless ref $opts{'resource_groups'} eq 'HASH' |
|
41
|
1 |
1 |
unless my $in_rsrc = $opts{'resource_groups'}{$resource} |
|
64
|
0 |
110 |
if @_ |
|
70
|
0 |
0 |
if @_ |
|
76
|
0 |
0 |
if @_ |
|
82
|
0 |
110 |
if @_ |
|
105
|
1 |
109 |
unless my $perms = $$rules{$entity} |
|
113
|
1 |
108 |
unless @{$main_ruleset;} or @{$def_ruleset;} |
|
121
|
11 |
132 |
unless (ref $ruleset) |
|
130
|
102 |
29 |
if (defined $action) |
|
137
|
1 |
101 |
ref $action eq 'CODE' ? : |
|
156
|
0 |
132 |
unless my($action, @rules) = @{$ruleset;} |
|
162
|
49 |
15 |
if (ref $rule eq 'HASH') { } |
|
|
2 |
13 |
elsif (ref $rule eq 'CODE') { } |
|
|
13 |
0 |
elsif (not ref $rule) { } |
|
165
|
49 |
1 |
if (defined $$rule{$key}) { } |
|
167
|
11 |
38 |
unless defined $$req_params{$key} |
|
171
|
0 |
1 |
if exists $$req_params{$key} |
|
180
|
2 |
36 |
if (ref $$rule{$key} eq 'CODE') { } |
|
|
3 |
33 |
elsif (ref $$rule{$key} eq 'Regexp') { } |
|
|
1 |
32 |
elsif (ref $$rule{$key}) { } |
|
181
|
1 |
1 |
unless $$req_params{$key} eq $$rule{$key}($req_params) |
|
184
|
1 |
2 |
unless $$req_params{$key} =~ /$$rule{$key}/ |
|
190
|
10 |
22 |
unless $$req_params{$key} eq $$rule{$key} |
|
195
|
1 |
1 |
unless &$rule($req_params) |
|
198
|
5 |
8 |
unless defined $$req_params{$rule} |