File Coverage

blib/lib/OAuth/Lite2/Server/GrantHandler.pm
Criterion Covered Total %
statement 8 10 80.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod 2 2 100.0
total 13 16 81.2


line stmt bran cond sub pod time code
1             package OAuth::Lite2::Server::GrantHandler;
2              
3 5     5   2180 use strict;
  5         7  
  5         132  
4 5     5   20 use warnings;
  5         8  
  5         417  
5              
6             sub new {
7 8     8 1 2420 my $class = shift;
8 8         31 bless {}, $class;
9             }
10              
11             sub handle_request {
12 0     0 1   my ($self, $data_handler) = @_;
13 0           die "abstract method";
14             }
15              
16             =head1 NAME
17              
18             OAuth::Lite2::Server::GrantHandler - base class of each grant_type handler
19              
20             =head1 SYNOPSIS
21              
22             my $handler = OAuth::Lite2::Server::GrantHandler->new;
23             my $res = $handler->handle_request( $ctx );
24              
25             =head1 METHODS
26              
27             =head2 new
28              
29             Constructor
30              
31             =head2 handle_request( $data_handler )
32              
33             processes passed L, and return
34             hash represents that includes response-parameters.
35              
36             my $res = $handler->handle_request( $data_handler );
37              
38             =head1 SEE ALSO
39              
40             L
41             L
42             L
43             L
44              
45             =head1 AUTHOR
46              
47             Lyo Kato, Elyo.kato@gmail.comE
48              
49             =head1 COPYRIGHT AND LICENSE
50              
51             Copyright (C) 2010 by Lyo Kato
52              
53             This library is free software; you can redistribute it and/or modify
54             it under the same terms as Perl itself, either Perl version 5.8.8 or,
55             at your option, any later version of Perl 5 you may have available.
56              
57             =cut
58              
59             1;