| line |
true |
false |
branch |
|
20
|
2 |
0 |
if (defined $config->{'allow_regexp'} and $config->{'allow_regexp'} ne "")
|
|
27
|
2 |
0 |
if (defined $config->{'deny_regexp'} and $config->{'deny_regexp'} ne "")
|
|
34
|
2 |
0 |
if (defined $config->{'cutname_regexp'} and $config->{'cutname_regexp'} ne "")
|
|
51
|
8 |
3 |
if ($self->source eq 'REMOTE_USER') { }
|
|
|
3 |
0 |
elsif ($self->source =~ /^(SSL_CLIENT_.*|CERT_*|AUTH_USER)$/) { }
|
|
52
|
8 |
0 |
if ($c->req->can('remote_user')) { }
|
|
|
0 |
0 |
elsif ($c->engine->can('env') and defined $c->engine->env) { }
|
|
|
0 |
0 |
elsif ($c->req->can('user')) { }
|
|
64
|
0 |
0 |
if (ref $c->req->user) { }
|
|
80
|
3 |
0 |
if ($c->request->can('env')) { }
|
|
|
0 |
0 |
elsif ($c->engine->can('env')) { }
|
|
95
|
1 |
10 |
unless defined $remuser
|
|
96
|
1 |
9 |
if $remuser eq ""
|
|
101
|
0 |
9 |
if defined $authuser and $authuser ne $remuser
|
|
104
|
1 |
8 |
if defined $self->deny_re and $remuser =~ $self->deny_re
|
|
105
|
1 |
7 |
if defined $self->allow_re and not $remuser =~ $self->allow_re
|
|
110
|
7 |
0 |
if (defined $self->cutname_re)
|
|
111
|
5 |
2 |
if ($remuser =~ $self->cutname_re and $1 ne "")
|
|
118
|
7 |
0 |
ref $user_obj ? :
|