File Coverage

blib/lib/CatalystX/OAuth2/ActionRole/Token.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package CatalystX::OAuth2::ActionRole::Token;
2 8     8   6054 use Moose::Role;
  8         26  
  8         82  
3 8     8   50235 use JSON::Any;
  8         15523  
  8         66  
4              
5             # ABSTRACT: A role for building token-building actions
6              
7             with 'CatalystX::OAuth2::ActionRole::RequestInjector';
8              
9             my $json = JSON::Any->new;
10              
11             after execute => sub {
12             my ( $self, $controller, $c ) = @_;
13             $c->res->body( $json->objToJson( $c->req->oauth2->query_parameters ) );
14             };
15              
16             1;
17              
18             __END__
19              
20             =pod
21              
22             =head1 NAME
23              
24             CatalystX::OAuth2::ActionRole::Token - A role for building token-building actions
25              
26             =head1 VERSION
27              
28             version 0.001006
29              
30             =head1 AUTHOR
31              
32             Eden Cardim <edencardim@gmail.com>
33              
34             =head1 COPYRIGHT AND LICENSE
35              
36             This software is copyright (c) 2017 by Suretec Systems Ltd.
37              
38             This is free software; you can redistribute it and/or modify it under
39             the same terms as the Perl 5 programming language system itself.
40              
41             =cut