Condition Coverage

blib/lib/Net/OAuth2/AuthorizationServer/AuthorizationCodeGrant.pm
Criterion Covered Total %
condition 30 43 69.7


and 3 conditions

line !l l&&!r l&&r condition
219 2 0 8 exists $self->auth_codes->{$auth_code} && exists $self->clients->{$client_id}
0 2 2 $uri and $self->auth_codes->{$auth_code}{'redirect_uri'} ne $uri
268 0 2 2 $uri and $auth_code_payload->{'aud'} ne $uri

or 2 conditions

line l !l condition
212 18 4 $self->clients->{$client_id} || (return 0, 'unauthorized_client')
248 8 0 $self->clients->{$client_id} || (return 0, 'unauthorized_client')

or 3 conditions

line l !l&&r !l&&!r condition
162 5 0 1 $self->_has_clients || ($args->{'verify_client_cb'} || $args->{'store_auth_code_cb'} || $args->{'verify_auth_code_cb'} || $args->{'store_access_token_cb'} || $args->{'verify_access_token_cb'})
194 0 2 0 $expires_in //= $self->auth_code_ttl
219 2 2 6 not exists $self->auth_codes->{$auth_code} && exists $self->clients->{$client_id} or $client_secret ne $self->clients->{$client_id}{'client_secret'}
4 2 4 not exists $self->auth_codes->{$auth_code} && exists $self->clients->{$client_id} or $client_secret ne $self->clients->{$client_id}{'client_secret'} or $self->auth_codes->{$auth_code}{'access_token'}
2 2 2 not exists $self->auth_codes->{$auth_code} && exists $self->clients->{$client_id} or $client_secret ne $self->clients->{$client_id}{'client_secret'} or $self->auth_codes->{$auth_code}{'access_token'} or $uri and $self->auth_codes->{$auth_code}{'redirect_uri'} ne $uri
2 0 2 not exists $self->auth_codes->{$auth_code} && exists $self->clients->{$client_id} or $client_secret ne $self->clients->{$client_id}{'client_secret'} or $self->auth_codes->{$auth_code}{'access_token'} or $uri and $self->auth_codes->{$auth_code}{'redirect_uri'} ne $uri or $self->auth_codes->{$auth_code}{'expires'} <= time
268 2 0 4 not $auth_code_payload or $invalid_jwt
2 0 4 not $auth_code_payload or $invalid_jwt or $auth_code_payload->{'type'} ne 'auth'
0 0 4 not $auth_code_payload or $invalid_jwt or $auth_code_payload->{'type'} ne 'auth' or $auth_code_payload->{'client'} ne $client_id
0 2 2 not $auth_code_payload or $invalid_jwt or $auth_code_payload->{'type'} ne 'auth' or $auth_code_payload->{'client'} ne $client_id or $uri and $auth_code_payload->{'aud'} ne $uri