File Coverage

lib/LWP/Authen/OAuth2/ServiceProvider/Withings.pm

Criterion	Covered	Total	%
statement	17	23	73.9
branch			n/a
condition			n/a
subroutine	11	12	91.6
pod	2	9	22.2
total	30	44	68.1

package LWP::Authen::OAuth2::ServiceProvider::Withings;

# ABSTRACT: Withings OAuth2
our $VERSION = '0.18';    our $VERSION = '0.19'; # VERSION

use strict;
use warnings;
use JSON;

our @ISA = qw(LWP::Authen::OAuth2::ServiceProvider);

sub authorization_endpoint {
    return ' https://account.withings.com/oauth2_user/authorize2';
}

sub token_endpoint {
    return 'https://wbsapi.withings.net/v2/oauth2';
}

sub authorization_required_params {
    return ( 'client_id', 'state', 'scope', 'redirect_uri', 'response_type' );
}

sub authorization_default_params {
    return ( response_type => 'code', state => 'auth', scope => 'user.metrics' );
}

sub request_required_params {
    return ( 'action', 'grant_type', 'client_id', 'client_secret', 'code', 'redirect_uri' );
}

sub request_default_params {
    return ( grant_type => 'authorization_code', action => 'requesttoken' );
}

sub refresh_required_params {
    return ( 'action', 'grant_type', 'client_id', 'client_secret', 'refresh_token' );
}

sub refresh_default_params {
    return ( grant_type => 'refresh_token', action => 'requesttoken' );
}

sub construct_tokens {
    my ( $self, $oauth2, $response ) = @_;

    my $content = eval { decode_json( $response->content ) };
    $content = $content->{ 'body' };
    $response->content( encode_json( $content ) );

    $self->SUPER::construct_tokens( $oauth2, $response );
}

1;

__END__