File Coverage

blib/lib/MooX/Role/Parameterized/With.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	26	26	100.0

package MooX::Role::Parameterized::With;
{
    $MooX::Role::Parameterized::With::VERSION = '0.08';
}
use strict;
use warnings;

# ABSTRACT: MooX::Role::Parameterized:With - dsl to apply roles with composition parameters

use Exporter;    # qw(import);
use Module::Runtime qw(use_module);
use List::MoreUtils qw(natatime);

sub import {
    my $package = shift;
    my $target  = caller;

    my $it = natatime( 2, @_ );

    while ( my ( $role, $params ) = $it->() ) {
        use_module($role)->apply( $params, target => $target );
    }
}

1;

__END__