| blib/lib/RPC/Serialized/AuthzHandler/ACL.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 22 | 68.1 |
| line | true | false | branch |
|---|---|---|---|
| 29 | 1 | 2 | unless my $acl_fh = 'IO::File'->new($acl_path) |
| 37 | 3 | 5 | unless length $_ |
| 39 | 4 | 1 | if (my($action, $operation, $subject, $target) = $_ =~ /$ACL_RX/) { } |
| 0 | 1 | elsif (my($name, $uri) = $_ =~ /$GROUP_RX/) { } | |
| 40 | 0 | 4 | if ($subject =~ s/^group://) |
| 41 | 0 | 0 | unless $subject = $groups{$subject} |
| 45 | 0 | 4 | if ($target =~ s/^group://) |
| 46 | 0 | 0 | unless $target = $groups{$target} |
| 72 | 1 | 3 | unless my $acl_path = shift() |
| 91 | 19 | 6 | if $rc == $acl->DECLINE |
| 92 | 3 | 3 | $rc == $acl->ALLOW ? : |