lib/MooseX/StrictConstructor/Trait/Composite.pm

   1 package MooseX::StrictConstructor::Trait::Composite;
   2 use Moose::Role;
   3
   4 around apply_params => sub {
   5     my $orig = shift;
   6     my $self = shift;
   7
   8     $self->$orig(@_);
   9
  10     $self = Moose::Util::MetaRole::apply_metaroles(
  11         for            => $self,
  12         role_metaroles => {
  13             application_to_class =>
  14                 ['MooseX::StrictConstructor::Trait::ApplicationToClass'],
  15             application_to_role =>
  16                 ['MooseX::StrictConstructor::Trait::ApplicationToRole'],
  17         },
  18     );
  19
  20     return $self;
  21 };
  22
  23 no Moose::Role;
  24
  25 1;