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 | ||
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; |