blib/lib/Net/OAuth2/AuthorizationServer/PasswordGrant.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 5 | 6 | 83.3 |
line | true | false | branch |
---|---|---|---|
137 | 0 | 1 | keys %{(shift())->users // {};} ? : |
142 | 1 | 5 | if (not $self->_has_clients || $self->_has_users || ($args->{'verify_client_cb'} || $args->{'verify_user_password_cb'} || $args->{'store_access_token_cb'} || $args->{'verify_access_token_cb'})) |
173 | 12 | 4 | if (not exists $self->clients->{$client_id} && exists $self->users->{$username} or $client_secret ne $self->clients->{$client_id}{'client_secret'} or $password ne $self->users->{$username}) { } |