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   4 use strict;
  1         2  
  1         26  
4 1     1   4 use warnings;
  1         1  
  1         25  
5              
6 1     1   3 use base 'Class::Accessor::Fast';
  1         2  
  1         568  
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             =head2 expires_in
37              
38             =head2 refresh_token
39              
40             =head2 scope
41              
42             =head2 access_token_secret
43              
44             DEPRECATED.
45              
46             =head1 AUTHOR
47              
48             Lyo Kato, Elyo.kato@gmail.comE
49              
50             =head1 COPYRIGHT AND LICENSE
51              
52             Copyright (C) 2010 by Lyo Kato
53              
54             This library is free software; you can redistribute it and/or modify
55             it under the same terms as Perl itself, either Perl version 5.8.8 or,
56             at your option, any later version of Perl 5 you may have available.
57              
58             =cut
59              
60             1;