File Coverage

blib/lib/OAuth/Lite2/Server/Context.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::Server::Context;
2              
3 5     5   20 use strict;
  5         6  
  5         127  
4 5     5   18 use warnings;
  5         6  
  5         119  
5              
6 5     5   20 use base 'Class::Accessor::Fast';
  5         7  
  5         531  
7              
8             __PACKAGE__->mk_accessors(qw(request data_handler));
9              
10             =head1 NAME
11              
12             OAuth::Lite2::Server::Context - request context object.
13              
14             =head1 SYNOPSIS
15              
16             my $context = OAuth::Lite2::Server::Context->new({
17             request => $req,
18             data_handler => YourDataHandler->new,
19             });
20              
21             =head1 DESCRIPTION
22              
23             request context object.
24              
25             =head1 METHODS
26              
27             =head2 request
28              
29             accessor for current L object.
30              
31             =head2 data_handler
32              
33             accessor for L object.
34              
35             =head1 SEE ALSO
36              
37             L
38              
39             =head1 AUTHOR
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;