lib/MooseX/UndefTolerant/ApplicationToRole.pm

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