line |
true |
false |
branch |
162
|
3 |
6 |
@_ == 2 ? : |
166
|
0 |
11 |
if (not $coderef or ref $coderef ne 'CODE') |
171
|
5 |
5 |
unless ($user) |
249
|
0 |
8 |
@_ == 3 ? : |
254
|
0 |
8 |
if (not $coderef or ref $coderef ne 'CODE') |
259
|
0 |
8 |
unless ($user) |
271
|
3 |
5 |
ref $require_role eq 'ARRAY' ? : |
275
|
5 |
3 |
if ($mode eq 'single') { } |
|
1 |
2 |
elsif ($mode eq 'any') { } |
|
2 |
0 |
elsif ($mode eq 'all') { } |
277
|
4 |
6 |
if _smart_match($_, $require_role) |
282
|
1 |
1 |
if $role_ok{$_} |
287
|
1 |
3 |
unless (user_has_role($dsl, $role)) |
293
|
3 |
5 |
unless ($role_match) |
324
|
13 |
5 |
if (http_authenticate_user($dsl, $realm)) { } |
356
|
0 |
4 |
if (@_ == 2) { } |
363
|
0 |
4 |
unless defined $username |
368
|
3 |
4 |
if $has_role eq $want_role |
390
|
6 |
4 |
unless defined $username |
392
|
0 |
10 |
$realm ? : |
395
|
0 |
10 |
unless defined $roles |
396
|
6 |
4 |
wantarray ? : |
430
|
4 |
14 |
unless ($dsl->request->header('Authorization')) |
431
|
0 |
4 |
wantarray ? : |
444
|
14 |
0 |
$realm ? : |
449
|
13 |
1 |
if ($provider->authenticate_user($username, $password)) |
455
|
0 |
13 |
wantarray ? : |
464
|
0 |
1 |
wantarray ? : |
472
|
25 |
4 |
if (1 == keys %{plugin_setting()->{'realms'};}) |
475
|
4 |
0 |
if (exists plugin_setting()->{'default_realm'}) |
493
|
1 |
60 |
unless (grep {$realm eq $_;} keys %{plugin_setting()->{'realms'};}) |
514
|
5 |
0 |
if (exists plugin_setting()->{'realms'}{$realm}{'scheme'}) { } |
532
|
0 |
0 |
unless (grep(($scheme eq $_), ('Basic', 'Digest'))) |
561
|
2 |
27 |
unless (exists $dsl->vars->{'http_username'}) |
567
|
2 |
27 |
if (@_ == 1) |
578
|
1 |
28 |
unless exists $dsl->vars->{'http_username'} |
602
|
2 |
30 |
unless (exists $dsl->vars->{'http_realm'}) |
608
|
2 |
30 |
if (@_ == 1) |
619
|
1 |
31 |
unless exists $dsl->vars->{'http_realm'} |
670
|
34 |
3 |
if exists $realm_provider{$realm} |
674
|
0 |
3 |
unless my $realm_settings = plugin_setting()->{'realms'}{$realm} |
677
|
0 |
3 |
unless my $provider_class = $realm_settings->{'provider'} |
680
|
3 |
0 |
unless ($provider_class =~ /::/) |
685
|
0 |
3 |
unless ($ok) |
707
|
0 |
0 |
unless ($provider->can($method)) |
710
|
0 |
0 |
if (defined(my $result = $provider->$method(@args))) |
727
|
8 |
2 |
if (not ref $want) { } |
|
2 |
0 |
elsif (ref $want eq 'Regexp') { } |
|
0 |
0 |
elsif (ref $want eq 'ARRAY') { } |