| line |
true |
false |
branch |
|
19
|
0 |
9 |
unless $attr{'acl_file'} |
|
21
|
8 |
1 |
if (-e $attr{'acl_file'}) { } |
|
33
|
0 |
8 |
unless open ACL, '<', $$self{'acl_file'} |
|
38
|
4 |
125 |
if $line =~ /^#/ |
|
39
|
114 |
11 |
unless $$self{'pedantic'} |
|
43
|
31 |
94 |
unless $line |
|
46
|
4 |
90 |
if ($line =~ /^\s+(.+)$/) { } |
|
56
|
4 |
90 |
if ($nextline and $nextline =~ /^[ \t]+\S/) |
|
60
|
0 |
90 |
unless $statement |
|
62
|
31 |
59 |
if ($statement =~ /^\[\s*(.+?)\s*\]$/) { } |
|
65
|
20 |
11 |
unless ($current_resource =~ /^(?:groups|aliases)$/) |
|
73
|
2 |
57 |
unless ($k) |
|
78
|
17 |
40 |
if ($current_resource eq 'groups') { } |
|
|
4 |
36 |
elsif ($current_resource eq 'aliases') { } |
|
86
|
36 |
0 |
if (my $resource = $self->resource($current_resource)) { } |
|
98
|
4 |
4 |
unless (ref $$self{'acl'}{'aliases'} eq 'HASH') |
|
110
|
3 |
3 |
if ($self->groups) |
|
117
|
19 |
1 |
if (defined $resource and $resource->authorized) |
|
119
|
5 |
30 |
if ($k =~ /^@(.*)/) |
|
120
|
2 |
3 |
unless ($groups{$1}) |
|
128
|
1 |
5 |
scalar @errors ? : |
|
135
|
1 |
5 |
if (my $error = $self->verify_acl) |
|
139
|
0 |
5 |
if (ref \$out eq 'GLOB' or ref $out) { } |
|
143
|
5 |
0 |
unless $out |
|
144
|
0 |
5 |
unless open ACL, '>', $out |
|
148
|
2 |
3 |
if (scalar keys %{$self->aliases;}) |
|
157
|
3 |
2 |
if ($self->groups) |
|
166
|
13 |
1 |
if (defined $resource and $resource->authorized) |
|
182
|
0 |
0 |
if (my $error = $self->verify_acl) |
|
190
|
0 |
0 |
if (scalar keys %{$self->aliases;}) |
|
196
|
0 |
0 |
if ($self->groups) |
|
201
|
0 |
0 |
if ($self->resources) |
|
209
|
0 |
0 |
length $_ >= $max_len ? : |
|
212
|
0 |
0 |
unless open ACL, '>', $$self{'acl_file'} |
|
215
|
0 |
0 |
if (scalar keys %{$self->aliases;}) |
|
224
|
0 |
0 |
if ($self->groups) |
|
233
|
0 |
0 |
if (defined $resource and $resource->authorized) |
|
256
|
3 |
1 |
if (exists $$self{'acl'}{'aliases'}{$alias_name}) |
|
265
|
1 |
9 |
unless (ref $$self{'acl'}{'aliases'} eq 'HASH') |
|
273
|
1 |
27 |
if ($resource_name eq 'name') |
|
277
|
0 |
28 |
if ($self->resource($resource_name)) { } |
|
|
0 |
28 |
elsif (not $resource_name =~ m[^(?:\S+\:)?/.*$]) { } |
|
295
|
25 |
8 |
unless $resource->name eq $resource_name |
|
297
|
7 |
1 |
scalar @resources ? : |
|
302
|
79 |
12 |
if (ref $$self{'acl'}{'resources'} eq 'ARRAY') { } |
|
312
|
43 |
154 |
if defined $resource and $resource->name eq $resource_name |
|
321
|
14 |
4 |
unless $$self{'pedantic'} |
|
323
|
0 |
18 |
if ($self->group($group_name)) { } |
|
342
|
0 |
1 |
unless $group->name eq $group_name |
|
345
|
0 |
1 |
scalar @groups ? : |
|
350
|
41 |
14 |
if (ref $$self{'acl'}{'groups'} eq 'ARRAY') { } |
|
360
|
18 |
53 |
if defined $group and $group->name eq $group_name |
|
370
|
4 |
4 |
if ($e =~ /^\@(.+)/) { } |
|
|
1 |
3 |
elsif ($e =~ /^\&(.+)/) { } |
|
371
|
4 |
0 |
if $self->group($1) |
|
374
|
1 |
0 |
if $self->alias($1) |