File Coverage

blib/lib/Net/OpenSocial/Client/Type/Auth.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Net::OpenSocial::Client::Type::Auth;
2              
3 1     1   5 use strict;
  1         2  
  1         45  
4 1     1   6 use warnings;
  1         2  
  1         32  
5              
6 1     1   4 use base 'Exporter';
  1         2  
  1         100  
7              
8             our @EXPORT_OK = qw(OAUTH ST);
9              
10 1     1   6 use constant OAUTH => 0;
  1         2  
  1         62  
11 1     1   6 use constant ST => 1;
  1         2  
  1         63  
12              
13             1;
14              
15             =head1 NAME
16              
17             Net::OpenSocial::Client::Type::Auth - Constants for auth-type
18              
19             =head1 SYNOPSIS
20              
21             use Net::OpenSocial::Client::Type::Auth qw(OAUTH ST);
22             say OAUTH;
23             say ST;
24              
25             =head1 DESCRIPTION
26              
27             Constants for auth-type
28              
29             =head1 VALUES
30              
31             =over 4
32              
33             =item OAUTH
34              
35             Use 2-legged or 3-legged OAuth.
36             See L for more detail.
37              
38             =item ST
39              
40             Use security-token for authentication.
41             See L for more detail.
42              
43             =back
44              
45             =head1 AUTHOR
46              
47             Lyo Kato, Elyo.kato@gmail.comE
48              
49             =head1 COPYRIGHT AND LICENSE
50              
51             Copyright (C) 2009 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