1 package MooseX::StrictConstructor::Trait::ApplicationToClass;
7 my ($role, $class) = @_;
9 Moose::Util::MetaRole::apply_base_class_roles(
11 roles => ['MooseX::StrictConstructor::Role::Object'],
14 $class = Moose::Util::MetaRole::apply_metaroles(
17 class => [ 'MooseX::StrictConstructor::Trait::Class' ],
21 $self->$orig( $role, $class );