sub construct_tokens {
    my ($self, $oauth2, $response) = @_;
	
    my $content = eval {$response->decoded_content};
    eval {decode_json($content)};
    $response->push_header( 'token_type', 'Bearer' ) unless $@;
	
    $self->SUPER::construct_tokens($oauth2, $response);
}