File Coverage

blib/lib/OAuth/Lite2/Client/ServerState.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::ServerState;
2              
3 1     1   772 use strict;
  1         1  
  1         20  
4 1     1   2 use warnings;
  1         1  
  1         18  
5              
6 1     1   2 use base 'Class::Accessor::Fast';
  1         1  
  1         68  
7              
8             __PACKAGE__->mk_accessors(qw(
9             server_state
10             expires_in
11             ));
12              
13             =head1 NAME
14              
15             OAuth::Lite2::Client::ServerState - Class represents server-state response
16              
17             =head1 SYNOPSIS
18              
19             my $t = $client->get_server_state( ... );
20             $t->server_state;
21             $t->expires_in;
22              
23             =head1 DESCRIPTION
24              
25             Class represents server-state response
26              
27             =head1 ACCESSORS
28              
29             =head2 server_state
30              
31             server_state string
32              
33             =head2 expires_in
34              
35             Seconds to expires
36              
37             =head1 AUTHOR
38              
39             Ryo Ito, Eritou.06@gmail.comE
40              
41             Lyo Kato, Elyo.kato@gmail.comE
42              
43             =head1 COPYRIGHT AND LICENSE
44              
45             Copyright (C) 2010 by Lyo Kato
46              
47             This library is free software; you can redistribute it and/or modify
48             it under the same terms as Perl itself, either Perl version 5.8.8 or,
49             at your option, any later version of Perl 5 you may have available.
50              
51             =cut
52              
53             1;