1 package MooseX::StrictConstructor::Trait::ApplicationToRole;
7 my ($role1, $role2) = @_;
9 $role2 = Moose::Util::MetaRole::apply_metaroles(
12 application_to_class => [
13 'MooseX::StrictConstructor::Trait::ApplicationToClass',
15 application_to_role => [
16 'MooseX::StrictConstructor::Trait::ApplicationToRole',
21 $self->$orig( $role1, $role2 );