File Coverage

blib/lib/ORDB/CPANTesters.pm
Criterion Covered Total %
statement 15 21 71.4
branch 0 2 0.0
condition 0 6 0.0
subroutine 5 6 83.3
pod n/a
total 20 35 57.1


line stmt bran cond sub pod time code
1             package ORDB::CPANTesters;
2              
3 1     1   3911 use 5.008005;
  1         4  
  1         47  
4 1     1   8 use strict;
  1         2  
  1         36  
5 1     1   17 use warnings;
  1         2  
  1         40  
6 1     1   1007 use Params::Util 0.38 ();
  1         3101  
  1         28  
7 1     1   956 use ORLite::Mirror 1.12 ();
  1         167614  
  1         147  
8              
9             our $VERSION = '0.09';
10              
11             sub import {
12 0     0     my $class = shift;
13 0   0       my $params = Params::Util::_HASH(shift) || {};
14              
15             # Pass through any params from above
16 0   0       $params->{url} ||= 'http://devel.cpantesters.org/cpanstats.db.bz2';
17 0   0       $params->{maxage} ||= 7 * 24 * 60 * 60; # One week
18              
19             # Prevent double-initialisation
20 0 0         $class->can('orlite') or
21             ORLite::Mirror->import( $params );
22              
23 0           return 1;
24             }
25              
26             1;
27              
28             __END__