lib/MooseX/UndefTolerant/ApplicationToClass.pm

   1 package MooseX::UndefTolerant::ApplicationToClass;
   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         class_metaroles => {
  12             class => [ 'MooseX::UndefTolerant::Class' ],
  13         }
  14     );
  15
  16     $self->$orig( $role, $class );
  17 };
  18
  19 no Moose::Role;
  20
  21 1;