Perl

Explicitly set the OAuth2 Access Token

This example shows how to set the AuthToken property using a previously obtained access token. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Assume we previously obtained JSON containing the access token such as this:

#     {
#      "access_token": "ya39.Ci-XA_C5bGgRDC3UaD-h0_NeL-DVIQnI2gHtBBBHkZzrwlARkwX6R3O0PCDEzRlfaQ",
#      "token_type": "Bearer",
#      "expires_in": 3600,
#      "refresh_token": "1/r_2c_7jddspcdfesrrfKqfXtqo08D6Q-gUU0DsdfVMsx0c"
#     }
#

# Load the JSON and use the access_token to authenticate an HTTP request.
my $json = Chilkat2::JsonObject->new;
my $success = $json->LoadFile('c:/someDir/tokens/myToken.json');

my $http = Chilkat2::Http->new;

# After setting this property, all HTTP requests sent using this object instance
# will include the request header: Authorization: Bearer <access_token>
$http->AuthToken($json->StringOf('access_token'));

# ...
# ...