File Coverage

blib/lib/ORDB/JSAN.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::JSAN;
2              
3 1     1   740 use 5.008005;
  1         6  
  1         42  
4 1     1   6 use strict;
  1         3  
  1         33  
5 1     1   14 use warnings;
  1         2  
  1         34  
6 1     1   928 use Params::Util 1.00 ();
  1         2722  
  1         27  
7 1     1   768 use ORLite::Mirror 1.15 ();
  1         147423  
  1         161  
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://openjsan.org/index.sqlite';
17 0   0       $params->{maxage} ||= 24 * 60 * 60; # One day
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__