File Coverage

blib/lib/ORDB/AU/Census2006.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::AU::Census2006;
2              
3 1     1   993 use 5.008005;
  1         5  
  1         46  
4 1     1   7 use strict;
  1         2  
  1         38  
5 1     1   18 use warnings;
  1         3  
  1         43  
6 1     1   1160 use Params::Util 0.38 ();
  1         3182  
  1         28  
7 1     1   1015 use ORLite::Mirror 1.12 ();
  1         415445  
  1         166  
8              
9             our $VERSION = '0.01';
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://ali.as/census/census.sqlite.gz';
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;