Commit | Line | Data |
---|---|---|
fff0a09d | 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 | ||
6095de21 | 9 | $class = Moose::Util::MetaRole::apply_metaroles( |
fff0a09d | 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; |