| line |
true |
false |
branch |
|
21
|
41 |
21 |
unless defined $restrictions |
|
23
|
1 |
61 |
if keys %params |
|
24
|
1 |
24 |
if defined $role and ref $role || $role eq '' |
|
25
|
2 |
58 |
unless $resource and not ref $resource |
|
26
|
2 |
56 |
unless $action and not ref $action |
|
27
|
0 |
56 |
unless defined $restrictions and ref $restrictions eq "HASH" |
|
40
|
1 |
8 |
$self->{'_role'} ? : |
|
44
|
3 |
0 |
if ($self->{'_restrictions'}{$_}) { } |
|
|
0 |
0 |
elsif (&looks_like_number($self->{'_restrictions'}{$_})) { } |
|
70
|
14 |
10 |
unless $self->{'_role'} |
|
75
|
1 |
89 |
unless defined $resource |
|
80
|
1 |
50 |
unless defined $action |
|
92
|
47 |
35 |
unless ($self->role // "") eq ($priv->role // "") |
|
93
|
8 |
27 |
unless $self->resource eq $priv->resource |
|
94
|
18 |
9 |
unless $self->action eq $priv->action |
|
95
|
3 |
6 |
unless Compare($self->restrictions, $priv->restrictions) |
|
102
|
39 |
51 |
unless $self->_satisfies_resource($resource) |
|
103
|
27 |
24 |
unless $self->_satisfies_action($action) |
|
104
|
6 |
18 |
unless $self->_satisfies_role(@{$roles // []}) |
|
105
|
7 |
11 |
unless $self->_satisfies_restrictions($attributes // {}) |