Branch Coverage

blib/lib/PlugAuth/Plugin/FlatAuthz.pm
Criterion Covered Total %
branch 68 84 80.9


line true false branch
34 105 586 if (has_changed($config->group_file))
45 6 551 unless @matches
52 60 631 if (has_changed($config->resource_file))
60 2 109 if ($resource =~ /#u/)
72 3 0 if (defined $users->{'#u'})
87 22 669 if ($h and has_changed($h))
124 115 219 if ($resourceActionGroup{$resource} and $resourceActionGroup{$resource}{$action} and $resourceActionGroup{$resource}{$action}{$group})
135 899 87 unless $resourceActionGroup{$subresource} and $resourceActionGroup{$subresource}{$action} and $resourceActionGroup{$subresource}{$action}{$group}
188 0 45 unless my $user = shift()
190 2 43 unless $all_users{$user}
191 23 20 unless $userGroups{$user}
202 0 79 unless defined $group
204 7 72 unless defined $groupUser{$group}
213 0 22 unless (defined $group)
219 1 21 if (defined $groupUser{$group})
225 1 20 unless defined $users
245 0 21 unless $ok
258 1 5 unless ($group and defined $groupUser{$group})
275 5 19 if defined $thisgroup and lc $thisgroup eq $group
282 0 5 unless $ok
295 1 12 unless ($group and defined $groupUser{$group})
301 1 11 unless defined $users
315 11 45 if defined $thisgroup and lc $thisgroup eq $group
321 0 11 unless $ok
333 2 15 unless ($group and defined $groupUser{$group})
352 15 70 if (defined $thisgroup and lc $thisgroup eq $group) { }
367 0 15 unless $ok
379 0 6 unless ($group and defined $groupUser{$group})
398 6 28 if (defined $thisgroup and lc $thisgroup eq $group) { }
413 0 6 unless $ok
425 1 16 unless ($group and defined $groupUser{$group} || defined $all_users{$group})
433 0 16 if ($resourceActionGroup{$resource}{$action}{$group})
457 0 16 unless $ok
469 1 14 unless ($group and defined $groupUser{$group} || defined $all_users{$group})
475 8 6 unless $resource =~ m[/]
477 1 13 unless ($resourceActionGroup{$resource}{$action}{$group})
494 0 44 if ($line =~ /^#/) { }
13 31 elsif ($line =~ /^\s*(.*?)\s*\((.*?)\)\s*:\s*(.*?)\s*$/ and $1 eq $resource and $2 eq $action) { }
501 0 13 if @groups > 0
512 0 13 unless $ok
533 0 10 if $line =~ /^#/
534 9 1 if $line =~ /^\s*(.*?)\s*\((.*?)\)\s*:\s*(.*?)\s*$/