File Coverage

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

Criterion	Covered	Total	%
statement	13	13	100.0
branch	3	4	75.0
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	19	20	95.0

package CatalystX::OAuth2::Request::AuthToken;
use Moose;
use URI;

with 'CatalystX::OAuth2';

# ABSTRACT: An oauth2 authentication token implementation

has grant_type => ( is => 'ro', required => 1 );
has code       => ( is => 'ro', required => 1 );
has refresh_token => (
  isa     => 'Bool',
  is      => 'rw',
  default => 0
);

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

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

  my $code = $self->store->find_client_code( $self->code )
    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 $with_refresh = $self->refresh_token;
  my $token = $self->store->create_access_token( $self->code, $with_refresh );
  my $res   = {
    access_token => $token->as_string,
    token_type   => $token->type,
    expires_in   => $token->expires_in,
  };
  $res->{refresh_token} = $token->to_refresh_token->as_string
    if $with_refresh;

  return $res;
}

1;

__END__

=pod

=head1 NAME

CatalystX::OAuth2::Request::AuthToken - An oauth2 authentication token implementation

=head1 VERSION

version 0.001007

=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