role support, in MooseX::StrictConstructor::FromRole

[gitmo/MooseX-StrictConstructor.git] / lib / MooseX / StrictConstructor / Trait / Composite.pm

package MooseX::StrictConstructor::Trait::Composite;
use Moose::Role;

around apply_params => sub {
    my $orig = shift;
    my $self = shift;

    $self->$orig(@_);

    $self = Moose::Util::MetaRole::apply_metaroles(
        for            => $self,
        role_metaroles => {
            application_to_class =>
                ['MooseX::StrictConstructor::Trait::ApplicationToClass'],
            application_to_role =>
                ['MooseX::StrictConstructor::Trait::ApplicationToRole'],
        },
    );

    return $self;
};

no Moose::Role;

1;