File Coverage

blib/lib/ORDB/CPANMeta.pm

Criterion	Covered	Total	%
statement	15	22	68.1
branch	0	2	0.0
condition	0	8	0.0
subroutine	5	6	83.3
pod			n/a
total	20	38	52.6

package ORDB::CPANMeta;

use 5.008005;
use strict;
use warnings;
use Params::Util   1.00 ();
use ORLite::Mirror 1.15 ();

our $VERSION = '0.10';

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

	# Pass through any params from above
	$params->{url}          ||= 'http://svn.ali.as/db/cpanmeta.gz';
	$params->{maxage}       ||= 24 * 60 * 60; # One day
	$params->{user_version} ||= 10;

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

	return 1;
}

1;

__END__