File Coverage

blib/lib/MooX.pm

Criterion	Covered	Total	%
statement	34	35	97.1
branch	5	6	83.3
condition			n/a
subroutine	9	9	100.0
pod	0	1	0.0
total	48	51	94.1

package MooX;
BEGIN {
  $MooX::AUTHORITY = 'cpan:GETTY';
}
{
  $MooX::VERSION = '0.101';
}
# ABSTRACT: Using Moo and MooX:: packages the most lazy way

use strict;
use warnings;
use Import::Into;
use Module::Runtime qw( use_module );
use Carp;
use Data::OptList;

sub import {
	my ( $class, @modules ) = @_;
	my $target = caller;
	unshift @modules, '+Moo';
	MooX::import_base($class,$target,@modules);
}

sub import_base {
	my ( $class, $target, @modules ) = @_;
	my @optlist = @{Data::OptList::mkopt([@modules],{
		must_be => [qw( ARRAY HASH )],
	})};
	for (@optlist) {
		my $package = $_->[0];
		my $opts = $_->[1];
		for ($package) { s/^\+// or $_ = "MooX::$_" };
		my @args = ref $opts eq 'ARRAY'
			? @{$opts}
			: ref $opts eq 'HASH'
				? %{$opts}
				: ();
		use_module($package)->import::into($target,@args);
	}
}

1;


__END__