File Coverage

blib/lib/ORDB/CPANTS.pm

Criterion	Covered	Total	%
statement	18	24	75.0
branch	0	2	0.0
condition	0	6	0.0
subroutine	6	7	85.7
pod			n/a
total	24	39	61.5

package ORDB::CPANTS;

use 5.008005;
use strict;
use warnings;
use Params::Util   0.38 ();
use ORLite         1.52 ();
use ORLite::Mirror 1.22 ();

our $VERSION = '0.05';

sub import {
	my $class = shift;
	my $params = Params::Util::_HASH(shift) || {};

	# Pass through any params from above
	#$params->{url}    ||= 'http://cpants.perl.org/static/cpants_all.db.gz';
	$params->{url}    ||= 'http://cpants.charsbar.org/static/cpants_all.db.gz';
	$params->{maxage} ||= 7 * 24 * 60 * 60; # One week

	# Prevent double-initialisation
	$class->can('orlite') or
	ORLite::Mirror->import( $params );

	return 1;
}

1;

__END__