File Coverage

blib/lib/MooX/Role/Parameterized.pm

Criterion	Covered	Total	%
statement	42	49	85.7
branch	3	4	75.0
condition	2	3	66.6
subroutine	11	15	73.3
pod	4	4	100.0
total	62	75	82.6

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

# ABSTRACT: MooX::Role::Parameterized - roles with composition parameters
use MooX::Role::Parameterized::Proxy;
use Exporter qw(import);
use Module::Runtime qw(use_module);
our @EXPORT = qw(role method apply hasp);

my %code_for;

sub hasp { carp "hasp deprecated"; }

sub apply {
    my ( $role, $args, %extra ) = @_;

    return if !exists $code_for{$role};

    $args = [$args] if ref($args) ne ref( [] );

    my $target = $extra{target} // caller;

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

        # necessary for magic
        *{ $role . '::hasp' } = sub {

            #        carp 'hasp deprecated, use $object->has instead.';
            goto &{ $target . '::has' };
        };
        *{ $role . '::method' } = sub {

            #        carp 'method deprecated, use $object->method instead.';
            my ( $name, $code ) = @_;
            no strict 'refs';
            *{"$target\::$name"} = $code;
        };
    }
    my $p =
      MooX::Role::Parameterized::Proxy->new( target => $target, role => $role );
    $code_for{$role}->( $_, $p ) foreach ( @{$args} );

    use_module('Moo::Role')->apply_roles_to_package( $target, $role );
}

sub role(&) {
    my $package = (caller)[0];

    $code_for{$package} = shift;
}

sub method { carp "hasp deprecated"; }

1;
__END__