File Coverage

blib/lib/authority.pm

Criterion	Covered	Total	%
statement	15	17	88.2
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	21	23	91.3

package authority;

use 5.006;
use strict;

BEGIN {
	$authority::AUTHORITY = 'cpan:TOBYINK';
	$authority::VERSION   = '0.005';
}

use Carp 1.0 qw[];
use File::Spec 0.6 qw[];
use Object::AUTHORITY 0 qw[];

sub import
{
	use UNIVERSAL::AUTHORITY::Lexical;

	my ($class, $authority, $module, @arguments) = @_;
	($module, my $version) = split /\s+/, $module, 2;
	Carp::croak("Wrong number of arguments") unless defined $authority;

	(my $file = "$module.pm") =~ s!::!/!g;

	if ($authority =~ /^any$/i)
	{
		require $file;
	}
	else
	{
		my $authority_file = $authority;
		$authority_file =~ s/([^A-Za-z0-9])/sprintf('_%02X_', ord($1))/eg;
		$authority_file = File::Spec->catfile($authority_file, $file);
		eval { require $authority_file; 1 } or require $file;
	}

	CHECKS: do {
		$Carp::CarpLevel++;
		$module->AUTHORITY($authority)
			unless $authority =~ /^any$/i;
		$module->VERSION($version)
			if defined $version;
		$Carp::CarpLevel--;
	};

	my $method = $module->can('import');
	@_ = ($module, @arguments);
	goto &$method if $method;
}

1;

__END__