Commit | Line | Data |
---|---|---|
fff0a09d | 1 | package MooseX::UndefTolerant::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::UndefTolerant::ApplicationToClass'], | |
15 | application_to_role => | |
16 | ['MooseX::UndefTolerant::ApplicationToRole'], | |
17 | }, | |
18 | ); | |
19 | ||
20 | return $self; | |
21 | }; | |
22 | ||
23 | no Moose::Role; | |
24 | ||
25 | 1; |