Condition Coverage

blib/lib/Dancer2/Plugin/OAuth2/Server/Simple.pm
Criterion Covered Total %
condition 21 50 42.0


and 3 conditions

line !l l&&!r l&&r condition
117 7 1 0 $is_refresh_token and exists $REFRESH_TOKENS{$access_token}
124 0 0 0 exists $REFRESH_TOKENS{$access_token}{'scope'}{$scope} and $REFRESH_TOKENS{$access_token}{'scope'}{$scope}
145 2 5 0 exists $ACCESS_TOKENS{$access_token}{'scope'}{$scope} and $ACCESS_TOKENS{$access_token}{'scope'}{$scope}
175 0 0 5 exists $AUTH_CODES{$auth_code} && exists $self->_get_clients($dsl, $settings)->{$client_id}
0 4 0 $uri and $AUTH_CODES{$auth_code}{'redirect_uri'} ne $uri
193 0 0 1 $client_secret && $self->_get_clients($dsl, $settings)->{$client_id}
197 0 1 0 $uri and $AUTH_CODES{$auth_code}{'redirect_uri'} ne $uri
226 4 0 1 not defined $auth_code and $old_refresh_token

or 2 conditions

line l !l condition
14 52 0 $settings->{'clients'} // {}
34 9 0 $scopes // []
123 1 0 $scopes_ref // []
144 7 0 $scopes_ref // []

or 3 conditions

line l !l&&r !l&&!r condition
175 0 0 5 not exists $AUTH_CODES{$auth_code} && exists $self->_get_clients($dsl, $settings)->{$client_id} or $client_secret ne $self->_get_clients($dsl, $settings)->{$client_id}{'client_secret'}
0 0 5 not exists $AUTH_CODES{$auth_code} && exists $self->_get_clients($dsl, $settings)->{$client_id} or $client_secret ne $self->_get_clients($dsl, $settings)->{$client_id}{'client_secret'} or $AUTH_CODES{$auth_code}{'access_token'}
1 0 4 not exists $AUTH_CODES{$auth_code} && exists $self->_get_clients($dsl, $settings)->{$client_id} or $client_secret ne $self->_get_clients($dsl, $settings)->{$client_id}{'client_secret'} or $AUTH_CODES{$auth_code}{'access_token'} or $uri and $AUTH_CODES{$auth_code}{'redirect_uri'} ne $uri
0 0 4 not exists $AUTH_CODES{$auth_code} && exists $self->_get_clients($dsl, $settings)->{$client_id} or $client_secret ne $self->_get_clients($dsl, $settings)->{$client_id}{'client_secret'} or $AUTH_CODES{$auth_code}{'access_token'} or $uri and $AUTH_CODES{$auth_code}{'redirect_uri'} ne $uri or $AUTH_CODES{$auth_code}{'expires'} <= time
193 0 0 1 not $client_secret && $self->_get_clients($dsl, $settings)->{$client_id} or $client_secret ne $self->_get_clients($dsl, $settings)->{$client_id}{'client_secret'}
237 0 1 0 $scope //= $REFRESH_TOKENS{$old_refresh_token}{'scope'}