File Coverage

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

Criterion	Covered	Total	%
statement	26	26	100.0
branch	1	2	50.0
condition	2	3	66.6
subroutine	8	8	100.0
pod			n/a
total	37	39	94.8

package MooX::Role::Parameterized::With;
use v5.12;
use strict;
use warnings;

our $VERSION = '0.701'; # VERSION

# ABSTRACT: dsl to apply roles with composition parameters

use Carp                      qw(carp);
use MooX::Role::Parameterized qw();

sub import {
    my $target = caller;

    {
        my $orig = $target->can('with');
        carp "will redefine 'with' function"
          if $orig && $MooX::Role::Parameterized::VERBOSE;

        no strict 'refs';
        no warnings 'redefine';

        *{ $target . '::with' } =
          MooX::Role::Parameterized->build_apply_roles_to_package($orig);
    }
}

1;

__END__