File Coverage

blib/lib/OAuth/Lite2/Client/Token.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package OAuth::Lite2::Client::Token;
2              
3 1     1   1050 use strict;
  1         1  
  1         20  
4 1     1   3 use warnings;
  1         1  
  1         18  
5              
6 1     1   3 use base 'Class::Accessor::Fast';
  1         1  
  1         402  
7              
8             __PACKAGE__->mk_accessors(qw(
9             access_token
10             expires_in
11             refresh_token
12             access_token_secret
13             scope
14             ));
15              
16             =head1 NAME
17              
18             OAuth::Lite2::Client::Token - Class represents access-token response
19              
20             =head1 SYNOPSIS
21              
22             my $t = $client->get_access_token( ... );
23             $t->access_token;
24             $t->expires_in;
25             $t->refresh_token;
26             $t->scope;
27              
28             =head1 DESCRIPTION
29              
30             Class represents access-token response
31              
32             =head1 ACCESSORS
33              
34             =head2 access_token
35              
36             The access token issued by the authorization serve
37              
38             =head2 expires_in
39              
40             The lifetime in seconds of the access token
41              
42             =head2 refresh_token
43              
44             The refresh token, which can be used to obtain new access tokens using the same authorization grant
45              
46             =head2 scope
47              
48             The scope of the access token
49              
50             =head2 access_token_secret
51              
52             DEPRECATED.
53              
54             =head1 AUTHOR
55              
56             Lyo Kato, Elyo.kato@gmail.comE
57              
58             =head1 COPYRIGHT AND LICENSE
59              
60             Copyright (C) 2010 by Lyo Kato
61              
62             This library is free software; you can redistribute it and/or modify
63             it under the same terms as Perl itself, either Perl version 5.8.8 or,
64             at your option, any later version of Perl 5 you may have available.
65              
66             =cut
67              
68             1;