Device-Neurio
view release on metacpan or search on metacpan
lib/Device/Neurio.pm view on Meta::CPAN
if (defined $location_id) {
$self->{'location_id'} = $location_id;
} else {
$self->{'location_id'} = '';
}
# Submit request for authentiaction token.
my $response = $self->{'ua'}->post($self->{'base_url'}.'/oauth2/token',
{ basic_authentication => $self->{'base64'},
Content_Type => 'application/x-www-form-urlencoded',
grant_type => 'client_credentials',
client_id => $self->{'key'},
client_secret => $self->{'secret'},
}
);
if($response->is_success) {
my $return = $response->content;
$return =~ /\"access_token\":\"(.*)\"\,\"token_type\"/;
$self->{'access_token'} = $1;
return 1;
( run in 0.230 second using v1.01-cache-2.11-cpan-4d50c553e7e )