| line |
true |
false |
branch |
|
12
|
1 |
19 |
unless defined $opts{'rules'} |
|
16
|
0 |
19 |
unless ref $rules eq 'HASH' |
|
20
|
1 |
18 |
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 |
18 |
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 |
115 |
if @_ |
|
70
|
0 |
0 |
if @_ |
|
76
|
0 |
0 |
if @_ |
|
82
|
0 |
115 |
if @_ |
|
108
|
0 |
115 |
unless $perms or $all_entities_perms |
|
120
|
4 |
50 |
unless @{$main_ruleset;} or @{$def_ruleset;} or @{$all_entities_ruleset;} |
|
128
|
11 |
135 |
unless (ref $ruleset) |
|
137
|
105 |
29 |
if (defined $action) |
|
144
|
1 |
104 |
ref $action eq 'CODE' ? : |
|
163
|
0 |
135 |
unless my($action, @rules) = @{$ruleset;} |
|
169
|
49 |
15 |
if (ref $rule eq 'HASH') { } |
|
|
2 |
13 |
elsif (ref $rule eq 'CODE') { } |
|
|
13 |
0 |
elsif (not ref $rule) { } |
|
172
|
48 |
2 |
if (defined $$rule{$key}) { } |
|
174
|
11 |
37 |
unless defined $$req_params{$key} |
|
178
|
1 |
1 |
if exists $$req_params{$key} |
|
187
|
2 |
35 |
if (ref $$rule{$key} eq 'CODE') { } |
|
|
3 |
32 |
elsif (ref $$rule{$key} eq 'Regexp') { } |
|
|
1 |
31 |
elsif (ref $$rule{$key}) { } |
|
188
|
1 |
1 |
unless $$req_params{$key} eq $$rule{$key}($req_params) |
|
191
|
1 |
2 |
unless $$req_params{$key} =~ /$$rule{$key}/ |
|
197
|
9 |
22 |
unless $$req_params{$key} eq $$rule{$key} |
|
202
|
1 |
1 |
unless &$rule($req_params) |
|
205
|
5 |
8 |
unless defined $$req_params{$rule} |