Yet Another CPAN Grep

Tesla-API ( S/ST/STEVEB/Tesla-API-1.02.tar.gz, STEVEB, 2022; MetaCPAN )

Tesla-API/lib/Tesla/API.pm ( view source; MetaCPAN )

qw($RealBin);
use File::Copy;
use File::HomeDir;
use File::Share qw(:all);
use HTTP::Request;
use JSON;
use MIME::Base64 qw(encode_base64url);
use WWW::Mechanize;
use URI;
use UUID;

our $VERSION = '1

            => "$home_dir/tesla_auth_cache.json",
    ENDPOINTS_FILE              => $ENV{TESLA_API_ENDPOINTS_FILE} // dist_file('Tesla-API', 'endpoints.json'),
    OPTION_CODES_FILE           => $ENV

{TESLA_API_OPTIONCODES_FILE} // dist_file('Tesla-API', 'option_codes.json'),
    TOKEN_EXPIRY_WINDOW         => 5,
    URL_API                     => 'https://owner-api.teslamotors.com/',
    URL_ENDP