File Coverage

blib/lib/CatalystX/OAuth2/Grant.pm

Criterion	Covered	Total	%
statement	3	3	100.0
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	4	4	100.0

package CatalystX::OAuth2::Grant;
use Moose::Role;

with 'CatalystX::OAuth2';

# ABSTRACT: A role for building oauth2 grant objects

requires 'next_action_uri';

has response_type => ( is => 'ro', required  => 1 );
has client_id     => ( is => 'ro', required  => 1 );
has scope         => ( is => 'ro', predicate => 'has_scope' );
has state         => ( is => 'ro', predicate => 'has_state' );

around _params => sub {
  my $orig = shift;
  return $orig->(@_), qw(response_type scope state client_id)
};

1;

__END__

=pod

=head1 NAME

CatalystX::OAuth2::Grant - A role for building oauth2 grant objects

=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