File Coverage

blib/lib/Google/OAuth/Config.pm
Criterion Covered Total %
statement 1 3 33.3
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 2 4 50.0


line stmt bran cond sub pod time code
1             package Google::OAuth::Config ;
2              
3 1     1   1771 use NoSQL::PL2SQL::DBI ;
  0            
  0            
4              
5             our %test ;
6             my %client ;
7              
8             $client{client_id} = 'Js6XzxwxR9KA0g0kkEdEFjPPyv9kNKLfmfUuhu3A' ;
9             $client{client_secret} = 'WWGG3mJ8PREkuYeWAykn4hRTog0ISAbC3DLJ4ZOt' ;
10             $client{redirect_uri} = 'XFygUanB0BYszi3ehzNxfJM5BBV6xkSm7CcKmEAo' ;
11             $client{dsn} = new NoSQL::PL2SQL::DBI 'googletokens' ;
12              
13             $test{grantcode} = '1/fk7qwDysHKcwfa2S8ZKWTv2-nwTfxpPva3dzmujc_gQ' ;
14              
15             BEGIN {
16             use 5.008009;
17             use strict;
18             use warnings;
19            
20             require Exporter;
21            
22             our @ISA = qw( Exporter ) ;
23            
24             our %EXPORT_TAGS = ( 'all' => [ qw() ] );
25             our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ) ;
26             our @EXPORT = qw() ;
27             our $VERSION = '0.01';
28             }
29              
30             sub setclient {
31             return %client ;
32             }
33              
34             1;