File Coverage

blib/lib/CatalystX/OAuth2/Request/RefreshToken.pm

Criterion	Covered	Total	%
statement	10	10	100.0
branch	2	4	50.0
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	15	17	88.2

package CatalystX::OAuth2::Request::RefreshToken;
use Moose;
use URI;
with 'CatalystX::OAuth2';

# ABSTRACT: The oauth2 refresh token

has grant_type    => ( is => 'ro', required => 1 );
has refresh_token => ( is       => 'ro' );

around _params => sub { shift->(@_), qw(grant_type refresh_token) };

sub _build_query_parameters {
  my ($self) = @_;

  my $code = $self->store->find_code_from_refresh( $self->refresh_token )
    or return {
    error             => 'invalid_grant',
    error_description => 'The provided authorization grant '
      . 'is invalid, expired, revoked, does not match the '
      . 'redirection URI used in the authorization request, '
      . 'or was issued to another client.'
    };

  my $token =
    $self->store->create_access_token_from_refresh( $self->refresh_token )
    or return { error => 'internal_error' };
  return {
    access_token => $token->as_string,
    token_type   => $token->type,
    expires_in   => $token->expires_in
  };
}

1;

__END__

=pod

=head1 NAME

CatalystX::OAuth2::Request::RefreshToken - The oauth2 refresh token

=head1 VERSION

version 0.001006

=head1 AUTHOR

Eden Cardim <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2017 by Suretec Systems Ltd.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut