File Coverage

blib/lib/ORDB/CPANTSWeight.pm
Criterion Covered Total %
statement 12 15 80.0
branch 0 2 0.0
condition n/a
subroutine 4 5 80.0
pod n/a
total 16 22 72.7


line stmt bran cond sub pod time code
1             package ORDB::CPANTSWeight;
2              
3 1     1   1787 use 5.008005;
  1         3  
  1         42  
4 1     1   5 use strict;
  1         2  
  1         37  
5 1     1   18 use warnings;
  1         2  
  1         38  
6 1     1   1079 use ORLite::Mirror 1.12 ();
  1         178656  
  1         103  
7              
8             our $VERSION = '0.03';
9              
10             sub import {
11 0     0     my $class = shift;
12              
13             # Prevent double-initialisation
14 0 0         $class->can('orlite') or
15             ORLite::Mirror->import( {
16             url => 'http://svn.ali.as/cpants_weight.db.gz',
17             maxage => 24 * 60 * 60,
18             user_version => 3,
19             @_,
20             } );
21              
22 0           return 1;
23             }
24              
25             1;
26              
27             __END__