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


line stmt bran cond sub pod time code
1             package CatalystX::OAuth2::Grant;
2 8     8   5237 use Moose::Role;
  8         24  
  8         73  
3              
4             with 'CatalystX::OAuth2';
5              
6             # ABSTRACT: A role for building oauth2 grant objects
7              
8             requires 'next_action_uri';
9              
10             has response_type => ( is => 'ro', required => 1 );
11             has client_id => ( is => 'ro', required => 1 );
12             has scope => ( is => 'ro', predicate => 'has_scope' );
13             has state => ( is => 'ro', predicate => 'has_state' );
14              
15             around _params => sub {
16             my $orig = shift;
17             return $orig->(@_), qw(response_type scope state client_id)
18             };
19              
20             1;
21              
22             __END__
23              
24             =pod
25              
26             =head1 NAME
27              
28             CatalystX::OAuth2::Grant - A role for building oauth2 grant objects
29              
30             =head1 VERSION
31              
32             version 0.001007
33              
34             =head1 AUTHOR
35              
36             Eden Cardim <edencardim@gmail.com>
37              
38             =head1 COPYRIGHT AND LICENSE
39              
40             This software is copyright (c) 2017 by Suretec Systems Ltd.
41              
42             This is free software; you can redistribute it and/or modify it under
43             the same terms as the Perl 5 programming language system itself.
44              
45             =cut