view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

# This file was automatically generated by Dist::Zilla::Plugin::Manifest v6.024.
Changes
LICENSE
MANIFEST
META.json
META.yml
Makefile.PL
README.md
cpanfile
dist.ini
examples/client_credentials.pl
examples/device_login.pl
examples/password.pl
lib/Azure/AD/Auth.pm
lib/Azure/AD/ClientCredentials.pm
lib/Azure/AD/ClientCredentialsV2.pm
lib/Azure/AD/DeviceLogin.pm
lib/Azure/AD/Errors.pm
lib/Azure/AD/Password.pm
t/01_load.t

lib/Azure/AD/ClientCredentials.pm  view on Meta::CPAN

    if (not defined $self->current_creds) {
      $self->_refresh_from_cache;
      return $self->current_creds if (defined $self->current_creds);
    }

    return if $self->expiration >= time;

    my $auth_response = $self->ua->post_form(
      $self->token_endpoint,
      {
        grant_type    => 'client_credentials',
        client_id     => $self->client_id,
        client_secret => $self->secret_id,
        resource      => $self->resource_id,
      }
    );

    if (not $auth_response->{ success }) {
      Azure::AD::RemoteError->throw(
        message => $auth_response->{ content },
        code => 'GetClientCredentialsFailed',

lib/Azure/AD/ClientCredentialsV2.pm  view on Meta::CPAN

    if (not defined $self->current_creds) {
      $self->_refresh_from_cache;
      return $self->current_creds if (defined $self->current_creds);
    }

    return if $self->expiration >= time;

    my $auth_response = $self->ua->post_form(
      $self->token_endpoint,
      {
        grant_type    => 'client_credentials',
        client_id     => $self->client_id,
        client_secret => $self->secret_id,
        scope         => $self->scope,
      }
    );

    if (not $auth_response->{success}) {
      Azure::AD::RemoteError->throw(
        message => $auth_response->{content},
        code => 'GetClientCredentialsFailed',